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

yes = do case a of {_ -> forM x y; x:xs -> forM x xs}; return ()