UNION-FIND by (c) Grzegorz Bancerek