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

(in-package :alef)

(parse-and-run
 `(,@*library*
   (define start ()
     (let ((nats (cons 0 (map (lambda (x) (+ 1 x)) nats))))
       (show/list (take 10 nats))))))