{ nb = [0]; v=1; q=-1; \\ previous product for (n=1, 10 000, forstep (p=v, oo, v, while (#nb