gap> file:=HapFile("data247.txt");;
gap> Read(file);;
gap> F:=ThickeningFiltration(T,20);;
gap> P:=PersistentBettiNumbersAlt(F,[0,1,2]);;
gap> BarCodeCompactDisplay(P);
