(use srfi-1)
(let* [[N (read)][M (read)]]
  (print (if (zero? (mod (fold + (read) (list-tabulate N (^_ (read)))) M)) 'Yes 'No)))