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