for i=0 to 31
{
   gray = binaryToGray[i]
   back = grayToBinary[gray]
   println[pad[i->binary] + "\t" + pad[gray->binary] + "\t" + pad[back->binary]]
}

pad[x] := padLeft[x,5,"0"]