(defun find-size (l)
(cond ((null l) 0)
(t (1+ (find-size (cdr l))))))