import Data.List
n%s=putStrLn s>>(n-1)%do h:t<-group s;words"I II III IV V"!!sum(1^n<$t)++[h]
main=18%"I"