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