(de caar (x) (car (car x)))
(de cadr (x) (car (cdr x)))
(de cdar (x) (cdr (car x)))
(de cddr (x) (cdr (cdr x)))
(de ! (x)
	(cond
		((> x 0) (* x (! (- x 1))))
		((= x 0) 1)
		((< x 0) (- (! (- x))))
		(t '!)
	)
)
(traceload "core/intro.lisp")