(define kn (* (read) (read)))
(define f (read))
(define (readn n)  (if (= n 0) '() (cons (read) (readn (- n 1)) ) ))
(define sum (apply + (readn f)))
(if (< kn sum) (print "-1") (print(- kn sum)))