   (let [{:keys [duration distance avghr]} exercise
         {:keys [resthr]} profile]
     (if (positive-numbers? (list resthr duration distance avghr))
-        (string/replace (format "%.2f&nbsp;m/b" (/ distance (* (- avghr resthr) duration (double (/ 1 6000))))) #"\." ","))))
+        (string/replace (format "%.2f m/b" (/ distance (* (- avghr resthr) duration (double (/ 1 6000))))) #"\." ","))))
 
 (defn to-human-distance [distance]
   (if (= nil distance)

          m-as-str (str "," m)]
    (if (> km 0)
      (if (= m 0)
        (str km "&nbsp;km")
        (str km "," (string/replace  (format "%03d" (int m)) #"0+$" "")  "&nbsp;km"))
      (if (> m 0)
        (str (int m) "m")
        "")))))


(defn seconds-part [seconds hundreds]
  (if (> hundreds 0)
    (str seconds "," (format "%02d" (int hundreds)) " s")
    (str seconds " s")))

(defn minutes-part [minutes seconds]
  (if (> seconds 0)
    (str minutes " min " seconds " s")
    (str minutes " min")))

(defn to-human-time [duration]
  (try
