Binary Search Tree

import Tree (fromList, contains, balance, pretty)

main = do
    let bst = balance $ fromList [2,125,10,1, 10::Int]
    print $ contains 126 bst
    pretty bst " "