Implement till 3.72

util.scm

@@ -74,6 +74,11 @@
     (cons (stream-car xs)
           (take (- n 1) (stream-cdr xs)))))
 
+(define (drop n xs)
+  (if (= n 0)
+    xs
+    (drop (- n 1) (stream-cdr xs))))
+
 (define (find item stream)
   (define (iter n stream)
     (if (equal? (stream-car stream) item)