;*******************************
;INSERT
;*******************************
; I/O examples:  

(setf insert-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)) 
	) 
)