1.1 --- a/clojure/com/aurellem/run/util.clj	Mon Apr 02 23:13:49 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/util.clj	Tue Apr 03 04:16:20 2012 -0500
     1.3 @@ -32,7 +32,6 @@
     1.4            [new-actions new-state]
     1.5            (recur new-actions new-state))))))
     1.6  
     1.7 -
     1.8  (defn binary-search [metric]
     1.9    (let [baseline (metric 0)]
    1.10      (loop [low 1
    1.11 @@ -142,6 +141,11 @@
    1.12               script
    1.13               (range n))))
    1.14  
    1.15 +(defn end-text
    1.16 +  ([script]
    1.17 +     (->> (do-nothing 150)
    1.18 +          (play-moves [[:b]]))))
    1.19 +
    1.20  (defn do-nothing [n script]
    1.21    (->> script
    1.22         (play-moves