(defun check (n)
  (format t "~d~%" n)
  (format t "~b~%~%" n))

(check 0)
(check 1)
(check most-positive-fixnum)