Scanf.scanf "%d %d %d" (fun k n f ->
    let a = Array.init f (fun _ -> Scanf.scanf " %d" (fun a -> a)) in
    let sum = Array.fold_left (+) 0 a in
    Printf.printf "%d\n" @@ if k * n < sum then -1 else k * n - sum
)