{
TASK:FIB
LANG:PASCAL
}
program fib;
var _1, _2, _3 : longint;
    n, m, i    : longint;
BEGIN
readln(n,m);
_1 := 1;
_2 := 1;
for i := 3 to n do
 begin
  _3 := (_1 + _2) mod m ;
  _1 := _2;
  _2 := _3;
 end;
writeln(_3);
END.
