integer::T,i
  character*8::str
  character*8::time(12)
  data time/"I","II","III","IIII","V","VI","VII","VIII","IX","X","XI","XII"/

  read *,str, T

  do i=1,12
     if(time(i).eq.TRIM(str)) exit
  end do
  T = MOD(T+i,12)
  print '(a)',time(T)
end program