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)
```

Bắt đầu từ entry point listUntilEnd được đề xuất và kiểm tra các Get combinator hiện có cũng như cấu trúc test của repository. Công việc được xem là hoàn tất khi operation được yêu cầu đã được tích hợp nhất quán với library và hành vi của nó được các test bao phủ.

Do mô hình lập chỉ mục viết ra từ nội dung của issue.