pull n
do i=0 to n-1
a=
do j=0 to max(i,n-i-1)
a=a||substr(" X",(j=n-i-1|j=i)+1,1)
end
say a
end