(defun getfn (fn) (getl (cdr fn) '(expr nexpr fexpr subr nsubr fsubr>
