read*,n;print'("Gray code n="i0,9999a1)',n,(10,(ibits(i+2**j/2,j,1)+48,j=n,1,-1),i=0,2**n-1);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page