for n=1to 256?r:r=xor(r,256-128/and(n,-n))next