Var
   a,b,i: longint;

Begin
     readln(input,a,b);
     for i:= a to b do
         if (i AND $AAAAAAAA= 0) then
            writeln(output,i);
End.