let create ?(kind=Node) ?(from=None) cube = let hist = match from with | None -> [] | Some ((_, _, n) as f) -> f :: n.from in { cube = cube; tag = new_tag ~kind (); kind = kind; depth = List.length hist; deleted = false; from = hist; }