(#1=dotimes(i(setq s(read-line)l(length s)))(#1#(j l)(princ(elt s(mod(- j i)l))))(terpri))