#!/usr/local/bin/sbcl --script
(set `bonus 600000)
(set `convert-into-month (/ bonus 12))
(set `personal-income 200000)
(set `one-month's-working-hours 160)