(define map 
   (lambda (func list)
      (if (empty? list)
         list
         (cons (func (car list)) (map func (cdr list)))
      )
   )
)

.