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