S-99-04


 (define (my-length l) 
   (if (null? l) 
     0 
     (+ 1 (my-length (cdr list)))))