   (ctx/with-context (ctx/get-current mf)
     (mlet [a (mf x)
            b (mg a)]
-          (return b))))
+      (return b))))
 
 (defn <=<
   "Right-to-left composition of monads.

  (ctx/with-context (ctx/get-current mv)
    (mlet [v mv
           :when (p v)]
          (return v))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Haskell-style aliases and util functions.

  (ctx/with-context (ctx/get-current mf)
    (mlet [a (mf x)
           b (mg a)]
      (return b))))

(defn extract
  "Generic function for unwrap/extract
