1 (define (same-parity a . z)
2   (define (iter items answer)
3     (if (null? items)
4 	answer
5 	(iter (cdr items)
6 	      (if (= (remainder (car items) 2)
7 		     (remainder a 2))
8 		  (append answer (list (car items)))
9 		  answer))))
10   (iter z (list a)))