#!/usr/local/bin/sbcl --script
(defun square (x)
(* x x))

(square x)