for n=-256to 256i=n:for _=0to 63k=and(i,1):?chr$(32+3*k);:i=i*k+i/2-k/2next:?"|"next