{
TASK:fib
LANG:PASCAL
}
var
a:array[1..10000000]of longint;
d,i:longint;
n,m:longint;
begin
readln(n,m);
d:=n-m;
a[1]:=1;
a[2]:=1;
for i:=3 to 10000000 do a[i]:=a[i-1]+a[i-2];
writeln(((d-1)*a[m-1])mod a[m]);
end.
