;; From page 6 of Lisp 1.5 Programmer's Manual

ff[x]=[atom[x] -> x; T -> ff[car[x]]]