s=?I
20.times{puts s
s.gsub!(/(.)\1*/){:IIIIIV[5&i=$&.size,i]+$1}}