GAPGIAY PASCAL

var d:longint;
    x,y:real;
begin
    assign(input, 'gapgiay.inp');reset(input);
    assign(output, 'gapgiay.out');rewrite(output);
    read(x, y);
    y:=y*1000;
    d:=0;
    while x<=y do 
    begin
           x:=x*2;
           inc(d);
    end;
    write(d);
end.