#| BEGIN (Введите свое решение) |#
(define (same-parity item . rest-list)
  (let ((isEven (even? item))
        (result (list item)))
          (define (iter cur rest)
            (if (null? rest)
                cur
                (if (or (and isEven 
                             (even? (car rest))) 
                        (and (not isEven) 
                             (not (even? (car rest)))))
                    (iter (append cur (list (car rest))) (cdr rest))
                    (iter cur (cdr rest)))))
          (iter result rest-list)))
#| END |#