splits ::  ByteString -> [(ByteString, ByteString)]
splits w = map (`B.splitAt` w) [0..B.length w]
splits ::  ByteString -> [(ByteString, ByteString)]
splits w = map (`B.splitAt` w) [0..B.length w]
splits w = map (`B.splitAt` w) [0..B.length w]