m@main=getLine>>=putStrLn.f"0"0>>m f x s l|l==""='=':show s|(a,b)<-splitAt(length$x++[' '|x>l])l=a++' ':f a(s+read a)b
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page