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