(use srfi-42)(map print(let1 n(read)(list-ec(: i 0 n)(string-ec(: j 0(max(- n i)(+ i 1)))(if(or(= i j)(=(+ i j 1)n))#\X #\ )))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page