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