mymap

let rec mymap (f: 'a -> 'b) (l: 'a list) : 'b list =
  match l with
  | [] -> []
  | hd :: tl -> f hd :: mymap f tl
;;