             "cancel" (do (println "cancelling save...") (reset! recorder/save? false))
             "size" (-> recorder/os .size println)
             "ls" (ls)
-            (if (.startsWith input "open")
-              (open input player)
+            (condp starts-with? input
+              "rm" (rm input)
+              "open" (open input player)
               (println "command not recognized"))
             ))))))


(defn ls []
  (println "***saved songs***")
  (println (apply str (interpose "\n" (map #(.getName %) (get-songs))))))


(defn -main [& args]
  (let [

  (list* "open" (map #(.getPath %) (get-songs))))

(defn get-song [prefix]
  (some #(if (.startsWith (.toLowerCase (.getName %)) prefix) %) (get-songs)))

(defn open [command player]
  (let [
