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