sub Node::climb_up {
  my ($self, $proc) = @_;

  my ($stop, @results);
  while ($self && !$stop) {
    ($stop, @results) = $proc->($self);
    $self = $self->parent_row;
  }
  return @results;
}