(dotimes(i(ash 1(set'n(read))))(format t"~[Gray code n=~D~:*~] ~v,'0B"i n(logxor(ash i -1)i)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page