main=getLine>>=(0%) x%s=putStrLn(until((>' ').last)init$do w<-words s;c<-w++" ";max" "[c|length w>x])>>(x+1)%s
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page