eval'puts$_="I"'+',gsub(/(.)\1*/){"IIIIIV"[5&i=$&.size,i]+$1}'*19