 		]
 		note-index))
 
+(defn- complexity-to-tempo [complexity]
+	(str tempo-root (+ (* 20 complexity) default-tempo)))
+
 (defn- metric-to-note [metric]
 	(let [complexity (complexity-from-metric metric)
 				note (nth c-major-notes (metric-to-note-index metric))]
 		(cond (> complexity 1)
-			(str "\n" tempo-root (+ (* 20 complexity) default-tempo) "\n" note)
+			(str "\n" (complexity-to-tempo complexity) "\n" note)
 			; note
 			:else note)))
 

		; _ (prn completed-score)
		]
		(spit notation-file-name, completed-score)
		)
	)

(defn -main [& args]
	(println (str "Generating ABC Notation from " (first args) "..."))
	(with-open [rdr (clojure.java.io/reader (first args))]
     (generate-notation 4 (line-seq rdr) (str (first args) ".abc")))
	)
(def c-major-root "\"Am\"")
(def tempo-root "Q:1/4=")
(def default-tempo 120)
(def drum-beat "%%MIDI program 0\n%%MIDI drum zd 60\n%%MIDI drumon\n%%MIDI gchord c")
(def header (str "X:1\nT:Hello World\nM:4/4\nL:1/4\nK:C\n" drum-beat "\n" tempo-root default-tempo "\n"))

(defn- metric-line-to-bits [metric]
	(clojure.string/split metric #"\s+"))
