clock = cycle ["I","II","III","IIII","V","VI","VII","VIII","IX","X","XI","XII"]

main = do
 [s1,t] <- words <$> getLine
 let r = head $ drop (mod (read t) 12) (dropWhile (/=s1) clock)
 putStrLn r