(loop(rotatef(elt(set'l(read-line))0)(elt l(1-(length l))))(write-line l))