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

yes = do if a then forM x y else sequence z q; return ()