Right (chunk, p') -> case dec0 chunk of
PE.Some text carry2 dec -> do yield text
go carry2 dec p'
PE.Other text bs -> do yield text
Right (chunk, p') -> case dec0 chunk of
PE.Some text carry2 dec -> do yield text
go carry2 dec p'
PE.Other text bs -> do yield text