f 0=[""]
f n=map('0':)(f(n-1))++map('1':)(reverse$f(n-1))
main=interact$ \n->"Gray code  n="++n++unlines(f(read n))