>>62

(reverse input)
(substitute #\a #\b input)
(defun f (n &optional (a 1))
  (declare (optimize speed))
  (if (<= n 1) a (f (1- n) (* a n))))

>>64

Code like that would make anyone afraid of lisp...