apply-refact-0.1.0.0: tests/examples/Monad19.hs

yes = mapM async ds >>= mapM wait >> return ()