(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))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page