(egs :week1
     (eg '(demo :demo)
	 :of "how to run examples")
     (eg '(demo :assoc)
	 :of "list process examples")
     (eg '(format t "files=~a~% home=  ~a~%" *files* *home-dir*)
	 :of "config stuff")
     (eg '(demo :o)
	 :of "running stuff")
     (eg '(i-think-therefore)))

(defun show-of ()
  (demo :week1))