let f (n, k) = 50 * n + 250 * n / (4 + k)

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