Make2.Pair
The pair interface lifted into the monad.
val fst : ('a * 'b, 'e) T2(M).t -> ('a, 'e) T2(M).t
fst (x,y) computes x
fst (x,y)
x
val snd : ('a * 'b, 'e) T2(M).t -> ('b, 'e) T2(M).t
snd (x,y) computes y
snd (x,y)
y