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

(defun mult (x y) (* x y))
(print (mult 2 (square 3)))