let () = Scanf.scanf "%d %d\n" @@ fun n m ->
  let as_ = List.init m @@ fun _ -> Scanf.scanf "%d " Fun.id in
  let somme = List.fold_left ( + ) 0 as_ in
  Printf.printf "%d\n" @@ max (-1) (n - somme)
