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

  read *,str, T

  do i=0,11
     if(time(i).eq.TRIM(str)) exit
  end do

  T = MOD(T+i+1200,12)
  print '(a)',time(T)
end program