main=interact$unlines.f.init f(a:d)=zipWith((&).(&)(d>>" "))(d&a)d&(d&a&a)&(a:d&a) x&y=reverse$y:x
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page