gap> W:=(FiltrationTerm(FF,3));
gap> for n in [4..23] do
> L:=[];;
> for i in [1..PathComponentOfPureComplex(W,0)] do
> P:=PathComponentOfPureComplex(W,i);;
> Q:=ThickeningFiltration(P,150,FiltrationTerm(FF,n));;
> Add(L,Q);;
> od;;
> W:=Basins(L);
> od;