(* your code goes here *)
type 'a lBT
= LEmpty
| LNode
of 'a
* (unit -> 'a lBT
) * (unit -> 'a lBT
);; let exlBST = LNode(3, (function() -> LEmpty), (function() -> LEmpty));;
KCogeW91ciBjb2RlIGdvZXMgaGVyZSAqKQp0eXBlICdhIGxCVCA9IExFbXB0eSB8IExOb2RlIG9mICdhICogKHVuaXQgLT4gJ2EgbEJUKSAqICh1bml0IC0+ICdhIGxCVCk7OwpsZXQgZXhsQlNUID0gTE5vZGUoMywgKGZ1bmN0aW9uKCkgLT4gTEVtcHR5KSwgKGZ1bmN0aW9uKCkgLT4gTEVtcHR5KSk7Ow==