(include "lib/core.scm")
(include "lib/pair.scm")
;; we need a partial evaluator?, the inliner can't
;; see <eq?> and make this Do The Right Thing.
;; XXX see appel "modern compiler implementation..." 15.4.
;; according to that we need loop-preheader and loop-invariant
;; optimizations.
(printn (member? 0 '(0 1 2 3) eq?))