-- Don't include whole word
splits' :: ByteString -> [(ByteString, ByteString)]
splits' w = map (`B.splitAt` w) [1..B.length w - 1]
splits' :: ByteString -> [(ByteString, ByteString)]
splits' w = map (`B.splitAt` w) [1..B.length w - 1]
splits' w = map (`B.splitAt` w) [1..B.length w - 1]