(setq *print-circle* t)
(load "environnement")
(load "instructions")
(load "lisp2li")
(load "meval")
;; ...
;(run-tests t)
;(print-env-stack exemple-env-stack)