import qualified Control.Monad as CM(forM,filterM)
yes = Control.Monad.forM