m@main=getLine>>=putStrLn.head.foldl1(!).map(:[]).words>>m [x]![y]|x/="."=['(':x++' ':y++")"] [y,x,_]!z=read x!(read y!z) x!y=show y:x
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page