#!/usr/bin/env perl

use strict;
use warnings;

my @v = ("I","II","III","IIII","V","VI","VII","VIII","IX","X","XI","XII");
my ($s1, $t) = split / /,<>;
my ($index) = grep { $v[$_] eq $s1 } 0 .. $#v;
print $v[int($index + 1200 + $t) % 12];