#!/usr/local/bin/sbcl --script
(set `bonus 600000)
(format t "~a" (/ bonus 12))