Over print by konn

main=interact$unlines.scanl1 z.lines
z a[]=a
z[]b=b
z(a:b)(c:d)=last(c:[a|c==' ']):z b d

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page