 x < root  = (Node diff root (treeInsert left x) right)
  | otherwise = (Node diff 
tree = (Node 0 10 (Node 0 6 Empty Empty)
                  (Node 0 15 Empty Empty))
tree = (Node 0 10 (Node 0 6 Empty Empty)
                  (Node 0 15 Empty Empty))