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