let f (n, k) = 50 * n + (float (50 * n) /. (0.8 +. 0.2 *. float k) |> truncate)

let () = Scanf.scanf "%d %d " (fun a b -> a, b) |> f |> Printf.printf "%d\n"