let fib n m =
    let rec loop n a b =
        match n with
        | 0L -> a
        | _  -> loop (n - 1L) b ((a + b) % m)
    loop n 0L 1L

let N,M =
    let t = stdin.ReadLine().Split() |> Array.map int64
    t.[0], t.[1]

fib (N - 1L) M |> printfn "%i"