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