;;; (C) 2008-2009 Dr. Gergo ERDI <http://gergo.erdi.hu/>

(parse-and-run
 `(,@*library*

   (define scope-test (start k)
     (let ((nats (cons start (map (lambda (x) (+ 1 x)) nats))))
       (map (lambda (k) (+ k 2)) (take k (drop 1 nats)))))
   
   (define squares ()
     (let ((nats (cons 0 (map (lambda (x) (+ 1 x)) nats))))
       (map (lambda (x) (* x x)) nats)))

   (define start* ()
     (take 11 squares))
 
   (define start** ()
     (scope-test 10 6))

   (define start ()
     (let ((x 5))
       ((lambda (y) (+ y 1)) x)))))