(for i 0(-(= n(read))1)(= x(n-of n" "))(=(x(- n i 1))(= x.i'X))(prn:trim(+""x)'end))