program bn;
uses crt;
var a,b:longint;d,g:text;c:array[1..1000]of longint;
procedure doc_file;
begin
assign(d,'CFIBO.INP');
reset(d);
readln(d,a,b);
close(d);
end;
procedure ghi_file;
var i,k,dem:longint;
begin
assign(g,'CFIBO.OUT');
rewrite(g);
c[1]:=1;
c[2]:=1;
for i:=3 to 46 do c[i]:=c[i-1]+c[i-2];
for k:=a to b do if(c[k]<b)then inc(dem);
close(g);
end;
begin
clrscr;
doc_file;
ghi_file;
readln;
end.