yes = Control.Monad.when p s