import qualified Control.Monad as CM
yes = Control.Monad.forM