###--------------------------------------------------------------------------
### Node structure.
-record node(left, data, right)
+record Node(left, data, right)
## A simple binary tree structure.
procedure fringe(node)
data := move(1) | bail("no data")
right := scan_tree()
=")" | bail("missing )")
- return node(left, data, right)
+ return Node(left, data, right)
}
end