Fix issue 4

A choice between to alternatives is probably more clearly expressed with just <|>.

choice is just a right fold over that:
```
choice :: Alternative f => [f a] -> f a
choice = foldr (<|>) empty
```