Scanf.scanf "%d %d %d %d" (fun a b c d ->
    Printf.printf "%d\n" @@ (((a * b) mod d) * c) mod d
)