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