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