(dotimes(x(ash 1(set'n(read))))(format t"~[Gray code  n=~D
~:*~]~V,'0B
"x n(logxor(ash x -1)x)))