import Data.List
import Data.Maybe

main = getLine >>= putStrLn . solve . words

solve ls = roma !! (((fromJust $ elemIndex s1 roma) + t) `mod` 12)
  where s1 = head ls
        t = read $ last ls
        roma = ["I","II","III","IIII","V","VI","VII","VIII","IX","X","XI","XII"]