         inc-cont-fn (fn [x]
                       (t/continuation (fn [c] (c (inc x)))))]
 
-    (testing "The first monad law : left identity"
+    (testing "The first monad law: left identity"
       (is (= (m/run-cont cont-42)
              (m/run-cont
                (with-context (t/continuation #())

             (m/>>= s
                    (fn [x] (m/>>= (val->lazyseq (inc x))
                                  (fn [y] (val->lazyseq (inc y)))))))))))

(deftest test-lazy-seq
  (let [s (lazy-seq [2])
        val->lazyseq (fn [x] (lazy-seq [x]))]
    (testing "The first monad law: left identity"
      (is (= s
             (with-context s
               (m/>>= (m/return 2)
