Implement till 3.8

util.scm

@@ -58,4 +58,10 @@
   (let ((range (- high low)))
     (+ low (random range))))
 
+(define (contains x xs)
+  (cond
+    ((null? xs) #f)
+    ((eq? x (car xs)) #t)
+    (else (contains x (cdr xs)))))
+
 'util-loaded