($r,$t)=&bdiv($r,256),$_=pack(C,$t).$_ while$w--+1-2*$d;