(define (mapcar f l)
  (if (null? l)
      '()
      (cons (f (car l)) (mapcar f (cdr l)))))