(defun atoi (input, base)
  ((if ((empty? input) 0)
       (add (accum (* base (last input))
            (atoi (input minus the last char) (* base 10))...)