sub print_tree
{
  my $tree = shift;
  print_tree($tree->left);
  print $tree->value;
  print_tree($tree->right);
}

sub sum_tree
{
  my $tree = shift;
  return sum_tree($tree->left)
         + $tree->node
         + sum_tree($tree->right);
}