; your code goes here

(let  ((size (read)))
  (loop for y from 1 to size 
    do (loop for x from 1 to size 
        do (princ (if (or (= x  y) (= x (- size (- y 1) ))) "X" " "))
    )
    (format t "~%")
))