n=0编号=[0]得到(m)=如果(1+m<=#nb,nb[1+m],0)发射(v,显示)={if(显示,打印(n++“”v););而(1+v>#nb,nb=连接(nb,向量(#nb)););铌[1+v]++;}{而(n<10 000,对于(m=0,oo,my(k=获得(m));发射(k,1);发射(m,0);如果(k==0,断裂;);););}退出