(defun atoi (input)
  (defun atoi-helper (input base)
   ((if (empty? input) 0
        (add (* base (last input))
             (atoi (input minus the last char) (* base 10)))))
  (atoi-helper input 10))