#!/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 "~w" (typep 42 'integer)) ;(typep 100 'fixnum)