-val export_item:
- (Format.formatter -> 'bind Item.obj -> unit) ->
- bool -> Hierarchy.graph -> 'bind Item.item -> unit
+type 'a out = (unit -> 'a) -> string -> 'a
+(*
+val export_entity:
+ ('a och -> string -> 'bind Entity.entry -> 'a) ->
+ string -> bool -> Hierarchy.graph -> 'bind Entity.entity -> 'a
+*)
+val old_export_entity:
+ (Format.formatter -> 'bind Entity.entry -> unit) ->
+ bool -> Hierarchy.graph -> 'bind Entity.entity -> unit