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