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