;;
;; more lisp, CS372
;;

(* 3 (+ 2 4))

(+ 3 (* 2 4))

(car '(a b))

(car '((a) b))

(cdr '(a b))

(cdr '((a) (b)))

(cons 'a '(b c))

(length '((a (b c)) d (e (f g))))

(cadr '((a (b c)) d (e (f g))))

(caddr '((a (b c)) d (e (f g))))

(list '(a) '(b c))

;; predicates

(listp a)

(numberp a)

(setq a 7)

(setq b '(7 8 9))

(numberp a)

(numberp b)

(atom b)

(mapcar '1+ '(4 8 12 16))