Roman numeral by youz

(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