#!/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)) (format t "Your monthly moving expenses is ~Fyen" ~FYen" monthly-moving-expenses)