(on l(lines:allchars:stdin)(loop(= n 1)(begins l"d ")(++ n)(zap cut l 2))(n-of n prn.l))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page