union :: UF -> Int -> Int -> UF
union uf x y = uf { ps = UF.union (ps uf) (point uf x) (point uf y) }
union :: UF -> Int -> Int -> UF
union uf x y = uf { ps = UF.union (ps uf) (point uf x) (point uf y) }
union uf x y = uf { ps = UF.union (ps uf) (point uf x) (point uf y) }