Node ->
Arg Root : TreeNode, Key : Integer : 2^32, Result : &TreeNode

Node = Root ..

Call BitsIn Key ( Bit : 
                        Call Next Bit 'Node' 
                )

If Node <> Root then Result = Node

Return

/* * */

Next Node ->
Arg Bit : 1 | 0, Node : ^&TreeNode

Error : ERR_* = . ..

If Bit = 0 then
 If Node.Left then Node = Node.Left
 Else Error = ERR_KEY_NOT_FOUND
Else
 If Node.Right then Node = Node.Right
 Else Error = ERR_KEY_NOT_FOUND
;

If Error then
 Exit Error
Else
 Return