          (throw (Exception. (str "deref! timeout error. Dereference took longer than " timeout " ms")))
          res))))
 
-(defn user-name
+(defn system-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
  [version-str]
  (println (str "
          _____                 __
         / __  /_  _____  _____/ /_____  ____  ___

                          Programmable Music. "version-str"


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"
