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