(map even+prn(= l(sort <(drain:read))))(prn)(map odd+prn l)