GAP 4.8.9 installation with standard packages -- copy to your CoCalc project to get it

1
<Verb>BarCodeCompactDisplay(L) :: List --> void</Verb><P/>
2

3
<P/>Displays a barcode  
4
<B>L=PersitentBettiNumbers(X,n)</B> in compact form.
5

6

7

8

9