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