#!/usr/local/bin/sbcl --script (setq bonus 800000)