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 の本文から書いたものです。