var a,b,k,count:integer;
begin
readln (a,b);
for k:=a to b do
if (k mod 2 =0) and (k mod 4=0) then count:=count+1;
end;
writeln (count);
end.
