Defun NF (a C) (cond ((null C) () ) ((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)))))) (defun AD (want-job Challenging Boston-area) (cond ((or (not (equal Want-job 'yes)) (not (equal Boston-area 'yes)) (lessp Challenging 7)) () ) (t (append (nf (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)))))

HomeFortune CookiesMiscellaneous Collections

(defun NF (a c)
(cond ((null c) () )
((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))))))

(defun AD (want-job challenging boston-area)
(cond
((or (not (equal want-job 'yes))
(not (equal boston-area 'yes))
(lessp challenging 7)) () )
(t (append (nf (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)))))
;;; We are an affirmative action employer.

Related: