(loop(push(or(read-line()/)(mapc'write-line(cons(pop *)(reverse *))))*))