MonadUtil
(@@)
mapAndUnzipR
accumulateR
zipWithR
sequenceL
sequenceR
mapL
mapR
map_
foldR
concatM
done