import Maybe r=foldl(\t c->t+y c-t`mod`y c*2)0 y x=fromJust$lookup x$zip"IVXLCDM"[1,5,10,50,100,500,1000] m@main=getLine>>=print.r>>m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page