n, m = read_line.split.map &.to_i
z = Array.new(n, 0)
z[1] = 1
2.upto(n - 1) do |i|
  z[i] = (z[i - 1] + z[i - 2]) % m
end
puts z[-1]