Add `guarded` combinator

After some time I find myself needing it several times. So let's return it back. Apparently, it's occasionally useful

This combinator has the following type:

```haskell
guarded :: Alternative f => (a -> Bool) -> a -> f a
```