(setq s(princ(read-line))i(length s)l(1- i))(doseq(c s)(format t"~C
~C~[~*~A~:;~V@{ ~}~]"c(char s(decf i))i l(reverse s)))