(define (my-map f ls)
 (if (empty? ls)
  '()
  (append  (my-map f (rest ls))(list (f (first ls))))))

(displayln (my-map string-length '("George" "Susan" "Joe")))