gap> DDorient:=Filtered(DD,x->Homology(x[1],3)=[0]);;
gap> List(DDorient,Size);
[ 1, 1, 1, 1, 1, 1, 2, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1 ]
