scheme-test-programs/lists/t-select.scm

;; import lists/standard.scm

(print (select '(a b c d) '()
	       (lambda (x y)
		 (display `(,x ,y))
		 (newline)
		 (list y y))))