(define (same-parity i .  args)
  (cons i
        (filter (if (even? i) even?
                    odd?)
                args)))

; 1 ]=> (same-parity 1 2 3 4 5 6 7)
; 
; ;Value: (1 3 5 7)
; 
; 1 ]=> (same-parity 2 3 4 5 6 7)
; 
; ;Value: (2 4 6)