F#で二分探索木を作る