(display (time (filter (combine and
				even?
				(lambda (x) (< x 200))
				(lambda (x) (> x 100)))
		       (iota 100000))))
(newline)

(display (time (filter even?
		       (filter (lambda (x) (< x 200))
			       (filter (lambda (x) (> x 100))
				       (iota 100000))))))

(newline)