m@main=getLine>>=print.sum.scanr1(!).map(maybe 1(*5).($zip"VXLCDM"[1,2,10,20,100,200]).lookup)>>m a!b|a<b= -a|0<1=a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page