   (printOperation finalizersOp (:cus state) nil)
   (interactive state))
 
+(defn- st-operation [state]
+  (printOperation classesAndSingletonTypeOp (: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)
          (println "Command not implemented: " command))))))

(defn interactive [state]

  (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]
