x%y=x:y++[x] f a=a:f('+'%('-'<$a)%map('|'%)a) m@main=readLn>>=mapM putStrLn.(f[" "]!!)>>m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page