reverse -rc -.ptr (p_tree_node -&w node)
{
  walk (p_tree_node -&w node)
  {
    reverse (node) : (node);
  }

  with (node)
  {
    ->left = ->right = ->left,
    {
      walk (->right),
      {
        walk (->left)
      }
    };
  }
}
