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

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page