void -rc -.ptr reverse (p_tree_node -&w node)
{
  with (node)
  {
    reverse (->left) : (->left);
    reverse (->right) : (->right);

    ->left = ->right = ->left;
  }
}
