function blok(a,i,j);




if a>1
    
    r=a/2;
    blok(r,i,j);
    blok(r,i+r,j);
    blok(r,i,j+r);
    blok(r,i+r,j+r);
end;
if a==1
    
    global c;
    global matr;
    global rek;
    global dom;
    global prag;
    global d;
    global s;
    global rek2;
    if dom
        if matr(j,i)==0
            c=c+1;
            znk=d(c);
            switch znk
                case 'p'
                    matr(j,i)=1;
                case 'n'
                    matr(j,i)=-1;
                case 'z'
                    matr(j,i)='x';
                case 't'
                    t=tree(i,j);
                    matr=matr+t;
            end
            
        end
    end
    if prag>1
        if dom==0
            if rek2(j,i)~=0
                c=c+1;
                znk=s(c);
                if znk==1
                    rek2(j,i)=rek2(j,i)+sign(rek2(j,i))*prag/2;
                end
            end
        end
    end
end