(define (my-map func lst)
  (foldr 
       (lambda (thefirst therest) (cons (func thefirst) therest)) 
      empty 
      lst
  )
)