s = [0]
z = 0

{
	for (n=1, 2^13,
		t=digits(n,2);
		for (k=1, #t,
			if (t[k],
					z++;
					if (#s<z, s=concat(s,vector(#s)));
					s[z] = t[k],
					z--;
					s[z] = +(s[z+1]-s[z])
			);
		);
		print (n " " s[z]);
	);
}

quit