{
TASK:fib
LANG:PASCAL
}

var x,y,a,b,n,m,i:longint;
begin
     readln(n,m);
     x:=1;y:=1;
     for I:=3 to n do begin
         a:=x+y;
         x:=y;
         y:=a;
     end;
     for I:=3 to m do begin
         b:=x+y;
         x:=y;
         y:=b;
     end;
     if (n>2) and (m>2)
        then write(b mod a)
        else write('0');
end.