for(;$=readline(r=0);print(r))for(i in $)n=('1e'+'IXCMVLD'.search($[i]))%9995,r+=n-r%n*2
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page