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


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

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