(on l(lines:allchars:stdin)(loop(= n 1)(begins l"d ")(++ n)(zap cut l 2))(n-of n prn.l))