       (println no-classes-loaded-error))
     (interactive state)))
 
-(defn- help [state]
-  (println "h/help                             : print this help message")
-  (println "q/quit/exit                        : close the shell")
-  (println "list                               : list classes loaded")
-  (println "load DIR                           : load classes from DIR")
-  (println "mc/many-constructors th NUM        : list classes with NUM or more constructors")
-  (println "mcp/many-constructor-params th NUM : list constructors with NUM or more parameters")
-  (println "f/finalizers                       : list classes that use finalizers")
-  (println "st/singletons                      : list singletons")
+(defn- show-help [state]
+  (println help-message)
   (interactive state))
 
 (defn- load-classes [ast]

(def no-classes-loaded-error
  "No classes loaded. Use <load> first")

(declare interactive)

(defn- exit []

        (case command
          :EXIT (exit)
          :LIST (list-loaded-classes state)
          :HELP (show-help state)
          :LOAD (load-classes ast)
          :MC (let [threshold (read-string (last (last (first ast))))]
                (mc-operation state threshold))
