   fapply)
 
 (defn >>=
-  "Performs a Haskell-style left-associative
-  bind.
+  "Perform a Haskell-style left-associative bind.
 
   Let's see it in action:
 

      (return b))))

(defn extract
  "Generic function for unwrap/extract
  the inner value of a container."
  [v]
  (p/extract v))

   (reduce bind mv (cons f fs))))

(defn >>
  "Perform a Haskell-style left-associative bind,
  ignoring the values produced by the monadic computations."
  ([mv mv']
   (bind mv (fn [_] mv')))
  ([mv mv' & mvs]
