(= l(cdr:rev:lines:allchars:stdin))(map prn `(,pop.l,@rev.l))