a = vector(141) n = 0 emit(v) = { print (n++ " " v); if (n<=#a, a[n] = v; ); } { emit(s=1); for (r=1, #a, forstep (v=s+a[r], s+1, -1, emit(v); ); s+=a[r]; ); } quit