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