return the elements of a list with an odd index (1, 3, 5, etc.)

odds.scm

(define (odds lis)
	(reverse (odds-reduce lis '())))

(define (odds-reduce l1 l2)
	(cond
		((null? l1) l2)
		((= (length l1) 1) (cons (car l1) l2))
		(else (odds-reduce (cddr l1) (cons (car l1) l2)))
))