Scanf.scanf "%d %d" (fun n m ->
    let rec fib i a b =
        if i = n then a else fib (i + 1) b ((a + b) mod m)
    in
    fib 2 1 1 |> Printf.printf "%d\n"
)