let d_par a b = (((fst a) + (fst b)), ((snd a) + (snd b)))