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