gap> file:=HapFile("data253a.txt");;
gap> Read(file);

gap> G:=SymmetricMatrixToFilteredGraph(D,100);
Filtered graph on 74 vertices.

gap> K:=FilteredRegularCWComplex(CliqueComplex(G,2));
Filtered regular CW-complex of dimension 2

gap> P:=PersistentBettiNumbers(K,0);;
gap> BarCodeCompactDisplay(P);
