n=0
    for i=00000000:50000000
        n=n+1;
    if n==1000001
        display(i)
        n=1;
    end
        x=i;
        xs=i;
        y=x/10000000;
        d1=fix(y);
        x=x-d1*10000000;
        y=x/1000000;
        d2=fix(y);
        x=x-d2*1000000;
        y=x/100000;
        d3=fix(y);
        x=x-d3*100000;
        y=x/10000;
        d4=fix(y);
        x=x-d4*10000;
        y=x/1000;
        d5=fix(y);
        x=x-d5*1000;
        y=x/100;
        d6=fix(y);
        x=x-d6*100;
        y=x/10;
        d7=fix(y);
        x=x-d7*10;
        y=x/1;
        d8=fix(y);
        x=x-d8*1;
    if (d3==d5 & d3~=d6 & d3~=d4 & d4~=d6)
        o=xs*2;
        os=o;
        y=o/10000000;
        o1=fix(y);
        o=o-o1*10000000;
        y=o/1000000;
        o2=fix(y);
        o=o-o2*1000000;
        y=o/100000;
        o3=fix(y);
        o=o-o3*100000;
        y=o/10000;
        o4=fix(y);
        o=o-o4*10000;
        y=o/1000;
        o5=fix(y);
        o=o-o5*1000;
        y=o/100;
        o6=fix(y);
        o=o-o6*100;
        y=o/10;
        o7=fix(y);
        o=o-o7*10;
        y=o/1;
        o8=fix(y);
        o=o-o8*1;
    if (o1==o6 & o1==o7 & o1~=o3 & o1~=o4 & o1~=o5 & o2~=o3 & o2~=o4 & o2~=o5)
    if (o8~=o3 & o8~=o4 & o8~=o5 & o3~=o4 & o3~=o5 & o4~=o5)
    if (o1==d6 & o2==d4 & o8==d3 & o1~=0)
        display ([xs,os])
    end
    end
    end
    end
    end