my ($n, $m) = split /\s/, <>;
my @fib = (0, 1, 1);
for (my $i = 3; $i < $n; $i++) {
	@fib[0, 1] = @fib[1, 2];
    $fib[2] = ($fib[0] + $fib[1]) % $m;
}
print $fib[2];