import Control.Applicative
import Data.List
import Data.Maybe

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

main = do
    [s, st] <- words <$> getLine
    let t = read st :: Int
    putStrLn $ solve s t

solve s t = nums !! ((t + id + 1200) `mod` 12)
    where id = fromJust (s `elemIndex` nums)