                           Programmable Music. "version-str"
 
 
-Hello " (user-name) ", may this be the start of a beautiful music hacking session...")))
+Hello " user-name ", may this be the start of a beautiful music hacking session...")))
 
 (defn capitalize
   "Make the first char of the text uppercase and leave the rest unmodified"

         (throw (Exception. (str "deref! timeout error. Dereference took longer than " timeout " ms")))
         res))))

(defn user-name
  "returns the name of the current user"
  []
  (System/getProperty "user.name"))

  (into {} (map (fn [[k v]] [k (if (keyword? v) (name v) (str v))]) m)))

(defn print-ascii-art-overtone-logo
  [user-name version-str]
  (println (str "
          _____                 __
         / __  /_  _____  _____/ /_____  ____  ___
