;******************************* ;ODDPOS ;******************************* ; I/O examples: (setf oddpos-test (list (cons '() '()) (cons '(a) '(a)) (cons '(a b) '(a)) (cons '(a b c) '(a c)) (cons '(a b c d) '(a c)) (cons '(a b c d e) '(a c e)) (cons '(a b c d e f) '(a c e)) (cons '(a b c d e f g) '(a c e g)) (cons '(a b c d e f g h) '(a c e g)) (cons '(a b c d e f g h i) '(a c e g i)) (cons '(a b c d e f g h i j) '(a c e g i)) (cons '(a b c d e f g h i j k) '(a c e g i k)) ) )