Scanf.scanf "%d %d" (fun d p ->
    Printf.printf "%d\n" @@ d * (100 + p) / 100
)