#!/usr/local/bin/sbcl --script
(set `bonus 600000)
(set `convert-into-month (/ bonus 12))