(let1 n(read)(print"Gray code  n="n)(dotimes(i(ash 1 n))(format #t#`"~,n,,,,,,'0@a
"(number->string(logxor(ash i -1)i)2))))