#!/usr/local/bin/sbcl --script
(set `bonus 600000)
(set `convert-into-month (/ bonus 12))
(set `personal-income 200000)
(set `one-months-working-hours 160)
(set `per-hour 
  (/ (+ personal-income convert-into-month) one-months-working-hours))
(format t "Your payment by the hour is ~FYen" per-hour)

(set `working-days
 (/ (- 365 120) 12))

(set `moving-minutes 60)

(set `moving-hours
 (/ moving-minutes 60))


(set 'monthly-moving-expenses
 (* (* (* moving-hours per-hour) 2) working-days))