#!/usr/local/bin/sbcl --script
(defun show-square (start end)
    (if (> start end) 'done
        (progn
            (format t "~A ~A ~%" start (* start start))
            (show-square (+ 1 start) end))))

(show-square 2 4)