let doIt () =
    let convTbl = [| "XII"; "I"; "II"; "III"; "IIII"; "V"; "VI"; "VII"; "VIII"; "IX"; "X"; "XI" |]
    let shour, dh = stdin.ReadLine () |> fun str -> str.Split () |> fun arr -> (arr.[0], int arr.[1])
    let hour = Array.findIndex (fun s -> s = shour) convTbl

    (hour + (dh % 12) + 12) % 12 |> fun h -> convTbl.[h] |> printfn "%s"

doIt ()