#lang deinprogramm/DMdA

(require syntax/docprovide)
(provide #%app #%top (rename-out (DMdA-module-begin #%module-begin)) #%datum #%top-interaction require lib planet
	 define let let* letrec lambda cond if else begin and or
	 define-record-procedures define-record-procedures-parametric
	 .. ... .... ..... ......
	 check-expect check-within check-error
	 : define-contract -> mixed one-of predicate combined property
	 number real rational integer natural boolean true false string empty-list
	 chocolate-cookie)
(provide cons)
(provide-and-document
 procedures
 (all-from-except vanilla: deinprogramm/DMdA procedures
		  quote eq? equal?
		  set!
		  define-record-procedures-2
		  symbol?
		  apply))