@cadr [samth@huor:~/sw/plt/extra-pkgs/racket-lang-org (master) plt] cat ~/sw/pycket/loop.rkt #lang pycket (define N 1000000) (let countdown1 ([n N]) (if (< n 0) 1 (countdown1 (- n 1)))) (define (countdown1.1 n) (if (< n 0) 1 (countdown1.1 (- n 1)))) (countdown1.1 N) (require racket/linklet) (define l (compile-linklet `(linklet () () (display ((letrec-values (((countdown2) (lambda (n) (if (< n 0) 1 (countdown2 (- n 1)))))) countdown2) ,N)) (define-values (countdown2.1) (lambda (n) (if (< n 0) 1 (countdown2.1 (- n 1))))) (countdown2.1 ,N)))) (void (instantiate-linklet l null))