@@ -809,6 +809,18 @@ inspect $ hasNoTypeClasses 'concatUnfoldRoundrobinRepl4xN
809809-- inspect $ 'concatUnfoldRoundrobinRepl4xN `hasNoType` ''D.ConcatUnfoldInterleaveState
810810#endif
811811
812+-------------------------------------------------------------------------------
813+-- Parallel application/fold
814+-------------------------------------------------------------------------------
815+
816+{-# INLINE parAppMap #-}
817+parAppMap :: S.MonadAsync m => Stream m Int -> m ()
818+parAppMap src = S.drain $ S.map (+1) S.|$ src
819+
820+{-# INLINE parAppSum #-}
821+parAppSum :: S.MonadAsync m => Stream m Int -> m ()
822+parAppSum src = (S.sum S.|$. src) >>= \x -> P.seq x (return ())
823+
812824-------------------------------------------------------------------------------
813825-- Mixed Composition
814826-------------------------------------------------------------------------------