listUntilEnd

I often find myself needing this function:

```
listUntilEnd :: (Binary a) => Get [a]
listUntilEnd = do
done <- isEmpty
if done then return [] else do
next <- get
rest <- listUntilEnd
return (next:rest)
```

从提议的 listUntilEnd 入口点开始，检查仓库中现有的 Get 组合子和测试布局。请求的操作已与库保持一致地集成，并且其行为已由测试覆盖，即表示完成。

由索引模型根据 Issue 内容生成。