#!/usr/local/bin/sbcl --script
(Defparameter *small* 1)
(Defparameter *big* 100)
(Defun guess-my-number () (ash (+ *small* *big*) -1))
(guess-my-number)