(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 #\ )))))