RosettaCodeData/Task/Gray-code/K/gray-code-5.k

   g2b2:{c:#x;b:c#0;b[0]:x[0];i:1;do[#x;b[i]:xor[x[i];b[i-1]];i+:1];b}