(loop(do*((p()c)(c #1=(position(read-char)"
IVXLCDM")#1#)(n 0(+(*(expt 10(floor(1- p)2))(if(< p c)-1(if(oddp p)1 5)))n)))((= c 0)(format t"~A
"n))))