A legal implementation of this function must satisfy the following properties:

  mapper (fun a ~f -> f a) = Fn.id

  Fn.compose (mapper f) (mapper g) = mapper (fun a ~f:h -> f a ~f:(g ~f:h))