input""n
?"Gray code  n=",n
for i=0to 2^n-1?mid$(bin$(2^n+xor(i,i/2)),2)next