sjoerdvisscher

// See http://blog.sigfpe.com/2008/12/mother-of-all-monads.html

// MARK: function composition
infix operator >>> { associativity left }
func >>> <A, B, C>(f: A -> B, g: B -> C) -> A -> C {
    return { x in g(f(x)) }
}

// MARK: Continuation monad
struct Cont<R, A> {