Create binarysearchtree.hs