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

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

(declare interactive)

(defn- exit []

      (println no-classes-loaded-error))
    (interactive state)))

(defn- show-help [state]
  (println help-message)
  (interactive state))

(defn- load-classes [ast]
