(setf s(read-line)n(length s))(loop(princ(reverse(princ(subseq s(decf n)))))(terpri))