 (def *leaf-cutoff-length* 64) ; This value has been determined optimal for split operations through benchmarking. TODO make constant in clojure 1.3
 
 (defprotocol Measurable
-  "Trivial protocol for things measurable.
+  "Trivial protocol for things measurable
+
 Default implementations are provided for nil and String; nil measures as 0
 characters, 0 lines. Strings get analyzed accordingly."
   (measure [object] "Measure object"))

      (rebalance new-rope))))

(defn string->rope [string]
  "Create a fresh Rope from flat string.
The resulting leafes will carry at most *leaf-cutoff-length* characters of the
input string."
  (letfn [(build [acc]


(defn weigh
  "The accumulated measurement of all children to the right

Provided that Treeish-2-3 is implemented for seq.
In other words: What a new Treeish-2-3 node would weigh with seq as its left child."
  [seq]
