;;; (C) 2008-2009 Dr. Gergo ERDI (in-package :alef) (parse-and-run `(,@*library* (define curry-native () (let ((l (cons 1 (cons 2 (cons 3 nil))))) (map (+ 2) l))) (define divides? (k n) (= (mod n k) 0)) (define curry-clean () (let ((nats (cons 0 (map (+ 1) nats)))) (map (divides? 3) (take 10 nats)))) (define start () (curry-clean))))