#!/usr/local/bin/sbcl --script (* pi 4)