module type Functor = sig .. end
sig
end
type 'a t
'a
val fmap : ('a -> 'b) -> 'a t -> 'b t
('a -> 'b) -> 'a t -> 'b t