for(m={V:4,X:9,L:49,C:99,D:499,M:999};$=readline(r=0);print(r))for(i in $)n=-~m[$[i]],r+=n<m[$[-~i]]?-n:n
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page