(define k (read))
(define n (read))
(define ans (* k n))
(define f (read))
(let loop((i f))
    (set! ans (- ans (read)))
    (if (> i 1) (loop (- i 1))))
(if (>= ans 0) (display ans) (display -1))
(newline)