(for i 0(= a(-(read)1))(for j 0(max i(- a i))(pr:if(or(is j i)(is j(- a i)))"X"" "))(prn))