;;count-multiples: aloi nat -> nat
(define (count-multiples numbers n)
  (local [(define (remainder-check numbers n)
            (= (remainder (first numbers) n)))]
    (filter remainder-check numbers)))

(check-expect (count-multiples (list 20 27 -10 2 11 0) 10) 3)