(define nu (map string->number (string-split (read-line) " ")))
(define ns (fold + 0 (map string->number (string-split (read-line) " "))))

(print ((lambda (b f) (if (>= b f)(- b f) -1))
       (* (list-ref nu 0) (list-ref nu 1)) ns))