import Data.List
l!x|l x<110=putStrLn x>>l!do g:h<-group x;words"I II III IV V"!!l h++[g]
main=length!"I"