 (def command-parser
   (insta/parser
    (str
-    "<COMMAND> = HELP | EXIT | LOAD | LIST | MC | F        \n"
-    "HELP = 'help' | 'h'                                   \n"
-    "EXIT = 'exit' | 'quit' | 'q'                          \n"
-    "LOAD = 'load' <WS> STR                                \n"
-    "LIST = 'list'                                         \n"
-    "MC  = ('mc'|'many-constructors') <WS> 'th' <WS> NUM   \n"
-    "F = ('f'|'finalizers')                                \n"
-    "WS  = #'[\t ]+'                                       \n"
-    "NUM = #'[0-9]+'                                       \n"
-    "STR = #'\"[^\"]*\"'                                   \n")))
+    "<COMMAND> = HELP | EXIT | LOAD | LIST | MC | MCP | F        \n"
+    "HELP = 'help' | 'h'                                         \n"
+    "EXIT = 'exit' | 'quit' | 'q'                                \n"
+    "LOAD = 'load' <WS> STR                                      \n"
+    "LIST = 'list'                                               \n"
+    "MC  = ('mc'|'many-constructors') <WS> 'th' <WS> NUM         \n"
+    "MCP = ('mcp'|'many-costructor-params') <WS> 'th' <WS> NUM   \n"
+    "F = ('f'|'finalizers')                                      \n"
+    "WS  = #'[\t ]+'                                             \n"
+    "NUM = #'[0-9]+'                                             \n"
+    "STR = #'\"[^\"]*\"'                                         \n")))
 
 (declare interactive)
 

    (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 "f/finalizers                : list classes that use finalizers")
  (interactive state))

(defn- load-classes [ast]


(defn- mc-operation [state threshold]
  (printOperation classesWithManyConstructorsOp (:cus state) threshold)
  (interactive state))

(defn- mcp-operation [state threshold]
  (printOperation constructorsWithManyParametersOp (:cus state) threshold)
  (interactive state))

(defn- f-operation [state]
