sig
  val without_compactions :
    ?logger:(string -> unit) -> f:('a -> 'b) -> 'a -> 'b
end