fromList :: (Vector v Double) => [(v Double, a)] -> Tree v a
fromList []             = Empty
fromList :: (Vector v Double) => [(v Double, a)] -> Tree v a
fromList []             = Empty
fromList []             = Empty