sub in_order_visit {
   my ($node, $visitor) = @_;
   return unless defined $node;
   in_order_visit($node->left(), $visitor);
   $visitor->($node);
   in_order_visit($node->right(), $visitor);
}