Reason BST Modeling for Blog Post

ReasonBST.re

type binarySearchTree('a) =
  | Empty
  | Node(node('a))
and node('a) = {
  value: 'a,
  left: binarySearchTree('a),
  right: binarySearchTree('a),
};

let empty = Empty;
let bst = Node({value: 1, left: Empty, right: Empty});