 
 (defn trim-leading-slash [s]
   (if (instance? String s)
-    (apply 
-      str 
+    (apply
+      str
       (if (= (first s) \/)
         (rest s)
         s))

        expr
        (future (Thread/sleep millis) (apply f args))))))


(defn trim-slash2 [s]
  (let [is-slash #(= % \/)
        not-slash #(not= % \/)]
    (->>
      s
      (drop-while is-slash)
      (take-while not-slash)
