withinRadius :: Vector v Double => Distance v -> v Double -> Double -> Tree v a -> [((v Double, a), Double)]
withinRadius _ _ _ Empty = []
withinRadius :: Vector v Double => Distance v -> v Double -> Double -> Tree v a -> [((v Double, a), Double)]
withinRadius _ _ _ Empty = []
withinRadius _ _ _ Empty = []