(while(= i 0 o(obj #\V5 #\X10 #\L50 #\C100 #\D500 #\M1000)l(readline))(prn:sum[if(<(= n(o _ 1))(o((++ l)(++ i))0))-.n n]l))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page