Composition Calculus by rst76

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