   (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")
   (interactive state))
 
 (defn- load-classes [ast]

  (printOperation finalizersOp (:cus state) nil)
  (interactive state))

(defn- process [state input]
  (let
   [ast (command-parser input)]

          :MCP (let [threshold (read-string (last (last (first ast))))]
                 (mcp-operation state threshold))
          :F (f-operation state)
          :ST (st-operation state)
          (println "Command not implemented: " command))))))

(defn interactive [state]
