#!/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))