input""n:for i=0to 2^n-1for j=1-n to 0?chr$(46-11*and(i*2^j,1));next:?next