(defun program ()
  (greet-user (ask-user-name))
  (let ((n (connect (ask-number) (ask-number))))
    (* n (reverse-number n))))