#!/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 "あなたの~F" per-hour)