 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defn run-cont
-  [cont]
   "Given a Continuation instance, execute the
   wrapped computation and return its value."
+  [cont]
   (#+clj  with-context
    #+cljs cm/with-context cont
     (cont identity)))

            (return []))
          mvs))

(def ^{:arglist '([mf vs])}
     map-m (comp sequence-m map))

; TODO: docstring
(defn for-m
  [vs mf]
  (map-m mf vs))


  "Lifts a function to a monadic context.

      (require '[cats.types :as t])
      (require '[cats.core :as m])

      (def monad+ (m/lift-m +))

      (monad+ (t/just 1) (t/just 2))
      ;=> <Just [3]>
