takes the length of a scheme list
(define len (lambda (lst) (if (null? lst) 0 (+ 1 (len (cdr lst))) ) ) )