           :LOAD (load-classes ast)
           :MC (let [threshold (read-string (last (last (first ast))))]
                 (mc-operation state threshold))
+          :F (f-operation state)
           (println "Command not implemented: " command))))))
 
 (defn interactive [state]


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

(defn- process [state input]

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