Found in the Boston Globe

[Benson I. Margulies at MIT-Multics]

(defun ad (want-job challenging boston-area)
       (cond
         ((not (equal want-job 'yes)) nil)
         ((not (equal boston-area 'yes)) nil)
         ((lessp challenging 7) nil)
         (t (append ((defun nf (a c)
		        (cond ((null c) nil)
			    ((atom (car c))
			     (append (list (eval (list 'getchar
						 (list (car c)
						       'a)
						 (cadr c))))
				   (nf a (cddr c))))
			    (t (append (list(implode (nf a (car c))))
				     (nf a (cdr c))))))
		 (get 'ad 'expr)
		 '((caaddr 1 caadr 2 car 1 car 1)
		   (car 5
		        cadadr
		        9
		        cadadr
		        8
		        cadadr
		        9
		        caadr
		        4
		        car
		        2
		        car
		        1)
		   (car 2 caadr 4)))
		(list '851-5071x2661))
	  )))