let () = let time = [(1, "I");(2, "II");(3, "III");(4, "IIII");(5, "V"); (6, "VI");(7, "VII");(8, "VIII");(9, "IX");(10, "X");(11, "XI");(12, "XII")] in Scanf.scanf "%s %d\n" @@ fun s t -> let (now, _) = List.find (fun (n, m) -> m = s) time in let search = (now + t) mod 12 in let s = if search < 0 then 12 + search else search in Printf.printf "%s\n" (snd (List.find (fun (n, m) -> n = s) time))