(load "mcmops.lsp")
(load "mcdmap.lsp")
(clear-memory)
(load "mcmops.mops")
(load "mcdmap.mops")
(dmap-demo)