sig
  val without_compactions :
    ?logger:(string -> unit) -> f:('-> 'b) -> '-> 'b
  val ounit_tests : unit -> OUnit.test
end