Bool
=====

```haskell
bool :: a -> a -> Bool -> a
```