sub get_path_from_root {
    my ($node) = @_;
    my @path;
    while (my $parent = get_parent($node)) {
        unshift @path, $parent;
        $node = $parent;
    }
    return join '/', @path;
}