;; Die ersten drei Zeilen dieser Datei wurden von DrRacket eingefügt. Sie enthalten Metadaten
;; über die Sprachebene dieser Datei in einer Form, die DrRacket verarbeiten kann.
#reader(lib "DMdA-advanced-reader.ss" "deinprogramm")((modname example-prog) (read-case-sensitive #f) (teachpacks ()) (deinprogramm-settings #(#f constructor repeating-decimal #t #t none datum #f ())))
(define example-prog
 '((define sq (lambda (x) (* x x)))

   (define fac (lambda (n) (if (= n 0) 1 (* n (fac (- n 1))))))

   (define make-counter
     (lambda ()
       (letrec ((x 0))
         (lambda () (begin (set! x (+ x 1)) x)))))
   
   (define z1 (make-counter))
   (define z2 (make-counter))))