(@ reverse:rc node .reversed +-
    (% 
        right     .left
        left      .right
        node.data .data
    -
        ((// [node.left] (# reverse node.left) .) .left) |
        ((// [node.right] (# reverse node.right) .) .right)
    >
        .reversed
    )
+
    {tree-node} node reversed
)

