#!/usr/bin/perl

# SPDX-FileCopyrightText: Chris Pressey, the original author of this work, has dedicated it to the public domain.
# For more information, please refer to <https://unlicense.org/>
# SPDX-License-Identifier: Unlicense

$f = <STDIN>;
for ($i = 0; $i < length($f); $i++)
{
    printf "MOV R0, %d\n", ord(substr($f, $i, 1));
}