(defn str-prepend [a-string, to-prepend]
  (str to-prepend a-string))