#!/usr/local/bin/sbcl --script
(defun sqr(n)
   (format t "~d sqared id ~d" n (* n n)))

(sqr 8)