module Direct: sig .. end
val iter : Core_gc.Stat.t ->
       minor_words:((Core_gc.Stat.t, float) Fieldslib.Field.t ->
                    Core_gc.Stat.t -> float -> unit) ->
       promoted_words:((Core_gc.Stat.t, float) Fieldslib.Field.t ->
                       Core_gc.Stat.t -> float -> unit) ->
       major_words:((Core_gc.Stat.t, float) Fieldslib.Field.t ->
                    Core_gc.Stat.t -> float -> unit) ->
       minor_collections:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                          Core_gc.Stat.t -> int -> unit) ->
       major_collections:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                          Core_gc.Stat.t -> int -> unit) ->
       heap_words:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                   Core_gc.Stat.t -> int -> unit) ->
       heap_chunks:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                    Core_gc.Stat.t -> int -> unit) ->
       live_words:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                   Core_gc.Stat.t -> int -> unit) ->
       live_blocks:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                    Core_gc.Stat.t -> int -> unit) ->
       free_words:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                   Core_gc.Stat.t -> int -> unit) ->
       free_blocks:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                    Core_gc.Stat.t -> int -> unit) ->
       largest_free:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                     Core_gc.Stat.t -> int -> unit) ->
       fragments:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                  Core_gc.Stat.t -> int -> unit) ->
       compactions:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                    Core_gc.Stat.t -> int -> unit) ->
       top_heap_words:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                       Core_gc.Stat.t -> int -> unit) ->
       stack_size:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                   Core_gc.Stat.t -> int -> unit) ->
       unit
val fold : Core_gc.Stat.t ->
       init:'acc__ ->
       minor_words:('acc__ ->
                    (Core_gc.Stat.t, float) Fieldslib.Field.t ->
                    Core_gc.Stat.t -> float -> 'acc__) ->
       promoted_words:('acc__ ->
                       (Core_gc.Stat.t, float) Fieldslib.Field.t ->
                       Core_gc.Stat.t -> float -> 'acc__) ->
       major_words:('acc__ ->
                    (Core_gc.Stat.t, float) Fieldslib.Field.t ->
                    Core_gc.Stat.t -> float -> 'acc__) ->
       minor_collections:('acc__ ->
                          (Core_gc.Stat.t, int) Fieldslib.Field.t ->
                          Core_gc.Stat.t -> int -> 'acc__) ->
       major_collections:('acc__ ->
                          (Core_gc.Stat.t, int) Fieldslib.Field.t ->
                          Core_gc.Stat.t -> int -> 'acc__) ->
       heap_words:('acc__ ->
                   (Core_gc.Stat.t, int) Fieldslib.Field.t ->
                   Core_gc.Stat.t -> int -> 'acc__) ->
       heap_chunks:('acc__ ->
                    (Core_gc.Stat.t, int) Fieldslib.Field.t ->
                    Core_gc.Stat.t -> int -> 'acc__) ->
       live_words:('acc__ ->
                   (Core_gc.Stat.t, int) Fieldslib.Field.t ->
                   Core_gc.Stat.t -> int -> 'acc__) ->
       live_blocks:('acc__ ->
                    (Core_gc.Stat.t, int) Fieldslib.Field.t ->
                    Core_gc.Stat.t -> int -> 'acc__) ->
       free_words:('acc__ ->
                   (Core_gc.Stat.t, int) Fieldslib.Field.t ->
                   Core_gc.Stat.t -> int -> 'acc__) ->
       free_blocks:('acc__ ->
                    (Core_gc.Stat.t, int) Fieldslib.Field.t ->
                    Core_gc.Stat.t -> int -> 'acc__) ->
       largest_free:('acc__ ->
                     (Core_gc.Stat.t, int) Fieldslib.Field.t ->
                     Core_gc.Stat.t -> int -> 'acc__) ->
       fragments:('acc__ ->
                  (Core_gc.Stat.t, int) Fieldslib.Field.t ->
                  Core_gc.Stat.t -> int -> 'acc__) ->
       compactions:('acc__ ->
                    (Core_gc.Stat.t, int) Fieldslib.Field.t ->
                    Core_gc.Stat.t -> int -> 'acc__) ->
       top_heap_words:('acc__ ->
                       (Core_gc.Stat.t, int) Fieldslib.Field.t ->
                       Core_gc.Stat.t -> int -> 'acc__) ->
       stack_size:('acc__ ->
                   (Core_gc.Stat.t, int) Fieldslib.Field.t ->
                   Core_gc.Stat.t -> int -> 'acc__) ->
       'acc__