s/M2//,y/DCLXVIM/1MDCLX2/,$\=s/\d/2x$&x5/egfor(<>)x4;print