nodeFromList :: (Vector v Double) => Int -> [(v Double, a)] -> Node v a
nodeFromList _ [(v, a)] = Leaf v a
nodeFromList :: (Vector v Double) => Int -> [(v Double, a)] -> Node v a
nodeFromList _ [(v, a)] = Leaf v a
nodeFromList _ [(v, a)] = Leaf v a