(define list-size 
  (lambda (lst) 
    (if (null? lst) 
	0 
	(+ 1 (list-size (cdr lst)))
	)
    )
  )