import Control.Monad hiding (filterM)
yes = Control.Monad.forM