class tree_node_creator : object endval mutable next_id : intmethod create_root : marking ->
tree_nodemethod create_child : node_kind ->
marking ->
edge ->
(node_data,
edge)
Tree.node ->
tree_nodemethod delete_children : tree_node -> unit