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