#| BEGIN (Введите свое решение) |#
(define (same-parity first . rest)
  (define (same-parity-iter item)
    (filter (lambda (x) (= (modulo x 2) (modulo first 2)))
            item))
  (cons first (same-parity-iter rest))
  )
#| END |#