crude union find program