module Main where

import Control.Monad
import Data.List (elemIndex)

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

main :: IO ()
main = do
    [s1, t] <- words <$> getLine
    let Just st = s1 `elemIndex` roma
    let tt = (st + read t) `mod` 12
    if tt < 0
        then putStrLn $ roma !! (12 + tt)
        else putStrLn $ roma !! tt