#!/usr/local/bin/sbcl --script


(let ((c 5))
  (loop for i from c to 0
    (loop for j from c to (- c)
      (let ((v (- i (abs j))))
        (format t "~A " (if (< v 0) " " v))))))