;*******************************
;EVENPOS
;*******************************
; I/O examples:  

(setf evenpos-test 
	(list 
		(cons '() '()) 
		(cons '(a) '()) 
		(cons '(a b) '(b)) 
		(cons '(a b c) '(b)) 
		(cons '(a b c d) '(b d)) 
		(cons '(a b c d e) '(b d))
		(cons '(a b c d e f) '(b d f)) 
		(cons '(a b c d e f g) '(b d f)) 
		(cons '(a b c d e f g h) '(b d f h)) 
		(cons '(a b c d e f g h i) '(b d f h)) 
		(cons '(a b c d e f g h i j) '(b d f h j)) 
		(cons '(a b c d e f g h i j k) '(b d f h j)) 
		(cons '(a b c d e f g h i j k l) '(b d f h j l)) 
	) 
)