; S1 時から h 時間後の時間を足し 12 で割った余りが S2 時でこれを出力する
(defparameter *roma-number* `(I II III IIII V VI VII VIII IX X XI XII))
(defun main ()
  (let* ((s (read))
         (h (read))
         (indx (mod (+ (position s *roma-number*) h) 12)))
    (princ (elt *roma-number* indx))
    (terpri)))
(main)