let entry_pts_node n =
    let rec backup n path =
      match Tree.get_parent_edge n with
        None -> [(n, ListPath (n::path))]
      |        Some _ ->
          let parent = Tree.get_parent n in
          (*fprintf ";
          print_node Format.std_formatter parent;
          fprintf ";*)
          (match get_kind n with
            Entry _ -> [(n, ListPath (n::path))]
          | _ -> backup parent (n::path))
    in backup n []