Multi-line strings with margin, scala style

*scratch.clj

user=> (use '[clojure.contrib.str-utils2 :only [split join]])
user=> (defn ml-str 
  "Scala style multiline string"
  [s]
  (let [l (split-lines s)]
   (join "\n" (map (fn [b]
                    (let [i (.indexOf b "|")]
                     (if (> i 0) 
                      (.substring b (inc i))
                      b))) l))))
#'user/ml-str
user=> (ml-str "Hello World
   |the margin will
   |be deleted as per
   |the request of scala
   |users")
"Hello World\nthe margin will\nbe deleted as per\nthe request of scala\nusers"