"aD@ai2*Ii=A1
0D@-0D:wh@->0|let@-=@--1|let v=@-|let j=0|wh@a>j|let@o=(v-v/2)%2.@o|let v=v/2|let j=j+1|endw|let@o="\r".@o|endw
iGray code  n==@a.@o
ZZ