F# More Notes : Implementing binary search trees using a discriminated union
Download
Source