import List m@main=getLine>>=putStrLn.map f.init.tail.show.group.map(\x->0+read x).words>>m f ','=' ' f x=x
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page