Example output when compiling and running a GHC bug reproducer relating to getNumCapabilities.

Make_output

rm -f *.o *.hi bugged.exe unbugged.exe
rm -rf ./bugged_dumps ./unbugged_dumps/
ghc -DACTIVATE_BUG -keep-tmp-files -dsuppress-module-prefixes -ddump-to-file -ddump-core-stats -ddump-simpl-stats -dcore-lint -dcmm-lint -ddump-ds -ddump-simpl -ddump-stg -ddump-asm -ddump-bcos -ddump-cmm -ddump-opt-cmm -ddump-inlinings -rtsopts -fforce-recomp -O2 -threaded PBBS.hs -main-is Util.PBBS.t4 -o bugged.exe
[1 of 1] Compiling Util.PBBS        ( PBBS.hs, PBBS.o )
Inlining done: D:NFData{v r4f} [gid[DataConWrapper]]
Inlining done: D:NFData{v r4f} [gid[DataConWrapper]]
Inlining done: D:NFData{v r4f} [gid[DataConWrapper]]
Inlining done: D:NFData{v r4f} [gid[DataConWrapper]]
Inlining done: D:NFData{v r4f} [gid[DataConWrapper]]
Inlining done: D:NFData{v r4f} [gid[DataConWrapper]]
Inlining done: D:NFData{v r4f} [gid[DataConWrapper]]
Inlining done: D:NFData{v r4f} [gid[DataConWrapper]]
Inlining done: $dmreadsPrec{v rOQ} [gid]
Inlining done: $dmmin{v rJ1} [gid]
Inlining done: $dmmax{v rJ0} [gid]
Inlining done: $dmshow{v rDz} [gid]
Inlining done: $dmreadsPrec{v rOQ} [gid]
Inlining done: $dmmin{v rJ1} [gid]
Inlining done: $dmmax{v rJ0} [gid]
Inlining done: $dmshow{v rDz} [gid]
Inlining done: $dmreadsPrec{v rOQ} [gid]
Inlining done: $dmreadsPrec{v rOQ} [gid]
Inlining done: $dmmin{v rJ1} [gid]
Inlining done: $dmmax{v rJ0} [gid]
Inlining done: $dmmin{v rJ1} [gid]
Inlining done: $dmmax{v rJ0} [gid]
Inlining done: $dmshow{v rDz} [gid]
Inlining done: $dmshow{v rDz} [gid]
Inlining done: rnf{v r48} [gid[ClassOp]]
Inlining done: $fNFDataMiddleFrag{v r1kE} [lidx[DFunId(nt)]]
Inlining done: $fMonadReadPrec_$cfail{v r1TZ} [gid]
Inlining done: $fMonadReadPrec1{v r1TX} [gid]
Inlining done: step{v r1RP} [gid]
Inlining done: step1{v r1TH} [gid]
Inlining done: $fReadInt_$creadPrec{v rLs} [gid]
Inlining done: $fReadInt2{v rLq} [gid]
Inlining done: step{v r1RP} [gid]
Inlining done: step1{v r1TH} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: $fMonadReadPrec_$creturn{v r1U0} [gid]
Inlining done: $fMonadReadPrec2{v r1TW} [gid]
Inlining done: $WMiddleFrag{v r1ki} [gid[DataConWrapper]]
Inlining done: parens{v rOG} [gid]
Inlining done: prec{v r1Rl} [gid]
Inlining done: prec1{v r1TM} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: lexP{v rOJ} [gid]
Inlining done: $fReadLexeme2{v rL4} [gid]
Inlining done: readPrec_to_S{v rOz} [gid]
Inlining done: readListPrecDefault{v rOE} [gid]
Inlining done: readListPrecDefault2{v rJT} [gid]
Inlining done: readListDefault{v rOF} [gid]
Inlining done: compareInt{v rou} [gid]
Inlining done: compareInt#{v rot} [gid]
Inlining done: compareInt{v rou} [gid]
Inlining done: compareInt#{v rot} [gid]
Inlining done: compareInt{v rou} [gid]
Inlining done: compareInt#{v rot} [gid]
Inlining done: compareInt{v rou} [gid]
Inlining done: compareInt#{v rot} [gid]
Inlining done: compareInt{v rou} [gid]
Inlining done: compareInt#{v rot} [gid]
Inlining done: &&{v r1e} [gid]
Inlining done: eqInt{v ror} [gid]
Inlining done: not{v r1d} [gid]
Inlining done: showString{v r1v} [gid]
Inlining done: showParen{v r1w} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: showSpace{v rDp} [gid]
Inlining done: geInt{v roq} [gid]
Inlining done: shows{v r1u} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1TZ} [gid]
Inlining done: $fMonadReadPrec1{v r1TX} [gid]
Inlining done: $fMonadReadPrec_$creturn{v r1U0} [gid]
Inlining done: $fMonadReadPrec2{v r1TW} [gid]
Inlining done: $WLeftFrag{v r1kf} [gid[DataConWrapper]]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: step{v r1RP} [gid]
Inlining done: step1{v r1TH} [gid]
Inlining done: parens{v rOG} [gid]
Inlining done: prec{v r1Rl} [gid]
Inlining done: prec1{v r1TM} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: lexP{v rOJ} [gid]
Inlining done: $fReadLexeme2{v rL4} [gid]
Inlining done: readPrec_to_S{v rOz} [gid]
Inlining done: readListPrecDefault{v rOE} [gid]
Inlining done: readListPrecDefault2{v rJT} [gid]
Inlining done: readListDefault{v rOF} [gid]
Inlining done: not{v r1d} [gid]
Inlining done: showString{v r1v} [gid]
Inlining done: showParen{v r1w} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: geInt{v roq} [gid]
Inlining done: shows{v r1u} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1TZ} [gid]
Inlining done: $fMonadReadPrec1{v r1TX} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1TZ} [gid]
Inlining done: $fMonadReadPrec1{v r1TX} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1TZ} [gid]
Inlining done: $fMonadReadPrec1{v r1TX} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1TZ} [gid]
Inlining done: $fMonadReadPrec1{v r1TX} [gid]
Inlining done: reset{v r1Rm} [gid]
Inlining done: reset1{v r1TI} [gid]
Inlining done: $fReadInt_$creadPrec{v rLs} [gid]
Inlining done: $fReadInt2{v rLq} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1TZ} [gid]
Inlining done: $fMonadReadPrec1{v r1TX} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1TZ} [gid]
Inlining done: $fMonadReadPrec1{v r1TX} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1TZ} [gid]
Inlining done: $fMonadReadPrec1{v r1TX} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1TZ} [gid]
Inlining done: $fMonadReadPrec1{v r1TX} [gid]
Inlining done: reset{v r1Rm} [gid]
Inlining done: reset1{v r1TI} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: $fMonadReadPrec_$creturn{v r1U0} [gid]
Inlining done: $fMonadReadPrec2{v r1TW} [gid]
Inlining done: $WRightFrag{v r1kb} [gid[DataConWrapper]]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: lexP{v rOJ} [gid]
Inlining done: $fReadLexeme2{v rL4} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: lexP{v rOJ} [gid]
Inlining done: $fReadLexeme2{v rL4} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: lexP{v rOJ} [gid]
Inlining done: $fReadLexeme2{v rL4} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: lexP{v rOJ} [gid]
Inlining done: $fReadLexeme2{v rL4} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: lexP{v rOJ} [gid]
Inlining done: $fReadLexeme2{v rL4} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: lexP{v rOJ} [gid]
Inlining done: $fReadLexeme2{v rL4} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: lexP{v rOJ} [gid]
Inlining done: $fReadLexeme2{v rL4} [gid]
Inlining done: parens{v rOG} [gid]
Inlining done: prec{v r1Rl} [gid]
Inlining done: prec1{v r1TM} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: lexP{v rOJ} [gid]
Inlining done: $fReadLexeme2{v rL4} [gid]
Inlining done: readPrec_to_S{v rOz} [gid]
Inlining done: readListPrecDefault{v rOE} [gid]
Inlining done: readListPrecDefault2{v rJT} [gid]
Inlining done: readListDefault{v rOF} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1TZ} [gid]
Inlining done: $fMonadReadPrec1{v r1TX} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1TZ} [gid]
Inlining done: $fMonadReadPrec1{v r1TX} [gid]
Inlining done: $fMonadReadPrec_$creturn{v r1U0} [gid]
Inlining done: $fMonadReadPrec2{v r1TW} [gid]
Inlining done: $WSingle{v r1kx} [gid[DataConWrapper]]
Inlining done: step{v r1RP} [gid]
Inlining done: step1{v r1TH} [gid]
Inlining done: $fReadMaybe_$creadPrec{v rKZ} [gid]
Inlining done: step{v r1RP} [gid]
Inlining done: step1{v r1TH} [gid]
Inlining done: $fReadVector_$creadPrec{v rbl} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: step{v r1RP} [gid]
Inlining done: step1{v r1TH} [gid]
Inlining done: $fReadMaybe_$creadPrec{v rKZ} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: $fMonadReadPrec_$creturn{v r1U0} [gid]
Inlining done: $fMonadReadPrec2{v r1TW} [gid]
Inlining done: $WCompound{v r1kv} [gid[DataConWrapper]]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: step{v r1RP} [gid]
Inlining done: step1{v r1TH} [gid]
Inlining done: parens{v rOG} [gid]
Inlining done: +++{v r1TE} [gid]
Inlining done: +++1{v r1TV} [gid]
Inlining done: prec{v r1Rl} [gid]
Inlining done: prec1{v r1TM} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: lexP{v rOJ} [gid]
Inlining done: $fReadLexeme2{v rL4} [gid]
Inlining done: prec{v r1Rl} [gid]
Inlining done: prec1{v r1TM} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1U2} [gid]
Inlining done: $fMonadReadPrec3{v r1TY} [gid]
Inlining done: lexP{v rOJ} [gid]
Inlining done: $fReadLexeme2{v rL4} [gid]
Inlining done: pfail1{v r1M1} [gid]
Inlining done: pfail1{v r1M1} [gid]
Inlining done: readPrec_to_S{v rOz} [gid]
Inlining done: readListPrecDefault{v rOE} [gid]
Inlining done: readListPrecDefault2{v rJT} [gid]
Inlining done: readListDefault{v rOF} [gid]
Inlining done: compareInt{v rou} [gid]
Inlining done: compareInt#{v rot} [gid]
Inlining done: compareInt{v rou} [gid]
Inlining done: compareInt#{v rot} [gid]
Inlining done: compareInt{v rou} [gid]
Inlining done: compareInt#{v rot} [gid]
Inlining done: compareInt{v rou} [gid]
Inlining done: compareInt#{v rot} [gid]
Inlining done: compareInt{v rou} [gid]
Inlining done: compareInt#{v rot} [gid]
Inlining done: &&{v r1e} [gid]
Inlining done: eqInt{v ror} [gid]
Inlining done: not{v r1d} [gid]
Inlining done: &&{v r1e} [gid]
Inlining done: &&{v r1e} [gid]
Inlining done: $fEqMaybe_$c=={v r7D} [gid]
Inlining done: $fEqMaybe_$c=={v r7D} [gid]
Inlining done: $fEqVector_$c=={v rbI} [gid]
Inlining done: not{v r1d} [gid]
Inlining done: $fOrdMaybe_$ccompare{v r7u} [gid]
Inlining done: $fOrdVector_$ccompare{v rbz} [gid]
Inlining done: $fOrdMaybe_$ccompare{v r7u} [gid]
Inlining done: $fOrdMaybe_$ccompare{v r7u} [gid]
Inlining done: $fOrdVector_$ccompare{v rbz} [gid]
Inlining done: $fOrdMaybe_$c<{v r7t} [gid]
Inlining done: $fOrdMaybe_$ccompare{v r7u} [gid]
Inlining done: $fOrdVector_$ccompare{v rbz} [gid]
Inlining done: $fOrdMaybe_$c>={v r7s} [gid]
Inlining done: $fOrdMaybe_$ccompare{v r7u} [gid]
Inlining done: $fOrdVector_$ccompare{v rbz} [gid]
Inlining done: $fOrdMaybe_$c>{v r7r} [gid]
Inlining done: $fOrdMaybe_$ccompare{v r7u} [gid]
Inlining done: $fOrdVector_$ccompare{v rbz} [gid]
Inlining done: $fOrdMaybe_$c<={v r7q} [gid]
Inlining done: showString{v r1v} [gid]
Inlining done: showString{v r1v} [gid]
Inlining done: showString{v r1v} [gid]
Inlining done: showString{v r1v} [gid]
Inlining done: showString{v r1v} [gid]
Inlining done: showParen{v r1w} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: geInt{v roq} [gid]
Inlining done: shows{v r1u} [gid]
Inlining done: showString{v r1v} [gid]
Inlining done: showString{v r1v} [gid]
Inlining done: showParen{v r1w} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: $fShowMaybe_$cshowsPrec{v rC0} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: $fShowMaybe_$cshowsPrec{v rC0} [gid]
Inlining done: showSpace{v rDp} [gid]
Inlining done: showSpace{v rDp} [gid]
Inlining done: geInt{v roq} [gid]
Inlining done: showParen{v r1w} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: geInt{v roq} [gid]
Inlining done: shows{v r1u} [gid]
Inlining done: $fNFData[]{v r2K} [gid[DFunId(nt)]]
Inlining done: $fNFDataPartialNums{v r1kC} [lidx[DFunId(nt)]]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r1l} [gid]
Inlining done: putStrLn1{v r1b7} [gid]
Inlining done: hPutStrLn1{v r1b6} [gid]
Inlining done: $fShowInt_$cshow{v rh4} [gid]
Inlining done: length{v rdC} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r1l} [gid]
Inlining done: putStrLn1{v r1b7} [gid]
Inlining done: hPutStrLn1{v r1b6} [gid]
Inlining done: $fShow(,)_$cshow{v rDh} [gid]
Inlining done: $fMonadIO_$c>>{v ro7} [gid]
Inlining done: $fMonadIO_$c>>{v ro7} [gid]
Inlining done: mapM_{v r2H} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r1l} [gid]
Inlining done: putStrLn1{v r1b7} [gid]
Inlining done: hPutStrLn1{v r1b6} [gid]
Inlining done: $fShowInt_$cshow{v rh4} [gid]
Inlining done: length{v r22} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: evaluate{v r5l} [gid]
Inlining done: evaluate1{v r1ib} [gid]
Inlining done: rnf{v r48} [gid[ClassOp]]
Inlining done: $fNFData[]{v r2K} [gid[DFunId(nt)]]
Inlining done: $fNFDataPartialNums{v r1kC} [lidx[DFunId(nt)]]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r1l} [gid]
Inlining done: putStrLn1{v r1b7} [gid]
Inlining done: hPutStrLn1{v r1b6} [gid]
Inlining done: $fShowInt_$cshow{v rh4} [gid]
Inlining done: length{v rdC} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r1l} [gid]
Inlining done: putStrLn1{v r1b7} [gid]
Inlining done: hPutStrLn1{v r1b6} [gid]
Inlining done: $fShow(,)_$cshow{v rDh} [gid]
Inlining done: $fMonadIO_$c>>{v ro7} [gid]
Inlining done: $fMonadIO_$c>>{v ro7} [gid]
Inlining done: mapM_{v r2H} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r1l} [gid]
Inlining done: putStrLn1{v r1b7} [gid]
Inlining done: hPutStrLn1{v r1b6} [gid]
Inlining done: $fShowInt_$cshow{v rh4} [gid]
Inlining done: length{v r22} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: evaluate{v r5l} [gid]
Inlining done: evaluate1{v r1ib} [gid]
Inlining done: rnf{v r48} [gid[ClassOp]]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: &&{v r1e} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: &&{v r1e} [gid]
Inlining done: $fNumWord64_$cfromInteger{v r186} [gid]
Inlining done: $fNumWord64_$cfromInteger{v r186} [gid]
Inlining done: $fNumWord64_$cfromInteger{v r186} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fMonadIO_$c>>{v ro7} [gid]
Inlining done: eqInt{v ror} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: unsafeHead{v rkL} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rkD} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: write{v rfJ} [gid]
Inlining done: write{v reZ} [gid]
Inlining done: $fMVectorMVectorWord64_$cbasicLength{v rUY} [gid]
Inlining done: $fMVectorMVectora_$cbasicLength{v rYO} [gid]
Inlining done: $fMVectorMVectorWord64_$cbasicLength{v rUY} [gid]
Inlining done: $fMVectorMVectora_$cbasicLength{v rYO} [gid]
Inlining done:
    $fMVectorMVectorWord64_$cbasicUnsafeWrite{v rUS} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fPrimWord64_$cwriteByteArray#{v rUG} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1Xe} [gid]
Inlining done: $fNumWord64_$c+{v r16r} [gid]
Inlining done: $fNumWord64_$c*{v r16q} [gid]
Inlining done: $fNumWord64_$c-{v r16p} [gid]
Inlining done: id{v r2n} [gid]
Inlining done: eqInt{v ror} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: unsafeHead{v rkL} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rkD} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WLeftFrag{v r1kf} [gid[DataConWrapper]]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: eqInt{v ror} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: unsafeHead{v rkL} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rkD} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: not{v r1d} [gid]
Inlining done: empty{v ret} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WSingle{v r1kx} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1ki} [gid[DataConWrapper]]
Inlining done: $fNumWord64_$cfromInteger{v r186} [gid]
Inlining done: eq{v r13y} [gid]
Inlining done: length{v rjj} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: head{v rju} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: fromJust{v r7K} [gid]
Inlining done: findIndex{v rjT} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fStorableWord8_$cpeek{v ri5} [gid]
Inlining done: $fStorableWord27{v r2R0} [gid]
Inlining done: plusPtr{v ri4} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: plusPtr{v ri4} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: unsafeFreeze{v rcI} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeFreeze{v rQD} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1Xe} [gid]
Inlining done: $WVector{v rSE} [gid[DataConWrapper]]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: take{v rcU} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WCompound{v r1kv} [gid[DataConWrapper]]
Inlining done: $WRightFrag{v r1kb} [gid[DataConWrapper]]
Inlining done: head{v rdV} [gid]
Inlining done: $fEqVector_$c=={v rbI} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WCompound{v r1kv} [gid[DataConWrapper]]
Inlining done: tail{v rcV} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WCompound{v r1kv} [gid[DataConWrapper]]
Inlining done: tail{v rcV} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $WSingle{v r1kx} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1ki} [gid[DataConWrapper]]
Inlining done: tail{v riQ} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: new{v rgc} [gid]
Inlining done: new{v rfs} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fMVectorMVectorWord64_$cbasicUnsafeNew{v rUV} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fNumInt_$c*{v rtc} [gid]
Inlining done: sizeOf{v rYF} [gid]
Inlining done: $fPrimWord64_$csizeOf#{v r4aP} [gid]
Inlining done: unI#{v r4cC} [gid]
Inlining done: sIZEOF_WORD64{v r4aG} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1Xe} [gid]
Inlining done: $WMVector{v rYB} [gid[DataConWrapper]]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: &&{v r1e} [gid]
Inlining done: $fEqForeignPtr_$c=={v r12M} [gid]
Inlining done: $fEqOrdering_$c=={v rbs} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: &&{v r1e} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: &&{v r1e} [gid]
Inlining done: $fNumWord32_$cfromInteger{v r16u} [gid]
Inlining done: $fNumWord32_$cfromInteger{v r16u} [gid]
Inlining done: $fNumWord32_$cfromInteger{v r16u} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fMonadIO_$c>>{v ro7} [gid]
Inlining done: eqInt{v ror} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: unsafeHead{v rkL} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rkD} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: write{v rfJ} [gid]
Inlining done: write{v reZ} [gid]
Inlining done: $fMVectorMVectorWord32_$cbasicLength{v rVh} [gid]
Inlining done: $fMVectorMVectora_$cbasicLength{v rYO} [gid]
Inlining done: $fMVectorMVectorWord32_$cbasicLength{v rVh} [gid]
Inlining done: $fMVectorMVectora_$cbasicLength{v rYO} [gid]
Inlining done:
    $fMVectorMVectorWord32_$cbasicUnsafeWrite{v rVb} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fPrimWord32_$cwriteByteArray#{v rUZ} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1Xe} [gid]
Inlining done: $fNumWord32_$c+{v r16A} [gid]
Inlining done: $fNumWord32_$c*{v r16z} [gid]
Inlining done: $fNumWord32_$c-{v r16y} [gid]
Inlining done: eqInt{v ror} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: unsafeHead{v rkL} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rkD} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WLeftFrag{v r1kf} [gid[DataConWrapper]]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: eqInt{v ror} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: unsafeHead{v rkL} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rkD} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: not{v r1d} [gid]
Inlining done: empty{v ret} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WSingle{v r1kx} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1ki} [gid[DataConWrapper]]
Inlining done: $fNumWord32_$cfromInteger{v r16u} [gid]
Inlining done: eq{v r13y} [gid]
Inlining done: length{v rjj} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: head{v rju} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: fromJust{v r7K} [gid]
Inlining done: findIndex{v rjT} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fStorableWord8_$cpeek{v ri5} [gid]
Inlining done: $fStorableWord27{v r2R0} [gid]
Inlining done: plusPtr{v ri4} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: plusPtr{v ri4} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: unsafeFreeze{v rcI} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeFreeze{v rQN} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1Xe} [gid]
Inlining done: $WVector{v rSE} [gid[DataConWrapper]]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: take{v rcU} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WCompound{v r1kv} [gid[DataConWrapper]]
Inlining done: $WRightFrag{v r1kb} [gid[DataConWrapper]]
Inlining done: head{v rdV} [gid]
Inlining done: $fEqVector_$c=={v rbI} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WCompound{v r1kv} [gid[DataConWrapper]]
Inlining done: tail{v rcV} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WCompound{v r1kv} [gid[DataConWrapper]]
Inlining done: tail{v rcV} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $WSingle{v r1kx} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1ki} [gid[DataConWrapper]]
Inlining done: tail{v riQ} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: new{v rgc} [gid]
Inlining done: new{v rfs} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fMVectorMVectorWord32_$cbasicUnsafeNew{v rVe} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fNumInt_$c*{v rtc} [gid]
Inlining done: sizeOf{v rYF} [gid]
Inlining done: $fPrimWord32_$csizeOf#{v r4aZ} [gid]
Inlining done: unI#{v r4cC} [gid]
Inlining done: sIZEOF_WORD32{v r4aQ} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1Xe} [gid]
Inlining done: $WMVector{v rYB} [gid[DataConWrapper]]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: &&{v r1e} [gid]
Inlining done: $fEqForeignPtr_$c=={v r12M} [gid]
Inlining done: $fEqOrdering_$c=={v rbs} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: &&{v r1e} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: &&{v r1e} [gid]
Inlining done: $fNumWord_$cfromInteger{v ryf} [gid]
Inlining done: $fNumWord_$cfromInteger{v ryf} [gid]
Inlining done: $fNumWord_$cfromInteger{v ryf} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fMonadIO_$c>>{v ro7} [gid]
Inlining done: eqInt{v ror} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: unsafeHead{v rkL} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rkD} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: write{v rfJ} [gid]
Inlining done: write{v reZ} [gid]
Inlining done: $fMVectorMVectorWord_$cbasicLength{v rVM} [gid]
Inlining done: $fMVectorMVectora_$cbasicLength{v rYO} [gid]
Inlining done: $fMVectorMVectorWord_$cbasicLength{v rVM} [gid]
Inlining done: $fMVectorMVectora_$cbasicLength{v rYO} [gid]
Inlining done: $fMVectorMVectorWord_$cbasicUnsafeWrite{v rVG} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fPrimWord_$cwriteByteArray#{v rUj} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1Xe} [gid]
Inlining done: $fNumWord_$c+{v r12i} [gid]
Inlining done: $fNumWord_$c*{v r12h} [gid]
Inlining done: $fNumWord_$c-{v r12g} [gid]
Inlining done: id{v r2n} [gid]
Inlining done: eqInt{v ror} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: unsafeHead{v rkL} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rkD} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WLeftFrag{v r1kf} [gid[DataConWrapper]]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: eqInt{v ror} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: unsafeHead{v rkL} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rkD} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: not{v r1d} [gid]
Inlining done: empty{v ret} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WSingle{v r1kx} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1ki} [gid[DataConWrapper]]
Inlining done: $fNumWord_$cfromInteger{v ryf} [gid]
Inlining done: eq{v r13y} [gid]
Inlining done: length{v rjj} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: head{v rju} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: fromJust{v r7K} [gid]
Inlining done: findIndex{v rjT} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fStorableWord8_$cpeek{v ri5} [gid]
Inlining done: $fStorableWord27{v r2R0} [gid]
Inlining done: plusPtr{v ri4} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: plusPtr{v ri4} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: unsafeFreeze{v rcI} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeFreeze{v rR4} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1Xe} [gid]
Inlining done: $WVector{v rSE} [gid[DataConWrapper]]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: take{v rcU} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WCompound{v r1kv} [gid[DataConWrapper]]
Inlining done: $WRightFrag{v r1kb} [gid[DataConWrapper]]
Inlining done: head{v rdV} [gid]
Inlining done: $fEqVector_$c=={v rbI} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WCompound{v r1kv} [gid[DataConWrapper]]
Inlining done: tail{v rcV} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WCompound{v r1kv} [gid[DataConWrapper]]
Inlining done: tail{v rcV} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $WSingle{v r1kx} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1ki} [gid[DataConWrapper]]
Inlining done: tail{v riQ} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: new{v rgc} [gid]
Inlining done: new{v rfs} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fMVectorMVectorWord_$cbasicUnsafeNew{v rVJ} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fNumInt_$c*{v rtc} [gid]
Inlining done: sizeOf{v rYF} [gid]
Inlining done: $fPrimWord_$csizeOf#{v r4bf} [gid]
Inlining done: unI#{v r4cC} [gid]
Inlining done: sIZEOF_WORD{v r4at} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1Xe} [gid]
Inlining done: $WMVector{v rYB} [gid[DataConWrapper]]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: &&{v r1e} [gid]
Inlining done: $fEqForeignPtr_$c=={v r12M} [gid]
Inlining done: $fEqOrdering_$c=={v rbs} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: &&{v r1e} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: &&{v r1e} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: .{v r2r} [gid]
Inlining done: not{v r1d} [gid]
Inlining done: eq{v r13y} [gid]
Inlining done: length{v rjj} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: head{v rju} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: empty{v ret} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: fromJust{v r7K} [gid]
Inlining done: findIndex{v rjT} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fStorableWord8_$cpeek{v ri5} [gid]
Inlining done: $fStorableWord27{v r2R0} [gid]
Inlining done: plusPtr{v ri4} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: plusPtr{v ri4} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: unsafeFreeze{v rcI} [gid]
Inlining done: take{v rcU} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WCompound{v r1kv} [gid[DataConWrapper]]
Inlining done: $WRightFrag{v r1kb} [gid[DataConWrapper]]
Inlining done: head{v rdV} [gid]
Inlining done: $fEqVector_$c=={v rbI} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WCompound{v r1kv} [gid[DataConWrapper]]
Inlining done: tail{v rcV} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WCompound{v r1kv} [gid[DataConWrapper]]
Inlining done: tail{v rcV} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $WSingle{v r1kx} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1ki} [gid[DataConWrapper]]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: $fMonadIO_$c>>{v ro7} [gid]
Inlining done: eqInt{v ror} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: unsafeHead{v rkL} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rkD} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: write{v rfJ} [gid]
Inlining done: write{v reZ} [gid]
Inlining done: fromIntegral{v 034} [gid]
Inlining done: $fIntegralWord_$ctoInteger{v rxh} [gid]
Inlining done: eqInt{v ror} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: unsafeHead{v rkL} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rkD} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c>={v r15O} [gid]
Inlining done: eqInt{v ror} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: unsafeHead{v rkL} [gid]
Inlining done: withForeignPtr{v ri3} [gid]
Inlining done: withForeignPtr1{v r2PA} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rhz} [gid]
Inlining done: $fStorableWord29{v r2QZ} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2OJ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rkD} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fNumWord8_$cfromInteger{v rYG} [gid]
Inlining done: $fOrdWord8_$c<={v r15M} [gid]
Inlining done: tail{v riQ} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fNumInt_$c-{v rhM} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: new{v rgc} [gid]
Inlining done: new{v rfs} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $WSingle{v r1kx} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1ki} [gid[DataConWrapper]]
Inlining done: &&{v r1e} [gid]
Inlining done: $fEqForeignPtr_$c=={v r12M} [gid]
Inlining done: $fEqOrdering_$c=={v rbs} [gid]
Inlining done: putStrLn{v r1l} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: $fMonadIO_$c>>{v ro7} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: putStrLn1{v r1b7} [gid]
Inlining done: hPutStrLn1{v r1b6} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: getNumCapabilities{v r6s} [gid]
Inlining done: getNumCapabilities1{v r1ef} [gid]
Inlining done: $fMonadIO_$c>>{v ro7} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r1l} [gid]
Inlining done: putStrLn1{v r1b7} [gid]
Inlining done: hPutStrLn1{v r1b6} [gid]
Inlining done: $fShowInt_$cshow{v rh4} [gid]
Inlining done: readFile{v rj5} [gid]
Inlining done: $fMonadIO_$c>>{v ro7} [gid]
Inlining done: $fMonadIO_$creturn{v ro6} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rnZ} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fMonadIO_$c>>{v ro7} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: getCurrentTime{v rl3} [gid]
Inlining done: getCurrentTime1{v rkP} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: parReadNats{v rzE} [lidx]
Inlining done: $fMonadIO_$c>>={v ro8} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: getCurrentTime{v rl3} [gid]
Inlining done: getCurrentTime1{v rkP} [gid]
Inlining done: $fMonadIO_$c>>{v ro7} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r1l} [gid]
Inlining done: putStrLn1{v r1b7} [gid]
Inlining done: hPutStrLn1{v r1b6} [gid]
Inlining done: $fShowNominalDiffTime_$cshow{v r20S} [gid]
Inlining done: diffUTCTime{v rkZ} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r1l} [gid]
Inlining done: putStrLn1{v r1b7} [gid]
Inlining done: hPutStrLn1{v r1b6} [gid]
Inlining done: t4{v rzG} [lidx]
Inlining done: runMainIO{v 01D} [gid]
Inlining done: t4{v rzG} [lidx]
Inlining done: lex1{v rOh} [gid]
Inlining done: lex1{v rOh} [gid]
Inlining done: readNatsPartial{v rzF} [lidx]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: eq{v rbF} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: cmp{v rbr} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: cmp{v rbr} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: cmp{v rbr} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: cmp{v rbr} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: cmp{v rbr} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: length{v r9t} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rR2} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: length{v r9t} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: new{v ran} [gid]
Inlining done: unstream{v ram} [gid]
Inlining done: empty{v ral} [gid]
Inlining done: empty{v rm5} [gid]
Inlining done: Id{v r1sh} [gid[DataConWrapper]]
Inlining done: $fMVectorMVectorWord64_$cbasicUnsafeNew{v rUV} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fNumInt_$c*{v rtc} [gid]
Inlining done: sizeOf{v rYF} [gid]
Inlining done: $fPrimWord64_$csizeOf#{v r4aP} [gid]
Inlining done: unI#{v r4cC} [gid]
Inlining done: sIZEOF_WORD64{v r4aG} [gid]
Inlining done: $fPrimMonadST_$cprimitive{v r1Xc} [gid]
Inlining done: $WMVector{v rYB} [gid[DataConWrapper]]
Inlining done: $fMonadST_$creturn{v r4ff} [gid]
Inlining done: $fMonadST_$c>>={v r4fh} [gid]
Inlining done: $fMonadST_$creturn{v r4ff} [gid]
Inlining done: $fMonadST_$c>>={v r4fh} [gid]
Inlining done:
    $fMVectorMVectorWord64_$cbasicUnsafeSlice{v rUX} [gid]
Inlining done: $fMVectorMVectora_$cbasicUnsafeSlice{v rYz} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeFreeze{v rQD} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fPrimMonadST_$cprimitive{v r1Xc} [gid]
Inlining done: $WVector{v rSE} [gid[DataConWrapper]]
Inlining done: $fMonadST_$creturn{v r4ff} [gid]
Inlining done: $fMonadST_$c>>={v r4fh} [gid]
Inlining done: $fMonadST_$creturn{v r4ff} [gid]
Inlining done: $fMonadST_$c>>={v r4fh} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: take{v r8O} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rQB} [gid]
Inlining done: $fVectorVectorWord64_$cbasicUnsafeSlice{v rQA} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: eq{v rbF} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rQB} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeIndexM{v rQz} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord64_$cindexByteArray#{v rQu} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeIndexM{v rQz} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord64_$cindexByteArray#{v rQu} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rQB} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeIndexM{v rQz} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord64_$cindexByteArray#{v rQu} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeIndexM{v rQz} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord64_$cindexByteArray#{v rQu} [gid]
Inlining done: $fEqWord64_$c=={v r17M} [gid]
Inlining done: tail{v r8P} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rQB} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rQB} [gid]
Inlining done: $fVectorVectorWord64_$cbasicUnsafeSlice{v rQA} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: head{v r9M} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rQB} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeIndexM{v rQz} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord64_$cindexByteArray#{v rQu} [gid]
Inlining done: Id{v r1sh} [gid[DataConWrapper]]
Inlining done: tail{v r8P} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rQB} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rQB} [gid]
Inlining done: $fVectorVectorWord64_$cbasicUnsafeSlice{v rQA} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: head{v r9M} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rQB} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeIndexM{v rQz} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord64_$cindexByteArray#{v rQu} [gid]
Inlining done: Id{v r1sh} [gid[DataConWrapper]]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: new{v ran} [gid]
Inlining done: unstream{v ram} [gid]
Inlining done: empty{v ral} [gid]
Inlining done: empty{v rm5} [gid]
Inlining done: Id{v r1sh} [gid[DataConWrapper]]
Inlining done: $fMVectorMVectorWord32_$cbasicUnsafeNew{v rVe} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fNumInt_$c*{v rtc} [gid]
Inlining done: sizeOf{v rYF} [gid]
Inlining done: $fPrimWord32_$csizeOf#{v r4aZ} [gid]
Inlining done: unI#{v r4cC} [gid]
Inlining done: sIZEOF_WORD32{v r4aQ} [gid]
Inlining done: $fPrimMonadST_$cprimitive{v r1Xc} [gid]
Inlining done: $WMVector{v rYB} [gid[DataConWrapper]]
Inlining done: $fMonadST_$creturn{v r4ff} [gid]
Inlining done: $fMonadST_$c>>={v r4fh} [gid]
Inlining done: $fMonadST_$creturn{v r4ff} [gid]
Inlining done: $fMonadST_$c>>={v r4fh} [gid]
Inlining done:
    $fMVectorMVectorWord32_$cbasicUnsafeSlice{v rVg} [gid]
Inlining done: $fMVectorMVectora_$cbasicUnsafeSlice{v rYz} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeFreeze{v rQN} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fPrimMonadST_$cprimitive{v r1Xc} [gid]
Inlining done: $WVector{v rSE} [gid[DataConWrapper]]
Inlining done: $fMonadST_$creturn{v r4ff} [gid]
Inlining done: $fMonadST_$c>>={v r4fh} [gid]
Inlining done: $fMonadST_$creturn{v r4ff} [gid]
Inlining done: $fMonadST_$c>>={v r4fh} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: take{v r8O} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rQL} [gid]
Inlining done: $fVectorVectorWord32_$cbasicUnsafeSlice{v rQK} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: eq{v rbF} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rQL} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeIndexM{v rQJ} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord32_$cindexByteArray#{v rQE} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeIndexM{v rQJ} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord32_$cindexByteArray#{v rQE} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rQL} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeIndexM{v rQJ} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord32_$cindexByteArray#{v rQE} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeIndexM{v rQJ} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord32_$cindexByteArray#{v rQE} [gid]
Inlining done: $fEqWord32_$c=={v r17O} [gid]
Inlining done: tail{v r8P} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rQL} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rQL} [gid]
Inlining done: $fVectorVectorWord32_$cbasicUnsafeSlice{v rQK} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: head{v r9M} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rQL} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeIndexM{v rQJ} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord32_$cindexByteArray#{v rQE} [gid]
Inlining done: Id{v r1sh} [gid[DataConWrapper]]
Inlining done: tail{v r8P} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rQL} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rQL} [gid]
Inlining done: $fVectorVectorWord32_$cbasicUnsafeSlice{v rQK} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: head{v r9M} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rQL} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeIndexM{v rQJ} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord32_$cindexByteArray#{v rQE} [gid]
Inlining done: Id{v r1sh} [gid[DataConWrapper]]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: new{v ran} [gid]
Inlining done: unstream{v ram} [gid]
Inlining done: empty{v ral} [gid]
Inlining done: empty{v rm5} [gid]
Inlining done: Id{v r1sh} [gid[DataConWrapper]]
Inlining done: $fMVectorMVectorWord_$cbasicUnsafeNew{v rVJ} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fNumInt_$c*{v rtc} [gid]
Inlining done: sizeOf{v rYF} [gid]
Inlining done: $fPrimWord_$csizeOf#{v r4bf} [gid]
Inlining done: unI#{v r4cC} [gid]
Inlining done: sIZEOF_WORD{v r4at} [gid]
Inlining done: $fPrimMonadST_$cprimitive{v r1Xc} [gid]
Inlining done: $WMVector{v rYB} [gid[DataConWrapper]]
Inlining done: $fMonadST_$creturn{v r4ff} [gid]
Inlining done: $fMonadST_$c>>={v r4fh} [gid]
Inlining done: $fMonadST_$creturn{v r4ff} [gid]
Inlining done: $fMonadST_$c>>={v r4fh} [gid]
Inlining done: $fMVectorMVectorWord_$cbasicUnsafeSlice{v rVL} [gid]
Inlining done: $fMVectorMVectora_$cbasicUnsafeSlice{v rYz} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeFreeze{v rR4} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fPrimMonadST_$cprimitive{v r1Xc} [gid]
Inlining done: $WVector{v rSE} [gid[DataConWrapper]]
Inlining done: $fMonadST_$creturn{v r4ff} [gid]
Inlining done: $fMonadST_$c>>={v r4fh} [gid]
Inlining done: $fMonadST_$creturn{v r4ff} [gid]
Inlining done: $fMonadST_$c>>={v r4fh} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: take{v r8O} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rR2} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeSlice{v rR1} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: eq{v rbF} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rR2} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeIndexM{v rR0} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord_$cindexByteArray#{v rQi} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeIndexM{v rR0} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord_$cindexByteArray#{v rQi} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rR2} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeIndexM{v rR0} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord_$cindexByteArray#{v rQi} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeIndexM{v rR0} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord_$cindexByteArray#{v rQi} [gid]
Inlining done: $fEqWord_$c=={v rI8} [gid]
Inlining done: tail{v r8P} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rR2} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rR2} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeSlice{v rR1} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: head{v r9M} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rR2} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeIndexM{v rR0} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord_$cindexByteArray#{v rQi} [gid]
Inlining done: Id{v r1sh} [gid[DataConWrapper]]
Inlining done: tail{v r8P} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rR2} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rR2} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeSlice{v rR1} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: head{v r9M} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rR2} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeIndexM{v rR0} [gid]
Inlining done: $fNumInt_$c+{v ri1} [gid]
Inlining done: $!{v r1t} [gid]
Inlining done: $fPrimWord_$cindexByteArray#{v rQi} [gid]
Inlining done: Id{v r1sh} [gid[DataConWrapper]]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: take{v r8O} [gid]
Inlining done: head{v r9M} [gid]
Inlining done: eq{v rbF} [gid]
Inlining done: stream{v rbE} [gid]
Inlining done: empty{v ral} [gid]
Inlining done: empty{v rm5} [gid]
Inlining done: Id{v r1sh} [gid[DataConWrapper]]
Inlining done: tail{v r8P} [gid]
Inlining done: tail{v r8P} [gid]
Inlining done: build{v 04} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: list1{v rOt} [gid]
Inlining done: list1{v rOt} [gid]
Inlining done: showSignedInt{v rDq} [gid]
Inlining done: list1{v rOt} [gid]
Inlining done: list1{v rOt} [gid]
Inlining done: list1{v rOt} [gid]
Inlining done: list1{v rOt} [gid]
Inlining done: list1{v rOt} [gid]
Inlining done: list1{v rOt} [gid]
Inlining done: showSignedInt{v rDq} [gid]
Inlining done: $wshowSignedInt{v rie} [gid]
Inlining done: $fShowVector_$cshowsPrec{v rb8} [gid]
Inlining done: showSignedInt{v rDq} [gid]
Inlining done: $fShow(,)_$cshowsPrec{v rDi} [gid]
Inlining done: $w$cshowsPrec1{v rDe} [gid]
Inlining done: showSignedInt{v rDq} [gid]
Inlining done: $fShowWord_$cshowsPrec{v rBL} [gid]
Inlining done: showSignedInt{v rDq} [gid]
Inlining done: length_len{v r1j2} [gid]
Inlining done: foldr{v 06} [gid]
Inlining done: mapFB{v rgy} [gid]
Inlining done: $fMonadIO_$c>>{v ro7} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: showSignedInt{v rDq} [gid]
Inlining done: length_len{v r1j2} [gid]
Inlining done: foldr{v 06} [gid]
Inlining done: mapFB{v rgy} [gid]
Inlining done: showSignedInt{v rDq} [gid]
Inlining done: $fShow(,)_$cshowsPrec{v rDi} [gid]
Inlining done: $w$cshowsPrec1{v rDe} [gid]
Inlining done: showSignedInt{v rDq} [gid]
Inlining done: $fMonadIO_$c>>{v ro7} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v ro0} [gid]
Inlining done: $fIntegralInt_$cquot{v rxK} [gid]
Inlining done: delay_inline{v r1r7} [gid]
Inlining done: $fOrdInt_$cmin{v rgp} [gid]
Inlining done: compareBytes{v r13o} [gid]
Inlining done: compareBytes{v r13o} [gid]
Inlining done: $fIntegralInt_$cquot{v rxK} [gid]
Inlining done: delay_inline{v r1r7} [gid]
Inlining done: $fOrdInt_$cmin{v rgp} [gid]
Inlining done: compareBytes{v r13o} [gid]
Inlining done: compareBytes{v r13o} [gid]
Inlining done: $fIntegralInt_$cquot{v rxK} [gid]
Inlining done: delay_inline{v r1r7} [gid]
Inlining done: $fOrdInt_$cmin{v rgp} [gid]
Inlining done: compareBytes{v r13o} [gid]
Inlining done: compareBytes{v r13o} [gid]
Inlining done: $fIntegralInt_$cquot{v rxK} [gid]
Inlining done: delay_inline{v r1r7} [gid]
Inlining done: $fOrdInt_$cmin{v rgp} [gid]
Inlining done: compareBytes{v r13o} [gid]
Inlining done: showSignedInt{v rDq} [gid]
Inlining done: diffUTCTime1{v r1hB} [gid]
Inlining done: posixSecondsToUTCTime{v rkN} [gid]
Inlining done: posixSecondsToUTCTime{v rkN} [gid]
Inlining done: $wa{v r1hA} [gid]
Inlining done: lex1{v rOh} [gid]
Inlining done: lex1{v rOh} [gid]
Inlining done: lex1{v rOh} [gid]
Inlining done: lex1{v rOh} [gid]
Inlining done: lex1{v rOh} [gid]
Inlining done: t4{v rzG} [lidx]
Tidy size (terms,types,coercions) Util.PBBS: 7477 7933 1054

Linking bugged.exe ...
mkdir -p ./bugged_dumps/
mv *.dump* ./bugged_dumps/
ghc                -keep-tmp-files -dsuppress-module-prefixes -ddump-to-file -ddump-core-stats -ddump-simpl-stats -dcore-lint -dcmm-lint -ddump-ds -ddump-simpl -ddump-stg -ddump-asm -ddump-bcos -ddump-cmm -ddump-opt-cmm -ddump-inlinings -rtsopts -fforce-recomp -O2 -threaded PBBS.hs -main-is Util.PBBS.t4 -o unbugged.exe
[1 of 1] Compiling Util.PBBS        ( PBBS.hs, PBBS.o )
Inlining done: D:NFData{v r7E} [gid[DataConWrapper]]
Inlining done: D:NFData{v r7E} [gid[DataConWrapper]]
Inlining done: D:NFData{v r7E} [gid[DataConWrapper]]
Inlining done: D:NFData{v r7E} [gid[DataConWrapper]]
Inlining done: D:NFData{v r7E} [gid[DataConWrapper]]
Inlining done: D:NFData{v r7E} [gid[DataConWrapper]]
Inlining done: D:NFData{v r7E} [gid[DataConWrapper]]
Inlining done: D:NFData{v r7E} [gid[DataConWrapper]]
Inlining done: $dmreadsPrec{v rRk} [gid]
Inlining done: $dmmin{v rLD} [gid]
Inlining done: $dmmax{v rLC} [gid]
Inlining done: $dmshow{v rGb} [gid]
Inlining done: $dmreadsPrec{v rRk} [gid]
Inlining done: $dmmin{v rLD} [gid]
Inlining done: $dmmax{v rLC} [gid]
Inlining done: $dmshow{v rGb} [gid]
Inlining done: $dmreadsPrec{v rRk} [gid]
Inlining done: $dmreadsPrec{v rRk} [gid]
Inlining done: $dmmin{v rLD} [gid]
Inlining done: $dmmax{v rLC} [gid]
Inlining done: $dmmin{v rLD} [gid]
Inlining done: $dmmax{v rLC} [gid]
Inlining done: $dmshow{v rGb} [gid]
Inlining done: $dmshow{v rGb} [gid]
Inlining done: rnf{v r7y} [gid[ClassOp]]
Inlining done: $fNFDataMiddleFrag{v ri} [lidx[DFunId(nt)]]
Inlining done: $fMonadReadPrec_$cfail{v r1Ry} [gid]
Inlining done: $fMonadReadPrec1{v r1Rw} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1Ry} [gid]
Inlining done: $fMonadReadPrec1{v r1Rw} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1Ry} [gid]
Inlining done: $fMonadReadPrec1{v r1Rw} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1Ry} [gid]
Inlining done: $fMonadReadPrec1{v r1Rw} [gid]
Inlining done: reset{v r1Q2} [gid]
Inlining done: reset1{v r1Rh} [gid]
Inlining done: $fReadInt_$creadPrec{v rO1} [gid]
Inlining done: $fReadInt2{v rNZ} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1Ry} [gid]
Inlining done: $fMonadReadPrec1{v r1Rw} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1Ry} [gid]
Inlining done: $fMonadReadPrec1{v r1Rw} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1Ry} [gid]
Inlining done: $fMonadReadPrec1{v r1Rw} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1Ry} [gid]
Inlining done: $fMonadReadPrec1{v r1Rw} [gid]
Inlining done: reset{v r1Q2} [gid]
Inlining done: reset1{v r1Rh} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: $fMonadReadPrec_$creturn{v r1Rz} [gid]
Inlining done: $fMonadReadPrec2{v r1Rv} [gid]
Inlining done: $WRightFrag{v r1iP} [gid[DataConWrapper]]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: lexP{v rRd} [gid]
Inlining done: $fReadLexeme2{v rNF} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: lexP{v rRd} [gid]
Inlining done: $fReadLexeme2{v rNF} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: lexP{v rRd} [gid]
Inlining done: $fReadLexeme2{v rNF} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: lexP{v rRd} [gid]
Inlining done: $fReadLexeme2{v rNF} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: lexP{v rRd} [gid]
Inlining done: $fReadLexeme2{v rNF} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: lexP{v rRd} [gid]
Inlining done: $fReadLexeme2{v rNF} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: lexP{v rRd} [gid]
Inlining done: $fReadLexeme2{v rNF} [gid]
Inlining done: parens{v rRa} [gid]
Inlining done: prec{v r1OH} [gid]
Inlining done: prec1{v r1Rl} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: lexP{v rRd} [gid]
Inlining done: $fReadLexeme2{v rNF} [gid]
Inlining done: readPrec_to_S{v rR4} [gid]
Inlining done: readListPrecDefault{v rR8} [gid]
Inlining done: readListPrecDefault2{v rMv} [gid]
Inlining done: readListDefault{v rR9} [gid]
Inlining done: compareInt{v rrs} [gid]
Inlining done: compareInt#{v rrr} [gid]
Inlining done: compareInt{v rrs} [gid]
Inlining done: compareInt#{v rrr} [gid]
Inlining done: compareInt{v rrs} [gid]
Inlining done: compareInt#{v rrr} [gid]
Inlining done: compareInt{v rrs} [gid]
Inlining done: compareInt#{v rrr} [gid]
Inlining done: compareInt{v rrs} [gid]
Inlining done: compareInt#{v rrr} [gid]
Inlining done: &&{v r4G} [gid]
Inlining done: eqInt{v rrp} [gid]
Inlining done: not{v r4F} [gid]
Inlining done: showString{v r4X} [gid]
Inlining done: showString{v r4X} [gid]
Inlining done: showString{v r4X} [gid]
Inlining done: showString{v r4X} [gid]
Inlining done: showString{v r4X} [gid]
Inlining done: showParen{v r4Y} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: geInt{v rro} [gid]
Inlining done: shows{v r4W} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1Ry} [gid]
Inlining done: $fMonadReadPrec1{v r1Rw} [gid]
Inlining done: step{v r1OI} [gid]
Inlining done: step1{v r1Rg} [gid]
Inlining done: $fReadInt_$creadPrec{v rO1} [gid]
Inlining done: $fReadInt2{v rNZ} [gid]
Inlining done: step{v r1OI} [gid]
Inlining done: step1{v r1Rg} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: $fMonadReadPrec_$creturn{v r1Rz} [gid]
Inlining done: $fMonadReadPrec2{v r1Rv} [gid]
Inlining done: $WMiddleFrag{v r1iM} [gid[DataConWrapper]]
Inlining done: parens{v rRa} [gid]
Inlining done: prec{v r1OH} [gid]
Inlining done: prec1{v r1Rl} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: lexP{v rRd} [gid]
Inlining done: $fReadLexeme2{v rNF} [gid]
Inlining done: readPrec_to_S{v rR4} [gid]
Inlining done: readListPrecDefault{v rR8} [gid]
Inlining done: readListPrecDefault2{v rMv} [gid]
Inlining done: readListDefault{v rR9} [gid]
Inlining done: compareInt{v rrs} [gid]
Inlining done: compareInt#{v rrr} [gid]
Inlining done: compareInt{v rrs} [gid]
Inlining done: compareInt#{v rrr} [gid]
Inlining done: compareInt{v rrs} [gid]
Inlining done: compareInt#{v rrr} [gid]
Inlining done: compareInt{v rrs} [gid]
Inlining done: compareInt#{v rrr} [gid]
Inlining done: compareInt{v rrs} [gid]
Inlining done: compareInt#{v rrr} [gid]
Inlining done: &&{v r4G} [gid]
Inlining done: eqInt{v rrp} [gid]
Inlining done: not{v r4F} [gid]
Inlining done: showString{v r4X} [gid]
Inlining done: showParen{v r4Y} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: showSpace{v rG1} [gid]
Inlining done: geInt{v rro} [gid]
Inlining done: shows{v r4W} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1Ry} [gid]
Inlining done: $fMonadReadPrec1{v r1Rw} [gid]
Inlining done: $fMonadReadPrec_$creturn{v r1Rz} [gid]
Inlining done: $fMonadReadPrec2{v r1Rv} [gid]
Inlining done: $WLeftFrag{v r1iK} [gid[DataConWrapper]]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: step{v r1OI} [gid]
Inlining done: step1{v r1Rg} [gid]
Inlining done: parens{v rRa} [gid]
Inlining done: prec{v r1OH} [gid]
Inlining done: prec1{v r1Rl} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: lexP{v rRd} [gid]
Inlining done: $fReadLexeme2{v rNF} [gid]
Inlining done: readPrec_to_S{v rR4} [gid]
Inlining done: readListPrecDefault{v rR8} [gid]
Inlining done: readListPrecDefault2{v rMv} [gid]
Inlining done: readListDefault{v rR9} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1Ry} [gid]
Inlining done: $fMonadReadPrec1{v r1Rw} [gid]
Inlining done: $fMonadReadPrec_$cfail{v r1Ry} [gid]
Inlining done: $fMonadReadPrec1{v r1Rw} [gid]
Inlining done: $fMonadReadPrec_$creturn{v r1Rz} [gid]
Inlining done: $fMonadReadPrec2{v r1Rv} [gid]
Inlining done: $WSingle{v r1j4} [gid[DataConWrapper]]
Inlining done: step{v r1OI} [gid]
Inlining done: step1{v r1Rg} [gid]
Inlining done: $fReadMaybe_$creadPrec{v rNA} [gid]
Inlining done: step{v r1OI} [gid]
Inlining done: step1{v r1Rg} [gid]
Inlining done: $fReadVector_$creadPrec{v ret} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: step{v r1OI} [gid]
Inlining done: step1{v r1Rg} [gid]
Inlining done: $fReadMaybe_$creadPrec{v rNA} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: $fMonadReadPrec_$creturn{v r1Rz} [gid]
Inlining done: $fMonadReadPrec2{v r1Rv} [gid]
Inlining done: $WCompound{v r1j2} [gid[DataConWrapper]]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: step{v r1OI} [gid]
Inlining done: step1{v r1Rg} [gid]
Inlining done: parens{v rRa} [gid]
Inlining done: +++{v r1Rd} [gid]
Inlining done: +++1{v r1Ru} [gid]
Inlining done: prec{v r1OH} [gid]
Inlining done: prec1{v r1Rl} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: lexP{v rRd} [gid]
Inlining done: $fReadLexeme2{v rNF} [gid]
Inlining done: prec{v r1OH} [gid]
Inlining done: prec1{v r1Rl} [gid]
Inlining done: $fMonadReadPrec_$c>>={v r1RB} [gid]
Inlining done: $fMonadReadPrec3{v r1Rx} [gid]
Inlining done: lexP{v rRd} [gid]
Inlining done: $fReadLexeme2{v rNF} [gid]
Inlining done: pfail1{v r26} [gid]
Inlining done: pfail1{v r26} [gid]
Inlining done: readPrec_to_S{v rR4} [gid]
Inlining done: readListPrecDefault{v rR8} [gid]
Inlining done: readListPrecDefault2{v rMv} [gid]
Inlining done: readListDefault{v rR9} [gid]
Inlining done: not{v r4F} [gid]
Inlining done: &&{v r4G} [gid]
Inlining done: &&{v r4G} [gid]
Inlining done: $fEqMaybe_$c=={v raY} [gid]
Inlining done: $fEqMaybe_$c=={v raY} [gid]
Inlining done: $fEqVector_$c=={v reQ} [gid]
Inlining done: not{v r4F} [gid]
Inlining done: $fOrdMaybe_$ccompare{v raP} [gid]
Inlining done: $fOrdVector_$ccompare{v reH} [gid]
Inlining done: $fOrdMaybe_$ccompare{v raP} [gid]
Inlining done: $fOrdMaybe_$ccompare{v raP} [gid]
Inlining done: $fOrdVector_$ccompare{v reH} [gid]
Inlining done: $fOrdMaybe_$c<{v raO} [gid]
Inlining done: $fOrdMaybe_$ccompare{v raP} [gid]
Inlining done: $fOrdVector_$ccompare{v reH} [gid]
Inlining done: $fOrdMaybe_$c>={v raN} [gid]
Inlining done: $fOrdMaybe_$ccompare{v raP} [gid]
Inlining done: $fOrdVector_$ccompare{v reH} [gid]
Inlining done: $fOrdMaybe_$c>{v raM} [gid]
Inlining done: $fOrdMaybe_$ccompare{v raP} [gid]
Inlining done: $fOrdVector_$ccompare{v reH} [gid]
Inlining done: $fOrdMaybe_$c<={v raL} [gid]
Inlining done: showString{v r4X} [gid]
Inlining done: showParen{v r4Y} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: geInt{v rro} [gid]
Inlining done: shows{v r4W} [gid]
Inlining done: showString{v r4X} [gid]
Inlining done: showString{v r4X} [gid]
Inlining done: showParen{v r4Y} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: $fShowMaybe_$cshowsPrec{v rEC} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: $fShowMaybe_$cshowsPrec{v rEC} [gid]
Inlining done: showSpace{v rG1} [gid]
Inlining done: showSpace{v rG1} [gid]
Inlining done: geInt{v rro} [gid]
Inlining done: showParen{v r4Y} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: geInt{v rro} [gid]
Inlining done: shows{v r4W} [gid]
Inlining done: $fNFData[]{v r6c} [gid[DFunId(nt)]]
Inlining done: $fNFDataPartialNums{v rh} [lidx[DFunId(nt)]]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r4N} [gid]
Inlining done: putStrLn1{v r1dA} [gid]
Inlining done: hPutStrLn1{v r1dz} [gid]
Inlining done: $fShowInt_$cshow{v rk8} [gid]
Inlining done: length{v rgI} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r4N} [gid]
Inlining done: putStrLn1{v r1dA} [gid]
Inlining done: hPutStrLn1{v r1dz} [gid]
Inlining done: $fShow(,)_$cshow{v rFT} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: mapM_{v r69} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r4N} [gid]
Inlining done: putStrLn1{v r1dA} [gid]
Inlining done: hPutStrLn1{v r1dz} [gid]
Inlining done: $fShowInt_$cshow{v rk8} [gid]
Inlining done: length{v r5u} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: evaluate{v r8J} [gid]
Inlining done: evaluate1{v r1gL} [gid]
Inlining done: rnf{v r7y} [gid[ClassOp]]
Inlining done: $fNFData[]{v r6c} [gid[DFunId(nt)]]
Inlining done: $fNFDataPartialNums{v rh} [lidx[DFunId(nt)]]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r4N} [gid]
Inlining done: putStrLn1{v r1dA} [gid]
Inlining done: hPutStrLn1{v r1dz} [gid]
Inlining done: $fShowInt_$cshow{v rk8} [gid]
Inlining done: length{v rgI} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r4N} [gid]
Inlining done: putStrLn1{v r1dA} [gid]
Inlining done: hPutStrLn1{v r1dz} [gid]
Inlining done: $fShow(,)_$cshow{v rFT} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: mapM_{v r69} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r4N} [gid]
Inlining done: putStrLn1{v r1dA} [gid]
Inlining done: hPutStrLn1{v r1dz} [gid]
Inlining done: $fShowInt_$cshow{v rk8} [gid]
Inlining done: length{v r5u} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: evaluate{v r8J} [gid]
Inlining done: evaluate1{v r1gL} [gid]
Inlining done: rnf{v r7y} [gid[ClassOp]]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: &&{v r4G} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: &&{v r4G} [gid]
Inlining done: $fNumWord64_$cfromInteger{v r1az} [gid]
Inlining done: $fNumWord64_$cfromInteger{v r1az} [gid]
Inlining done: $fNumWord64_$cfromInteger{v r1az} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: eqInt{v rrp} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: unsafeHead{v rnK} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rnC} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: write{v riP} [gid]
Inlining done: write{v ri5} [gid]
Inlining done: $fMVectorMVectorWord64_$cbasicLength{v rXr} [gid]
Inlining done: $fMVectorMVectora_$cbasicLength{v r11h} [gid]
Inlining done: $fMVectorMVectorWord64_$cbasicLength{v rXr} [gid]
Inlining done: $fMVectorMVectora_$cbasicLength{v r11h} [gid]
Inlining done:
    $fMVectorMVectorWord64_$cbasicUnsafeWrite{v rXl} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fPrimWord64_$cwriteByteArray#{v rX9} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1UN} [gid]
Inlining done: $fNumWord64_$c+{v r18U} [gid]
Inlining done: $fNumWord64_$c*{v r18T} [gid]
Inlining done: $fNumWord64_$c-{v r18S} [gid]
Inlining done: id{v r5P} [gid]
Inlining done: eqInt{v rrp} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: unsafeHead{v rnK} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rnC} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WLeftFrag{v r1iK} [gid[DataConWrapper]]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: eqInt{v rrp} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: unsafeHead{v rnK} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rnC} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: not{v r4F} [gid]
Inlining done: empty{v rhz} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WSingle{v r1j4} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1iM} [gid[DataConWrapper]]
Inlining done: $fNumWord64_$cfromInteger{v r1az} [gid]
Inlining done: eq{v r161} [gid]
Inlining done: length{v rmi} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: head{v rmt} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: fromJust{v rb5} [gid]
Inlining done: findIndex{v rmS} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fStorableWord8_$cpeek{v rl9} [gid]
Inlining done: $fStorableWord27{v r2Ov} [gid]
Inlining done: plusPtr{v rl8} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: plusPtr{v rl8} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: unsafeFreeze{v rfO} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeFreeze{v rT6} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1UN} [gid]
Inlining done: $WVector{v rV7} [gid[DataConWrapper]]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: take{v rg0} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WCompound{v r1j2} [gid[DataConWrapper]]
Inlining done: $WRightFrag{v r1iP} [gid[DataConWrapper]]
Inlining done: head{v rh1} [gid]
Inlining done: $fEqVector_$c=={v reQ} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WCompound{v r1j2} [gid[DataConWrapper]]
Inlining done: tail{v rg1} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WCompound{v r1j2} [gid[DataConWrapper]]
Inlining done: tail{v rg1} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $WSingle{v r1j4} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1iM} [gid[DataConWrapper]]
Inlining done: tail{v rlP} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: new{v rji} [gid]
Inlining done: new{v riy} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fMVectorMVectorWord64_$cbasicUnsafeNew{v rXo} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fNumInt_$c*{v rw9} [gid]
Inlining done: sizeOf{v r118} [gid]
Inlining done: $fPrimWord64_$csizeOf#{v r48N} [gid]
Inlining done: unI#{v r4aA} [gid]
Inlining done: sIZEOF_WORD64{v r48E} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1UN} [gid]
Inlining done: $WMVector{v r114} [gid[DataConWrapper]]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: &&{v r4G} [gid]
Inlining done: $fEqForeignPtr_$c=={v r15f} [gid]
Inlining done: $fEqOrdering_$c=={v reA} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: &&{v r4G} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: &&{v r4G} [gid]
Inlining done: $fNumWord32_$cfromInteger{v r18X} [gid]
Inlining done: $fNumWord32_$cfromInteger{v r18X} [gid]
Inlining done: $fNumWord32_$cfromInteger{v r18X} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: eqInt{v rrp} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: unsafeHead{v rnK} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rnC} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: write{v riP} [gid]
Inlining done: write{v ri5} [gid]
Inlining done: $fMVectorMVectorWord32_$cbasicLength{v rXK} [gid]
Inlining done: $fMVectorMVectora_$cbasicLength{v r11h} [gid]
Inlining done: $fMVectorMVectorWord32_$cbasicLength{v rXK} [gid]
Inlining done: $fMVectorMVectora_$cbasicLength{v r11h} [gid]
Inlining done:
    $fMVectorMVectorWord32_$cbasicUnsafeWrite{v rXE} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fPrimWord32_$cwriteByteArray#{v rXs} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1UN} [gid]
Inlining done: $fNumWord32_$c+{v r193} [gid]
Inlining done: $fNumWord32_$c*{v r192} [gid]
Inlining done: $fNumWord32_$c-{v r191} [gid]
Inlining done: eqInt{v rrp} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: unsafeHead{v rnK} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rnC} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WLeftFrag{v r1iK} [gid[DataConWrapper]]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: eqInt{v rrp} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: unsafeHead{v rnK} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rnC} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: not{v r4F} [gid]
Inlining done: empty{v rhz} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WSingle{v r1j4} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1iM} [gid[DataConWrapper]]
Inlining done: $fNumWord32_$cfromInteger{v r18X} [gid]
Inlining done: eq{v r161} [gid]
Inlining done: length{v rmi} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: head{v rmt} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: fromJust{v rb5} [gid]
Inlining done: findIndex{v rmS} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fStorableWord8_$cpeek{v rl9} [gid]
Inlining done: $fStorableWord27{v r2Ov} [gid]
Inlining done: plusPtr{v rl8} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: plusPtr{v rl8} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: unsafeFreeze{v rfO} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeFreeze{v rTg} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1UN} [gid]
Inlining done: $WVector{v rV7} [gid[DataConWrapper]]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: take{v rg0} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WCompound{v r1j2} [gid[DataConWrapper]]
Inlining done: $WRightFrag{v r1iP} [gid[DataConWrapper]]
Inlining done: head{v rh1} [gid]
Inlining done: $fEqVector_$c=={v reQ} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WCompound{v r1j2} [gid[DataConWrapper]]
Inlining done: tail{v rg1} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WCompound{v r1j2} [gid[DataConWrapper]]
Inlining done: tail{v rg1} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $WSingle{v r1j4} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1iM} [gid[DataConWrapper]]
Inlining done: tail{v rlP} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: new{v rji} [gid]
Inlining done: new{v riy} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fMVectorMVectorWord32_$cbasicUnsafeNew{v rXH} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fNumInt_$c*{v rw9} [gid]
Inlining done: sizeOf{v r118} [gid]
Inlining done: $fPrimWord32_$csizeOf#{v r48X} [gid]
Inlining done: unI#{v r4aA} [gid]
Inlining done: sIZEOF_WORD32{v r48O} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1UN} [gid]
Inlining done: $WMVector{v r114} [gid[DataConWrapper]]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: &&{v r4G} [gid]
Inlining done: $fEqForeignPtr_$c=={v r15f} [gid]
Inlining done: $fEqOrdering_$c=={v reA} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: &&{v r4G} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: &&{v r4G} [gid]
Inlining done: $fNumWord_$cfromInteger{v rBb} [gid]
Inlining done: $fNumWord_$cfromInteger{v rBb} [gid]
Inlining done: $fNumWord_$cfromInteger{v rBb} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: eqInt{v rrp} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: unsafeHead{v rnK} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rnC} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: write{v riP} [gid]
Inlining done: write{v ri5} [gid]
Inlining done: $fMVectorMVectorWord_$cbasicLength{v rYf} [gid]
Inlining done: $fMVectorMVectora_$cbasicLength{v r11h} [gid]
Inlining done: $fMVectorMVectorWord_$cbasicLength{v rYf} [gid]
Inlining done: $fMVectorMVectora_$cbasicLength{v r11h} [gid]
Inlining done: $fMVectorMVectorWord_$cbasicUnsafeWrite{v rY9} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fPrimWord_$cwriteByteArray#{v rWM} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1UN} [gid]
Inlining done: $fNumWord_$c+{v r14L} [gid]
Inlining done: $fNumWord_$c*{v r14K} [gid]
Inlining done: $fNumWord_$c-{v r14J} [gid]
Inlining done: id{v r5P} [gid]
Inlining done: eqInt{v rrp} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: unsafeHead{v rnK} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rnC} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WLeftFrag{v r1iK} [gid[DataConWrapper]]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: eqInt{v rrp} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: unsafeHead{v rnK} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rnC} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: not{v r4F} [gid]
Inlining done: empty{v rhz} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WSingle{v r1j4} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1iM} [gid[DataConWrapper]]
Inlining done: $fNumWord_$cfromInteger{v rBb} [gid]
Inlining done: eq{v r161} [gid]
Inlining done: length{v rmi} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: head{v rmt} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: fromJust{v rb5} [gid]
Inlining done: findIndex{v rmS} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fStorableWord8_$cpeek{v rl9} [gid]
Inlining done: $fStorableWord27{v r2Ov} [gid]
Inlining done: plusPtr{v rl8} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: plusPtr{v rl8} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: unsafeFreeze{v rfO} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeFreeze{v rTx} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1UN} [gid]
Inlining done: $WVector{v rV7} [gid[DataConWrapper]]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: take{v rg0} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WCompound{v r1j2} [gid[DataConWrapper]]
Inlining done: $WRightFrag{v r1iP} [gid[DataConWrapper]]
Inlining done: head{v rh1} [gid]
Inlining done: $fEqVector_$c=={v reQ} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WCompound{v r1j2} [gid[DataConWrapper]]
Inlining done: tail{v rg1} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WCompound{v r1j2} [gid[DataConWrapper]]
Inlining done: tail{v rg1} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $WSingle{v r1j4} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1iM} [gid[DataConWrapper]]
Inlining done: tail{v rlP} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: new{v rji} [gid]
Inlining done: new{v riy} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fMVectorMVectorWord_$cbasicUnsafeNew{v rYc} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fNumInt_$c*{v rw9} [gid]
Inlining done: sizeOf{v r118} [gid]
Inlining done: $fPrimWord_$csizeOf#{v r49d} [gid]
Inlining done: unI#{v r4aA} [gid]
Inlining done: sIZEOF_WORD{v r48r} [gid]
Inlining done: $fPrimMonadIO_$cprimitive{v r1UN} [gid]
Inlining done: $WMVector{v r114} [gid[DataConWrapper]]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: &&{v r4G} [gid]
Inlining done: $fEqForeignPtr_$c=={v r15f} [gid]
Inlining done: $fEqOrdering_$c=={v reA} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: &&{v r4G} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: &&{v r4G} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: .{v r5T} [gid]
Inlining done: not{v r4F} [gid]
Inlining done: eq{v r161} [gid]
Inlining done: length{v rmi} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: head{v rmt} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: empty{v rhz} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: fromJust{v rb5} [gid]
Inlining done: findIndex{v rmS} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fStorableWord8_$cpeek{v rl9} [gid]
Inlining done: $fStorableWord27{v r2Ov} [gid]
Inlining done: plusPtr{v rl8} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: plusPtr{v rl8} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: unsafeFreeze{v rfO} [gid]
Inlining done: take{v rg0} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WCompound{v r1j2} [gid[DataConWrapper]]
Inlining done: $WRightFrag{v r1iP} [gid[DataConWrapper]]
Inlining done: head{v rh1} [gid]
Inlining done: $fEqVector_$c=={v reQ} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WCompound{v r1j2} [gid[DataConWrapper]]
Inlining done: tail{v rg1} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WCompound{v r1j2} [gid[DataConWrapper]]
Inlining done: tail{v rg1} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $WSingle{v r1j4} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1iM} [gid[DataConWrapper]]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: eqInt{v rrp} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: unsafeHead{v rnK} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rnC} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: write{v riP} [gid]
Inlining done: write{v ri5} [gid]
Inlining done: fromIntegral{v 034} [gid]
Inlining done: $fIntegralWord_$ctoInteger{v rAd} [gid]
Inlining done: eqInt{v rrp} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: unsafeHead{v rnK} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rnC} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c>={v r18h} [gid]
Inlining done: eqInt{v rrp} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: unsafeHead{v rnK} [gid]
Inlining done: withForeignPtr{v rl7} [gid]
Inlining done: withForeignPtr1{v r2N5} [gid]
Inlining done: $fStorableWord8_$cpeekByteOff{v rkD} [gid]
Inlining done: $fStorableWord29{v r2Ou} [gid]
Inlining done: unsafeForeignPtrToPtr{v r2Me} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: unsafeTail{v rnC} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: assert{v 0I} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fNumWord8_$cfromInteger{v r119} [gid]
Inlining done: $fOrdWord8_$c<={v r18f} [gid]
Inlining done: tail{v rlP} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fNumInt_$c-{v rkQ} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: new{v rji} [gid]
Inlining done: new{v riy} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $WSingle{v r1j4} [gid[DataConWrapper]]
Inlining done: $WMiddleFrag{v r1iM} [gid[DataConWrapper]]
Inlining done: &&{v r4G} [gid]
Inlining done: $fEqForeignPtr_$c=={v r15f} [gid]
Inlining done: $fEqOrdering_$c=={v reA} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r4N} [gid]
Inlining done: putStrLn1{v r1dA} [gid]
Inlining done: hPutStrLn1{v r1dz} [gid]
Inlining done: putStrLn{v r4N} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: putStrLn1{v r1dA} [gid]
Inlining done: hPutStrLn1{v r1dz} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r4N} [gid]
Inlining done: putStrLn1{v r1dA} [gid]
Inlining done: hPutStrLn1{v r1dz} [gid]
Inlining done: putStrLn{v r4N} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: putStrLn1{v r1dA} [gid]
Inlining done: hPutStrLn1{v r1dz} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: readFile{v rm4} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: $fMonadIO_$creturn{v rr4} [gid]
Inlining done: returnIO{v 0z} [gid]
Inlining done: returnIO1{v rqX} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: getCurrentTime{v ro1} [gid]
Inlining done: getCurrentTime1{v rnN} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fMonadIO_$c>>={v rr6} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: getCurrentTime{v ro1} [gid]
Inlining done: getCurrentTime1{v rnN} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r4N} [gid]
Inlining done: putStrLn1{v r1dA} [gid]
Inlining done: hPutStrLn1{v r1dz} [gid]
Inlining done: $fShowNominalDiffTime_$cshow{v r1Yl} [gid]
Inlining done: diffUTCTime{v rnX} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: ${v 01Z} [gid]
Inlining done: putStrLn{v r4N} [gid]
Inlining done: putStrLn1{v r1dA} [gid]
Inlining done: hPutStrLn1{v r1dz} [gid]
Inlining done: t4{v r3x} [lidx]
Inlining done: runMainIO{v 01D} [gid]
Inlining done: t4{v r3x} [lidx]
Inlining done: lex1{v r2c} [gid]
Inlining done: lex1{v r2c} [gid]
Inlining done: readNatsPartial{v r3y} [lidx]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: eq{v reN} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: cmp{v rez} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: cmp{v rez} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: cmp{v rez} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: cmp{v rez} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: cmp{v rez} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: build{v 04} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: length{v rcO} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rTv} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: length{v rcO} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: new{v rdI} [gid]
Inlining done: unstream{v rdH} [gid]
Inlining done: empty{v rdG} [gid]
Inlining done: empty{v rp3} [gid]
Inlining done: Id{v r1pP} [gid[DataConWrapper]]
Inlining done: $fMVectorMVectorWord64_$cbasicUnsafeNew{v rXo} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fNumInt_$c*{v rw9} [gid]
Inlining done: sizeOf{v r118} [gid]
Inlining done: $fPrimWord64_$csizeOf#{v r48N} [gid]
Inlining done: unI#{v r4aA} [gid]
Inlining done: sIZEOF_WORD64{v r48E} [gid]
Inlining done: $fPrimMonadST_$cprimitive{v r1UL} [gid]
Inlining done: $WMVector{v r114} [gid[DataConWrapper]]
Inlining done: $fMonadST_$creturn{v r4dd} [gid]
Inlining done: $fMonadST_$c>>={v r4df} [gid]
Inlining done: $fMonadST_$creturn{v r4dd} [gid]
Inlining done: $fMonadST_$c>>={v r4df} [gid]
Inlining done:
    $fMVectorMVectorWord64_$cbasicUnsafeSlice{v rXq} [gid]
Inlining done: $fMVectorMVectora_$cbasicUnsafeSlice{v r112} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeFreeze{v rT6} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fPrimMonadST_$cprimitive{v r1UL} [gid]
Inlining done: $WVector{v rV7} [gid[DataConWrapper]]
Inlining done: $fMonadST_$creturn{v r4dd} [gid]
Inlining done: $fMonadST_$c>>={v r4df} [gid]
Inlining done: $fMonadST_$creturn{v r4dd} [gid]
Inlining done: $fMonadST_$c>>={v r4df} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: take{v rc9} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rT4} [gid]
Inlining done: $fVectorVectorWord64_$cbasicUnsafeSlice{v rT3} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: eq{v reN} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rT4} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeIndexM{v rT2} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord64_$cindexByteArray#{v rSX} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeIndexM{v rT2} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord64_$cindexByteArray#{v rSX} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rT4} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeIndexM{v rT2} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord64_$cindexByteArray#{v rSX} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeIndexM{v rT2} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord64_$cindexByteArray#{v rSX} [gid]
Inlining done: $fEqWord64_$c=={v r1af} [gid]
Inlining done: tail{v rca} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rT4} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rT4} [gid]
Inlining done: $fVectorVectorWord64_$cbasicUnsafeSlice{v rT3} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: head{v rd7} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rT4} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeIndexM{v rT2} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord64_$cindexByteArray#{v rSX} [gid]
Inlining done: Id{v r1pP} [gid[DataConWrapper]]
Inlining done: tail{v rca} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rT4} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rT4} [gid]
Inlining done: $fVectorVectorWord64_$cbasicUnsafeSlice{v rT3} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: head{v rd7} [gid]
Inlining done: $fVectorVectorWord64_$cbasicLength{v rT4} [gid]
Inlining done:
    $fVectorVectorWord64_$cbasicUnsafeIndexM{v rT2} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord64_$cindexByteArray#{v rSX} [gid]
Inlining done: Id{v r1pP} [gid[DataConWrapper]]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: new{v rdI} [gid]
Inlining done: unstream{v rdH} [gid]
Inlining done: empty{v rdG} [gid]
Inlining done: empty{v rp3} [gid]
Inlining done: Id{v r1pP} [gid[DataConWrapper]]
Inlining done: $fMVectorMVectorWord32_$cbasicUnsafeNew{v rXH} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fNumInt_$c*{v rw9} [gid]
Inlining done: sizeOf{v r118} [gid]
Inlining done: $fPrimWord32_$csizeOf#{v r48X} [gid]
Inlining done: unI#{v r4aA} [gid]
Inlining done: sIZEOF_WORD32{v r48O} [gid]
Inlining done: $fPrimMonadST_$cprimitive{v r1UL} [gid]
Inlining done: $WMVector{v r114} [gid[DataConWrapper]]
Inlining done: $fMonadST_$creturn{v r4dd} [gid]
Inlining done: $fMonadST_$c>>={v r4df} [gid]
Inlining done: $fMonadST_$creturn{v r4dd} [gid]
Inlining done: $fMonadST_$c>>={v r4df} [gid]
Inlining done:
    $fMVectorMVectorWord32_$cbasicUnsafeSlice{v rXJ} [gid]
Inlining done: $fMVectorMVectora_$cbasicUnsafeSlice{v r112} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeFreeze{v rTg} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fPrimMonadST_$cprimitive{v r1UL} [gid]
Inlining done: $WVector{v rV7} [gid[DataConWrapper]]
Inlining done: $fMonadST_$creturn{v r4dd} [gid]
Inlining done: $fMonadST_$c>>={v r4df} [gid]
Inlining done: $fMonadST_$creturn{v r4dd} [gid]
Inlining done: $fMonadST_$c>>={v r4df} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: take{v rc9} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rTe} [gid]
Inlining done: $fVectorVectorWord32_$cbasicUnsafeSlice{v rTd} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: eq{v reN} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rTe} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeIndexM{v rTc} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord32_$cindexByteArray#{v rT7} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeIndexM{v rTc} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord32_$cindexByteArray#{v rT7} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rTe} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeIndexM{v rTc} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord32_$cindexByteArray#{v rT7} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeIndexM{v rTc} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord32_$cindexByteArray#{v rT7} [gid]
Inlining done: $fEqWord32_$c=={v r1ah} [gid]
Inlining done: tail{v rca} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rTe} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rTe} [gid]
Inlining done: $fVectorVectorWord32_$cbasicUnsafeSlice{v rTd} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: head{v rd7} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rTe} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeIndexM{v rTc} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord32_$cindexByteArray#{v rT7} [gid]
Inlining done: Id{v r1pP} [gid[DataConWrapper]]
Inlining done: tail{v rca} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rTe} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rTe} [gid]
Inlining done: $fVectorVectorWord32_$cbasicUnsafeSlice{v rTd} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: head{v rd7} [gid]
Inlining done: $fVectorVectorWord32_$cbasicLength{v rTe} [gid]
Inlining done:
    $fVectorVectorWord32_$cbasicUnsafeIndexM{v rTc} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord32_$cindexByteArray#{v rT7} [gid]
Inlining done: Id{v r1pP} [gid[DataConWrapper]]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: new{v rdI} [gid]
Inlining done: unstream{v rdH} [gid]
Inlining done: empty{v rdG} [gid]
Inlining done: empty{v rp3} [gid]
Inlining done: Id{v r1pP} [gid[DataConWrapper]]
Inlining done: $fMVectorMVectorWord_$cbasicUnsafeNew{v rYc} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fNumInt_$c*{v rw9} [gid]
Inlining done: sizeOf{v r118} [gid]
Inlining done: $fPrimWord_$csizeOf#{v r49d} [gid]
Inlining done: unI#{v r4aA} [gid]
Inlining done: sIZEOF_WORD{v r48r} [gid]
Inlining done: $fPrimMonadST_$cprimitive{v r1UL} [gid]
Inlining done: $WMVector{v r114} [gid[DataConWrapper]]
Inlining done: $fMonadST_$creturn{v r4dd} [gid]
Inlining done: $fMonadST_$c>>={v r4df} [gid]
Inlining done: $fMonadST_$creturn{v r4dd} [gid]
Inlining done: $fMonadST_$c>>={v r4df} [gid]
Inlining done: $fMVectorMVectorWord_$cbasicUnsafeSlice{v rYe} [gid]
Inlining done: $fMVectorMVectora_$cbasicUnsafeSlice{v r112} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeFreeze{v rTx} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: liftM{v 039} [gid]
Inlining done: $fPrimMonadST_$cprimitive{v r1UL} [gid]
Inlining done: $WVector{v rV7} [gid[DataConWrapper]]
Inlining done: $fMonadST_$creturn{v r4dd} [gid]
Inlining done: $fMonadST_$c>>={v r4df} [gid]
Inlining done: $fMonadST_$creturn{v r4dd} [gid]
Inlining done: $fMonadST_$c>>={v r4df} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: take{v rc9} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rTv} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeSlice{v rTu} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: eq{v reN} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rTv} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeIndexM{v rTt} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord_$cindexByteArray#{v rSL} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeIndexM{v rTt} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord_$cindexByteArray#{v rSL} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rTv} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeIndexM{v rTt} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord_$cindexByteArray#{v rSL} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeIndexM{v rTt} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord_$cindexByteArray#{v rSL} [gid]
Inlining done: $fEqWord_$c=={v rKK} [gid]
Inlining done: tail{v rca} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rTv} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rTv} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeSlice{v rTu} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: head{v rd7} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rTv} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeIndexM{v rTt} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord_$cindexByteArray#{v rSL} [gid]
Inlining done: Id{v r1pP} [gid[DataConWrapper]]
Inlining done: tail{v rca} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rTv} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rTv} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeSlice{v rTu} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: head{v rd7} [gid]
Inlining done: $fVectorVectorWord_$cbasicLength{v rTv} [gid]
Inlining done: $fVectorVectorWord_$cbasicUnsafeIndexM{v rTt} [gid]
Inlining done: $fNumInt_$c+{v rl5} [gid]
Inlining done: $!{v r4V} [gid]
Inlining done: $fPrimWord_$cindexByteArray#{v rSL} [gid]
Inlining done: Id{v r1pP} [gid[DataConWrapper]]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: take{v rc9} [gid]
Inlining done: head{v rd7} [gid]
Inlining done: eq{v reN} [gid]
Inlining done: stream{v reM} [gid]
Inlining done: empty{v rdG} [gid]
Inlining done: empty{v rp3} [gid]
Inlining done: Id{v r1pP} [gid[DataConWrapper]]
Inlining done: tail{v rca} [gid]
Inlining done: tail{v rca} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: build{v 04} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: augment{v 02} [gid]
Inlining done: list1{v rQY} [gid]
Inlining done: list1{v rQY} [gid]
Inlining done: showSignedInt{v rG2} [gid]
Inlining done: $wshowSignedInt{v r1j} [gid]
Inlining done: list1{v rQY} [gid]
Inlining done: list1{v rQY} [gid]
Inlining done: showSignedInt{v rG2} [gid]
Inlining done: list1{v rQY} [gid]
Inlining done: list1{v rQY} [gid]
Inlining done: list1{v rQY} [gid]
Inlining done: list1{v rQY} [gid]
Inlining done: $fShowVector_$cshowsPrec{v rep} [gid]
Inlining done: showSignedInt{v rG2} [gid]
Inlining done: $fShow(,)_$cshowsPrec{v rFU} [gid]
Inlining done: $w$cshowsPrec1{v rFQ} [gid]
Inlining done: showSignedInt{v rG2} [gid]
Inlining done: $fShowWord_$cshowsPrec{v rEp} [gid]
Inlining done: showSignedInt{v rG2} [gid]
Inlining done: length_len{v r1hC} [gid]
Inlining done: foldr{v 06} [gid]
Inlining done: mapFB{v rjE} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: showSignedInt{v rG2} [gid]
Inlining done: length_len{v r1hC} [gid]
Inlining done: foldr{v 06} [gid]
Inlining done: mapFB{v rjE} [gid]
Inlining done: showSignedInt{v rG2} [gid]
Inlining done: $fShow(,)_$cshowsPrec{v rFU} [gid]
Inlining done: $w$cshowsPrec1{v rFQ} [gid]
Inlining done: showSignedInt{v rG2} [gid]
Inlining done: $fMonadIO_$c>>{v rr5} [gid]
Inlining done: bindIO{v 0y} [gid]
Inlining done: bindIO1{v rqY} [gid]
Inlining done: $fIntegralInt_$cquot{v rAG} [gid]
Inlining done: delay_inline{v r1oF} [gid]
Inlining done: $fOrdInt_$cmin{v rjv} [gid]
Inlining done: compareBytes{v r15R} [gid]
Inlining done: compareBytes{v r15R} [gid]
Inlining done: $fIntegralInt_$cquot{v rAG} [gid]
Inlining done: delay_inline{v r1oF} [gid]
Inlining done: $fOrdInt_$cmin{v rjv} [gid]
Inlining done: compareBytes{v r15R} [gid]
Inlining done: compareBytes{v r15R} [gid]
Inlining done: $fIntegralInt_$cquot{v rAG} [gid]
Inlining done: delay_inline{v r1oF} [gid]
Inlining done: $fOrdInt_$cmin{v rjv} [gid]
Inlining done: compareBytes{v r15R} [gid]
Inlining done: compareBytes{v r15R} [gid]
Inlining done: $fIntegralInt_$cquot{v rAG} [gid]
Inlining done: delay_inline{v r1oF} [gid]
Inlining done: $fOrdInt_$cmin{v rjv} [gid]
Inlining done: compareBytes{v r15R} [gid]
Inlining done: diffUTCTime1{v r1gf} [gid]
Inlining done: posixSecondsToUTCTime{v rnM} [gid]
Inlining done: posixSecondsToUTCTime{v rnM} [gid]
Inlining done: $wa{v r1ge} [gid]
Inlining done: lex1{v r2c} [gid]
Inlining done: lex1{v r2c} [gid]
Inlining done: lex1{v r2c} [gid]
Inlining done: lex1{v r2c} [gid]
Inlining done: lex1{v r2c} [gid]
Inlining done: t4{v r3x} [lidx]
Tidy size (terms,types,coercions) Util.PBBS: 7507 7979 1061

Linking unbugged.exe ...
mkdir -p ./unbugged_dumps/
mv *.dump* ./unbugged_dumps/
time ./unbugged.exe
Using parReadNats + readFile
Time to read file sequentially: 0.311108s
SKIPPING read of num capabilities...
Now this is getting ridiculous...
Result: 1 segments of output
 <segment, length 69568627>
        4.59 real         3.89 user         0.66 sys
time ./bugged.exe
Using parReadNats + readFile
Time to read file sequentially: 0.342555s
Read num capabilities as 1
Now this is getting ridiculous...
Result: 1 segments of output
 <segment, length 69568627>
       38.79 real        37.57 user         1.18 sys

PBBS_bugged.dump-simpl

Result size of Tidy Core
  = {terms: 7,530, types: 8,5, coercions: 1,54}

$WMiddleFrag [InlPrag=INLINE]
  :: forall n_aBc. Int -> n_aBc -> MiddleFrag n_aBc
[GblId[DataConWrapper],
 Arity=2,
 Caf=NoCafRefs,
 Str=DmdType SSm,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=False)
         Tmpl= \ (@ n_aBc)
                 (tpl_B1 [Occ=Once!] :: Int)
                 (tpl_B2 [Occ=Once] :: n_aBc) ->
                 case tpl_B1 of _ { I# tpl_B4 [Occ=Once] ->
                 case tpl_B2 of tpl_X8 { __DEFAULT ->
                 MiddleFrag @ n_aBc tpl_B4 tpl_X8
                 }
                 }}]
$WMiddleFrag =
  \ (@ n_aBc)
    (tpl_B1 [Occ=Once!] :: Int)
    (tpl_B2 [Occ=Once] :: n_aBc) ->
    case tpl_B1 of _ { I# tpl_B4 [Occ=Once] ->
    case tpl_B2 of tpl_X8 { __DEFAULT ->
    MiddleFrag @ n_aBc tpl_B4 tpl_X8
    }
    }

$WLeftFrag [InlPrag=INLINE]
  :: forall n_aQn. n_aQn -> LeftFrag n_aQn
[GblId[DataConWrapper],
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType Sm,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=False)
         Tmpl= \ (@ n_aQn) (tpl_B1 [Occ=Once] :: n_aQn) ->
                 case tpl_B1 of tpl_X4 { __DEFAULT -> LeftFrag @ n_aQn tpl_X4 }}]
$WLeftFrag =
  \ (@ n_aQn) (tpl_B1 [Occ=Once] :: n_aQn) ->
    case tpl_B1 of tpl_X4 { __DEFAULT -> LeftFrag @ n_aQn tpl_X4 }

$WRightFrag [InlPrag=INLINE]
  :: forall n_aQo. Int -> n_aQo -> RightFrag n_aQo
[GblId[DataConWrapper],
 Arity=2,
 Caf=NoCafRefs,
 Str=DmdType SSm,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=False)
         Tmpl= \ (@ n_aQo)
                 (tpl_B1 [Occ=Once!] :: Int)
                 (tpl_B2 [Occ=Once] :: n_aQo) ->
                 case tpl_B1 of _ { I# tpl_B4 [Occ=Once] ->
                 case tpl_B2 of tpl_X8 { __DEFAULT ->
                 RightFrag @ n_aQo tpl_B4 tpl_X8
                 }
                 }}]
$WRightFrag =
  \ (@ n_aQo)
    (tpl_B1 [Occ=Once!] :: Int)
    (tpl_B2 [Occ=Once] :: n_aQo) ->
    case tpl_B1 of _ { I# tpl_B4 [Occ=Once] ->
    case tpl_B2 of tpl_X8 { __DEFAULT ->
    RightFrag @ n_aQo tpl_B4 tpl_X8
    }
    }

$WCompound [InlPrag=INLINE]
  :: forall n_aQp.
     Maybe (RightFrag n_aQp)
     -> Vector n_aQp -> Maybe (LeftFrag n_aQp) -> PartialNums n_aQp
[GblId[DataConWrapper],
 Arity=3,
 Caf=NoCafRefs,
 Str=DmdType SSS,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=False)
         Tmpl= \ (@ n_aQp)
                 (tpl_B1 [Occ=Once] :: Maybe (RightFrag n_aQp))
                 (tpl_B2 [Occ=Once] :: Vector n_aQp)
                 (tpl_B3 [Occ=Once] :: Maybe (LeftFrag n_aQp)) ->
                 case tpl_B1 of tpl_X6 { __DEFAULT ->
                 case tpl_B2 of tpl_X8 { __DEFAULT ->
                 case tpl_B3 of tpl_Xa { __DEFAULT ->
                 Compound @ n_aQp tpl_X6 tpl_X8 tpl_Xa
                 }
                 }
                 }}]
$WCompound =
  \ (@ n_aQp)
    (tpl_B1 [Occ=Once] :: Maybe (RightFrag n_aQp))
    (tpl_B2 [Occ=Once] :: Vector n_aQp)
    (tpl_B3 [Occ=Once] :: Maybe (LeftFrag n_aQp)) ->
    case tpl_B1 of tpl_X6 { __DEFAULT ->
    case tpl_B2 of tpl_X8 { __DEFAULT ->
    case tpl_B3 of tpl_Xa { __DEFAULT ->
    Compound @ n_aQp tpl_X6 tpl_X8 tpl_Xa
    }
    }
    }

$WSingle [InlPrag=INLINE]
  :: forall n_aQp. MiddleFrag n_aQp -> PartialNums n_aQp
[GblId[DataConWrapper],
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType S,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=False)
         Tmpl= \ (@ n_aQp) (tpl_B1 [Occ=Once] :: MiddleFrag n_aQp) ->
                 case tpl_B1 of tpl_X4 { __DEFAULT -> Single @ n_aQp tpl_X4 }}]
$WSingle =
  \ (@ n_aQp) (tpl_B1 [Occ=Once] :: MiddleFrag n_aQp) ->
    case tpl_B1 of tpl_X4 { __DEFAULT -> Single @ n_aQp tpl_X4 }

partialParse :: forall n_aQo. RightFrag n_aQo -> n_aQo
[GblId[[RecSel]],
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType U(AS),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_c) (ds_d2p2 [Occ=Once!] :: RightFrag n_c) ->
                 case ds_d2p2 of _ { RightFrag _ ds1_d2p4 [Occ=Once] -> ds1_d2p4 }}]
partialParse =
  \ (@ n_c) (ds_d2p2 :: RightFrag n_c) ->
    case ds_d2p2 of _ { RightFrag rb_d2wf ds1_d2p4 -> ds1_d2p4 }

numDigits :: forall n_aQo. RightFrag n_aQo -> Int
[GblId[[RecSel]],
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType U(LU)m,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_b) (ds_d2oY [Occ=Once!] :: RightFrag n_b) ->
                 case ds_d2oY of _ { RightFrag rb_d2wd [Occ=Once] _ ->
                 I# rb_d2wd
                 }}]
numDigits =
  \ (@ n_b) (ds_d2oY :: RightFrag n_b) ->
    case ds_d2oY of _ { RightFrag rb_d2wd ds1_d2p0 -> I# rb_d2wd }

$fNFDataRightFrag_$crnf :: forall n_a1kM. RightFrag n_a1kM -> ()
[GblId,
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType U(AU),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_a1kM) (ds_d2v6 [Occ=Once!] :: RightFrag n_a1kM) ->
                 case ds_d2v6 of _ { RightFrag _ _ -> () }}]
$fNFDataRightFrag_$crnf =
  \ (@ n_a1kM) (ds_d2v6 :: RightFrag n_a1kM) ->
    case ds_d2v6 of _ { RightFrag rb_d2w2 ds1_d2v8 -> () }

$fNFDataRightFrag [InlPrag=INLINE (sat-args=0)]
  :: forall n_a1kM. NFData (RightFrag n_a1kM)
[GblId[DFunId(nt)],
 Str=DmdType,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=True)
         Tmpl= $fNFDataRightFrag_$crnf
               `cast` (forall n_a1kM. Sym <(NTCo:NFData <RightFrag n_a1kM>)>
                       :: (forall n_a1kM. RightFrag n_a1kM -> ())
                            ~#
                          (forall n_a1kM. NFData (RightFrag n_a1kM)))}]
$fNFDataRightFrag =
  $fNFDataRightFrag_$crnf
  `cast` (forall n_a1kM. Sym <(NTCo:NFData <RightFrag n_a1kM>)>
          :: (forall n_a1kM. RightFrag n_a1kM -> ())
               ~#
             (forall n_a1kM. NFData (RightFrag n_a1kM)))

$fNFDataLeftFrag_$crnf :: forall n_a1kL. LeftFrag n_a1kL -> ()
[GblId,
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType U(U),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_a1kL) (ds_d2v3 [Occ=Once!] :: LeftFrag n_a1kL) ->
                 case ds_d2v3 of _ { LeftFrag _ -> () }}]
$fNFDataLeftFrag_$crnf =
  \ (@ n_a1kL) (ds_d2v3 :: LeftFrag n_a1kL) ->
    case ds_d2v3 of _ { LeftFrag ds1_d2v4 -> () }

$fNFDataLeftFrag [InlPrag=INLINE (sat-args=0)]
  :: forall n_a1kL. NFData (LeftFrag n_a1kL)
[GblId[DFunId(nt)],
 Str=DmdType,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=True)
         Tmpl= $fNFDataLeftFrag_$crnf
               `cast` (forall n_a1kL. Sym <(NTCo:NFData <LeftFrag n_a1kL>)>
                       :: (forall n_a1kL. LeftFrag n_a1kL -> ())
                            ~#
                          (forall n_a1kL. NFData (LeftFrag n_a1kL)))}]
$fNFDataLeftFrag =
  $fNFDataLeftFrag_$crnf
  `cast` (forall n_a1kL. Sym <(NTCo:NFData <LeftFrag n_a1kL>)>
          :: (forall n_a1kL. LeftFrag n_a1kL -> ())
               ~#
             (forall n_a1kL. NFData (LeftFrag n_a1kL)))

$fNFDataMiddleFrag_$crnf :: forall n_a1kK. MiddleFrag n_a1kK -> ()
[GblId,
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType U(AU),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_a1kK) (ds_d2uZ [Occ=Once!] :: MiddleFrag n_a1kK) ->
                 case ds_d2uZ of _ { MiddleFrag _ _ -> () }}]
$fNFDataMiddleFrag_$crnf =
  \ (@ n_a1kK) (ds_d2uZ :: MiddleFrag n_a1kK) ->
    case ds_d2uZ of _ { MiddleFrag rb_d2w0 ds1_d2v1 -> () }

$fNFDataMiddleFrag [InlPrag=INLINE (sat-args=0)]
  :: forall n_a1kK. NFData (MiddleFrag n_a1kK)
[GblId[DFunId(nt)],
 Str=DmdType,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=True)
         Tmpl= $fNFDataMiddleFrag_$crnf
               `cast` (forall n_a1kK. Sym <(NTCo:NFData <MiddleFrag n_a1kK>)>
                       :: (forall n_a1kK. MiddleFrag n_a1kK -> ())
                            ~#
                          (forall n_a1kK. NFData (MiddleFrag n_a1kK)))}]
$fNFDataMiddleFrag =
  $fNFDataMiddleFrag_$crnf
  `cast` (forall n_a1kK. Sym <(NTCo:NFData <MiddleFrag n_a1kK>)>
          :: (forall n_a1kK. MiddleFrag n_a1kK -> ())
               ~#
             (forall n_a1kK. NFData (MiddleFrag n_a1kK)))

$fNFDataPartialNums_$crnf
  :: forall n_a1kF. PartialNums n_a1kF -> ()
[GblId,
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType S,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
$fNFDataPartialNums_$crnf =
  \ (@ n_a1kF) (ds_d2uW :: PartialNums n_a1kF) ->
    case ds_d2uW of _ {
      Compound a_a1kG b_a1kH c_a1kI -> ();
      Single a_a1kJ -> ()
    }

$fNFDataPartialNums [InlPrag=INLINE (sat-args=0)]
  :: forall n_a1kF. NFData (PartialNums n_a1kF)
[GblId[DFunId(nt)],
 Str=DmdType,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=True)
         Tmpl= $fNFDataPartialNums_$crnf
               `cast` (forall n_a1kF. Sym <(NTCo:NFData <PartialNums n_a1kF>)>
                       :: (forall n_a1kF. PartialNums n_a1kF -> ())
                            ~#
                          (forall n_a1kF. NFData (PartialNums n_a1kF)))}]
$fNFDataPartialNums =
  $fNFDataPartialNums_$crnf
  `cast` (forall n_a1kF. Sym <(NTCo:NFData <PartialNums n_a1kF>)>
          :: (forall n_a1kF. PartialNums n_a1kF -> ())
               ~#
             (forall n_a1kF. NFData (PartialNums n_a1kF)))

$fReadMiddleFrag3 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 60 0}]
$fReadMiddleFrag3 = unpackCString# "MiddleFrag"

$fReadLeftFrag4 :: Int
[GblId,
 Caf=NoCafRefs,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=False, Expandable=True,
         Guidance=IF_ARGS [] 10 20}]
$fReadLeftFrag4 = I# 11

$fReadMiddleFrag2
  :: forall n_aBc. Read n_aBc => Prec -> ReadP (MiddleFrag n_aBc)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [30 0] 343 0}]
$fReadMiddleFrag2 =
  \ (@ n_XIq) ($dRead_a2b1 :: Read n_XIq) (eta_B1 :: Prec) ->
    let {
      ds_X3Lk :: ReadPrec n_XIq
      [LclId, Str=DmdType]
      ds_X3Lk = readPrec @ n_XIq $dRead_a2b1 } in
    let {
      lvl62_s96q
        :: forall b_a2x1. (MiddleFrag n_XIq -> P b_a2x1) -> P b_a2x1
      [LclId, Arity=1]
      lvl62_s96q =
        \ (@ b_a2x1) (eta1_X3Y :: MiddleFrag n_XIq -> P b_a2x1) ->
          let {
            lvl63_s96r :: P b_a2x1
            [LclId]
            lvl63_s96r =
              $fReadInt5
                $fReadInt_$sconvertInt
                $fReadLeftFrag4
                @ b_a2x1
                (\ (a1_X3JL :: Int) ->
                   (((ds_X3Lk
                      `cast` (<NTCo:ReadPrec <n_XIq>>
                              :: ReadPrec n_XIq ~# (Prec -> ReadP n_XIq)))
                       $fReadLeftFrag4)
                    `cast` (<NTCo:ReadP <n_XIq>>
                            :: ReadP n_XIq
                                 ~#
                               (forall b_a2x1. (n_XIq -> P b_a2x1) -> P b_a2x1)))
                     @ b_a2x1
                     (\ (a2_X3JQ :: n_XIq) ->
                        eta1_X3Y
                          (case a1_X3JL of _ { I# tpl1_B4 ->
                           case a2_X3JQ of tpl2_X8 { __DEFAULT ->
                           MiddleFrag @ n_XIq tpl1_B4 tpl2_X8
                           }
                           }))) } in
          lex1
            @ b_a2x1
            (\ (a1_a3FD :: Lexeme) ->
               case a1_a3FD of _ {
                 __DEFAULT -> Fail @ b_a2x1;
                 Ident ds1_d2se ->
                   case eqString ds1_d2se $fReadMiddleFrag3 of _ {
                     False -> Fail @ b_a2x1;
                     True -> lvl63_s96r
                   }
               }) } in
    parens1
      @ (MiddleFrag n_XIq)
      ((\ (c_a3G5 :: Prec) ->
          case c_a3G5 of _ { I# x_a3G8 ->
          case <=# x_a3G8 10 of _ {
            False ->
              (pfail1 @ (MiddleFrag n_XIq))
              `cast` (Sym <(NTCo:ReadP <MiddleFrag n_XIq>)>
                      :: (forall b_a2x1. (MiddleFrag n_XIq -> P b_a2x1) -> P b_a2x1)
                           ~#
                         ReadP (MiddleFrag n_XIq));
            True ->
              lvl62_s96q
              `cast` (Sym <(NTCo:ReadP <MiddleFrag n_XIq>)>
                      :: (forall b_a2x1. (MiddleFrag n_XIq -> P b_a2x1) -> P b_a2x1)
                           ~#
                         ReadP (MiddleFrag n_XIq))
          }
          })
       `cast` (Sym <(NTCo:ReadPrec <MiddleFrag n_XIq>)>
               :: (Prec -> ReadP (MiddleFrag n_XIq))
                    ~#
                  ReadPrec (MiddleFrag n_XIq)))
      eta_B1

$fReadMiddleFrag_$creadPrec
  :: forall n_aBc. Read n_aBc => ReadPrec (MiddleFrag n_aBc)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
$fReadMiddleFrag_$creadPrec =
  $fReadMiddleFrag2
  `cast` (forall n_XIr.
          <Read n_XIr> -> Sym <(NTCo:ReadPrec <MiddleFrag n_XIr>)>
          :: (forall n_XIr. Read n_XIr => Prec -> ReadP (MiddleFrag n_XIr))
               ~#
             (forall n_XIr. Read n_XIr => ReadPrec (MiddleFrag n_XIr)))

$fReadMiddleFrag_$creadsPrec
  :: forall n_aBc. Read n_aBc => Int -> ReadS (MiddleFrag n_aBc)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0] 51 60}]
$fReadMiddleFrag_$creadsPrec =
  \ (@ n_XD5) ($dRead_X2cV :: Read n_XD5) (eta_B1 :: Int) ->
    run
      @ (MiddleFrag n_XD5)
      ((($fReadMiddleFrag2 @ n_XD5 $dRead_X2cV eta_B1)
        `cast` (<NTCo:ReadP <MiddleFrag n_XD5>>
                :: ReadP (MiddleFrag n_XD5)
                     ~#
                   (forall b_a2x1. (MiddleFrag n_XD5 -> P b_a2x1) -> P b_a2x1)))
         @ (MiddleFrag n_XD5) ($fMonadP_$creturn @ (MiddleFrag n_XD5)))

$fReadMiddleFrag1
  :: forall n_XD7.
     Read n_XD7 =>
     Prec -> forall b_a3GN. ([MiddleFrag n_XD7] -> P b_a3GN) -> P b_a3GN
[GblId,
 Arity=3,
 Str=DmdType LAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XD7)
                 ($dRead_X2cX [Occ=Once] :: Read n_XD7)
                 _
                 (@ b_a3GN)
                 (eta1_a3GO [Occ=Once] :: [MiddleFrag n_XD7] -> P b_a3GN) ->
                 $wa
                   @ (MiddleFrag n_XD7)
                   (($fReadMiddleFrag2 @ n_XD7 $dRead_X2cX)
                    `cast` (Sym <(NTCo:ReadPrec <MiddleFrag n_XD7>)>
                            :: (Prec -> ReadP (MiddleFrag n_XD7))
                                 ~#
                               ReadPrec (MiddleFrag n_XD7)))
                   @ b_a3GN
                   eta1_a3GO}]
$fReadMiddleFrag1 =
  \ (@ n_XD7)
    ($dRead_X2cX :: Read n_XD7)
    _
    (@ b_a3GN)
    (eta1_a3GO :: [MiddleFrag n_XD7] -> P b_a3GN) ->
    $wa
      @ (MiddleFrag n_XD7)
      (($fReadMiddleFrag2 @ n_XD7 $dRead_X2cX)
       `cast` (Sym <(NTCo:ReadPrec <MiddleFrag n_XD7>)>
               :: (Prec -> ReadP (MiddleFrag n_XD7))
                    ~#
                  ReadPrec (MiddleFrag n_XD7)))
      @ b_a3GN
      eta1_a3GO

$fReadMiddleFrag_$creadListPrec
  :: forall n_aBc. Read n_aBc => ReadPrec [MiddleFrag n_aBc]
[GblId,
 Arity=3,
 Str=DmdType LAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= $fReadMiddleFrag1
               `cast` (forall n_XD7.
                       <Read n_XD7>
                       -> (<Prec> -> Sym <(NTCo:ReadP <[MiddleFrag n_XD7]>)>) ; Sym
                                                                                  <(NTCo:ReadPrec
                                                                                      <[MiddleFrag
                                                                                          n_XD7]>)>
                       :: (forall n_XD7.
                           Read n_XD7 =>
                           Prec
                           -> forall b_a2x1. ([MiddleFrag n_XD7] -> P b_a2x1) -> P b_a2x1)
                            ~#
                          (forall n_XD7. Read n_XD7 => ReadPrec [MiddleFrag n_XD7]))}]
$fReadMiddleFrag_$creadListPrec =
  $fReadMiddleFrag1
  `cast` (forall n_XD7.
          <Read n_XD7>
          -> (<Prec> -> Sym <(NTCo:ReadP <[MiddleFrag n_XD7]>)>) ; Sym
                                                                     <(NTCo:ReadPrec
                                                                         <[MiddleFrag n_XD7]>)>
          :: (forall n_XD7.
              Read n_XD7 =>
              Prec
              -> forall b_a2x1. ([MiddleFrag n_XD7] -> P b_a2x1) -> P b_a2x1)
               ~#
             (forall n_XD7. Read n_XD7 => ReadPrec [MiddleFrag n_XD7]))

$fReadMiddleFrag_$creadList
  :: forall n_aBc. Read n_aBc => ReadS [MiddleFrag n_aBc]
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0] 70 60}]
$fReadMiddleFrag_$creadList =
  \ (@ n_XD8) ($dRead_X2cY :: Read n_XD8) ->
    run
      @ [MiddleFrag n_XD8]
      ($wa
         @ (MiddleFrag n_XD8)
         (($fReadMiddleFrag2 @ n_XD8 $dRead_X2cY)
          `cast` (Sym <(NTCo:ReadPrec <MiddleFrag n_XD8>)>
                  :: (Prec -> ReadP (MiddleFrag n_XD8))
                       ~#
                     ReadPrec (MiddleFrag n_XD8)))
         @ [MiddleFrag n_XD8]
         ($fMonadP_$creturn @ [MiddleFrag n_XD8]))

$fReadMiddleFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aBc. Read n_aBc => Read (MiddleFrag n_aBc)
[GblId[DFunId],
 Arity=1,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Read [{$fReadMiddleFrag_$creadsPrec},
                           {$fReadMiddleFrag_$creadList}, {$fReadMiddleFrag_$creadPrec},
                           {$fReadMiddleFrag_$creadListPrec}]]
$fReadMiddleFrag =
  \ (@ n_XD6) ($dRead_X2cW :: Read n_XD6) ->
    D:Read
      @ (MiddleFrag n_XD6)
      ($fReadMiddleFrag_$creadsPrec @ n_XD6 $dRead_X2cW)
      ($fReadMiddleFrag_$creadList @ n_XD6 $dRead_X2cW)
      (($fReadMiddleFrag2 @ n_XD6 $dRead_X2cW)
       `cast` (Sym <(NTCo:ReadPrec <MiddleFrag n_XD6>)>
               :: (Prec -> ReadP (MiddleFrag n_XD6))
                    ~#
                  ReadPrec (MiddleFrag n_XD6)))
      (($fReadMiddleFrag1 @ n_XD6 $dRead_X2cW)
       `cast` ((<Prec> -> Sym <(NTCo:ReadP <[MiddleFrag n_XD6]>)>) ; Sym
                                                                       <(NTCo:ReadPrec
                                                                           <[MiddleFrag n_XD6]>)>
               :: (Prec
                   -> forall b_a2x1. ([MiddleFrag n_XD6] -> P b_a2x1) -> P b_a2x1)
                    ~#
                  ReadPrec [MiddleFrag n_XD6]))

$fOrdMiddleFrag_$c<=
  :: forall n_aBc.
     (Eq (MiddleFrag n_aBc), Ord n_aBc) =>
     MiddleFrag n_aBc -> MiddleFrag n_aBc -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XD9)
                 _
                 ($dOrd_a2an [Occ=Once] :: Ord n_XD9)
                 (a_a1SQ [Occ=Once!] :: MiddleFrag n_XD9)
                 (b_a1SR [Occ=Once!] :: MiddleFrag n_XD9) ->
                 case a_a1SQ of _ { MiddleFrag rb_d2vY a2_a1ST [Occ=Once] ->
                 case b_a1SR of _ { MiddleFrag rb1_d2vW b2_a1SV [Occ=Once] ->
                 case <# rb_d2vY rb1_d2vW of _ {
                   False ->
                     case ==# rb_d2vY rb1_d2vW of _ {
                       False -> False;
                       True -> <= @ n_XD9 $dOrd_a2an a2_a1ST b2_a1SV
                     };
                   True -> True
                 }
                 }
                 }}]
$fOrdMiddleFrag_$c<= =
  \ (@ n_XD9)
    _
    ($dOrd_a2an :: Ord n_XD9)
    (a_a1SQ :: MiddleFrag n_XD9)
    (b_a1SR :: MiddleFrag n_XD9) ->
    case a_a1SQ of _ { MiddleFrag rb_d2vY a2_a1ST ->
    case b_a1SR of _ { MiddleFrag rb1_d2vW b2_a1SV ->
    case <# rb_d2vY rb1_d2vW of _ {
      False ->
        case ==# rb_d2vY rb1_d2vW of _ {
          False -> False;
          True -> <= @ n_XD9 $dOrd_a2an a2_a1ST b2_a1SV
        };
      True -> True
    }
    }
    }

$fOrdMiddleFrag_$c>
  :: forall n_aBc.
     (Eq (MiddleFrag n_aBc), Ord n_aBc) =>
     MiddleFrag n_aBc -> MiddleFrag n_aBc -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XDa)
                 _
                 ($dOrd_a2an [Occ=Once] :: Ord n_XDa)
                 (a_a1T2 [Occ=Once!] :: MiddleFrag n_XDa)
                 (b_a1T3 [Occ=Once!] :: MiddleFrag n_XDa) ->
                 case a_a1T2 of _ { MiddleFrag rb_d2vU a2_a1T5 [Occ=Once] ->
                 case b_a1T3 of _ { MiddleFrag rb1_d2vS b2_a1T7 [Occ=Once] ->
                 case <# rb_d2vU rb1_d2vS of _ {
                   False ->
                     case ==# rb_d2vU rb1_d2vS of _ {
                       False -> True;
                       True -> > @ n_XDa $dOrd_a2an a2_a1T5 b2_a1T7
                     };
                   True -> False
                 }
                 }
                 }}]
$fOrdMiddleFrag_$c> =
  \ (@ n_XDa)
    _
    ($dOrd_a2an :: Ord n_XDa)
    (a_a1T2 :: MiddleFrag n_XDa)
    (b_a1T3 :: MiddleFrag n_XDa) ->
    case a_a1T2 of _ { MiddleFrag rb_d2vU a2_a1T5 ->
    case b_a1T3 of _ { MiddleFrag rb1_d2vS b2_a1T7 ->
    case <# rb_d2vU rb1_d2vS of _ {
      False ->
        case ==# rb_d2vU rb1_d2vS of _ {
          False -> True;
          True -> > @ n_XDa $dOrd_a2an a2_a1T5 b2_a1T7
        };
      True -> False
    }
    }
    }

$fOrdMiddleFrag_$c>=
  :: forall n_aBc.
     (Eq (MiddleFrag n_aBc), Ord n_aBc) =>
     MiddleFrag n_aBc -> MiddleFrag n_aBc -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XDb)
                 _
                 ($dOrd_a2an [Occ=Once] :: Ord n_XDb)
                 (a_a1SW [Occ=Once!] :: MiddleFrag n_XDb)
                 (b_a1SX [Occ=Once!] :: MiddleFrag n_XDb) ->
                 case a_a1SW of _ { MiddleFrag rb_d2vQ a2_a1SZ [Occ=Once] ->
                 case b_a1SX of _ { MiddleFrag rb1_d2vO b2_a1T1 [Occ=Once] ->
                 case <# rb_d2vQ rb1_d2vO of _ {
                   False ->
                     case ==# rb_d2vQ rb1_d2vO of _ {
                       False -> True;
                       True -> >= @ n_XDb $dOrd_a2an a2_a1SZ b2_a1T1
                     };
                   True -> False
                 }
                 }
                 }}]
$fOrdMiddleFrag_$c>= =
  \ (@ n_XDb)
    _
    ($dOrd_a2an :: Ord n_XDb)
    (a_a1SW :: MiddleFrag n_XDb)
    (b_a1SX :: MiddleFrag n_XDb) ->
    case a_a1SW of _ { MiddleFrag rb_d2vQ a2_a1SZ ->
    case b_a1SX of _ { MiddleFrag rb1_d2vO b2_a1T1 ->
    case <# rb_d2vQ rb1_d2vO of _ {
      False ->
        case ==# rb_d2vQ rb1_d2vO of _ {
          False -> True;
          True -> >= @ n_XDb $dOrd_a2an a2_a1SZ b2_a1T1
        };
      True -> False
    }
    }
    }

$fOrdMiddleFrag_$c<
  :: forall n_aBc.
     (Eq (MiddleFrag n_aBc), Ord n_aBc) =>
     MiddleFrag n_aBc -> MiddleFrag n_aBc -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XDc)
                 _
                 ($dOrd_a2an [Occ=Once] :: Ord n_XDc)
                 (a_a1SK [Occ=Once!] :: MiddleFrag n_XDc)
                 (b_a1SL [Occ=Once!] :: MiddleFrag n_XDc) ->
                 case a_a1SK of _ { MiddleFrag rb_d2vM a2_a1SN [Occ=Once] ->
                 case b_a1SL of _ { MiddleFrag rb1_d2vK b2_a1SP [Occ=Once] ->
                 case <# rb_d2vM rb1_d2vK of _ {
                   False ->
                     case ==# rb_d2vM rb1_d2vK of _ {
                       False -> False;
                       True -> < @ n_XDc $dOrd_a2an a2_a1SN b2_a1SP
                     };
                   True -> True
                 }
                 }
                 }}]
$fOrdMiddleFrag_$c< =
  \ (@ n_XDc)
    _
    ($dOrd_a2an :: Ord n_XDc)
    (a_a1SK :: MiddleFrag n_XDc)
    (b_a1SL :: MiddleFrag n_XDc) ->
    case a_a1SK of _ { MiddleFrag rb_d2vM a2_a1SN ->
    case b_a1SL of _ { MiddleFrag rb1_d2vK b2_a1SP ->
    case <# rb_d2vM rb1_d2vK of _ {
      False ->
        case ==# rb_d2vM rb1_d2vK of _ {
          False -> False;
          True -> < @ n_XDc $dOrd_a2an a2_a1SN b2_a1SP
        };
      True -> True
    }
    }
    }

$fOrdMiddleFrag_$ccompare
  :: forall n_aBc.
     (Eq (MiddleFrag n_aBc), Ord n_aBc) =>
     MiddleFrag n_aBc -> MiddleFrag n_aBc -> Ordering
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XDd)
                 _
                 ($dOrd_a2an [Occ=Once] :: Ord n_XDd)
                 (a_a1SE [Occ=Once!] :: MiddleFrag n_XDd)
                 (b_a1SF [Occ=Once!] :: MiddleFrag n_XDd) ->
                 case a_a1SE of _ { MiddleFrag rb_d2vI a2_a1SH [Occ=Once] ->
                 case b_a1SF of _ { MiddleFrag rb1_d2vG b2_a1SJ [Occ=Once] ->
                 case <# rb_d2vI rb1_d2vG of _ {
                   False ->
                     case ==# rb_d2vI rb1_d2vG of _ {
                       False -> GT;
                       True -> compare @ n_XDd $dOrd_a2an a2_a1SH b2_a1SJ
                     };
                   True -> LT
                 }
                 }
                 }}]
$fOrdMiddleFrag_$ccompare =
  \ (@ n_XDd)
    _
    ($dOrd_a2an :: Ord n_XDd)
    (a_a1SE :: MiddleFrag n_XDd)
    (b_a1SF :: MiddleFrag n_XDd) ->
    case a_a1SE of _ { MiddleFrag rb_d2vI a2_a1SH ->
    case b_a1SF of _ { MiddleFrag rb1_d2vG b2_a1SJ ->
    case <# rb_d2vI rb1_d2vG of _ {
      False ->
        case ==# rb_d2vI rb1_d2vG of _ {
          False -> GT;
          True -> compare @ n_XDd $dOrd_a2an a2_a1SH b2_a1SJ
        };
      True -> LT
    }
    }
    }

$fOrdMiddleFrag_$cmin [InlPrag=INLINE[0]]
  :: forall n_aBc.
     (Eq (MiddleFrag n_aBc), Ord n_aBc) =>
     MiddleFrag n_aBc -> MiddleFrag n_aBc -> MiddleFrag n_aBc
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*))m,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aBc)
                 _
                 (w1_s7LY [Occ=Once] :: Ord n_aBc)
                 (w2_s7LZ [Occ=Once!] :: MiddleFrag n_aBc)
                 (w3_s7M4 [Occ=Once!] :: MiddleFrag n_aBc) ->
                 case w2_s7LZ of _ { MiddleFrag ww_s7M1 ww1_s7M2 ->
                 case w3_s7M4 of _ { MiddleFrag ww2_s7M6 ww3_s7M7 ->
                 case <# ww_s7M1 ww2_s7M6 of _ {
                   False ->
                     case ==# ww_s7M1 ww2_s7M6 of _ {
                       False -> MiddleFrag @ n_aBc ww2_s7M6 ww3_s7M7;
                       True ->
                         case <= @ n_aBc w1_s7LY ww1_s7M2 ww3_s7M7 of _ {
                           False -> MiddleFrag @ n_aBc ww2_s7M6 ww3_s7M7;
                           True -> MiddleFrag @ n_aBc ww_s7M1 ww1_s7M2
                         }
                     };
                   True -> MiddleFrag @ n_aBc ww_s7M1 ww1_s7M2
                 }
                 }
                 }}]
$fOrdMiddleFrag_$cmin =
  \ (@ n_aBc)
    _
    (w1_s7LY :: Ord n_aBc)
    (w2_s7LZ :: MiddleFrag n_aBc)
    (w3_s7M4 :: MiddleFrag n_aBc) ->
    case w2_s7LZ of _ { MiddleFrag ww_s7M1 ww1_s7M2 ->
    case w3_s7M4 of _ { MiddleFrag ww2_s7M6 ww3_s7M7 ->
    case <# ww_s7M1 ww2_s7M6 of _ {
      False ->
        case ==# ww_s7M1 ww2_s7M6 of _ {
          False -> MiddleFrag @ n_aBc ww2_s7M6 ww3_s7M7;
          True ->
            case <= @ n_aBc w1_s7LY ww1_s7M2 ww3_s7M7 of _ {
              False -> MiddleFrag @ n_aBc ww2_s7M6 ww3_s7M7;
              True -> MiddleFrag @ n_aBc ww_s7M1 ww1_s7M2
            }
        };
      True -> MiddleFrag @ n_aBc ww_s7M1 ww1_s7M2
    }
    }
    }

$fOrdMiddleFrag_$cmax [InlPrag=INLINE[0]]
  :: forall n_aBc.
     (Eq (MiddleFrag n_aBc), Ord n_aBc) =>
     MiddleFrag n_aBc -> MiddleFrag n_aBc -> MiddleFrag n_aBc
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*))m,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aBc)
                 _
                 (w1_s7Mg [Occ=Once] :: Ord n_aBc)
                 (w2_s7Mh [Occ=Once!] :: MiddleFrag n_aBc)
                 (w3_s7Mm [Occ=Once!] :: MiddleFrag n_aBc) ->
                 case w2_s7Mh of _ { MiddleFrag ww_s7Mj ww1_s7Mk ->
                 case w3_s7Mm of _ { MiddleFrag ww2_s7Mo ww3_s7Mp ->
                 case <# ww_s7Mj ww2_s7Mo of _ {
                   False ->
                     case ==# ww_s7Mj ww2_s7Mo of _ {
                       False -> MiddleFrag @ n_aBc ww_s7Mj ww1_s7Mk;
                       True ->
                         case <= @ n_aBc w1_s7Mg ww1_s7Mk ww3_s7Mp of _ {
                           False -> MiddleFrag @ n_aBc ww_s7Mj ww1_s7Mk;
                           True -> MiddleFrag @ n_aBc ww2_s7Mo ww3_s7Mp
                         }
                     };
                   True -> MiddleFrag @ n_aBc ww2_s7Mo ww3_s7Mp
                 }
                 }
                 }}]
$fOrdMiddleFrag_$cmax =
  \ (@ n_aBc)
    _
    (w1_s7Mg :: Ord n_aBc)
    (w2_s7Mh :: MiddleFrag n_aBc)
    (w3_s7Mm :: MiddleFrag n_aBc) ->
    case w2_s7Mh of _ { MiddleFrag ww_s7Mj ww1_s7Mk ->
    case w3_s7Mm of _ { MiddleFrag ww2_s7Mo ww3_s7Mp ->
    case <# ww_s7Mj ww2_s7Mo of _ {
      False ->
        case ==# ww_s7Mj ww2_s7Mo of _ {
          False -> MiddleFrag @ n_aBc ww_s7Mj ww1_s7Mk;
          True ->
            case <= @ n_aBc w1_s7Mg ww1_s7Mk ww3_s7Mp of _ {
              False -> MiddleFrag @ n_aBc ww_s7Mj ww1_s7Mk;
              True -> MiddleFrag @ n_aBc ww2_s7Mo ww3_s7Mp
            }
        };
      True -> MiddleFrag @ n_aBc ww2_s7Mo ww3_s7Mp
    }
    }
    }

$fOrdMiddleFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aBc.
     (Eq (MiddleFrag n_aBc), Ord n_aBc) =>
     Ord (MiddleFrag n_aBc)
[GblId[DFunId[1]],
 Arity=2,
 Caf=NoCafRefs,
 Str=DmdType LLm,
 Unf=DFun(arity=3) D:Ord [<1>, {$fOrdMiddleFrag_$ccompare},
                          {$fOrdMiddleFrag_$c<}, {$fOrdMiddleFrag_$c>=},
                          {$fOrdMiddleFrag_$c>}, {$fOrdMiddleFrag_$c<=},
                          {$fOrdMiddleFrag_$cmax}, {$fOrdMiddleFrag_$cmin}]]
$fOrdMiddleFrag =
  \ (@ n_XDg)
    ($dEq_a2am :: Eq (MiddleFrag n_XDg))
    ($dOrd_a2an :: Ord n_XDg) ->
    D:Ord
      @ (MiddleFrag n_XDg)
      $dEq_a2am
      ($fOrdMiddleFrag_$ccompare @ n_XDg $dEq_a2am $dOrd_a2an)
      ($fOrdMiddleFrag_$c< @ n_XDg $dEq_a2am $dOrd_a2an)
      ($fOrdMiddleFrag_$c>= @ n_XDg $dEq_a2am $dOrd_a2an)
      ($fOrdMiddleFrag_$c> @ n_XDg $dEq_a2am $dOrd_a2an)
      ($fOrdMiddleFrag_$c<= @ n_XDg $dEq_a2am $dOrd_a2an)
      ($fOrdMiddleFrag_$cmax @ n_XDg $dEq_a2am $dOrd_a2an)
      ($fOrdMiddleFrag_$cmin @ n_XDg $dEq_a2am $dOrd_a2an)

$fEqMiddleFrag_$c==
  :: forall n_aBc.
     Eq n_aBc =>
     MiddleFrag n_aBc -> MiddleFrag n_aBc -> Bool
[GblId,
 Arity=3,
 Caf=NoCafRefs,
 Str=DmdType LU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XDh)
                 ($dEq_a2a9 [Occ=Once] :: Eq n_XDh)
                 (ds_d2rv [Occ=Once!] :: MiddleFrag n_XDh)
                 (ds1_d2rw [Occ=Once!] :: MiddleFrag n_XDh) ->
                 case ds_d2rv
                 of _ { MiddleFrag rb_d2vE [Occ=Once] a2_a1Sz [Occ=Once] ->
                 case ds1_d2rw
                 of _ { MiddleFrag rb1_d2vC [Occ=Once] b2_a1SB [Occ=Once] ->
                 case ==# rb_d2vE rb1_d2vC of _ {
                   False -> False;
                   True -> == @ n_XDh $dEq_a2a9 a2_a1Sz b2_a1SB
                 }
                 }
                 }}]
$fEqMiddleFrag_$c== =
  \ (@ n_XDh)
    ($dEq_a2a9 :: Eq n_XDh)
    (ds_d2rv :: MiddleFrag n_XDh)
    (ds1_d2rw :: MiddleFrag n_XDh) ->
    case ds_d2rv of _ { MiddleFrag rb_d2vE a2_a1Sz ->
    case ds1_d2rw of _ { MiddleFrag rb1_d2vC b2_a1SB ->
    case ==# rb_d2vE rb1_d2vC of _ {
      False -> False;
      True -> == @ n_XDh $dEq_a2a9 a2_a1Sz b2_a1SB
    }
    }
    }

$fEqMiddleFrag_$c/= [InlPrag=INLINE[0]]
  :: forall n_aBc.
     Eq n_aBc =>
     MiddleFrag n_aBc -> MiddleFrag n_aBc -> Bool
[GblId,
 Arity=3,
 Caf=NoCafRefs,
 Str=DmdType LU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aBc)
                 (w_s7Mw [Occ=Once] :: Eq n_aBc)
                 (w1_s7Mx [Occ=Once!] :: MiddleFrag n_aBc)
                 (w2_s7MC [Occ=Once!] :: MiddleFrag n_aBc) ->
                 case w1_s7Mx
                 of _ { MiddleFrag ww_s7Mz [Occ=Once] ww1_s7MA [Occ=Once] ->
                 case w2_s7MC
                 of _ { MiddleFrag ww2_s7ME [Occ=Once] ww3_s7MF [Occ=Once] ->
                 case ==# ww_s7Mz ww2_s7ME of _ {
                   False -> True;
                   True ->
                     case == @ n_aBc w_s7Mw ww1_s7MA ww3_s7MF of _ {
                       False -> True;
                       True -> False
                     }
                 }
                 }
                 }}]
$fEqMiddleFrag_$c/= =
  \ (@ n_aBc)
    (w_s7Mw :: Eq n_aBc)
    (w1_s7Mx :: MiddleFrag n_aBc)
    (w2_s7MC :: MiddleFrag n_aBc) ->
    case w1_s7Mx of _ { MiddleFrag ww_s7Mz ww1_s7MA ->
    case w2_s7MC of _ { MiddleFrag ww2_s7ME ww3_s7MF ->
    case ==# ww_s7Mz ww2_s7ME of _ {
      False -> True;
      True ->
        case == @ n_aBc w_s7Mw ww1_s7MA ww3_s7MF of _ {
          False -> True;
          True -> False
        }
    }
    }
    }

$fEqMiddleFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aBc. Eq n_aBc => Eq (MiddleFrag n_aBc)
[GblId[DFunId],
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Eq [{$fEqMiddleFrag_$c==},
                         {$fEqMiddleFrag_$c/=}]]
$fEqMiddleFrag =
  \ (@ n_XDj) ($dEq_a2a9 :: Eq n_XDj) ->
    D:Eq
      @ (MiddleFrag n_XDj)
      ($fEqMiddleFrag_$c== @ n_XDj $dEq_a2a9)
      ($fEqMiddleFrag_$c/= @ n_XDj $dEq_a2a9)

$fShowMiddleFrag1 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 60 0}]
$fShowMiddleFrag1 = unpackCString# "MiddleFrag "

$w$cshowsPrec1
  :: forall n_aBc. Show n_aBc => Int# -> Int# -> n_aBc -> ShowS
[GblId,
 Arity=4,
 Str=DmdType LLLS,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [30 0 0 0] 241 120}]
$w$cshowsPrec1 =
  \ (@ n_aBc)
    (w_s7ML :: Show n_aBc)
    (ww_s7MO :: Int#)
    (ww1_s7MS :: Int#)
    (ww2_s7MT :: n_aBc) ->
    let {
      g_X2GZ [Dmd=Just L] :: String -> String
      [LclId, Str=DmdType]
      g_X2GZ = showsPrec @ n_aBc w_s7ML $fReadLeftFrag4 ww2_s7MT } in
    let {
      p_a2yN :: ShowS
      [LclId, Arity=1, Str=DmdType L]
      p_a2yN =
        \ (x_X2H5 :: String) ->
          ++
            @ Char
            $fShowMiddleFrag1
            ($wshowSignedInt
               11 ww1_s7MS (: @ Char showSpace1 (g_X2GZ x_X2H5))) } in
    case >=# ww_s7MO 11 of _ {
      False -> p_a2yN;
      True ->
        \ (x_a2yS :: String) ->
          : @ Char shows11 (p_a2yN (: @ Char shows10 x_a2yS))
    }

$fShowMiddleFrag_$cshowsPrec [InlPrag=INLINE[0]]
  :: forall n_aBc. Show n_aBc => Int -> MiddleFrag n_aBc -> ShowS
[GblId,
 Arity=3,
 Str=DmdType LU(L)U(LS),
 Unf=Unf{Src=Worker=$w$cshowsPrec1, TopLvl=True, Arity=3,
         Value=True, ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aBc)
                 (w_s7ML [Occ=Once] :: Show n_aBc)
                 (w1_s7MM [Occ=Once!] :: Int)
                 (w2_s7MQ [Occ=Once!] :: MiddleFrag n_aBc) ->
                 case w1_s7MM of _ { I# ww_s7MO [Occ=Once] ->
                 case w2_s7MQ
                 of _ { MiddleFrag ww1_s7MS [Occ=Once] ww2_s7MT [Occ=Once] ->
                 $w$cshowsPrec1 @ n_aBc w_s7ML ww_s7MO ww1_s7MS ww2_s7MT
                 }
                 }}]
$fShowMiddleFrag_$cshowsPrec =
  \ (@ n_aBc)
    (w_s7ML :: Show n_aBc)
    (w1_s7MM :: Int)
    (w2_s7MQ :: MiddleFrag n_aBc) ->
    case w1_s7MM of _ { I# ww_s7MO ->
    case w2_s7MQ of _ { MiddleFrag ww1_s7MS ww2_s7MT ->
    $w$cshowsPrec1 @ n_aBc w_s7ML ww_s7MO ww1_s7MS ww2_s7MT
    }
    }

$fShowMiddleFrag_$cshowList
  :: forall n_aBc. Show n_aBc => [MiddleFrag n_aBc] -> ShowS
[GblId,
 Arity=3,
 Str=DmdType LSL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 0] 110 0}]
$fShowMiddleFrag_$cshowList =
  \ (@ n_XDl)
    ($dShow_a29S :: Show n_XDl)
    (eta_B2 :: [MiddleFrag n_XDl])
    (eta1_B1 :: String) ->
    showList__
      @ (MiddleFrag n_XDl)
      (\ (w_s7MQ :: MiddleFrag n_XDl) ->
         case w_s7MQ of _ { MiddleFrag ww_s7MS ww1_s7MT ->
         $w$cshowsPrec1 @ n_XDl $dShow_a29S 0 ww_s7MS ww1_s7MT
         })
      eta_B2
      eta1_B1

$fShowMiddleFrag_$cshow
  :: forall n_aBc. Show n_aBc => MiddleFrag n_aBc -> String
[GblId,
 Arity=2,
 Str=DmdType LU(LS),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XDn)
                 ($dShow_a29S [Occ=Once] :: Show n_XDn)
                 (x_a2zz [Occ=Once] :: MiddleFrag n_XDn) ->
                 $fShowMiddleFrag_$cshowsPrec
                   @ n_XDn $dShow_a29S shows26 x_a2zz ([] @ Char)}]
$fShowMiddleFrag_$cshow =
  \ (@ n_XDn)
    ($dShow_a29S :: Show n_XDn)
    (x_a2zz :: MiddleFrag n_XDn) ->
    case x_a2zz of _ { MiddleFrag ww_s7MS ww1_s7MT ->
    $w$cshowsPrec1 @ n_XDn $dShow_a29S 0 ww_s7MS ww1_s7MT ([] @ Char)
    }

$fShowMiddleFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aBc. Show n_aBc => Show (MiddleFrag n_aBc)
[GblId[DFunId],
 Arity=1,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Show [{$fShowMiddleFrag_$cshowsPrec},
                           {$fShowMiddleFrag_$cshow}, {$fShowMiddleFrag_$cshowList}]]
$fShowMiddleFrag =
  \ (@ n_XDm) ($dShow_a29S :: Show n_XDm) ->
    D:Show
      @ (MiddleFrag n_XDm)
      ($fShowMiddleFrag_$cshowsPrec @ n_XDm $dShow_a29S)
      ($fShowMiddleFrag_$cshow @ n_XDm $dShow_a29S)
      ($fShowMiddleFrag_$cshowList @ n_XDm $dShow_a29S)

$fReadLeftFrag3 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 50 0}]
$fReadLeftFrag3 = unpackCString# "LeftFrag"

$fReadLeftFrag2
  :: forall n_aQn. Read n_aQn => Prec -> ReadP (LeftFrag n_aQn)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [30 0] 283 0}]
$fReadLeftFrag2 =
  \ (@ n_XYd) ($dRead_a29o :: Read n_XYd) (eta_B1 :: Prec) ->
    let {
      ds_X3LX :: ReadPrec n_XYd
      [LclId, Str=DmdType]
      ds_X3LX = readPrec @ n_XYd $dRead_a29o } in
    let {
      lvl62_s96s
        :: forall b_a2x1. (LeftFrag n_XYd -> P b_a2x1) -> P b_a2x1
      [LclId, Arity=1]
      lvl62_s96s =
        \ (@ b_a2x1) (eta1_X4u :: LeftFrag n_XYd -> P b_a2x1) ->
          let {
            lvl63_s96t :: P b_a2x1
            [LclId]
            lvl63_s96t =
              (((ds_X3LX
                 `cast` (<NTCo:ReadPrec <n_XYd>>
                         :: ReadPrec n_XYd ~# (Prec -> ReadP n_XYd)))
                  $fReadLeftFrag4)
               `cast` (<NTCo:ReadP <n_XYd>>
                       :: ReadP n_XYd
                            ~#
                          (forall b_a2x1. (n_XYd -> P b_a2x1) -> P b_a2x1)))
                @ b_a2x1
                (\ (a1_X3NZ :: n_XYd) ->
                   eta1_X4u
                     (case a1_X3NZ of tpl_X4 { __DEFAULT ->
                      LeftFrag @ n_XYd tpl_X4
                      })) } in
          lex1
            @ b_a2x1
            (\ (a1_a3FD :: Lexeme) ->
               case a1_a3FD of _ {
                 __DEFAULT -> Fail @ b_a2x1;
                 Ident ds1_d2rp ->
                   case eqString ds1_d2rp $fReadLeftFrag3 of _ {
                     False -> Fail @ b_a2x1;
                     True -> lvl63_s96t
                   }
               }) } in
    parens1
      @ (LeftFrag n_XYd)
      ((\ (c_a3G5 :: Prec) ->
          case c_a3G5 of _ { I# x_a3G8 ->
          case <=# x_a3G8 10 of _ {
            False ->
              (pfail1 @ (LeftFrag n_XYd))
              `cast` (Sym <(NTCo:ReadP <LeftFrag n_XYd>)>
                      :: (forall b_a2x1. (LeftFrag n_XYd -> P b_a2x1) -> P b_a2x1)
                           ~#
                         ReadP (LeftFrag n_XYd));
            True ->
              lvl62_s96s
              `cast` (Sym <(NTCo:ReadP <LeftFrag n_XYd>)>
                      :: (forall b_a2x1. (LeftFrag n_XYd -> P b_a2x1) -> P b_a2x1)
                           ~#
                         ReadP (LeftFrag n_XYd))
          }
          })
       `cast` (Sym <(NTCo:ReadPrec <LeftFrag n_XYd>)>
               :: (Prec -> ReadP (LeftFrag n_XYd)) ~# ReadPrec (LeftFrag n_XYd)))
      eta_B1

$fReadLeftFrag_$creadPrec
  :: forall n_aQn. Read n_aQn => ReadPrec (LeftFrag n_aQn)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
$fReadLeftFrag_$creadPrec =
  $fReadLeftFrag2
  `cast` (forall n_XYe.
          <Read n_XYe> -> Sym <(NTCo:ReadPrec <LeftFrag n_XYe>)>
          :: (forall n_XYe. Read n_XYe => Prec -> ReadP (LeftFrag n_XYe))
               ~#
             (forall n_XYe. Read n_XYe => ReadPrec (LeftFrag n_XYe)))

$fReadLeftFrag_$creadsPrec
  :: forall n_aQn. Read n_aQn => Int -> ReadS (LeftFrag n_aQn)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0] 51 60}]
$fReadLeftFrag_$creadsPrec =
  \ (@ n_XSD) ($dRead_X2bF :: Read n_XSD) (eta_B1 :: Int) ->
    run
      @ (LeftFrag n_XSD)
      ((($fReadLeftFrag2 @ n_XSD $dRead_X2bF eta_B1)
        `cast` (<NTCo:ReadP <LeftFrag n_XSD>>
                :: ReadP (LeftFrag n_XSD)
                     ~#
                   (forall b_a2x1. (LeftFrag n_XSD -> P b_a2x1) -> P b_a2x1)))
         @ (LeftFrag n_XSD) ($fMonadP_$creturn @ (LeftFrag n_XSD)))

$fReadLeftFrag1
  :: forall n_XSF.
     Read n_XSF =>
     Prec -> forall b_a3GN. ([LeftFrag n_XSF] -> P b_a3GN) -> P b_a3GN
[GblId,
 Arity=3,
 Str=DmdType LAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XSF)
                 ($dRead_X2bH [Occ=Once] :: Read n_XSF)
                 _
                 (@ b_a3GN)
                 (eta1_a3GO [Occ=Once] :: [LeftFrag n_XSF] -> P b_a3GN) ->
                 $wa
                   @ (LeftFrag n_XSF)
                   (($fReadLeftFrag2 @ n_XSF $dRead_X2bH)
                    `cast` (Sym <(NTCo:ReadPrec <LeftFrag n_XSF>)>
                            :: (Prec -> ReadP (LeftFrag n_XSF)) ~# ReadPrec (LeftFrag n_XSF)))
                   @ b_a3GN
                   eta1_a3GO}]
$fReadLeftFrag1 =
  \ (@ n_XSF)
    ($dRead_X2bH :: Read n_XSF)
    _
    (@ b_a3GN)
    (eta1_a3GO :: [LeftFrag n_XSF] -> P b_a3GN) ->
    $wa
      @ (LeftFrag n_XSF)
      (($fReadLeftFrag2 @ n_XSF $dRead_X2bH)
       `cast` (Sym <(NTCo:ReadPrec <LeftFrag n_XSF>)>
               :: (Prec -> ReadP (LeftFrag n_XSF)) ~# ReadPrec (LeftFrag n_XSF)))
      @ b_a3GN
      eta1_a3GO

$fReadLeftFrag_$creadListPrec
  :: forall n_aQn. Read n_aQn => ReadPrec [LeftFrag n_aQn]
[GblId,
 Arity=3,
 Str=DmdType LAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= $fReadLeftFrag1
               `cast` (forall n_XSF.
                       <Read n_XSF>
                       -> (<Prec> -> Sym <(NTCo:ReadP <[LeftFrag n_XSF]>)>) ; Sym
                                                                                <(NTCo:ReadPrec
                                                                                    <[LeftFrag
                                                                                        n_XSF]>)>
                       :: (forall n_XSF.
                           Read n_XSF =>
                           Prec -> forall b_a2x1. ([LeftFrag n_XSF] -> P b_a2x1) -> P b_a2x1)
                            ~#
                          (forall n_XSF. Read n_XSF => ReadPrec [LeftFrag n_XSF]))}]
$fReadLeftFrag_$creadListPrec =
  $fReadLeftFrag1
  `cast` (forall n_XSF.
          <Read n_XSF>
          -> (<Prec> -> Sym <(NTCo:ReadP <[LeftFrag n_XSF]>)>) ; Sym
                                                                   <(NTCo:ReadPrec
                                                                       <[LeftFrag n_XSF]>)>
          :: (forall n_XSF.
              Read n_XSF =>
              Prec -> forall b_a2x1. ([LeftFrag n_XSF] -> P b_a2x1) -> P b_a2x1)
               ~#
             (forall n_XSF. Read n_XSF => ReadPrec [LeftFrag n_XSF]))

$fReadLeftFrag_$creadList
  :: forall n_aQn. Read n_aQn => ReadS [LeftFrag n_aQn]
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0] 70 60}]
$fReadLeftFrag_$creadList =
  \ (@ n_XSG) ($dRead_X2bI :: Read n_XSG) ->
    run
      @ [LeftFrag n_XSG]
      ($wa
         @ (LeftFrag n_XSG)
         (($fReadLeftFrag2 @ n_XSG $dRead_X2bI)
          `cast` (Sym <(NTCo:ReadPrec <LeftFrag n_XSG>)>
                  :: (Prec -> ReadP (LeftFrag n_XSG)) ~# ReadPrec (LeftFrag n_XSG)))
         @ [LeftFrag n_XSG]
         ($fMonadP_$creturn @ [LeftFrag n_XSG]))

$fReadLeftFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aQn. Read n_aQn => Read (LeftFrag n_aQn)
[GblId[DFunId],
 Arity=1,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Read [{$fReadLeftFrag_$creadsPrec},
                           {$fReadLeftFrag_$creadList}, {$fReadLeftFrag_$creadPrec},
                           {$fReadLeftFrag_$creadListPrec}]]
$fReadLeftFrag =
  \ (@ n_XSE) ($dRead_X2bG :: Read n_XSE) ->
    D:Read
      @ (LeftFrag n_XSE)
      ($fReadLeftFrag_$creadsPrec @ n_XSE $dRead_X2bG)
      ($fReadLeftFrag_$creadList @ n_XSE $dRead_X2bG)
      (($fReadLeftFrag2 @ n_XSE $dRead_X2bG)
       `cast` (Sym <(NTCo:ReadPrec <LeftFrag n_XSE>)>
               :: (Prec -> ReadP (LeftFrag n_XSE)) ~# ReadPrec (LeftFrag n_XSE)))
      (($fReadLeftFrag1 @ n_XSE $dRead_X2bG)
       `cast` ((<Prec> -> Sym <(NTCo:ReadP <[LeftFrag n_XSE]>)>) ; Sym
                                                                     <(NTCo:ReadPrec
                                                                         <[LeftFrag n_XSE]>)>
               :: (Prec
                   -> forall b_a2x1. ([LeftFrag n_XSE] -> P b_a2x1) -> P b_a2x1)
                    ~#
                  ReadPrec [LeftFrag n_XSE]))

$fOrdLeftFrag_$c<=
  :: forall n_aQn.
     (Eq (LeftFrag n_aQn), Ord n_aQn) =>
     LeftFrag n_aQn -> LeftFrag n_aQn -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType AU(AAAAASAA)U(S)U(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XSH)
                 _
                 ($dOrd_a28P [Occ=Once] :: Ord n_XSH)
                 (a_a1Sh [Occ=Once!] :: LeftFrag n_XSH)
                 (b_a1Si [Occ=Once!] :: LeftFrag n_XSH) ->
                 case a_a1Sh of _ { LeftFrag a1_a1Sj [Occ=Once] ->
                 case b_a1Si of _ { LeftFrag b1_a1Sk [Occ=Once] ->
                 <= @ n_XSH $dOrd_a28P a1_a1Sj b1_a1Sk
                 }
                 }}]
$fOrdLeftFrag_$c<= =
  \ (@ n_XSH)
    _
    ($dOrd_a28P :: Ord n_XSH)
    (a_a1Sh :: LeftFrag n_XSH)
    (b_a1Si :: LeftFrag n_XSH) ->
    case a_a1Sh of _ { LeftFrag a1_a1Sj ->
    case b_a1Si of _ { LeftFrag b1_a1Sk ->
    <= @ n_XSH $dOrd_a28P a1_a1Sj b1_a1Sk
    }
    }

$fOrdLeftFrag_$c>
  :: forall n_aQn.
     (Eq (LeftFrag n_aQn), Ord n_aQn) =>
     LeftFrag n_aQn -> LeftFrag n_aQn -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType AU(AAAASAAA)U(S)U(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XSI)
                 _
                 ($dOrd_a28P [Occ=Once] :: Ord n_XSI)
                 (a_a1Sp [Occ=Once!] :: LeftFrag n_XSI)
                 (b_a1Sq [Occ=Once!] :: LeftFrag n_XSI) ->
                 case a_a1Sp of _ { LeftFrag a1_a1Sr [Occ=Once] ->
                 case b_a1Sq of _ { LeftFrag b1_a1Ss [Occ=Once] ->
                 > @ n_XSI $dOrd_a28P a1_a1Sr b1_a1Ss
                 }
                 }}]
$fOrdLeftFrag_$c> =
  \ (@ n_XSI)
    _
    ($dOrd_a28P :: Ord n_XSI)
    (a_a1Sp :: LeftFrag n_XSI)
    (b_a1Sq :: LeftFrag n_XSI) ->
    case a_a1Sp of _ { LeftFrag a1_a1Sr ->
    case b_a1Sq of _ { LeftFrag b1_a1Ss ->
    > @ n_XSI $dOrd_a28P a1_a1Sr b1_a1Ss
    }
    }

$fOrdLeftFrag_$c>=
  :: forall n_aQn.
     (Eq (LeftFrag n_aQn), Ord n_aQn) =>
     LeftFrag n_aQn -> LeftFrag n_aQn -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType AU(AAASAAAA)U(S)U(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XSJ)
                 _
                 ($dOrd_a28P [Occ=Once] :: Ord n_XSJ)
                 (a_a1Sl [Occ=Once!] :: LeftFrag n_XSJ)
                 (b_a1Sm [Occ=Once!] :: LeftFrag n_XSJ) ->
                 case a_a1Sl of _ { LeftFrag a1_a1Sn [Occ=Once] ->
                 case b_a1Sm of _ { LeftFrag b1_a1So [Occ=Once] ->
                 >= @ n_XSJ $dOrd_a28P a1_a1Sn b1_a1So
                 }
                 }}]
$fOrdLeftFrag_$c>= =
  \ (@ n_XSJ)
    _
    ($dOrd_a28P :: Ord n_XSJ)
    (a_a1Sl :: LeftFrag n_XSJ)
    (b_a1Sm :: LeftFrag n_XSJ) ->
    case a_a1Sl of _ { LeftFrag a1_a1Sn ->
    case b_a1Sm of _ { LeftFrag b1_a1So ->
    >= @ n_XSJ $dOrd_a28P a1_a1Sn b1_a1So
    }
    }

$fOrdLeftFrag_$c<
  :: forall n_aQn.
     (Eq (LeftFrag n_aQn), Ord n_aQn) =>
     LeftFrag n_aQn -> LeftFrag n_aQn -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType AU(AASAAAAA)U(S)U(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XSK)
                 _
                 ($dOrd_a28P [Occ=Once] :: Ord n_XSK)
                 (a_a1Sd [Occ=Once!] :: LeftFrag n_XSK)
                 (b_a1Se [Occ=Once!] :: LeftFrag n_XSK) ->
                 case a_a1Sd of _ { LeftFrag a1_a1Sf [Occ=Once] ->
                 case b_a1Se of _ { LeftFrag b1_a1Sg [Occ=Once] ->
                 < @ n_XSK $dOrd_a28P a1_a1Sf b1_a1Sg
                 }
                 }}]
$fOrdLeftFrag_$c< =
  \ (@ n_XSK)
    _
    ($dOrd_a28P :: Ord n_XSK)
    (a_a1Sd :: LeftFrag n_XSK)
    (b_a1Se :: LeftFrag n_XSK) ->
    case a_a1Sd of _ { LeftFrag a1_a1Sf ->
    case b_a1Se of _ { LeftFrag b1_a1Sg ->
    < @ n_XSK $dOrd_a28P a1_a1Sf b1_a1Sg
    }
    }

$fOrdLeftFrag_$ccompare
  :: forall n_aQn.
     (Eq (LeftFrag n_aQn), Ord n_aQn) =>
     LeftFrag n_aQn -> LeftFrag n_aQn -> Ordering
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType AU(ASAAAAAA)U(S)U(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XSL)
                 _
                 ($dOrd_a28P [Occ=Once] :: Ord n_XSL)
                 (a_a1S9 [Occ=Once!] :: LeftFrag n_XSL)
                 (b_a1Sa [Occ=Once!] :: LeftFrag n_XSL) ->
                 case a_a1S9 of _ { LeftFrag a1_a1Sb [Occ=Once] ->
                 case b_a1Sa of _ { LeftFrag b1_a1Sc [Occ=Once] ->
                 compare @ n_XSL $dOrd_a28P a1_a1Sb b1_a1Sc
                 }
                 }}]
$fOrdLeftFrag_$ccompare =
  \ (@ n_XSL)
    _
    ($dOrd_a28P :: Ord n_XSL)
    (a_a1S9 :: LeftFrag n_XSL)
    (b_a1Sa :: LeftFrag n_XSL) ->
    case a_a1S9 of _ { LeftFrag a1_a1Sb ->
    case b_a1Sa of _ { LeftFrag b1_a1Sc ->
    compare @ n_XSL $dOrd_a28P a1_a1Sb b1_a1Sc
    }
    }

$fOrdLeftFrag_$cmin
  :: forall n_aQn.
     (Eq (LeftFrag n_aQn), Ord n_aQn) =>
     LeftFrag n_aQn -> LeftFrag n_aQn -> LeftFrag n_aQn
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType AU(AAAAASAA)U(S)U(S)m,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XSM)
                 _
                 ($dOrd_a28P [Occ=Once] :: Ord n_XSM)
                 (x_a2y3 [Occ=Once!] :: LeftFrag n_XSM)
                 (y_a2y4 [Occ=Once!] :: LeftFrag n_XSM) ->
                 case x_a2y3 of wild_X2g { LeftFrag a1_a1Sj [Occ=Once] ->
                 case y_a2y4 of wild1_XH { LeftFrag b1_a1Sk [Occ=Once] ->
                 case <= @ n_XSM $dOrd_a28P a1_a1Sj b1_a1Sk of _ {
                   False -> wild1_XH;
                   True -> wild_X2g
                 }
                 }
                 }}]
$fOrdLeftFrag_$cmin =
  \ (@ n_XSM)
    _
    ($dOrd_a28P :: Ord n_XSM)
    (x_a2y3 :: LeftFrag n_XSM)
    (y_a2y4 :: LeftFrag n_XSM) ->
    case x_a2y3 of wild_X2g { LeftFrag a1_a1Sj ->
    case y_a2y4 of wild1_XH { LeftFrag b1_a1Sk ->
    case <= @ n_XSM $dOrd_a28P a1_a1Sj b1_a1Sk of _ {
      False -> wild1_XH;
      True -> wild_X2g
    }
    }
    }

$fOrdLeftFrag_$cmax
  :: forall n_aQn.
     (Eq (LeftFrag n_aQn), Ord n_aQn) =>
     LeftFrag n_aQn -> LeftFrag n_aQn -> LeftFrag n_aQn
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType AU(AAAAASAA)U(S)U(S)m,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XSN)
                 _
                 ($dOrd_a28P [Occ=Once] :: Ord n_XSN)
                 (x_a2yd [Occ=Once!] :: LeftFrag n_XSN)
                 (y_a2ye [Occ=Once!] :: LeftFrag n_XSN) ->
                 case x_a2yd of wild_X2g { LeftFrag a1_a1Sj [Occ=Once] ->
                 case y_a2ye of wild1_XH { LeftFrag b1_a1Sk [Occ=Once] ->
                 case <= @ n_XSN $dOrd_a28P a1_a1Sj b1_a1Sk of _ {
                   False -> wild_X2g;
                   True -> wild1_XH
                 }
                 }
                 }}]
$fOrdLeftFrag_$cmax =
  \ (@ n_XSN)
    _
    ($dOrd_a28P :: Ord n_XSN)
    (x_a2yd :: LeftFrag n_XSN)
    (y_a2ye :: LeftFrag n_XSN) ->
    case x_a2yd of wild_X2g { LeftFrag a1_a1Sj ->
    case y_a2ye of wild1_XH { LeftFrag b1_a1Sk ->
    case <= @ n_XSN $dOrd_a28P a1_a1Sj b1_a1Sk of _ {
      False -> wild_X2g;
      True -> wild1_XH
    }
    }
    }

$fOrdLeftFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aQn.
     (Eq (LeftFrag n_aQn), Ord n_aQn) =>
     Ord (LeftFrag n_aQn)
[GblId[DFunId[1]],
 Arity=2,
 Caf=NoCafRefs,
 Str=DmdType LLm,
 Unf=DFun(arity=3) D:Ord [<1>, {$fOrdLeftFrag_$ccompare},
                          {$fOrdLeftFrag_$c<}, {$fOrdLeftFrag_$c>=}, {$fOrdLeftFrag_$c>},
                          {$fOrdLeftFrag_$c<=}, {$fOrdLeftFrag_$cmax},
                          {$fOrdLeftFrag_$cmin}]]
$fOrdLeftFrag =
  \ (@ n_XSO)
    ($dEq_a28O :: Eq (LeftFrag n_XSO))
    ($dOrd_a28P :: Ord n_XSO) ->
    D:Ord
      @ (LeftFrag n_XSO)
      $dEq_a28O
      ($fOrdLeftFrag_$ccompare @ n_XSO $dEq_a28O $dOrd_a28P)
      ($fOrdLeftFrag_$c< @ n_XSO $dEq_a28O $dOrd_a28P)
      ($fOrdLeftFrag_$c>= @ n_XSO $dEq_a28O $dOrd_a28P)
      ($fOrdLeftFrag_$c> @ n_XSO $dEq_a28O $dOrd_a28P)
      ($fOrdLeftFrag_$c<= @ n_XSO $dEq_a28O $dOrd_a28P)
      ($fOrdLeftFrag_$cmax @ n_XSO $dEq_a28O $dOrd_a28P)
      ($fOrdLeftFrag_$cmin @ n_XSO $dEq_a28O $dOrd_a28P)

$fEqLeftFrag_$c==
  :: forall n_aQn.
     Eq n_aQn =>
     LeftFrag n_aQn -> LeftFrag n_aQn -> Bool
[GblId,
 Arity=3,
 Caf=NoCafRefs,
 Str=DmdType U(SA)U(S)U(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XSP)
                 ($dEq_a28C [Occ=Once] :: Eq n_XSP)
                 (ds_d2r0 [Occ=Once!] :: LeftFrag n_XSP)
                 (ds1_d2r1 [Occ=Once!] :: LeftFrag n_XSP) ->
                 case ds_d2r0 of _ { LeftFrag a1_a1S5 [Occ=Once] ->
                 case ds1_d2r1 of _ { LeftFrag b1_a1S6 [Occ=Once] ->
                 == @ n_XSP $dEq_a28C a1_a1S5 b1_a1S6
                 }
                 }}]
$fEqLeftFrag_$c== =
  \ (@ n_XSP)
    ($dEq_a28C :: Eq n_XSP)
    (ds_d2r0 :: LeftFrag n_XSP)
    (ds1_d2r1 :: LeftFrag n_XSP) ->
    case ds_d2r0 of _ { LeftFrag a1_a1S5 ->
    case ds1_d2r1 of _ { LeftFrag b1_a1S6 ->
    == @ n_XSP $dEq_a28C a1_a1S5 b1_a1S6
    }
    }

$fEqLeftFrag_$c/=
  :: forall n_aQn.
     Eq n_aQn =>
     LeftFrag n_aQn -> LeftFrag n_aQn -> Bool
[GblId,
 Arity=3,
 Caf=NoCafRefs,
 Str=DmdType U(SA)U(S)U(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XSQ)
                 ($dEq_a28C [Occ=Once] :: Eq n_XSQ)
                 (a_a1S7 [Occ=Once!] :: LeftFrag n_XSQ)
                 (b_a1S8 [Occ=Once!] :: LeftFrag n_XSQ) ->
                 case a_a1S7 of _ { LeftFrag a1_a1S5 [Occ=Once] ->
                 case b_a1S8 of _ { LeftFrag b1_a1S6 [Occ=Once] ->
                 case == @ n_XSQ $dEq_a28C a1_a1S5 b1_a1S6 of _ {
                   False -> True;
                   True -> False
                 }
                 }
                 }}]
$fEqLeftFrag_$c/= =
  \ (@ n_XSQ)
    ($dEq_a28C :: Eq n_XSQ)
    (a_a1S7 :: LeftFrag n_XSQ)
    (b_a1S8 :: LeftFrag n_XSQ) ->
    case a_a1S7 of _ { LeftFrag a1_a1S5 ->
    case b_a1S8 of _ { LeftFrag b1_a1S6 ->
    case == @ n_XSQ $dEq_a28C a1_a1S5 b1_a1S6 of _ {
      False -> True;
      True -> False
    }
    }
    }

$fEqLeftFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aQn. Eq n_aQn => Eq (LeftFrag n_aQn)
[GblId[DFunId],
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Eq [{$fEqLeftFrag_$c==}, {$fEqLeftFrag_$c/=}]]
$fEqLeftFrag =
  \ (@ n_XSR) ($dEq_a28C :: Eq n_XSR) ->
    D:Eq
      @ (LeftFrag n_XSR)
      ($fEqLeftFrag_$c== @ n_XSR $dEq_a28C)
      ($fEqLeftFrag_$c/= @ n_XSR $dEq_a28C)

$fShowLeftFrag1 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 60 0}]
$fShowLeftFrag1 = unpackCString# "LeftFrag "

$w$cshowsPrec :: forall n_aQn. Show n_aQn => Int# -> n_aQn -> ShowS
[GblId,
 Arity=3,
 Str=DmdType LLS,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [30 0 0] 211 120}]
$w$cshowsPrec =
  \ (@ n_aQn)
    (w_s7MZ :: Show n_aQn)
    (ww_s7N2 :: Int#)
    (ww1_s7N6 :: n_aQn) ->
    let {
      g_a2z8 [Dmd=Just L] :: String -> String
      [LclId, Str=DmdType]
      g_a2z8 = showsPrec @ n_aQn w_s7MZ $fReadLeftFrag4 ww1_s7N6 } in
    case >=# ww_s7N2 11 of _ {
      False ->
        \ (x_a2z9 :: String) -> ++ @ Char $fShowLeftFrag1 (g_a2z8 x_a2z9);
      True ->
        \ (x_a2yS :: String) ->
          : @ Char
            shows11
            (++ @ Char $fShowLeftFrag1 (g_a2z8 (: @ Char shows10 x_a2yS)))
    }

$fShowLeftFrag_$cshowsPrec [InlPrag=INLINE[0]]
  :: forall n_aQn. Show n_aQn => Int -> LeftFrag n_aQn -> ShowS
[GblId,
 Arity=3,
 Str=DmdType LU(L)U(S),
 Unf=Unf{Src=Worker=$w$cshowsPrec, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aQn)
                 (w_s7MZ [Occ=Once] :: Show n_aQn)
                 (w1_s7N0 [Occ=Once!] :: Int)
                 (w2_s7N4 [Occ=Once!] :: LeftFrag n_aQn) ->
                 case w1_s7N0 of _ { I# ww_s7N2 [Occ=Once] ->
                 case w2_s7N4 of _ { LeftFrag ww1_s7N6 [Occ=Once] ->
                 $w$cshowsPrec @ n_aQn w_s7MZ ww_s7N2 ww1_s7N6
                 }
                 }}]
$fShowLeftFrag_$cshowsPrec =
  \ (@ n_aQn)
    (w_s7MZ :: Show n_aQn)
    (w1_s7N0 :: Int)
    (w2_s7N4 :: LeftFrag n_aQn) ->
    case w1_s7N0 of _ { I# ww_s7N2 ->
    case w2_s7N4 of _ { LeftFrag ww1_s7N6 ->
    $w$cshowsPrec @ n_aQn w_s7MZ ww_s7N2 ww1_s7N6
    }
    }

$fShowLeftFrag_$cshowList
  :: forall n_aQn. Show n_aQn => [LeftFrag n_aQn] -> ShowS
[GblId,
 Arity=3,
 Str=DmdType LSL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 0] 100 0}]
$fShowLeftFrag_$cshowList =
  \ (@ n_XST)
    ($dShow_a28m :: Show n_XST)
    (eta_B2 :: [LeftFrag n_XST])
    (eta1_B1 :: String) ->
    showList__
      @ (LeftFrag n_XST)
      (\ (w_s7N4 :: LeftFrag n_XST) ->
         case w_s7N4 of _ { LeftFrag ww_s7N6 ->
         $w$cshowsPrec @ n_XST $dShow_a28m 0 ww_s7N6
         })
      eta_B2
      eta1_B1

$fShowLeftFrag_$cshow
  :: forall n_aQn. Show n_aQn => LeftFrag n_aQn -> String
[GblId,
 Arity=2,
 Str=DmdType LU(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XSV)
                 ($dShow_a28m [Occ=Once] :: Show n_XSV)
                 (x_a2zz [Occ=Once] :: LeftFrag n_XSV) ->
                 $fShowLeftFrag_$cshowsPrec
                   @ n_XSV $dShow_a28m shows26 x_a2zz ([] @ Char)}]
$fShowLeftFrag_$cshow =
  \ (@ n_XSV)
    ($dShow_a28m :: Show n_XSV)
    (x_a2zz :: LeftFrag n_XSV) ->
    case x_a2zz of _ { LeftFrag ww_s7N6 ->
    $w$cshowsPrec @ n_XSV $dShow_a28m 0 ww_s7N6 ([] @ Char)
    }

$fShowLeftFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aQn. Show n_aQn => Show (LeftFrag n_aQn)
[GblId[DFunId],
 Arity=1,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Show [{$fShowLeftFrag_$cshowsPrec},
                           {$fShowLeftFrag_$cshow}, {$fShowLeftFrag_$cshowList}]]
$fShowLeftFrag =
  \ (@ n_XSU) ($dShow_a28m :: Show n_XSU) ->
    D:Show
      @ (LeftFrag n_XSU)
      ($fShowLeftFrag_$cshowsPrec @ n_XSU $dShow_a28m)
      ($fShowLeftFrag_$cshow @ n_XSU $dShow_a28m)
      ($fShowLeftFrag_$cshowList @ n_XSU $dShow_a28m)

lvl_rb9s :: [Char]
[GblId, Str=DmdType]
lvl_rb9s = unpackCString# "partialParse"

lvl1_rb9t :: [Char]
[GblId, Str=DmdType]
lvl1_rb9t = unpackCString# "numDigits"

lvl2_rb9u :: [Char]
[GblId, Str=DmdType]
lvl2_rb9u = unpackCString# "RightFrag"

$fReadRightFrag2
  :: forall n_aQo. Read n_aQo => Prec -> ReadP (RightFrag n_aQo)
[GblId, Arity=2, Str=DmdType LL]
$fReadRightFrag2 =
  \ (@ n_X108) ($dRead_a25z :: Read n_X108) (eta_B1 :: Prec) ->
    let {
      ds_X3Tv :: ReadPrec n_X108
      [LclId, Str=DmdType]
      ds_X3Tv = readPrec @ n_X108 $dRead_a25z } in
    let {
      lvl62_s96u
        :: forall b_a2x1. (RightFrag n_X108 -> P b_a2x1) -> P b_a2x1
      [LclId, Arity=1]
      lvl62_s96u =
        \ (@ b_a2x1) (eta1_X5p :: RightFrag n_X108 -> P b_a2x1) ->
          let {
            lvl63_s96v :: P b_a2x1
            [LclId]
            lvl63_s96v =
              $fReadInt5
                $fReadInt_$sconvertInt
                minPrec
                @ b_a2x1
                (\ (a1_X3M3 :: Int) ->
                   let {
                     lvl64_s96w :: P b_a2x1
                     [LclId]
                     lvl64_s96w =
                       (((ds_X3Tv
                          `cast` (<NTCo:ReadPrec <n_X108>>
                                  :: ReadPrec n_X108 ~# (Prec -> ReadP n_X108)))
                           minPrec)
                        `cast` (<NTCo:ReadP <n_X108>>
                                :: ReadP n_X108
                                     ~#
                                   (forall b_a2x1. (n_X108 -> P b_a2x1) -> P b_a2x1)))
                         @ b_a2x1
                         (\ (a2_X3Qc :: n_X108) ->
                            let {
                              lvl65_s96x :: P b_a2x1
                              [LclId]
                              lvl65_s96x =
                                eta1_X5p
                                  (case a1_X3M3 of _ { I# tpl1_B4 ->
                                   case a2_X3Qc of tpl2_X8 { __DEFAULT ->
                                   RightFrag @ n_X108 tpl1_B4 tpl2_X8
                                   }
                                   }) } in
                            lex1
                              @ b_a2x1
                              (\ (a3_X3N6 :: Lexeme) ->
                                 case a3_X3N6 of _ {
                                   __DEFAULT -> Fail @ b_a2x1;
                                   Punc ds1_d2pR ->
                                     case ds1_d2pR of _ {
                                       [] -> Fail @ b_a2x1;
                                       : ds2_d2pS ds3_d2pT ->
                                         case ds2_d2pS of _ { C# ds4_d2pU ->
                                         case ds4_d2pU of _ {
                                           __DEFAULT -> Fail @ b_a2x1;
                                           '}' ->
                                             case ds3_d2pT of _ {
                                               [] -> lvl65_s96x;
                                               : ipv_s2Aw ipv1_s2Ax -> Fail @ b_a2x1
                                             }
                                         }
                                         }
                                     }
                                 })) } in
                   let {
                     k_a3Gs :: Lexeme -> P b_a2x1
                     [LclId, Arity=1]
                     k_a3Gs =
                       \ (a2_X3MD :: Lexeme) ->
                         case a2_X3MD of _ {
                           __DEFAULT -> Fail @ b_a2x1;
                           Punc ds1_d2q2 ->
                             case ds1_d2q2 of _ {
                               [] -> Fail @ b_a2x1;
                               : ds2_d2q3 ds3_d2q4 ->
                                 case ds2_d2q3 of _ { C# ds4_d2q5 ->
                                 case ds4_d2q5 of _ {
                                   __DEFAULT -> Fail @ b_a2x1;
                                   '=' ->
                                     case ds3_d2q4 of _ {
                                       [] -> lvl64_s96w;
                                       : ipv_s2Az ipv1_s2AA -> Fail @ b_a2x1
                                     }
                                 }
                                 }
                             }
                         } } in
                   let {
                     lvl85_a3Gt :: P b_a2x1
                     [LclId]
                     lvl85_a3Gt = hsLex2 @ b_a2x1 k_a3Gs } in
                   let {
                     k1_a3Gu :: () -> P b_a2x1
                     [LclId,
                      Arity=1,
                      Str=DmdType A,
                      Unf=Unf{Src=InlineStable, TopLvl=False, Arity=1, Value=True,
                              ConLike=True, WorkFree=True, Expandable=True,
                              Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
                              Tmpl= \ _ -> hsLex2 @ b_a2x1 k_a3Gs}]
                     k1_a3Gu = \ _ -> lvl85_a3Gt } in
                   let {
                     a_s9af :: String -> P b_a2x1
                     [LclId, Arity=1]
                     a_s9af =
                       \ (a104_a3Gw :: String) ->
                         ((skipSpaces_skip a104_a3Gw)
                          `cast` (<NTCo:ReadP <()>>
                                  :: ReadP () ~# (forall b_a2x1. (() -> P b_a2x1) -> P b_a2x1)))
                           @ b_a2x1 k1_a3Gu } in
                   let {
                     lvl65_s96y :: P b_a2x1
                     [LclId]
                     lvl65_s96y = Look @ b_a2x1 a_s9af } in
                   let {
                     k2_X3Ng :: Lexeme -> P b_a2x1
                     [LclId, Arity=1]
                     k2_X3Ng =
                       \ (a2_X3Mu :: Lexeme) ->
                         case a2_X3Mu of _ {
                           __DEFAULT -> Fail @ b_a2x1;
                           Ident ds1_d2qd ->
                             case eqString ds1_d2qd lvl_rb9s of _ {
                               False -> Fail @ b_a2x1;
                               True -> lvl65_s96y
                             }
                         } } in
                   let {
                     lvl66_X3Nj :: P b_a2x1
                     [LclId]
                     lvl66_X3Nj = hsLex2 @ b_a2x1 k2_X3Ng } in
                   let {
                     k3_X3Nm :: () -> P b_a2x1
                     [LclId,
                      Arity=1,
                      Str=DmdType A,
                      Unf=Unf{Src=InlineStable, TopLvl=False, Arity=1, Value=True,
                              ConLike=True, WorkFree=True, Expandable=True,
                              Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
                              Tmpl= \ _ -> hsLex2 @ b_a2x1 k2_X3Ng}]
                     k3_X3Nm = \ _ -> lvl66_X3Nj } in
                   let {
                     a2_s9aj :: String -> P b_a2x1
                     [LclId, Arity=1]
                     a2_s9aj =
                       \ (a104_a3Gw :: String) ->
                         ((skipSpaces_skip a104_a3Gw)
                          `cast` (<NTCo:ReadP <()>>
                                  :: ReadP () ~# (forall b_a2x1. (() -> P b_a2x1) -> P b_a2x1)))
                           @ b_a2x1 k3_X3Nm } in
                   let {
                     lvl67_s96z :: P b_a2x1
                     [LclId]
                     lvl67_s96z = Look @ b_a2x1 a2_s9aj } in
                   lex1
                     @ b_a2x1
                     (\ (a3_X3M8 :: Lexeme) ->
                        case a3_X3M8 of _ {
                          __DEFAULT -> Fail @ b_a2x1;
                          Punc ds1_d2qi ->
                            case ds1_d2qi of _ {
                              [] -> Fail @ b_a2x1;
                              : ds2_d2qj ds3_d2qk ->
                                case ds2_d2qj of _ { C# ds4_d2ql ->
                                case ds4_d2ql of _ {
                                  __DEFAULT -> Fail @ b_a2x1;
                                  ',' ->
                                    case ds3_d2qk of _ {
                                      [] -> lvl67_s96z;
                                      : ipv_s2AC ipv1_s2AD -> Fail @ b_a2x1
                                    }
                                }
                                }
                            }
                        })) } in
          let {
            k_a3Gs :: Lexeme -> P b_a2x1
            [LclId, Arity=1]
            k_a3Gs =
              \ (a1_X3LH :: Lexeme) ->
                case a1_X3LH of _ {
                  __DEFAULT -> Fail @ b_a2x1;
                  Punc ds1_d2qt ->
                    case ds1_d2qt of _ {
                      [] -> Fail @ b_a2x1;
                      : ds2_d2qu ds3_d2qv ->
                        case ds2_d2qu of _ { C# ds4_d2qw ->
                        case ds4_d2qw of _ {
                          __DEFAULT -> Fail @ b_a2x1;
                          '=' ->
                            case ds3_d2qv of _ {
                              [] -> lvl63_s96v;
                              : ipv_s2AF ipv1_s2AG -> Fail @ b_a2x1
                            }
                        }
                        }
                    }
                } } in
          let {
            lvl85_a3Gt :: P b_a2x1
            [LclId]
            lvl85_a3Gt = hsLex2 @ b_a2x1 k_a3Gs } in
          let {
            k1_a3Gu :: () -> P b_a2x1
            [LclId,
             Arity=1,
             Str=DmdType A,
             Unf=Unf{Src=InlineStable, TopLvl=False, Arity=1, Value=True,
                     ConLike=True, WorkFree=True, Expandable=True,
                     Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
                     Tmpl= \ _ -> hsLex2 @ b_a2x1 k_a3Gs}]
            k1_a3Gu = \ _ -> lvl85_a3Gt } in
          let {
            a_s9av :: String -> P b_a2x1
            [LclId, Arity=1]
            a_s9av =
              \ (a104_a3Gw :: String) ->
                ((skipSpaces_skip a104_a3Gw)
                 `cast` (<NTCo:ReadP <()>>
                         :: ReadP () ~# (forall b_a2x1. (() -> P b_a2x1) -> P b_a2x1)))
                  @ b_a2x1 k1_a3Gu } in
          let {
            lvl64_s96A :: P b_a2x1
            [LclId]
            lvl64_s96A = Look @ b_a2x1 a_s9av } in
          let {
            k2_X3Nc :: Lexeme -> P b_a2x1
            [LclId, Arity=1]
            k2_X3Nc =
              \ (a1_X3Ly :: Lexeme) ->
                case a1_X3Ly of _ {
                  __DEFAULT -> Fail @ b_a2x1;
                  Ident ds1_d2qE ->
                    case eqString ds1_d2qE lvl1_rb9t of _ {
                      False -> Fail @ b_a2x1;
                      True -> lvl64_s96A
                    }
                } } in
          let {
            lvl65_X3Nf :: P b_a2x1
            [LclId]
            lvl65_X3Nf = hsLex2 @ b_a2x1 k2_X3Nc } in
          let {
            k3_X3Ni :: () -> P b_a2x1
            [LclId,
             Arity=1,
             Str=DmdType A,
             Unf=Unf{Src=InlineStable, TopLvl=False, Arity=1, Value=True,
                     ConLike=True, WorkFree=True, Expandable=True,
                     Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
                     Tmpl= \ _ -> hsLex2 @ b_a2x1 k2_X3Nc}]
            k3_X3Ni = \ _ -> lvl65_X3Nf } in
          let {
            a1_s9az :: String -> P b_a2x1
            [LclId, Arity=1]
            a1_s9az =
              \ (a104_a3Gw :: String) ->
                ((skipSpaces_skip a104_a3Gw)
                 `cast` (<NTCo:ReadP <()>>
                         :: ReadP () ~# (forall b_a2x1. (() -> P b_a2x1) -> P b_a2x1)))
                  @ b_a2x1 k3_X3Ni } in
          let {
            lvl66_s96B :: P b_a2x1
            [LclId]
            lvl66_s96B = Look @ b_a2x1 a1_s9az } in
          let {
            k4_X3Nk :: Lexeme -> P b_a2x1
            [LclId, Arity=1]
            k4_X3Nk =
              \ (a2_X3Lc :: Lexeme) ->
                case a2_X3Lc of _ {
                  __DEFAULT -> Fail @ b_a2x1;
                  Punc ds1_d2qJ ->
                    case ds1_d2qJ of _ {
                      [] -> Fail @ b_a2x1;
                      : ds2_d2qK ds3_d2qL ->
                        case ds2_d2qK of _ { C# ds4_d2qM ->
                        case ds4_d2qM of _ {
                          __DEFAULT -> Fail @ b_a2x1;
                          '{' ->
                            case ds3_d2qL of _ {
                              [] -> lvl66_s96B;
                              : ipv_s2AI ipv1_s2AJ -> Fail @ b_a2x1
                            }
                        }
                        }
                    }
                } } in
          let {
            lvl67_X3Nn :: P b_a2x1
            [LclId]
            lvl67_X3Nn = hsLex2 @ b_a2x1 k4_X3Nk } in
          let {
            k5_X3Nq :: () -> P b_a2x1
            [LclId,
             Arity=1,
             Str=DmdType A,
             Unf=Unf{Src=InlineStable, TopLvl=False, Arity=1, Value=True,
                     ConLike=True, WorkFree=True, Expandable=True,
                     Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
                     Tmpl= \ _ -> hsLex2 @ b_a2x1 k4_X3Nk}]
            k5_X3Nq = \ _ -> lvl67_X3Nn } in
          let {
            a2_s9aG :: String -> P b_a2x1
            [LclId, Arity=1]
            a2_s9aG =
              \ (a104_a3Gw :: String) ->
                ((skipSpaces_skip a104_a3Gw)
                 `cast` (<NTCo:ReadP <()>>
                         :: ReadP () ~# (forall b_a2x1. (() -> P b_a2x1) -> P b_a2x1)))
                  @ b_a2x1 k5_X3Nq } in
          let {
            lvl68_s96C :: P b_a2x1
            [LclId]
            lvl68_s96C = Look @ b_a2x1 a2_s9aG } in
          lex1
            @ b_a2x1
            (\ (a3_a3FD :: Lexeme) ->
               case a3_a3FD of _ {
                 __DEFAULT -> Fail @ b_a2x1;
                 Ident ds1_d2qU ->
                   case eqString ds1_d2qU lvl2_rb9u of _ {
                     False -> Fail @ b_a2x1;
                     True -> lvl68_s96C
                   }
               }) } in
    parens1
      @ (RightFrag n_X108)
      ((\ (c_a3G5 :: Prec) ->
          case c_a3G5 of _ { I# x_a3G8 ->
          case <=# x_a3G8 11 of _ {
            False ->
              (pfail1 @ (RightFrag n_X108))
              `cast` (Sym <(NTCo:ReadP <RightFrag n_X108>)>
                      :: (forall b_a2x1. (RightFrag n_X108 -> P b_a2x1) -> P b_a2x1)
                           ~#
                         ReadP (RightFrag n_X108));
            True ->
              lvl62_s96u
              `cast` (Sym <(NTCo:ReadP <RightFrag n_X108>)>
                      :: (forall b_a2x1. (RightFrag n_X108 -> P b_a2x1) -> P b_a2x1)
                           ~#
                         ReadP (RightFrag n_X108))
          }
          })
       `cast` (Sym <(NTCo:ReadPrec <RightFrag n_X108>)>
               :: (Prec -> ReadP (RightFrag n_X108))
                    ~#
                  ReadPrec (RightFrag n_X108)))
      eta_B1

$fReadRightFrag_$creadPrec
  :: forall n_aQo. Read n_aQo => ReadPrec (RightFrag n_aQo)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
$fReadRightFrag_$creadPrec =
  $fReadRightFrag2
  `cast` (forall n_X109.
          <Read n_X109> -> Sym <(NTCo:ReadPrec <RightFrag n_X109>)>
          :: (forall n_X109. Read n_X109 => Prec -> ReadP (RightFrag n_X109))
               ~#
             (forall n_X109. Read n_X109 => ReadPrec (RightFrag n_X109)))

$fReadRightFrag_$creadsPrec
  :: forall n_aQo. Read n_aQo => Int -> ReadS (RightFrag n_aQo)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0] 51 60}]
$fReadRightFrag_$creadsPrec =
  \ (@ n_XT1) ($dRead_X28d :: Read n_XT1) (eta_B1 :: Int) ->
    run
      @ (RightFrag n_XT1)
      ((($fReadRightFrag2 @ n_XT1 $dRead_X28d eta_B1)
        `cast` (<NTCo:ReadP <RightFrag n_XT1>>
                :: ReadP (RightFrag n_XT1)
                     ~#
                   (forall b_a2x1. (RightFrag n_XT1 -> P b_a2x1) -> P b_a2x1)))
         @ (RightFrag n_XT1) ($fMonadP_$creturn @ (RightFrag n_XT1)))

$fReadRightFrag1
  :: forall n_XT3.
     Read n_XT3 =>
     Prec -> forall b_a3GN. ([RightFrag n_XT3] -> P b_a3GN) -> P b_a3GN
[GblId,
 Arity=3,
 Str=DmdType LAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XT3)
                 ($dRead_X28f [Occ=Once] :: Read n_XT3)
                 _
                 (@ b_a3GN)
                 (eta1_a3GO [Occ=Once] :: [RightFrag n_XT3] -> P b_a3GN) ->
                 $wa
                   @ (RightFrag n_XT3)
                   (($fReadRightFrag2 @ n_XT3 $dRead_X28f)
                    `cast` (Sym <(NTCo:ReadPrec <RightFrag n_XT3>)>
                            :: (Prec -> ReadP (RightFrag n_XT3))
                                 ~#
                               ReadPrec (RightFrag n_XT3)))
                   @ b_a3GN
                   eta1_a3GO}]
$fReadRightFrag1 =
  \ (@ n_XT3)
    ($dRead_X28f :: Read n_XT3)
    _
    (@ b_a3GN)
    (eta1_a3GO :: [RightFrag n_XT3] -> P b_a3GN) ->
    $wa
      @ (RightFrag n_XT3)
      (($fReadRightFrag2 @ n_XT3 $dRead_X28f)
       `cast` (Sym <(NTCo:ReadPrec <RightFrag n_XT3>)>
               :: (Prec -> ReadP (RightFrag n_XT3))
                    ~#
                  ReadPrec (RightFrag n_XT3)))
      @ b_a3GN
      eta1_a3GO

$fReadRightFrag_$creadListPrec
  :: forall n_aQo. Read n_aQo => ReadPrec [RightFrag n_aQo]
[GblId,
 Arity=3,
 Str=DmdType LAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= $fReadRightFrag1
               `cast` (forall n_XT3.
                       <Read n_XT3>
                       -> (<Prec> -> Sym <(NTCo:ReadP <[RightFrag n_XT3]>)>) ; Sym
                                                                                 <(NTCo:ReadPrec
                                                                                     <[RightFrag
                                                                                         n_XT3]>)>
                       :: (forall n_XT3.
                           Read n_XT3 =>
                           Prec -> forall b_a2x1. ([RightFrag n_XT3] -> P b_a2x1) -> P b_a2x1)
                            ~#
                          (forall n_XT3. Read n_XT3 => ReadPrec [RightFrag n_XT3]))}]
$fReadRightFrag_$creadListPrec =
  $fReadRightFrag1
  `cast` (forall n_XT3.
          <Read n_XT3>
          -> (<Prec> -> Sym <(NTCo:ReadP <[RightFrag n_XT3]>)>) ; Sym
                                                                    <(NTCo:ReadPrec
                                                                        <[RightFrag n_XT3]>)>
          :: (forall n_XT3.
              Read n_XT3 =>
              Prec -> forall b_a2x1. ([RightFrag n_XT3] -> P b_a2x1) -> P b_a2x1)
               ~#
             (forall n_XT3. Read n_XT3 => ReadPrec [RightFrag n_XT3]))

$fReadRightFrag_$creadList
  :: forall n_aQo. Read n_aQo => ReadS [RightFrag n_aQo]
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0] 70 60}]
$fReadRightFrag_$creadList =
  \ (@ n_XT4) ($dRead_X28g :: Read n_XT4) ->
    run
      @ [RightFrag n_XT4]
      ($wa
         @ (RightFrag n_XT4)
         (($fReadRightFrag2 @ n_XT4 $dRead_X28g)
          `cast` (Sym <(NTCo:ReadPrec <RightFrag n_XT4>)>
                  :: (Prec -> ReadP (RightFrag n_XT4))
                       ~#
                     ReadPrec (RightFrag n_XT4)))
         @ [RightFrag n_XT4]
         ($fMonadP_$creturn @ [RightFrag n_XT4]))

$fReadRightFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aQo. Read n_aQo => Read (RightFrag n_aQo)
[GblId[DFunId],
 Arity=1,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Read [{$fReadRightFrag_$creadsPrec},
                           {$fReadRightFrag_$creadList}, {$fReadRightFrag_$creadPrec},
                           {$fReadRightFrag_$creadListPrec}]]
$fReadRightFrag =
  \ (@ n_XT2) ($dRead_X28e :: Read n_XT2) ->
    D:Read
      @ (RightFrag n_XT2)
      ($fReadRightFrag_$creadsPrec @ n_XT2 $dRead_X28e)
      ($fReadRightFrag_$creadList @ n_XT2 $dRead_X28e)
      (($fReadRightFrag2 @ n_XT2 $dRead_X28e)
       `cast` (Sym <(NTCo:ReadPrec <RightFrag n_XT2>)>
               :: (Prec -> ReadP (RightFrag n_XT2))
                    ~#
                  ReadPrec (RightFrag n_XT2)))
      (($fReadRightFrag1 @ n_XT2 $dRead_X28e)
       `cast` ((<Prec> -> Sym <(NTCo:ReadP <[RightFrag n_XT2]>)>) ; Sym
                                                                      <(NTCo:ReadPrec
                                                                          <[RightFrag n_XT2]>)>
               :: (Prec
                   -> forall b_a2x1. ([RightFrag n_XT2] -> P b_a2x1) -> P b_a2x1)
                    ~#
                  ReadPrec [RightFrag n_XT2]))

lvl3_rb9v :: [Char]
[GblId, Str=DmdType]
lvl3_rb9v = unpackCString# "Compound"

lvl4_rb9w :: [Char]
[GblId, Str=DmdType]
lvl4_rb9w = unpackCString# "Single"

$fReadPartialNums_$creadPrec
  :: forall n_aQp.
     (Read n_aQp, Unbox n_aQp) =>
     ReadPrec (PartialNums n_aQp)
[GblId, Arity=2, Str=DmdType LL]
$fReadPartialNums_$creadPrec =
  \ (@ n_X10A)
    ($dRead_a2cY :: Read n_X10A)
    ($dUnbox_a2cZ :: Unbox n_X10A) ->
    let {
      $dRead1_s3rk :: Read (RightFrag n_X10A)
      [LclId, Str=DmdType]
      $dRead1_s3rk = $fReadRightFrag @ n_X10A $dRead_a2cY } in
    let {
      $dRead2_s3rj :: Read (LeftFrag n_X10A)
      [LclId, Str=DmdType]
      $dRead2_s3rj = $fReadLeftFrag @ n_X10A $dRead_a2cY } in
    (parens1
       @ (PartialNums n_X10A)
       ((\ (n_a3Ok :: Prec)
           (@ b_a3On)
           (k_a3Oo :: PartialNums n_X10A -> P b_a3On) ->
           case n_a3Ok of _ { I# x_a3G8 ->
           let {
             a_s3OW [Dmd=Just L] :: P b_a3On
             [LclId, Str=DmdType]
             a_s3OW =
               case <=# x_a3G8 10 of _ {
                 False -> Fail @ b_a3On;
                 True ->
                   let {
                     lvl62_s96D :: P b_a3On
                     [LclId]
                     lvl62_s96D =
                       (($fReadMiddleFrag2 @ n_X10A $dRead_a2cY $fReadLeftFrag4)
                        `cast` (<NTCo:ReadP <MiddleFrag n_X10A>>
                                :: ReadP (MiddleFrag n_X10A)
                                     ~#
                                   (forall b_a2x1. (MiddleFrag n_X10A -> P b_a2x1) -> P b_a2x1)))
                         @ b_a3On
                         (\ (a1_X3QT :: MiddleFrag n_X10A) ->
                            k_a3Oo
                              (case a1_X3QT of tpl_X4 { MiddleFrag ipv_s3MG ipv1_s3MH ->
                               Single @ n_X10A tpl_X4
                               })) } in
                   let {
                     k1_a3Gs :: Lexeme -> P b_a3On
                     [LclId, Arity=1, Str=DmdType S]
                     k1_a3Gs =
                       \ (a1_a3FD :: Lexeme) ->
                         case a1_a3FD of _ {
                           __DEFAULT -> Fail @ b_a3On;
                           Ident ds_d2uK ->
                             case eqString ds_d2uK lvl4_rb9w of _ {
                               False -> Fail @ b_a3On;
                               True -> lvl62_s96D
                             }
                         } } in
                   let {
                     lvl85_a3Gt [Dmd=Just L] :: P b_a3On
                     [LclId, Str=DmdType]
                     lvl85_a3Gt = hsLex2 @ b_a3On k1_a3Gs } in
                   let {
                     k2_a3Gu :: () -> P b_a3On
                     [LclId,
                      Arity=1,
                      Str=DmdType A,
                      Unf=Unf{Src=InlineStable, TopLvl=False, Arity=1, Value=True,
                              ConLike=True, WorkFree=True, Expandable=True,
                              Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
                              Tmpl= \ _ -> hsLex2 @ b_a3On k1_a3Gs}]
                     k2_a3Gu = \ _ -> lvl85_a3Gt } in
                   Look
                     @ b_a3On
                     (\ (a104_a3Gw :: String) ->
                        ((skipSpaces_skip a104_a3Gw)
                         `cast` (<NTCo:ReadP <()>>
                                 :: ReadP () ~# (forall b_a2x1. (() -> P b_a2x1) -> P b_a2x1)))
                          @ b_a3On k2_a3Gu)
               } } in
           case <=# x_a3G8 10 of _ {
             False -> $fMonadPlusP_$cmplus @ b_a3On (Fail @ b_a3On) a_s3OW;
             True ->
               let {
                 lvl62_s96E :: P b_a3On
                 [LclId]
                 lvl62_s96E =
                   $fReadMaybe2
                     @ (RightFrag n_X10A)
                     $dRead1_s3rk
                     $fReadLeftFrag4
                     @ b_a3On
                     (\ (a1_X3Ly :: Maybe (RightFrag n_X10A)) ->
                        (($fReadVector2 @ n_X10A $dRead_a2cY $dUnbox_a2cZ $fReadLeftFrag4)
                         `cast` (<NTCo:ReadP <Vector n_X10A>>
                                 :: ReadP (Vector n_X10A)
                                      ~#
                                    (forall b_a2x1. (Vector n_X10A -> P b_a2x1) -> P b_a2x1)))
                          @ b_a3On
                          (\ (a2_X3LE :: Vector n_X10A) ->
                             $fReadMaybe2
                               @ (LeftFrag n_X10A)
                               $dRead2_s3rj
                               $fReadLeftFrag4
                               @ b_a3On
                               (\ (a3_X3LJ :: Maybe (LeftFrag n_X10A)) ->
                                  k_a3Oo
                                    (case a1_X3Ly of tpl_X6 { __DEFAULT ->
                                     case a2_X3LE of tpl1_X8 { __DEFAULT ->
                                     case a3_X3LJ of tpl2_Xa { __DEFAULT ->
                                     Compound @ n_X10A tpl_X6 tpl1_X8 tpl2_Xa
                                     }
                                     }
                                     })))) } in
               let {
                 k1_a3Gs :: Lexeme -> P b_a3On
                 [LclId, Arity=1, Str=DmdType S]
                 k1_a3Gs =
                   \ (a1_a3FD :: Lexeme) ->
                     case a1_a3FD of _ {
                       __DEFAULT -> Fail @ b_a3On;
                       Ident ds_d2uF ->
                         case eqString ds_d2uF lvl3_rb9v of _ {
                           False -> Fail @ b_a3On;
                           True -> lvl62_s96E
                         }
                     } } in
               let {
                 lvl85_a3Gt [Dmd=Just L] :: P b_a3On
                 [LclId, Str=DmdType]
                 lvl85_a3Gt = hsLex2 @ b_a3On k1_a3Gs } in
               let {
                 k2_a3Gu :: () -> P b_a3On
                 [LclId,
                  Arity=1,
                  Str=DmdType A,
                  Unf=Unf{Src=InlineStable, TopLvl=False, Arity=1, Value=True,
                          ConLike=True, WorkFree=True, Expandable=True,
                          Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
                          Tmpl= \ _ -> hsLex2 @ b_a3On k1_a3Gs}]
                 k2_a3Gu = \ _ -> lvl85_a3Gt } in
               $fMonadPlusP_$cmplus
                 @ b_a3On
                 (Look
                    @ b_a3On
                    (\ (a104_a3Gw :: String) ->
                       ((skipSpaces_skip a104_a3Gw)
                        `cast` (<NTCo:ReadP <()>>
                                :: ReadP () ~# (forall b_a2x1. (() -> P b_a2x1) -> P b_a2x1)))
                         @ b_a3On k2_a3Gu))
                 a_s3OW
           }
           })
        `cast` ((<Prec> -> Sym <(NTCo:ReadP <PartialNums n_X10A>)>) ; Sym
                                                                        <(NTCo:ReadPrec
                                                                            <PartialNums n_X10A>)>
                :: (Prec
                    -> forall b_a2x1. (PartialNums n_X10A -> P b_a2x1) -> P b_a2x1)
                     ~#
                   ReadPrec (PartialNums n_X10A))))
    `cast` (Sym <(NTCo:ReadPrec <PartialNums n_X10A>)>
            :: (Prec -> ReadP (PartialNums n_X10A))
                 ~#
               ReadPrec (PartialNums n_X10A))

$fReadPartialNums_$creadsPrec
  :: forall n_aQp.
     (Read n_aQp, Unbox n_aQp) =>
     Int -> ReadS (PartialNums n_aQp)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0] 72 60}]
$fReadPartialNums_$creadsPrec =
  \ (@ n_X10B)
    ($dRead_a2cY :: Read n_X10B)
    ($dUnbox_a2cZ :: Unbox n_X10B) ->
    let {
      ds_a2xA [Dmd=Just L] :: ReadPrec (PartialNums n_X10B)
      [LclId, Str=DmdType]
      ds_a2xA =
        $fReadPartialNums_$creadPrec @ n_X10B $dRead_a2cY $dUnbox_a2cZ } in
    \ (n_a2xB :: Int) ->
      run
        @ (PartialNums n_X10B)
        ((((ds_a2xA
            `cast` (<NTCo:ReadPrec <PartialNums n_X10B>>
                    :: ReadPrec (PartialNums n_X10B)
                         ~#
                       (Prec -> ReadP (PartialNums n_X10B))))
             n_a2xB)
          `cast` (<NTCo:ReadP <PartialNums n_X10B>>
                  :: ReadP (PartialNums n_X10B)
                       ~#
                     (forall b_a2x1. (PartialNums n_X10B -> P b_a2x1) -> P b_a2x1)))
           @ (PartialNums n_X10B) ($fMonadP_$creturn @ (PartialNums n_X10B)))

$fReadPartialNums1
  :: forall n_X10D.
     (Read n_X10D, Unbox n_X10D) =>
     Prec
     -> forall b_a3GN. ([PartialNums n_X10D] -> P b_a3GN) -> P b_a3GN
[GblId,
 Arity=4,
 Str=DmdType LLAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_X10D)
                 ($dRead_a2cY [Occ=Once] :: Read n_X10D)
                 ($dUnbox_a2cZ [Occ=Once] :: Unbox n_X10D)
                 _
                 (@ b_a3GN)
                 (eta1_a3GO [Occ=Once] :: [PartialNums n_X10D] -> P b_a3GN) ->
                 $wa
                   @ (PartialNums n_X10D)
                   ($fReadPartialNums_$creadPrec @ n_X10D $dRead_a2cY $dUnbox_a2cZ)
                   @ b_a3GN
                   eta1_a3GO}]
$fReadPartialNums1 =
  \ (@ n_X10D)
    ($dRead_a2cY :: Read n_X10D)
    ($dUnbox_a2cZ :: Unbox n_X10D)
    _
    (@ b_a3GN)
    (eta1_a3GO :: [PartialNums n_X10D] -> P b_a3GN) ->
    $wa
      @ (PartialNums n_X10D)
      ($fReadPartialNums_$creadPrec @ n_X10D $dRead_a2cY $dUnbox_a2cZ)
      @ b_a3GN
      eta1_a3GO

$fReadPartialNums_$creadListPrec
  :: forall n_aQp.
     (Read n_aQp, Unbox n_aQp) =>
     ReadPrec [PartialNums n_aQp]
[GblId,
 Arity=4,
 Str=DmdType LLAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= $fReadPartialNums1
               `cast` (forall n_X10D.
                       <Read n_X10D>
                       -> <Unbox n_X10D>
                       -> (<Prec> -> Sym <(NTCo:ReadP <[PartialNums n_X10D]>)>) ; Sym
                                                                                    <(NTCo:ReadPrec
                                                                                        <[PartialNums
                                                                                            n_X10D]>)>
                       :: (forall n_X10D.
                           (Read n_X10D, Unbox n_X10D) =>
                           Prec
                           -> forall b_a2x1. ([PartialNums n_X10D] -> P b_a2x1) -> P b_a2x1)
                            ~#
                          (forall n_X10D.
                           (Read n_X10D, Unbox n_X10D) =>
                           ReadPrec [PartialNums n_X10D]))}]
$fReadPartialNums_$creadListPrec =
  $fReadPartialNums1
  `cast` (forall n_X10D.
          <Read n_X10D>
          -> <Unbox n_X10D>
          -> (<Prec> -> Sym <(NTCo:ReadP <[PartialNums n_X10D]>)>) ; Sym
                                                                       <(NTCo:ReadPrec
                                                                           <[PartialNums n_X10D]>)>
          :: (forall n_X10D.
              (Read n_X10D, Unbox n_X10D) =>
              Prec
              -> forall b_a2x1. ([PartialNums n_X10D] -> P b_a2x1) -> P b_a2x1)
               ~#
             (forall n_X10D.
              (Read n_X10D, Unbox n_X10D) =>
              ReadPrec [PartialNums n_X10D]))

$fReadPartialNums_$creadList
  :: forall n_aQp.
     (Read n_aQp, Unbox n_aQp) =>
     ReadS [PartialNums n_aQp]
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0] 80 60}]
$fReadPartialNums_$creadList =
  \ (@ n_X10E)
    ($dRead_X2ix :: Read n_X10E)
    ($dUnbox_X2iz :: Unbox n_X10E) ->
    run
      @ [PartialNums n_X10E]
      ($wa
         @ (PartialNums n_X10E)
         ($fReadPartialNums_$creadPrec @ n_X10E $dRead_X2ix $dUnbox_X2iz)
         @ [PartialNums n_X10E]
         ($fMonadP_$creturn @ [PartialNums n_X10E]))

$fReadPartialNums [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aQp.
     (Read n_aQp, Unbox n_aQp) =>
     Read (PartialNums n_aQp)
[GblId[DFunId],
 Arity=2,
 Str=DmdType LLm,
 Unf=DFun(arity=3) D:Read [{$fReadPartialNums_$creadsPrec},
                           {$fReadPartialNums_$creadList}, {$fReadPartialNums_$creadPrec},
                           {$fReadPartialNums_$creadListPrec}]]
$fReadPartialNums =
  \ (@ n_X10C)
    ($dRead_X2iy :: Read n_X10C)
    ($dUnbox_X2iA :: Unbox n_X10C) ->
    D:Read
      @ (PartialNums n_X10C)
      ($fReadPartialNums_$creadsPrec @ n_X10C $dRead_X2iy $dUnbox_X2iA)
      ($fReadPartialNums_$creadList @ n_X10C $dRead_X2iy $dUnbox_X2iA)
      ($fReadPartialNums_$creadPrec @ n_X10C $dRead_X2iy $dUnbox_X2iA)
      (($fReadPartialNums1 @ n_X10C $dRead_X2iy $dUnbox_X2iA)
       `cast` ((<Prec> -> Sym <(NTCo:ReadP <[PartialNums n_X10C]>)>) ; Sym
                                                                         <(NTCo:ReadPrec
                                                                             <[PartialNums
                                                                                 n_X10C]>)>
               :: (Prec
                   -> forall b_a2x1. ([PartialNums n_X10C] -> P b_a2x1) -> P b_a2x1)
                    ~#
                  ReadPrec [PartialNums n_X10C]))

$fOrdRightFrag_$c<=
  :: forall n_aQo.
     (Eq (RightFrag n_aQo), Ord n_aQo) =>
     RightFrag n_aQo -> RightFrag n_aQo -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XTa)
                 _
                 ($dOrd_a24T [Occ=Once] :: Ord n_XTa)
                 (a_a1RH [Occ=Once!] :: RightFrag n_XTa)
                 (b_a1RI [Occ=Once!] :: RightFrag n_XTa) ->
                 case a_a1RH of _ { RightFrag rb_d2vy a2_a1RK [Occ=Once] ->
                 case b_a1RI of _ { RightFrag rb1_d2vw b2_a1RM [Occ=Once] ->
                 case <# rb_d2vy rb1_d2vw of _ {
                   False ->
                     case ==# rb_d2vy rb1_d2vw of _ {
                       False -> False;
                       True -> <= @ n_XTa $dOrd_a24T a2_a1RK b2_a1RM
                     };
                   True -> True
                 }
                 }
                 }}]
$fOrdRightFrag_$c<= =
  \ (@ n_XTa)
    _
    ($dOrd_a24T :: Ord n_XTa)
    (a_a1RH :: RightFrag n_XTa)
    (b_a1RI :: RightFrag n_XTa) ->
    case a_a1RH of _ { RightFrag rb_d2vy a2_a1RK ->
    case b_a1RI of _ { RightFrag rb1_d2vw b2_a1RM ->
    case <# rb_d2vy rb1_d2vw of _ {
      False ->
        case ==# rb_d2vy rb1_d2vw of _ {
          False -> False;
          True -> <= @ n_XTa $dOrd_a24T a2_a1RK b2_a1RM
        };
      True -> True
    }
    }
    }

$fOrdRightFrag_$c>
  :: forall n_aQo.
     (Eq (RightFrag n_aQo), Ord n_aQo) =>
     RightFrag n_aQo -> RightFrag n_aQo -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XTb)
                 _
                 ($dOrd_a24T [Occ=Once] :: Ord n_XTb)
                 (a_a1RT [Occ=Once!] :: RightFrag n_XTb)
                 (b_a1RU [Occ=Once!] :: RightFrag n_XTb) ->
                 case a_a1RT of _ { RightFrag rb_d2vu a2_a1RW [Occ=Once] ->
                 case b_a1RU of _ { RightFrag rb1_d2vs b2_a1RY [Occ=Once] ->
                 case <# rb_d2vu rb1_d2vs of _ {
                   False ->
                     case ==# rb_d2vu rb1_d2vs of _ {
                       False -> True;
                       True -> > @ n_XTb $dOrd_a24T a2_a1RW b2_a1RY
                     };
                   True -> False
                 }
                 }
                 }}]
$fOrdRightFrag_$c> =
  \ (@ n_XTb)
    _
    ($dOrd_a24T :: Ord n_XTb)
    (a_a1RT :: RightFrag n_XTb)
    (b_a1RU :: RightFrag n_XTb) ->
    case a_a1RT of _ { RightFrag rb_d2vu a2_a1RW ->
    case b_a1RU of _ { RightFrag rb1_d2vs b2_a1RY ->
    case <# rb_d2vu rb1_d2vs of _ {
      False ->
        case ==# rb_d2vu rb1_d2vs of _ {
          False -> True;
          True -> > @ n_XTb $dOrd_a24T a2_a1RW b2_a1RY
        };
      True -> False
    }
    }
    }

$fOrdRightFrag_$c>=
  :: forall n_aQo.
     (Eq (RightFrag n_aQo), Ord n_aQo) =>
     RightFrag n_aQo -> RightFrag n_aQo -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XTc)
                 _
                 ($dOrd_a24T [Occ=Once] :: Ord n_XTc)
                 (a_a1RN [Occ=Once!] :: RightFrag n_XTc)
                 (b_a1RO [Occ=Once!] :: RightFrag n_XTc) ->
                 case a_a1RN of _ { RightFrag rb_d2vq a2_a1RQ [Occ=Once] ->
                 case b_a1RO of _ { RightFrag rb1_d2vo b2_a1RS [Occ=Once] ->
                 case <# rb_d2vq rb1_d2vo of _ {
                   False ->
                     case ==# rb_d2vq rb1_d2vo of _ {
                       False -> True;
                       True -> >= @ n_XTc $dOrd_a24T a2_a1RQ b2_a1RS
                     };
                   True -> False
                 }
                 }
                 }}]
$fOrdRightFrag_$c>= =
  \ (@ n_XTc)
    _
    ($dOrd_a24T :: Ord n_XTc)
    (a_a1RN :: RightFrag n_XTc)
    (b_a1RO :: RightFrag n_XTc) ->
    case a_a1RN of _ { RightFrag rb_d2vq a2_a1RQ ->
    case b_a1RO of _ { RightFrag rb1_d2vo b2_a1RS ->
    case <# rb_d2vq rb1_d2vo of _ {
      False ->
        case ==# rb_d2vq rb1_d2vo of _ {
          False -> True;
          True -> >= @ n_XTc $dOrd_a24T a2_a1RQ b2_a1RS
        };
      True -> False
    }
    }
    }

$fOrdRightFrag_$c<
  :: forall n_aQo.
     (Eq (RightFrag n_aQo), Ord n_aQo) =>
     RightFrag n_aQo -> RightFrag n_aQo -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XTd)
                 _
                 ($dOrd_a24T [Occ=Once] :: Ord n_XTd)
                 (a_a1RB [Occ=Once!] :: RightFrag n_XTd)
                 (b_a1RC [Occ=Once!] :: RightFrag n_XTd) ->
                 case a_a1RB of _ { RightFrag rb_d2vm a2_a1RE [Occ=Once] ->
                 case b_a1RC of _ { RightFrag rb1_d2vk b2_a1RG [Occ=Once] ->
                 case <# rb_d2vm rb1_d2vk of _ {
                   False ->
                     case ==# rb_d2vm rb1_d2vk of _ {
                       False -> False;
                       True -> < @ n_XTd $dOrd_a24T a2_a1RE b2_a1RG
                     };
                   True -> True
                 }
                 }
                 }}]
$fOrdRightFrag_$c< =
  \ (@ n_XTd)
    _
    ($dOrd_a24T :: Ord n_XTd)
    (a_a1RB :: RightFrag n_XTd)
    (b_a1RC :: RightFrag n_XTd) ->
    case a_a1RB of _ { RightFrag rb_d2vm a2_a1RE ->
    case b_a1RC of _ { RightFrag rb1_d2vk b2_a1RG ->
    case <# rb_d2vm rb1_d2vk of _ {
      False ->
        case ==# rb_d2vm rb1_d2vk of _ {
          False -> False;
          True -> < @ n_XTd $dOrd_a24T a2_a1RE b2_a1RG
        };
      True -> True
    }
    }
    }

$fOrdRightFrag_$ccompare
  :: forall n_aQo.
     (Eq (RightFrag n_aQo), Ord n_aQo) =>
     RightFrag n_aQo -> RightFrag n_aQo -> Ordering
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XTe)
                 _
                 ($dOrd_a24T [Occ=Once] :: Ord n_XTe)
                 (a_a1Rv [Occ=Once!] :: RightFrag n_XTe)
                 (b_a1Rw [Occ=Once!] :: RightFrag n_XTe) ->
                 case a_a1Rv of _ { RightFrag rb_d2vi a2_a1Ry [Occ=Once] ->
                 case b_a1Rw of _ { RightFrag rb1_d2vg b2_a1RA [Occ=Once] ->
                 case <# rb_d2vi rb1_d2vg of _ {
                   False ->
                     case ==# rb_d2vi rb1_d2vg of _ {
                       False -> GT;
                       True -> compare @ n_XTe $dOrd_a24T a2_a1Ry b2_a1RA
                     };
                   True -> LT
                 }
                 }
                 }}]
$fOrdRightFrag_$ccompare =
  \ (@ n_XTe)
    _
    ($dOrd_a24T :: Ord n_XTe)
    (a_a1Rv :: RightFrag n_XTe)
    (b_a1Rw :: RightFrag n_XTe) ->
    case a_a1Rv of _ { RightFrag rb_d2vi a2_a1Ry ->
    case b_a1Rw of _ { RightFrag rb1_d2vg b2_a1RA ->
    case <# rb_d2vi rb1_d2vg of _ {
      False ->
        case ==# rb_d2vi rb1_d2vg of _ {
          False -> GT;
          True -> compare @ n_XTe $dOrd_a24T a2_a1Ry b2_a1RA
        };
      True -> LT
    }
    }
    }

$fOrdRightFrag_$cmin [InlPrag=INLINE[0]]
  :: forall n_aQo.
     (Eq (RightFrag n_aQo), Ord n_aQo) =>
     RightFrag n_aQo -> RightFrag n_aQo -> RightFrag n_aQo
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*))m,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aQo)
                 _
                 (w1_s7Ne [Occ=Once] :: Ord n_aQo)
                 (w2_s7Nf [Occ=Once!] :: RightFrag n_aQo)
                 (w3_s7Nk [Occ=Once!] :: RightFrag n_aQo) ->
                 case w2_s7Nf of _ { RightFrag ww_s7Nh ww1_s7Ni ->
                 case w3_s7Nk of _ { RightFrag ww2_s7Nm ww3_s7Nn ->
                 case <# ww_s7Nh ww2_s7Nm of _ {
                   False ->
                     case ==# ww_s7Nh ww2_s7Nm of _ {
                       False -> RightFrag @ n_aQo ww2_s7Nm ww3_s7Nn;
                       True ->
                         case <= @ n_aQo w1_s7Ne ww1_s7Ni ww3_s7Nn of _ {
                           False -> RightFrag @ n_aQo ww2_s7Nm ww3_s7Nn;
                           True -> RightFrag @ n_aQo ww_s7Nh ww1_s7Ni
                         }
                     };
                   True -> RightFrag @ n_aQo ww_s7Nh ww1_s7Ni
                 }
                 }
                 }}]
$fOrdRightFrag_$cmin =
  \ (@ n_aQo)
    _
    (w1_s7Ne :: Ord n_aQo)
    (w2_s7Nf :: RightFrag n_aQo)
    (w3_s7Nk :: RightFrag n_aQo) ->
    case w2_s7Nf of _ { RightFrag ww_s7Nh ww1_s7Ni ->
    case w3_s7Nk of _ { RightFrag ww2_s7Nm ww3_s7Nn ->
    case <# ww_s7Nh ww2_s7Nm of _ {
      False ->
        case ==# ww_s7Nh ww2_s7Nm of _ {
          False -> RightFrag @ n_aQo ww2_s7Nm ww3_s7Nn;
          True ->
            case <= @ n_aQo w1_s7Ne ww1_s7Ni ww3_s7Nn of _ {
              False -> RightFrag @ n_aQo ww2_s7Nm ww3_s7Nn;
              True -> RightFrag @ n_aQo ww_s7Nh ww1_s7Ni
            }
        };
      True -> RightFrag @ n_aQo ww_s7Nh ww1_s7Ni
    }
    }
    }

$fOrdRightFrag_$cmax [InlPrag=INLINE[0]]
  :: forall n_aQo.
     (Eq (RightFrag n_aQo), Ord n_aQo) =>
     RightFrag n_aQo -> RightFrag n_aQo -> RightFrag n_aQo
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*))m,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aQo)
                 _
                 (w1_s7Nw [Occ=Once] :: Ord n_aQo)
                 (w2_s7Nx [Occ=Once!] :: RightFrag n_aQo)
                 (w3_s7NC [Occ=Once!] :: RightFrag n_aQo) ->
                 case w2_s7Nx of _ { RightFrag ww_s7Nz ww1_s7NA ->
                 case w3_s7NC of _ { RightFrag ww2_s7NE ww3_s7NF ->
                 case <# ww_s7Nz ww2_s7NE of _ {
                   False ->
                     case ==# ww_s7Nz ww2_s7NE of _ {
                       False -> RightFrag @ n_aQo ww_s7Nz ww1_s7NA;
                       True ->
                         case <= @ n_aQo w1_s7Nw ww1_s7NA ww3_s7NF of _ {
                           False -> RightFrag @ n_aQo ww_s7Nz ww1_s7NA;
                           True -> RightFrag @ n_aQo ww2_s7NE ww3_s7NF
                         }
                     };
                   True -> RightFrag @ n_aQo ww2_s7NE ww3_s7NF
                 }
                 }
                 }}]
$fOrdRightFrag_$cmax =
  \ (@ n_aQo)
    _
    (w1_s7Nw :: Ord n_aQo)
    (w2_s7Nx :: RightFrag n_aQo)
    (w3_s7NC :: RightFrag n_aQo) ->
    case w2_s7Nx of _ { RightFrag ww_s7Nz ww1_s7NA ->
    case w3_s7NC of _ { RightFrag ww2_s7NE ww3_s7NF ->
    case <# ww_s7Nz ww2_s7NE of _ {
      False ->
        case ==# ww_s7Nz ww2_s7NE of _ {
          False -> RightFrag @ n_aQo ww_s7Nz ww1_s7NA;
          True ->
            case <= @ n_aQo w1_s7Nw ww1_s7NA ww3_s7NF of _ {
              False -> RightFrag @ n_aQo ww_s7Nz ww1_s7NA;
              True -> RightFrag @ n_aQo ww2_s7NE ww3_s7NF
            }
        };
      True -> RightFrag @ n_aQo ww2_s7NE ww3_s7NF
    }
    }
    }

$fOrdRightFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aQo.
     (Eq (RightFrag n_aQo), Ord n_aQo) =>
     Ord (RightFrag n_aQo)
[GblId[DFunId[1]],
 Arity=2,
 Caf=NoCafRefs,
 Str=DmdType LLm,
 Unf=DFun(arity=3) D:Ord [<1>, {$fOrdRightFrag_$ccompare},
                          {$fOrdRightFrag_$c<}, {$fOrdRightFrag_$c>=}, {$fOrdRightFrag_$c>},
                          {$fOrdRightFrag_$c<=}, {$fOrdRightFrag_$cmax},
                          {$fOrdRightFrag_$cmin}]]
$fOrdRightFrag =
  \ (@ n_XTh)
    ($dEq_a24S :: Eq (RightFrag n_XTh))
    ($dOrd_a24T :: Ord n_XTh) ->
    D:Ord
      @ (RightFrag n_XTh)
      $dEq_a24S
      ($fOrdRightFrag_$ccompare @ n_XTh $dEq_a24S $dOrd_a24T)
      ($fOrdRightFrag_$c< @ n_XTh $dEq_a24S $dOrd_a24T)
      ($fOrdRightFrag_$c>= @ n_XTh $dEq_a24S $dOrd_a24T)
      ($fOrdRightFrag_$c> @ n_XTh $dEq_a24S $dOrd_a24T)
      ($fOrdRightFrag_$c<= @ n_XTh $dEq_a24S $dOrd_a24T)
      ($fOrdRightFrag_$cmax @ n_XTh $dEq_a24S $dOrd_a24T)
      ($fOrdRightFrag_$cmin @ n_XTh $dEq_a24S $dOrd_a24T)

$fEqRightFrag_$c==
  :: forall n_aQo.
     Eq n_aQo =>
     RightFrag n_aQo -> RightFrag n_aQo -> Bool
[GblId,
 Arity=3,
 Caf=NoCafRefs,
 Str=DmdType LU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XTi)
                 ($dEq_a24F [Occ=Once] :: Eq n_XTi)
                 (ds_d2p8 [Occ=Once!] :: RightFrag n_XTi)
                 (ds1_d2p9 [Occ=Once!] :: RightFrag n_XTi) ->
                 case ds_d2p8
                 of _ { RightFrag rb_d2ve [Occ=Once] a2_a1Rq [Occ=Once] ->
                 case ds1_d2p9
                 of _ { RightFrag rb1_d2vc [Occ=Once] b2_a1Rs [Occ=Once] ->
                 case ==# rb_d2ve rb1_d2vc of _ {
                   False -> False;
                   True -> == @ n_XTi $dEq_a24F a2_a1Rq b2_a1Rs
                 }
                 }
                 }}]
$fEqRightFrag_$c== =
  \ (@ n_XTi)
    ($dEq_a24F :: Eq n_XTi)
    (ds_d2p8 :: RightFrag n_XTi)
    (ds1_d2p9 :: RightFrag n_XTi) ->
    case ds_d2p8 of _ { RightFrag rb_d2ve a2_a1Rq ->
    case ds1_d2p9 of _ { RightFrag rb1_d2vc b2_a1Rs ->
    case ==# rb_d2ve rb1_d2vc of _ {
      False -> False;
      True -> == @ n_XTi $dEq_a24F a2_a1Rq b2_a1Rs
    }
    }
    }

$fEqRightFrag_$c/= [InlPrag=INLINE[0]]
  :: forall n_aQo.
     Eq n_aQo =>
     RightFrag n_aQo -> RightFrag n_aQo -> Bool
[GblId,
 Arity=3,
 Caf=NoCafRefs,
 Str=DmdType LU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aQo)
                 (w_s7NM [Occ=Once] :: Eq n_aQo)
                 (w1_s7NN [Occ=Once!] :: RightFrag n_aQo)
                 (w2_s7NS [Occ=Once!] :: RightFrag n_aQo) ->
                 case w1_s7NN
                 of _ { RightFrag ww_s7NP [Occ=Once] ww1_s7NQ [Occ=Once] ->
                 case w2_s7NS
                 of _ { RightFrag ww2_s7NU [Occ=Once] ww3_s7NV [Occ=Once] ->
                 case ==# ww_s7NP ww2_s7NU of _ {
                   False -> True;
                   True ->
                     case == @ n_aQo w_s7NM ww1_s7NQ ww3_s7NV of _ {
                       False -> True;
                       True -> False
                     }
                 }
                 }
                 }}]
$fEqRightFrag_$c/= =
  \ (@ n_aQo)
    (w_s7NM :: Eq n_aQo)
    (w1_s7NN :: RightFrag n_aQo)
    (w2_s7NS :: RightFrag n_aQo) ->
    case w1_s7NN of _ { RightFrag ww_s7NP ww1_s7NQ ->
    case w2_s7NS of _ { RightFrag ww2_s7NU ww3_s7NV ->
    case ==# ww_s7NP ww2_s7NU of _ {
      False -> True;
      True ->
        case == @ n_aQo w_s7NM ww1_s7NQ ww3_s7NV of _ {
          False -> True;
          True -> False
        }
    }
    }
    }

$fEqRightFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aQo. Eq n_aQo => Eq (RightFrag n_aQo)
[GblId[DFunId],
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Eq [{$fEqRightFrag_$c==},
                         {$fEqRightFrag_$c/=}]]
$fEqRightFrag =
  \ (@ n_XTk) ($dEq_a24F :: Eq n_XTk) ->
    D:Eq
      @ (RightFrag n_XTk)
      ($fEqRightFrag_$c== @ n_XTk $dEq_a24F)
      ($fEqRightFrag_$c/= @ n_XTk $dEq_a24F)

$fEqPartialNums_$c==
  :: forall n_aQp.
     (Eq n_aQp, Unbox n_aQp) =>
     PartialNums n_aQp -> PartialNums n_aQp -> Bool
[GblId, Arity=4, Str=DmdType LLSS]
$fEqPartialNums_$c== =
  \ (@ n_X10T)
    ($dEq_a2bS :: Eq n_X10T)
    ($dUnbox_a2bT :: Unbox n_X10T)
    (ds_d2st :: PartialNums n_X10T)
    (ds1_d2su :: PartialNums n_X10T) ->
    case ds_d2st of _ {
      Compound a1_a1Tg a2_a1Th a3_a1Ti ->
        case ds1_d2su of _ {
          Compound b1_a1Tj b2_a1Tk b3_a1Tl ->
            let {
              $w$j_s815 :: Bool
              [LclId, Str=DmdType]
              $w$j_s815 =
                case $p1Unbox @ n_X10T $dUnbox_a2bT
                of _ { D:Vector _ _ _ ww3_s7O2 _ ww5_s7O4 _ _ ->
                case ww3_s7O2 a2_a1Th of _ { I# ipv_a3RQ ->
                case ww3_s7O2 b2_a1Tk of _ { I# ipv1_X3X0 ->
                let {
                  lvl62_s96F :: n_X10T -> n_X10T -> Bool
                  [LclId]
                  lvl62_s96F = == @ n_X10T $dEq_a2bS } in
                letrec {
                  $s$weq_loop0_saaC [Occ=LoopBreaker] :: Int# -> Int# -> Bool
                  [LclId, Arity=2, Str=DmdType LL]
                  $s$weq_loop0_saaC =
                    \ (sc_s9N8 :: Int#) (sc1_s9N9 :: Int#) ->
                      case >=# sc_s9N8 ipv_a3RQ of _ {
                        False ->
                          case ww5_s7O4 @ Box $fMonadBox a2_a1Th (I# sc_s9N8)
                          of _ { Box x1_a3Sl ->
                          case >=# sc1_s9N9 ipv1_X3X0 of _ {
                            False ->
                              case ww5_s7O4 @ Box $fMonadBox b2_a1Tk (I# sc1_s9N9)
                              of _ { Box x2_X3Xx ->
                              case lvl62_s96F x1_a3Sl x2_X3Xx of _ {
                                False -> False;
                                True -> $s$weq_loop0_saaC (+# sc_s9N8 1) (+# sc1_s9N9 1)
                              }
                              };
                            True -> False
                          }
                          };
                        True ->
                          case >=# sc1_s9N9 ipv1_X3X0 of _ {
                            False ->
                              case ww5_s7O4 @ Box $fMonadBox b2_a1Tk (I# sc1_s9N9)
                              of _ { Box _ ->
                              False
                              };
                            True -> True
                          }
                      }; } in
                case $s$weq_loop0_saaC 0 0 of _ {
                  False -> False;
                  True ->
                    case a3_a1Ti of _ {
                      Nothing ->
                        case b3_a1Tl of _ {
                          Nothing -> True;
                          Just ds2_a2BM -> False
                        };
                      Just a4_a2BE ->
                        case b3_a1Tl of _ {
                          Nothing -> False;
                          Just b4_a2BJ ->
                            case a4_a2BE of _ { LeftFrag a5_a1S5 ->
                            case b4_a2BJ of _ { LeftFrag b5_a1S6 ->
                            == @ n_X10T $dEq_a2bS a5_a1S5 b5_a1S6
                            }
                            }
                        }
                    }
                }
                }
                }
                } } in
            case a1_a1Tg of _ {
              Nothing ->
                case b1_a1Tj of _ {
                  Nothing -> $w$j_s815;
                  Just ds2_a2BM -> False
                };
              Just a4_a2BE ->
                case b1_a1Tj of _ {
                  Nothing -> False;
                  Just b4_a2BJ ->
                    case a4_a2BE of _ { RightFrag rb_d2ve a5_a1Rq ->
                    case b4_a2BJ of _ { RightFrag rb1_d2vc b5_a1Rs ->
                    case ==# rb_d2ve rb1_d2vc of _ {
                      False -> False;
                      True ->
                        case == @ n_X10T $dEq_a2bS a5_a1Rq b5_a1Rs of _ {
                          False -> False;
                          True -> $w$j_s815
                        }
                    }
                    }
                    }
                }
            };
          Single ipv_s2D4 -> False
        };
      Single a1_a1Tm ->
        case a1_a1Tm of _ { MiddleFrag rb_s8YR a2_s8YQ ->
        case ds1_d2su of _ {
          Compound ipv_s2D7 ipv1_s2D8 ipv2_s2D9 -> False;
          Single b1_a1Tn ->
            case b1_a1Tn of _ { MiddleFrag rb1_s8YW b2_s8YX ->
            case ==# rb_s8YR rb1_s8YW of _ {
              False -> False;
              True -> == @ n_X10T $dEq_a2bS a2_s8YQ b2_s8YX
            }
            }
        }
        }
    }

$fEqPartialNums_$c/=
  :: forall n_aQp.
     (Eq n_aQp, Unbox n_aQp) =>
     PartialNums n_aQp -> PartialNums n_aQp -> Bool
[GblId,
 Arity=4,
 Str=DmdType LLSS,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 0 0] 70 20}]
$fEqPartialNums_$c/= =
  \ (@ n_X10U)
    ($dEq_a2bS :: Eq n_X10U)
    ($dUnbox_a2bT :: Unbox n_X10U)
    (a_a1To :: PartialNums n_X10U)
    (b_a1Tp :: PartialNums n_X10U) ->
    case $fEqPartialNums_$c==
           @ n_X10U $dEq_a2bS $dUnbox_a2bT a_a1To b_a1Tp
    of _ {
      False -> True;
      True -> False
    }

$fEqPartialNums [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aQp. (Eq n_aQp, Unbox n_aQp) => Eq (PartialNums n_aQp)
[GblId[DFunId],
 Arity=2,
 Str=DmdType LLm,
 Unf=DFun(arity=3) D:Eq [{$fEqPartialNums_$c==},
                         {$fEqPartialNums_$c/=}]]
$fEqPartialNums =
  \ (@ n_X10V)
    ($dEq_a2bS :: Eq n_X10V)
    ($dUnbox_a2bT :: Unbox n_X10V) ->
    D:Eq
      @ (PartialNums n_X10V)
      ($fEqPartialNums_$c== @ n_X10V $dEq_a2bS $dUnbox_a2bT)
      ($fEqPartialNums_$c/= @ n_X10V $dEq_a2bS $dUnbox_a2bT)

$w$ccompare
  :: forall n_aQp.
     (Ord n_aQp, Unbox n_aQp) =>
     PartialNums n_aQp -> PartialNums n_aQp -> Ordering
[GblId, Arity=4, Str=DmdType LLSS]
$w$ccompare =
  \ (@ n_aQp)
    (w_s7OU :: Ord n_aQp)
    (w1_s7OV :: Unbox n_aQp)
    (w2_s7OW :: PartialNums n_aQp)
    (w3_s7OX :: PartialNums n_aQp) ->
    case w2_s7OW of _ {
      Compound a1_a1Ts a2_a1Tt a3_a1Tu ->
        case w3_s7OX of _ {
          Compound b1_a1Tv b2_a1Tw b3_a1Tx ->
            let {
              $w$j_s817 :: Ordering
              [LclId, Str=DmdType]
              $w$j_s817 =
                case $p1Unbox @ n_aQp w1_s7OV
                of _ { D:Vector _ _ _ ww3_s7Os _ ww5_s7Ou _ _ ->
                case ww3_s7Os a2_a1Tt of _ { I# ipv_a3RQ ->
                case ww3_s7Os b2_a1Tw of _ { I# ipv1_X3X4 ->
                let {
                  lvl62_s96G :: n_aQp -> n_aQp -> Ordering
                  [LclId]
                  lvl62_s96G = compare @ n_aQp w_s7OU } in
                letrec {
                  $s$wcmp_loop0_saaD [Occ=LoopBreaker] :: Int# -> Int# -> Ordering
                  [LclId, Arity=2, Str=DmdType LL]
                  $s$wcmp_loop0_saaD =
                    \ (sc_s9Nh :: Int#) (sc1_s9Ni :: Int#) ->
                      case >=# sc_s9Nh ipv_a3RQ of _ {
                        False ->
                          case ww5_s7Ou @ Box $fMonadBox a2_a1Tt (I# sc_s9Nh)
                          of _ { Box x1_a3Sl ->
                          case >=# sc1_s9Ni ipv1_X3X4 of _ {
                            False ->
                              case ww5_s7Ou @ Box $fMonadBox b2_a1Tw (I# sc1_s9Ni)
                              of _ { Box x2_X3XB ->
                              case lvl62_s96G x1_a3Sl x2_X3XB of wild6_a3Vi {
                                __DEFAULT -> wild6_a3Vi;
                                EQ -> $s$wcmp_loop0_saaD (+# sc_s9Nh 1) (+# sc1_s9Ni 1)
                              }
                              };
                            True -> GT
                          }
                          };
                        True ->
                          case >=# sc1_s9Ni ipv1_X3X4 of _ {
                            False ->
                              case ww5_s7Ou @ Box $fMonadBox b2_a1Tw (I# sc1_s9Ni)
                              of _ { Box _ ->
                              LT
                              };
                            True -> EQ
                          }
                      }; } in
                case $s$wcmp_loop0_saaD 0 0 of _ {
                  LT -> LT;
                  EQ ->
                    case a3_a1Tu of _ {
                      Nothing ->
                        case b3_a1Tx of _ {
                          Nothing -> EQ;
                          Just ipv2_a2DO -> LT
                        };
                      Just a4_a2DG ->
                        case b3_a1Tx of _ {
                          Nothing -> GT;
                          Just b4_a2DL ->
                            case a4_a2DG of _ { LeftFrag a5_a1Sb ->
                            case b4_a2DL of _ { LeftFrag b5_a1Sc ->
                            compare @ n_aQp w_s7OU a5_a1Sb b5_a1Sc
                            }
                            }
                        }
                    };
                  GT -> GT
                }
                }
                }
                } } in
            case a1_a1Ts of _ {
              Nothing ->
                case b1_a1Tv of _ {
                  Nothing -> $w$j_s817;
                  Just ipv_a2DO -> LT
                };
              Just a4_a2DG ->
                case b1_a1Tv of _ {
                  Nothing -> GT;
                  Just b4_a2DL ->
                    case a4_a2DG of _ { RightFrag rb_d2vi a5_a1Ry ->
                    case b4_a2DL of _ { RightFrag rb1_d2vg b5_a1RA ->
                    case <# rb_d2vi rb1_d2vg of _ {
                      False ->
                        case ==# rb_d2vi rb1_d2vg of _ {
                          False -> GT;
                          True ->
                            case compare @ n_aQp w_s7OU a5_a1Ry b5_a1RA of _ {
                              LT -> LT;
                              EQ -> $w$j_s817;
                              GT -> GT
                            }
                        };
                      True -> LT
                    }
                    }
                    }
                }
            };
          Single ipv_s2E1 -> LT
        };
      Single a1_a1Ty ->
        case a1_a1Ty of _ { MiddleFrag rb_s8Z4 a2_s8Z3 ->
        case w3_s7OX of _ {
          Compound ipv_s2E4 ipv1_s2E5 ipv2_s2E6 -> GT;
          Single b1_a1Tz ->
            case b1_a1Tz of _ { MiddleFrag rb1_s8Z9 b2_s8Za ->
            case <# rb_s8Z4 rb1_s8Z9 of _ {
              False ->
                case ==# rb_s8Z4 rb1_s8Z9 of _ {
                  False -> GT;
                  True -> compare @ n_aQp w_s7OU a2_s8Z3 b2_s8Za
                };
              True -> LT
            }
            }
        }
        }
    }

$fOrdPartialNums_$ccompare [InlPrag=INLINE[0]]
  :: forall n_aQp.
     (Eq (PartialNums n_aQp), Ord n_aQp, Unbox n_aQp) =>
     PartialNums n_aQp -> PartialNums n_aQp -> Ordering
[GblId,
 Arity=5,
 Str=DmdType ALLSS,
 Unf=Unf{Src=Worker=$w$ccompare, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= \ (@ n_aQp)
                 _
                 (w1_s7OU [Occ=Once] :: Ord n_aQp)
                 (w2_s7OV [Occ=Once] :: Unbox n_aQp)
                 (w3_s7OW [Occ=Once] :: PartialNums n_aQp)
                 (w4_s7OX [Occ=Once] :: PartialNums n_aQp) ->
                 $w$ccompare @ n_aQp w1_s7OU w2_s7OV w3_s7OW w4_s7OX}]
$fOrdPartialNums_$ccompare =
  \ (@ n_aQp)
    _
    (w1_s7OU :: Ord n_aQp)
    (w2_s7OV :: Unbox n_aQp)
    (w3_s7OW :: PartialNums n_aQp)
    (w4_s7OX :: PartialNums n_aQp) ->
    $w$ccompare @ n_aQp w1_s7OU w2_s7OV w3_s7OW w4_s7OX

$w$c<
  :: forall n_aQp.
     (Ord n_aQp, Unbox n_aQp) =>
     PartialNums n_aQp -> PartialNums n_aQp -> Bool
[GblId, Arity=4, Str=DmdType LLSS]
$w$c< =
  \ (@ n_aQp)
    (w_s7Pv :: Ord n_aQp)
    (w1_s7Pw :: Unbox n_aQp)
    (w2_s7Px :: PartialNums n_aQp)
    (w3_s7Py :: PartialNums n_aQp) ->
    case w2_s7Px of _ {
      Compound a1_a1TC a2_a1TD a3_a1TE ->
        case w3_s7Py of _ {
          Compound b1_a1TF b2_a1TG b3_a1TH ->
            let {
              $w$j_s819 :: Bool
              [LclId, Str=DmdType]
              $w$j_s819 =
                case $p1Unbox @ n_aQp w1_s7Pw
                of _ { D:Vector _ _ _ ww3_s7P3 _ ww5_s7P5 _ _ ->
                case ww3_s7P3 a2_a1TD of _ { I# ipv_a3RQ ->
                case ww3_s7P3 b2_a1TG of _ { I# ipv1_X3X5 ->
                let {
                  lvl62_s96H :: n_aQp -> n_aQp -> Ordering
                  [LclId]
                  lvl62_s96H = compare @ n_aQp w_s7Pv } in
                letrec {
                  $s$wcmp_loop0_saaE [Occ=LoopBreaker] :: Int# -> Int# -> Ordering
                  [LclId, Arity=2, Str=DmdType LL]
                  $s$wcmp_loop0_saaE =
                    \ (sc_s9Nq :: Int#) (sc1_s9Nr :: Int#) ->
                      case >=# sc_s9Nq ipv_a3RQ of _ {
                        False ->
                          case ww5_s7P5 @ Box $fMonadBox a2_a1TD (I# sc_s9Nq)
                          of _ { Box x1_a3Sl ->
                          case >=# sc1_s9Nr ipv1_X3X5 of _ {
                            False ->
                              case ww5_s7P5 @ Box $fMonadBox b2_a1TG (I# sc1_s9Nr)
                              of _ { Box x2_X3XC ->
                              case lvl62_s96H x1_a3Sl x2_X3XC of wild6_a3Vi {
                                __DEFAULT -> wild6_a3Vi;
                                EQ -> $s$wcmp_loop0_saaE (+# sc_s9Nq 1) (+# sc1_s9Nr 1)
                              }
                              };
                            True -> GT
                          }
                          };
                        True ->
                          case >=# sc1_s9Nr ipv1_X3X5 of _ {
                            False ->
                              case ww5_s7P5 @ Box $fMonadBox b2_a1TG (I# sc1_s9Nr)
                              of _ { Box _ ->
                              LT
                              };
                            True -> EQ
                          }
                      }; } in
                case $s$wcmp_loop0_saaE 0 0 of _ {
                  LT -> True;
                  EQ ->
                    case a3_a1TE of _ {
                      Nothing ->
                        case b3_a1TH of _ {
                          Nothing -> False;
                          Just ipv2_a2Ew -> True
                        };
                      Just a4_a2Eo ->
                        case b3_a1TH of _ {
                          Nothing -> False;
                          Just b4_a2Et ->
                            case a4_a2Eo of _ { LeftFrag a5_a1Sf ->
                            case b4_a2Et of _ { LeftFrag b5_a1Sg ->
                            < @ n_aQp w_s7Pv a5_a1Sf b5_a1Sg
                            }
                            }
                        }
                    };
                  GT -> False
                }
                }
                }
                } } in
            case a1_a1TC of _ {
              Nothing ->
                case b1_a1TF of _ {
                  Nothing -> $w$j_s819;
                  Just ipv_a2DO -> True
                };
              Just a4_a2DG ->
                case b1_a1TF of _ {
                  Nothing -> False;
                  Just b4_a2DL ->
                    case a4_a2DG of _ { RightFrag rb_d2vi a5_a1Ry ->
                    case b4_a2DL of _ { RightFrag rb1_d2vg b5_a1RA ->
                    case <# rb_d2vi rb1_d2vg of _ {
                      False ->
                        case ==# rb_d2vi rb1_d2vg of _ {
                          False -> False;
                          True ->
                            case compare @ n_aQp w_s7Pv a5_a1Ry b5_a1RA of _ {
                              LT -> True;
                              EQ -> $w$j_s819;
                              GT -> False
                            }
                        };
                      True -> True
                    }
                    }
                    }
                }
            };
          Single ipv_s2Ez -> True
        };
      Single a1_a1TI ->
        case a1_a1TI of _ { MiddleFrag rb_s8Zh a2_s8Zg ->
        case w3_s7Py of _ {
          Compound ipv_s2EC ipv1_s2ED ipv2_s2EE -> False;
          Single b1_a1TJ ->
            case b1_a1TJ of _ { MiddleFrag rb1_s8Zm b2_s8Zn ->
            case <# rb_s8Zh rb1_s8Zm of _ {
              False ->
                case ==# rb_s8Zh rb1_s8Zm of _ {
                  False -> False;
                  True -> < @ n_aQp w_s7Pv a2_s8Zg b2_s8Zn
                };
              True -> True
            }
            }
        }
        }
    }

$fOrdPartialNums_$c< [InlPrag=INLINE[0]]
  :: forall n_aQp.
     (Eq (PartialNums n_aQp), Ord n_aQp, Unbox n_aQp) =>
     PartialNums n_aQp -> PartialNums n_aQp -> Bool
[GblId,
 Arity=5,
 Str=DmdType ALLSS,
 Unf=Unf{Src=Worker=$w$c<, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= \ (@ n_aQp)
                 _
                 (w1_s7Pv [Occ=Once] :: Ord n_aQp)
                 (w2_s7Pw [Occ=Once] :: Unbox n_aQp)
                 (w3_s7Px [Occ=Once] :: PartialNums n_aQp)
                 (w4_s7Py [Occ=Once] :: PartialNums n_aQp) ->
                 $w$c< @ n_aQp w1_s7Pv w2_s7Pw w3_s7Px w4_s7Py}]
$fOrdPartialNums_$c< =
  \ (@ n_aQp)
    _
    (w1_s7Pv :: Ord n_aQp)
    (w2_s7Pw :: Unbox n_aQp)
    (w3_s7Px :: PartialNums n_aQp)
    (w4_s7Py :: PartialNums n_aQp) ->
    $w$c< @ n_aQp w1_s7Pv w2_s7Pw w3_s7Px w4_s7Py

$w$c>=
  :: forall n_aQp.
     (Ord n_aQp, Unbox n_aQp) =>
     PartialNums n_aQp -> PartialNums n_aQp -> Bool
[GblId, Arity=4, Str=DmdType LLSS]
$w$c>= =
  \ (@ n_aQp)
    (w_s7Q6 :: Ord n_aQp)
    (w1_s7Q7 :: Unbox n_aQp)
    (w2_s7Q8 :: PartialNums n_aQp)
    (w3_s7Q9 :: PartialNums n_aQp) ->
    case w2_s7Q8 of _ {
      Compound a1_a1TW a2_a1TX a3_a1TY ->
        case w3_s7Q9 of _ {
          Compound b1_a1TZ b2_a1U0 b3_a1U1 ->
            let {
              $w$j_s81b :: Bool
              [LclId, Str=DmdType]
              $w$j_s81b =
                case $p1Unbox @ n_aQp w1_s7Q7
                of _ { D:Vector _ _ _ ww3_s7PE _ ww5_s7PG _ _ ->
                case ww3_s7PE a2_a1TX of _ { I# ipv_a3RQ ->
                case ww3_s7PE b2_a1U0 of _ { I# ipv1_X3X6 ->
                let {
                  lvl62_s96I :: n_aQp -> n_aQp -> Ordering
                  [LclId]
                  lvl62_s96I = compare @ n_aQp w_s7Q6 } in
                letrec {
                  $s$wcmp_loop0_saaF [Occ=LoopBreaker] :: Int# -> Int# -> Ordering
                  [LclId, Arity=2, Str=DmdType LL]
                  $s$wcmp_loop0_saaF =
                    \ (sc_s9Nz :: Int#) (sc1_s9NA :: Int#) ->
                      case >=# sc_s9Nz ipv_a3RQ of _ {
                        False ->
                          case ww5_s7PG @ Box $fMonadBox a2_a1TX (I# sc_s9Nz)
                          of _ { Box x1_a3Sl ->
                          case >=# sc1_s9NA ipv1_X3X6 of _ {
                            False ->
                              case ww5_s7PG @ Box $fMonadBox b2_a1U0 (I# sc1_s9NA)
                              of _ { Box x2_X3XD ->
                              case lvl62_s96I x1_a3Sl x2_X3XD of wild6_a3Vi {
                                __DEFAULT -> wild6_a3Vi;
                                EQ -> $s$wcmp_loop0_saaF (+# sc_s9Nz 1) (+# sc1_s9NA 1)
                              }
                              };
                            True -> GT
                          }
                          };
                        True ->
                          case >=# sc1_s9NA ipv1_X3X6 of _ {
                            False ->
                              case ww5_s7PG @ Box $fMonadBox b2_a1U0 (I# sc1_s9NA)
                              of _ { Box _ ->
                              LT
                              };
                            True -> EQ
                          }
                      }; } in
                case $s$wcmp_loop0_saaF 0 0 of _ {
                  LT -> False;
                  EQ ->
                    case a3_a1TY of _ {
                      Nothing ->
                        case b3_a1U1 of _ {
                          Nothing -> True;
                          Just ipv2_a2F4 -> False
                        };
                      Just a4_a2EW ->
                        case b3_a1U1 of _ {
                          Nothing -> True;
                          Just b4_a2F1 ->
                            case a4_a2EW of _ { LeftFrag a5_a1Sn ->
                            case b4_a2F1 of _ { LeftFrag b5_a1So ->
                            >= @ n_aQp w_s7Q6 a5_a1Sn b5_a1So
                            }
                            }
                        }
                    };
                  GT -> True
                }
                }
                }
                } } in
            case a1_a1TW of _ {
              Nothing ->
                case b1_a1TZ of _ {
                  Nothing -> $w$j_s81b;
                  Just ipv_a2DO -> False
                };
              Just a4_a2DG ->
                case b1_a1TZ of _ {
                  Nothing -> True;
                  Just b4_a2DL ->
                    case a4_a2DG of _ { RightFrag rb_d2vi a5_a1Ry ->
                    case b4_a2DL of _ { RightFrag rb1_d2vg b5_a1RA ->
                    case <# rb_d2vi rb1_d2vg of _ {
                      False ->
                        case ==# rb_d2vi rb1_d2vg of _ {
                          False -> True;
                          True ->
                            case compare @ n_aQp w_s7Q6 a5_a1Ry b5_a1RA of _ {
                              LT -> False;
                              EQ -> $w$j_s81b;
                              GT -> True
                            }
                        };
                      True -> False
                    }
                    }
                    }
                }
            };
          Single ipv_s2F7 -> False
        };
      Single a1_a1U2 ->
        case a1_a1U2 of _ { MiddleFrag rb_s8Zu a2_s8Zt ->
        case w3_s7Q9 of _ {
          Compound ipv_s2Fa ipv1_s2Fb ipv2_s2Fc -> True;
          Single b1_a1U3 ->
            case b1_a1U3 of _ { MiddleFrag rb1_s8Zz b2_s8ZA ->
            case <# rb_s8Zu rb1_s8Zz of _ {
              False ->
                case ==# rb_s8Zu rb1_s8Zz of _ {
                  False -> True;
                  True -> >= @ n_aQp w_s7Q6 a2_s8Zt b2_s8ZA
                };
              True -> False
            }
            }
        }
        }
    }

$fOrdPartialNums_$c>= [InlPrag=INLINE[0]]
  :: forall n_aQp.
     (Eq (PartialNums n_aQp), Ord n_aQp, Unbox n_aQp) =>
     PartialNums n_aQp -> PartialNums n_aQp -> Bool
[GblId,
 Arity=5,
 Str=DmdType ALLSS,
 Unf=Unf{Src=Worker=$w$c>=, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= \ (@ n_aQp)
                 _
                 (w1_s7Q6 [Occ=Once] :: Ord n_aQp)
                 (w2_s7Q7 [Occ=Once] :: Unbox n_aQp)
                 (w3_s7Q8 [Occ=Once] :: PartialNums n_aQp)
                 (w4_s7Q9 [Occ=Once] :: PartialNums n_aQp) ->
                 $w$c>= @ n_aQp w1_s7Q6 w2_s7Q7 w3_s7Q8 w4_s7Q9}]
$fOrdPartialNums_$c>= =
  \ (@ n_aQp)
    _
    (w1_s7Q6 :: Ord n_aQp)
    (w2_s7Q7 :: Unbox n_aQp)
    (w3_s7Q8 :: PartialNums n_aQp)
    (w4_s7Q9 :: PartialNums n_aQp) ->
    $w$c>= @ n_aQp w1_s7Q6 w2_s7Q7 w3_s7Q8 w4_s7Q9

$w$c>
  :: forall n_aQp.
     (Ord n_aQp, Unbox n_aQp) =>
     PartialNums n_aQp -> PartialNums n_aQp -> Bool
[GblId, Arity=4, Str=DmdType LLSS]
$w$c> =
  \ (@ n_aQp)
    (w_s7QH :: Ord n_aQp)
    (w1_s7QI :: Unbox n_aQp)
    (w2_s7QJ :: PartialNums n_aQp)
    (w3_s7QK :: PartialNums n_aQp) ->
    case w2_s7QJ of _ {
      Compound a1_a1U6 a2_a1U7 a3_a1U8 ->
        case w3_s7QK of _ {
          Compound b1_a1U9 b2_a1Ua b3_a1Ub ->
            let {
              $w$j_s81d :: Bool
              [LclId, Str=DmdType]
              $w$j_s81d =
                case $p1Unbox @ n_aQp w1_s7QI
                of _ { D:Vector _ _ _ ww3_s7Qf _ ww5_s7Qh _ _ ->
                case ww3_s7Qf a2_a1U7 of _ { I# ipv_a3RQ ->
                case ww3_s7Qf b2_a1Ua of _ { I# ipv1_X3X7 ->
                let {
                  lvl62_s96J :: n_aQp -> n_aQp -> Ordering
                  [LclId]
                  lvl62_s96J = compare @ n_aQp w_s7QH } in
                letrec {
                  $s$wcmp_loop0_saaG [Occ=LoopBreaker] :: Int# -> Int# -> Ordering
                  [LclId, Arity=2, Str=DmdType LL]
                  $s$wcmp_loop0_saaG =
                    \ (sc_s9NI :: Int#) (sc1_s9NJ :: Int#) ->
                      case >=# sc_s9NI ipv_a3RQ of _ {
                        False ->
                          case ww5_s7Qh @ Box $fMonadBox a2_a1U7 (I# sc_s9NI)
                          of _ { Box x1_a3Sl ->
                          case >=# sc1_s9NJ ipv1_X3X7 of _ {
                            False ->
                              case ww5_s7Qh @ Box $fMonadBox b2_a1Ua (I# sc1_s9NJ)
                              of _ { Box x2_X3XE ->
                              case lvl62_s96J x1_a3Sl x2_X3XE of wild6_a3Vi {
                                __DEFAULT -> wild6_a3Vi;
                                EQ -> $s$wcmp_loop0_saaG (+# sc_s9NI 1) (+# sc1_s9NJ 1)
                              }
                              };
                            True -> GT
                          }
                          };
                        True ->
                          case >=# sc1_s9NJ ipv1_X3X7 of _ {
                            False ->
                              case ww5_s7Qh @ Box $fMonadBox b2_a1Ua (I# sc1_s9NJ)
                              of _ { Box _ ->
                              LT
                              };
                            True -> EQ
                          }
                      }; } in
                case $s$wcmp_loop0_saaG 0 0 of _ {
                  LT -> False;
                  EQ ->
                    case a3_a1U8 of _ {
                      Nothing ->
                        case b3_a1Ub of _ {
                          Nothing -> False;
                          Just ipv2_a2FC -> False
                        };
                      Just a4_a2Fu ->
                        case b3_a1Ub of _ {
                          Nothing -> True;
                          Just b4_a2Fz ->
                            case a4_a2Fu of _ { LeftFrag a5_a1Sr ->
                            case b4_a2Fz of _ { LeftFrag b5_a1Ss ->
                            > @ n_aQp w_s7QH a5_a1Sr b5_a1Ss
                            }
                            }
                        }
                    };
                  GT -> True
                }
                }
                }
                } } in
            case a1_a1U6 of _ {
              Nothing ->
                case b1_a1U9 of _ {
                  Nothing -> $w$j_s81d;
                  Just ipv_a2DO -> False
                };
              Just a4_a2DG ->
                case b1_a1U9 of _ {
                  Nothing -> True;
                  Just b4_a2DL ->
                    case a4_a2DG of _ { RightFrag rb_d2vi a5_a1Ry ->
                    case b4_a2DL of _ { RightFrag rb1_d2vg b5_a1RA ->
                    case <# rb_d2vi rb1_d2vg of _ {
                      False ->
                        case ==# rb_d2vi rb1_d2vg of _ {
                          False -> True;
                          True ->
                            case compare @ n_aQp w_s7QH a5_a1Ry b5_a1RA of _ {
                              LT -> False;
                              EQ -> $w$j_s81d;
                              GT -> True
                            }
                        };
                      True -> False
                    }
                    }
                    }
                }
            };
          Single ipv_s2FF -> False
        };
      Single a1_a1Uc ->
        case a1_a1Uc of _ { MiddleFrag rb_s8ZH a2_s8ZG ->
        case w3_s7QK of _ {
          Compound ipv_s2FI ipv1_s2FJ ipv2_s2FK -> True;
          Single b1_a1Ud ->
            case b1_a1Ud of _ { MiddleFrag rb1_s8ZM b2_s8ZN ->
            case <# rb_s8ZH rb1_s8ZM of _ {
              False ->
                case ==# rb_s8ZH rb1_s8ZM of _ {
                  False -> True;
                  True -> > @ n_aQp w_s7QH a2_s8ZG b2_s8ZN
                };
              True -> False
            }
            }
        }
        }
    }

$fOrdPartialNums_$c> [InlPrag=INLINE[0]]
  :: forall n_aQp.
     (Eq (PartialNums n_aQp), Ord n_aQp, Unbox n_aQp) =>
     PartialNums n_aQp -> PartialNums n_aQp -> Bool
[GblId,
 Arity=5,
 Str=DmdType ALLSS,
 Unf=Unf{Src=Worker=$w$c>, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= \ (@ n_aQp)
                 _
                 (w1_s7QH [Occ=Once] :: Ord n_aQp)
                 (w2_s7QI [Occ=Once] :: Unbox n_aQp)
                 (w3_s7QJ [Occ=Once] :: PartialNums n_aQp)
                 (w4_s7QK [Occ=Once] :: PartialNums n_aQp) ->
                 $w$c> @ n_aQp w1_s7QH w2_s7QI w3_s7QJ w4_s7QK}]
$fOrdPartialNums_$c> =
  \ (@ n_aQp)
    _
    (w1_s7QH :: Ord n_aQp)
    (w2_s7QI :: Unbox n_aQp)
    (w3_s7QJ :: PartialNums n_aQp)
    (w4_s7QK :: PartialNums n_aQp) ->
    $w$c> @ n_aQp w1_s7QH w2_s7QI w3_s7QJ w4_s7QK

$w$c<=
  :: forall n_aQp.
     (Ord n_aQp, Unbox n_aQp) =>
     PartialNums n_aQp -> PartialNums n_aQp -> Bool
[GblId, Arity=4, Str=DmdType LLSS]
$w$c<= =
  \ (@ n_aQp)
    (w_s7Ri :: Ord n_aQp)
    (w1_s7Rj :: Unbox n_aQp)
    (w2_s7Rk :: PartialNums n_aQp)
    (w3_s7Rl :: PartialNums n_aQp) ->
    case w2_s7Rk of _ {
      Compound a1_a1TM a2_a1TN a3_a1TO ->
        case w3_s7Rl of _ {
          Compound b1_a1TP b2_a1TQ b3_a1TR ->
            let {
              $w$j_s81f :: Bool
              [LclId, Str=DmdType]
              $w$j_s81f =
                case $p1Unbox @ n_aQp w1_s7Rj
                of _ { D:Vector _ _ _ ww3_s7QQ _ ww5_s7QS _ _ ->
                case ww3_s7QQ a2_a1TN of _ { I# ipv_a3RQ ->
                case ww3_s7QQ b2_a1TQ of _ { I# ipv1_X3X8 ->
                let {
                  lvl62_s96K :: n_aQp -> n_aQp -> Ordering
                  [LclId]
                  lvl62_s96K = compare @ n_aQp w_s7Ri } in
                letrec {
                  $s$wcmp_loop0_saaH [Occ=LoopBreaker] :: Int# -> Int# -> Ordering
                  [LclId, Arity=2, Str=DmdType LL]
                  $s$wcmp_loop0_saaH =
                    \ (sc_s9NR :: Int#) (sc1_s9NS :: Int#) ->
                      case >=# sc_s9NR ipv_a3RQ of _ {
                        False ->
                          case ww5_s7QS @ Box $fMonadBox a2_a1TN (I# sc_s9NR)
                          of _ { Box x1_a3Sl ->
                          case >=# sc1_s9NS ipv1_X3X8 of _ {
                            False ->
                              case ww5_s7QS @ Box $fMonadBox b2_a1TQ (I# sc1_s9NS)
                              of _ { Box x2_X3XF ->
                              case lvl62_s96K x1_a3Sl x2_X3XF of wild6_a3Vi {
                                __DEFAULT -> wild6_a3Vi;
                                EQ -> $s$wcmp_loop0_saaH (+# sc_s9NR 1) (+# sc1_s9NS 1)
                              }
                              };
                            True -> GT
                          }
                          };
                        True ->
                          case >=# sc1_s9NS ipv1_X3X8 of _ {
                            False ->
                              case ww5_s7QS @ Box $fMonadBox b2_a1TQ (I# sc1_s9NS)
                              of _ { Box _ ->
                              LT
                              };
                            True -> EQ
                          }
                      }; } in
                case $s$wcmp_loop0_saaH 0 0 of _ {
                  LT -> True;
                  EQ ->
                    case a3_a1TO of _ {
                      Nothing ->
                        case b3_a1TR of _ {
                          Nothing -> True;
                          Just ipv2_a2Ga -> True
                        };
                      Just a4_a2G2 ->
                        case b3_a1TR of _ {
                          Nothing -> False;
                          Just b4_a2G7 ->
                            case a4_a2G2 of _ { LeftFrag a5_a1Sj ->
                            case b4_a2G7 of _ { LeftFrag b5_a1Sk ->
                            <= @ n_aQp w_s7Ri a5_a1Sj b5_a1Sk
                            }
                            }
                        }
                    };
                  GT -> False
                }
                }
                }
                } } in
            case a1_a1TM of _ {
              Nothing ->
                case b1_a1TP of _ {
                  Nothing -> $w$j_s81f;
                  Just ipv_a2DO -> True
                };
              Just a4_a2DG ->
                case b1_a1TP of _ {
                  Nothing -> False;
                  Just b4_a2DL ->
                    case a4_a2DG of _ { RightFrag rb_d2vi a5_a1Ry ->
                    case b4_a2DL of _ { RightFrag rb1_d2vg b5_a1RA ->
                    case <# rb_d2vi rb1_d2vg of _ {
                      False ->
                        case ==# rb_d2vi rb1_d2vg of _ {
                          False -> False;
                          True ->
                            case compare @ n_aQp w_s7Ri a5_a1Ry b5_a1RA of _ {
                              LT -> True;
                              EQ -> $w$j_s81f;
                              GT -> False
                            }
                        };
                      True -> True
                    }
                    }
                    }
                }
            };
          Single ipv_s2Gd -> True
        };
      Single a1_a1TS ->
        case a1_a1TS of _ { MiddleFrag rb_s8ZU a2_s8ZT ->
        case w3_s7Rl of _ {
          Compound ipv_s2Gg ipv1_s2Gh ipv2_s2Gi -> False;
          Single b1_a1TT ->
            case b1_a1TT of _ { MiddleFrag rb1_s8ZZ b2_s900 ->
            case <# rb_s8ZU rb1_s8ZZ of _ {
              False ->
                case ==# rb_s8ZU rb1_s8ZZ of _ {
                  False -> False;
                  True -> <= @ n_aQp w_s7Ri a2_s8ZT b2_s900
                };
              True -> True
            }
            }
        }
        }
    }

$fOrdPartialNums_$c<= [InlPrag=INLINE[0]]
  :: forall n_aQp.
     (Eq (PartialNums n_aQp), Ord n_aQp, Unbox n_aQp) =>
     PartialNums n_aQp -> PartialNums n_aQp -> Bool
[GblId,
 Arity=5,
 Str=DmdType ALLSS,
 Unf=Unf{Src=Worker=$w$c<=, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= \ (@ n_aQp)
                 _
                 (w1_s7Ri [Occ=Once] :: Ord n_aQp)
                 (w2_s7Rj [Occ=Once] :: Unbox n_aQp)
                 (w3_s7Rk [Occ=Once] :: PartialNums n_aQp)
                 (w4_s7Rl [Occ=Once] :: PartialNums n_aQp) ->
                 $w$c<= @ n_aQp w1_s7Ri w2_s7Rj w3_s7Rk w4_s7Rl}]
$fOrdPartialNums_$c<= =
  \ (@ n_aQp)
    _
    (w1_s7Ri :: Ord n_aQp)
    (w2_s7Rj :: Unbox n_aQp)
    (w3_s7Rk :: PartialNums n_aQp)
    (w4_s7Rl :: PartialNums n_aQp) ->
    $w$c<= @ n_aQp w1_s7Ri w2_s7Rj w3_s7Rk w4_s7Rl

$fOrdPartialNums_$cmin
  :: forall n_aQp.
     (Eq (PartialNums n_aQp), Ord n_aQp, Unbox n_aQp) =>
     PartialNums n_aQp -> PartialNums n_aQp -> PartialNums n_aQp
[GblId,
 Arity=5,
 Str=DmdType ALLSS,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_X111)
                 ($dEq_a2c8 [Occ=Once] :: Eq (PartialNums n_X111))
                 ($dOrd_a2c9 [Occ=Once] :: Ord n_X111)
                 ($dUnbox_a2ca [Occ=Once] :: Unbox n_X111)
                 (x_a2y3 :: PartialNums n_X111)
                 (y_a2y4 :: PartialNums n_X111) ->
                 case $fOrdPartialNums_$c<=
                        @ n_X111 $dEq_a2c8 $dOrd_a2c9 $dUnbox_a2ca x_a2y3 y_a2y4
                 of _ {
                   False -> y_a2y4;
                   True -> x_a2y3
                 }}]
$fOrdPartialNums_$cmin =
  \ (@ n_X111)
    _
    ($dOrd_a2c9 :: Ord n_X111)
    ($dUnbox_a2ca :: Unbox n_X111)
    (x_a2y3 :: PartialNums n_X111)
    (y_a2y4 :: PartialNums n_X111) ->
    case $w$c<= @ n_X111 $dOrd_a2c9 $dUnbox_a2ca x_a2y3 y_a2y4 of _ {
      False -> y_a2y4;
      True -> x_a2y3
    }

$fOrdPartialNums_$cmax
  :: forall n_aQp.
     (Eq (PartialNums n_aQp), Ord n_aQp, Unbox n_aQp) =>
     PartialNums n_aQp -> PartialNums n_aQp -> PartialNums n_aQp
[GblId,
 Arity=5,
 Str=DmdType ALLSS,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_X112)
                 ($dEq_a2c8 [Occ=Once] :: Eq (PartialNums n_X112))
                 ($dOrd_a2c9 [Occ=Once] :: Ord n_X112)
                 ($dUnbox_a2ca [Occ=Once] :: Unbox n_X112)
                 (x_a2yd :: PartialNums n_X112)
                 (y_a2ye :: PartialNums n_X112) ->
                 case $fOrdPartialNums_$c<=
                        @ n_X112 $dEq_a2c8 $dOrd_a2c9 $dUnbox_a2ca x_a2yd y_a2ye
                 of _ {
                   False -> x_a2yd;
                   True -> y_a2ye
                 }}]
$fOrdPartialNums_$cmax =
  \ (@ n_X112)
    _
    ($dOrd_a2c9 :: Ord n_X112)
    ($dUnbox_a2ca :: Unbox n_X112)
    (x_a2yd :: PartialNums n_X112)
    (y_a2ye :: PartialNums n_X112) ->
    case $w$c<= @ n_X112 $dOrd_a2c9 $dUnbox_a2ca x_a2yd y_a2ye of _ {
      False -> x_a2yd;
      True -> y_a2ye
    }

$fOrdPartialNums [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aQp.
     (Eq (PartialNums n_aQp), Ord n_aQp, Unbox n_aQp) =>
     Ord (PartialNums n_aQp)
[GblId[DFunId[1]],
 Arity=3,
 Str=DmdType LLLm,
 Unf=DFun(arity=4) D:Ord [<1>, {$fOrdPartialNums_$ccompare},
                          {$fOrdPartialNums_$c<}, {$fOrdPartialNums_$c>=},
                          {$fOrdPartialNums_$c>}, {$fOrdPartialNums_$c<=},
                          {$fOrdPartialNums_$cmax}, {$fOrdPartialNums_$cmin}]]
$fOrdPartialNums =
  \ (@ n_X113)
    ($dEq_a2c8 :: Eq (PartialNums n_X113))
    ($dOrd_a2c9 :: Ord n_X113)
    ($dUnbox_a2ca :: Unbox n_X113) ->
    D:Ord
      @ (PartialNums n_X113)
      $dEq_a2c8
      (\ (w_s7OW :: PartialNums n_X113)
         (w1_s7OX :: PartialNums n_X113) ->
         $w$ccompare @ n_X113 $dOrd_a2c9 $dUnbox_a2ca w_s7OW w1_s7OX)
      (\ (w_s7Px :: PartialNums n_X113)
         (w1_s7Py :: PartialNums n_X113) ->
         $w$c< @ n_X113 $dOrd_a2c9 $dUnbox_a2ca w_s7Px w1_s7Py)
      (\ (w_s7Q8 :: PartialNums n_X113)
         (w1_s7Q9 :: PartialNums n_X113) ->
         $w$c>= @ n_X113 $dOrd_a2c9 $dUnbox_a2ca w_s7Q8 w1_s7Q9)
      (\ (w_s7QJ :: PartialNums n_X113)
         (w1_s7QK :: PartialNums n_X113) ->
         $w$c> @ n_X113 $dOrd_a2c9 $dUnbox_a2ca w_s7QJ w1_s7QK)
      (\ (w_s7Rk :: PartialNums n_X113)
         (w1_s7Rl :: PartialNums n_X113) ->
         $w$c<= @ n_X113 $dOrd_a2c9 $dUnbox_a2ca w_s7Rk w1_s7Rl)
      ($fOrdPartialNums_$cmax @ n_X113 $dEq_a2c8 $dOrd_a2c9 $dUnbox_a2ca)
      ($fOrdPartialNums_$cmin @ n_X113 $dEq_a2c8 $dOrd_a2c9 $dUnbox_a2ca)

$fShowPartialNums6 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 60 0}]
$fShowPartialNums6 = unpackCString# "RightFrag {"

$fShowPartialNums5 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 60 0}]
$fShowPartialNums5 = unpackCString# "numDigits = "

$fShowPartialNums4 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 40 0}]
$fShowPartialNums4 = unpackCString# ", "

$fShowPartialNums3 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 70 0}]
$fShowPartialNums3 = unpackCString# "partialParse = "

$fShowPartialNums7 :: Int
[GblId,
 Caf=NoCafRefs,
 Str=DmdType m,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=False, Expandable=True,
         Guidance=IF_ARGS [] 10 20}]
$fShowPartialNums7 = I# 0

$fShowPartialNums2 :: Char
[GblId,
 Caf=NoCafRefs,
 Str=DmdType m,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=False, Expandable=True,
         Guidance=IF_ARGS [] 10 20}]
$fShowPartialNums2 = C# '}'

$w$cshowsPrec3
  :: forall n_aQo. Show n_aQo => Int# -> Int# -> n_aQo -> ShowS
[GblId,
 Arity=4,
 Str=DmdType LLLS,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [30 0 0 0] 321 120}]
$w$cshowsPrec3 =
  \ (@ n_aQo)
    (w_s7Rq :: Show n_aQo)
    (ww_s7Rt :: Int#)
    (ww1_s7Rx :: Int#)
    (ww2_s7Ry :: n_aQo) ->
    let {
      f_X2VB [Dmd=Just L] :: String -> String
      [LclId, Str=DmdType]
      f_X2VB = showsPrec @ n_aQo w_s7Rq $fShowPartialNums7 ww2_s7Ry } in
    let {
      p_a2yN :: ShowS
      [LclId, Arity=1, Str=DmdType L]
      p_a2yN =
        \ (x_X2KA :: String) ->
          ++
            @ Char
            $fShowPartialNums6
            (++
               @ Char
               $fShowPartialNums5
               (itos
                  ww1_s7Rx
                  (++
                     @ Char
                     $fShowPartialNums4
                     (++
                        @ Char
                        $fShowPartialNums3
                        (f_X2VB (: @ Char $fShowPartialNums2 x_X2KA)))))) } in
    case >=# ww_s7Rt 11 of _ {
      False -> p_a2yN;
      True ->
        \ (x_a2yS :: String) ->
          : @ Char shows11 (p_a2yN (: @ Char shows10 x_a2yS))
    }

$fShowRightFrag_$cshowsPrec [InlPrag=INLINE[0]]
  :: forall n_aQo. Show n_aQo => Int -> RightFrag n_aQo -> ShowS
[GblId,
 Arity=3,
 Str=DmdType LU(L)U(LS),
 Unf=Unf{Src=Worker=$w$cshowsPrec3, TopLvl=True, Arity=3,
         Value=True, ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aQo)
                 (w_s7Rq [Occ=Once] :: Show n_aQo)
                 (w1_s7Rr [Occ=Once!] :: Int)
                 (w2_s7Rv [Occ=Once!] :: RightFrag n_aQo) ->
                 case w1_s7Rr of _ { I# ww_s7Rt [Occ=Once] ->
                 case w2_s7Rv
                 of _ { RightFrag ww1_s7Rx [Occ=Once] ww2_s7Ry [Occ=Once] ->
                 $w$cshowsPrec3 @ n_aQo w_s7Rq ww_s7Rt ww1_s7Rx ww2_s7Ry
                 }
                 }}]
$fShowRightFrag_$cshowsPrec =
  \ (@ n_aQo)
    (w_s7Rq :: Show n_aQo)
    (w1_s7Rr :: Int)
    (w2_s7Rv :: RightFrag n_aQo) ->
    case w1_s7Rr of _ { I# ww_s7Rt ->
    case w2_s7Rv of _ { RightFrag ww1_s7Rx ww2_s7Ry ->
    $w$cshowsPrec3 @ n_aQo w_s7Rq ww_s7Rt ww1_s7Rx ww2_s7Ry
    }
    }

$fShowRightFrag_$cshowList
  :: forall n_aQo. Show n_aQo => [RightFrag n_aQo] -> ShowS
[GblId,
 Arity=3,
 Str=DmdType LSL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 0] 110 0}]
$fShowRightFrag_$cshowList =
  \ (@ n_XTx)
    ($dShow_a24m :: Show n_XTx)
    (eta_B2 :: [RightFrag n_XTx])
    (eta1_B1 :: String) ->
    showList__
      @ (RightFrag n_XTx)
      (\ (w_s7Rv :: RightFrag n_XTx) ->
         case w_s7Rv of _ { RightFrag ww_s7Rx ww1_s7Ry ->
         $w$cshowsPrec3 @ n_XTx $dShow_a24m 0 ww_s7Rx ww1_s7Ry
         })
      eta_B2
      eta1_B1

$fShowRightFrag_$cshow
  :: forall n_aQo. Show n_aQo => RightFrag n_aQo -> String
[GblId,
 Arity=2,
 Str=DmdType LU(LS),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XTz)
                 ($dShow_a24m [Occ=Once] :: Show n_XTz)
                 (x_a2zz [Occ=Once] :: RightFrag n_XTz) ->
                 $fShowRightFrag_$cshowsPrec
                   @ n_XTz $dShow_a24m shows26 x_a2zz ([] @ Char)}]
$fShowRightFrag_$cshow =
  \ (@ n_XTz)
    ($dShow_a24m :: Show n_XTz)
    (x_a2zz :: RightFrag n_XTz) ->
    case x_a2zz of _ { RightFrag ww_s7Rx ww1_s7Ry ->
    $w$cshowsPrec3 @ n_XTz $dShow_a24m 0 ww_s7Rx ww1_s7Ry ([] @ Char)
    }

$fShowRightFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aQo. Show n_aQo => Show (RightFrag n_aQo)
[GblId[DFunId],
 Arity=1,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Show [{$fShowRightFrag_$cshowsPrec},
                           {$fShowRightFrag_$cshow}, {$fShowRightFrag_$cshowList}]]
$fShowRightFrag =
  \ (@ n_XTy) ($dShow_a24m :: Show n_XTy) ->
    D:Show
      @ (RightFrag n_XTy)
      ($fShowRightFrag_$cshowsPrec @ n_XTy $dShow_a24m)
      ($fShowRightFrag_$cshow @ n_XTy $dShow_a24m)
      ($fShowRightFrag_$cshowList @ n_XTy $dShow_a24m)

$fShowPartialNums8 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 60 0}]
$fShowPartialNums8 = unpackCString# "Compound "

$fShowPartialNums1 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 50 0}]
$fShowPartialNums1 = unpackCString# "Single "

$w$cshowsPrec2
  :: forall n_aQp.
     (Show n_aQp, Unbox n_aQp) =>
     Int# -> PartialNums n_aQp -> ShowS
[GblId,
 Arity=4,
 Str=DmdType LLLS,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 0 261] 822 240}]
$w$cshowsPrec2 =
  \ (@ n_aQp)
    (w_s7RF :: Show n_aQp)
    (w1_s7RG :: Unbox n_aQp)
    (ww_s7RJ :: Int#)
    (w2_s7RL :: PartialNums n_aQp) ->
    case w2_s7RL of _ {
      Compound b1_a1Tb b2_a1Tc b3_a1Td ->
        let {
          f_X2Wd [Dmd=Just L] :: String -> String
          [LclId, Str=DmdType]
          f_X2Wd = $w$cshowsPrec @ n_aQp w_s7RF w1_s7RG 11 b2_a1Tc } in
        let {
          p_a2yN :: ShowS
          [LclId, Arity=1, Str=DmdType L]
          p_a2yN =
            \ (x_X2KS :: String) ->
              ++
                @ Char
                $fShowPartialNums8
                (let {
                   a_s5AF [Dmd=Just L] :: String
                   [LclId, Str=DmdType]
                   a_s5AF =
                     f_X2Wd
                       (: @ Char
                          showSpace1
                          (case b3_a1Td of _ {
                             Nothing -> ++ @ Char $fShowMaybe2 x_X2KS;
                             Just x1_a2GE ->
                               : @ Char
                                 shows11
                                 (++
                                    @ Char
                                    $fShowMaybe1
                                    (case x1_a2GE of _ { LeftFrag ww1_s7N6 ->
                                     $w$cshowsPrec
                                       @ n_aQp w_s7RF 11 ww1_s7N6 (: @ Char shows10 x_X2KS)
                                     }))
                           })) } in
                 case b1_a1Tb of _ {
                   Nothing -> ++ @ Char $fShowMaybe2 (: @ Char showSpace1 a_s5AF);
                   Just x1_a2GE ->
                     : @ Char
                       shows11
                       (++
                          @ Char
                          $fShowMaybe1
                          (case x1_a2GE of _ { RightFrag ww1_s7Rx ww2_s7Ry ->
                           $w$cshowsPrec3
                             @ n_aQp
                             w_s7RF
                             11
                             ww1_s7Rx
                             ww2_s7Ry
                             (: @ Char shows10 (: @ Char showSpace1 a_s5AF))
                           }))
                 }) } in
        case >=# ww_s7RJ 11 of _ {
          False -> p_a2yN;
          True ->
            \ (x_a2yS :: String) ->
              : @ Char shows11 (p_a2yN (: @ Char shows10 x_a2yS))
        };
      Single b1_a1Tf ->
        case b1_a1Tf of _ { MiddleFrag ww1_s906 ww2_s905 ->
        let {
          g_a2z8 [Dmd=Just L] :: String -> String
          [LclId, Str=DmdType]
          g_a2z8 = $w$cshowsPrec1 @ n_aQp w_s7RF 11 ww1_s906 ww2_s905 } in
        case >=# ww_s7RJ 11 of _ {
          False ->
            \ (x_a2z9 :: String) ->
              ++ @ Char $fShowPartialNums1 (g_a2z8 x_a2z9);
          True ->
            \ (x_a2yS :: String) ->
              : @ Char
                shows11
                (++ @ Char $fShowPartialNums1 (g_a2z8 (: @ Char shows10 x_a2yS)))
        }
        }
    }

$fShowPartialNums_$cshowsPrec [InlPrag=INLINE[0]]
  :: forall n_aQp.
     (Show n_aQp, Unbox n_aQp) =>
     Int -> PartialNums n_aQp -> ShowS
[GblId,
 Arity=4,
 Str=DmdType LLU(L)S,
 Unf=Unf{Src=Worker=$w$cshowsPrec2, TopLvl=True, Arity=4,
         Value=True, ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aQp)
                 (w_s7RF [Occ=Once] :: Show n_aQp)
                 (w1_s7RG [Occ=Once] :: Unbox n_aQp)
                 (w2_s7RH [Occ=Once!] :: Int)
                 (w3_s7RL [Occ=Once] :: PartialNums n_aQp) ->
                 case w2_s7RH of _ { I# ww_s7RJ [Occ=Once] ->
                 $w$cshowsPrec2 @ n_aQp w_s7RF w1_s7RG ww_s7RJ w3_s7RL
                 }}]
$fShowPartialNums_$cshowsPrec =
  \ (@ n_aQp)
    (w_s7RF :: Show n_aQp)
    (w1_s7RG :: Unbox n_aQp)
    (w2_s7RH :: Int)
    (w3_s7RL :: PartialNums n_aQp) ->
    case w2_s7RH of _ { I# ww_s7RJ ->
    $w$cshowsPrec2 @ n_aQp w_s7RF w1_s7RG ww_s7RJ w3_s7RL
    }

$fShowPartialNums_$cshowList
  :: forall n_aQp.
     (Show n_aQp, Unbox n_aQp) =>
     [PartialNums n_aQp] -> ShowS
[GblId,
 Arity=4,
 Str=DmdType LLSL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 0 0] 100 0}]
$fShowPartialNums_$cshowList =
  \ (@ n_X11z)
    ($dShow_a2bx :: Show n_X11z)
    ($dUnbox_a2by :: Unbox n_X11z)
    (eta_B2 :: [PartialNums n_X11z])
    (eta1_B1 :: String) ->
    showList__
      @ (PartialNums n_X11z)
      (\ (w_s7RL :: PartialNums n_X11z) ->
         $w$cshowsPrec2 @ n_X11z $dShow_a2bx $dUnbox_a2by 0 w_s7RL)
      eta_B2
      eta1_B1

$fShowPartialNums_$cshow
  :: forall n_aQp.
     (Show n_aQp, Unbox n_aQp) =>
     PartialNums n_aQp -> String
[GblId,
 Arity=3,
 Str=DmdType LLS,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 0] 60 0}]
$fShowPartialNums_$cshow =
  \ (@ n_X11B)
    ($dShow_a2bx :: Show n_X11B)
    ($dUnbox_a2by :: Unbox n_X11B)
    (x_a2zz :: PartialNums n_X11B) ->
    $w$cshowsPrec2
      @ n_X11B $dShow_a2bx $dUnbox_a2by 0 x_a2zz ([] @ Char)

$fShowPartialNums [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aQp.
     (Show n_aQp, Unbox n_aQp) =>
     Show (PartialNums n_aQp)
[GblId[DFunId],
 Arity=2,
 Str=DmdType LLm,
 Unf=DFun(arity=3) D:Show [{$fShowPartialNums_$cshowsPrec},
                           {$fShowPartialNums_$cshow}, {$fShowPartialNums_$cshowList}]]
$fShowPartialNums =
  \ (@ n_X11A)
    ($dShow_a2bx :: Show n_X11A)
    ($dUnbox_a2by :: Unbox n_X11A) ->
    D:Show
      @ (PartialNums n_X11A)
      ($fShowPartialNums_$cshowsPrec @ n_X11A $dShow_a2bx $dUnbox_a2by)
      ($fShowPartialNums_$cshow @ n_X11A $dShow_a2bx $dUnbox_a2by)
      ($fShowPartialNums_$cshowList @ n_X11A $dShow_a2bx $dUnbox_a2by)

lvl5_rb9x :: Char
[GblId, Caf=NoCafRefs, Str=DmdType m]
lvl5_rb9x = C# '>'

lvl6_rb9y :: [Char]
[GblId, Caf=NoCafRefs, Str=DmdType]
lvl6_rb9y = : @ Char lvl5_rb9x ([] @ Char)

lvl7_rb9z :: [Char]
[GblId, Caf=NoCafRefs, Str=DmdType]
lvl7_rb9z = : @ Char lvl5_rb9x ([] @ Char)

Rec {
consume2 [Occ=LoopBreaker]
  :: [PartialNums Word]
     -> State# RealWorld -> (# State# RealWorld, () #)
[GblId, Arity=2, Str=DmdType SL]
consume2 =
  \ (ds_a2Hq :: [PartialNums Word]) (eta_X54 :: State# RealWorld) ->
    case ds_a2Hq of _ {
      [] -> (# eta_X54, () #);
      : y_a2Hv ys_a2Hw ->
        case y_a2Hv of _ {
          Compound ds1_d2nB uv_a1it ds2_d2nC ->
            case uv_a1it
                 `cast` (<TFCo:R:VectorWord> ; <NTCo:R:VectorWord>
                         :: Vector Word ~# Vector Word)
            of _ { Vector _ rb1_s90f _ ->
            case hPutStr2
                   stdout
                   (unpackAppendCString#
                      " <segment, length "
                      (++ @ Char ($wshowSignedInt 0 rb1_s90f ([] @ Char)) lvl6_rb9y))
                   True
                   eta_X54
            of _ { (# ipv_X4d3, _ #) ->
            consume2 ys_a2Hw ipv_X4d3
            }
            };
          Single ds1_d2nA ->
            case ds1_d2nA of _ { MiddleFrag rb_s90n x_s90m ->
            case x_s90m of _ { W# w_s90r ->
            case hPutStr2
                   stdout
                   (unpackAppendCString#
                      " <middle frag "
                      (++
                         @ Char
                         (show_tuple
                            (: @ ShowS
                               (\ (w1_a6PI :: String) -> $wshowSignedInt 0 rb_s90n w1_a6PI)
                               (: @ ShowS
                                  (\ (eta1_a6Zq :: String) -> showWord w_s90r eta1_a6Zq)
                                  ([] @ ShowS)))
                            ([] @ Char))
                         lvl7_rb9z))
                   True
                   eta_X54
            of _ { (# ipv_X4d3, _ #) ->
            consume2 ys_a2Hw ipv_X4d3
            }
            }
            }
        }
    }
end Rec }

consume3 :: [Char]
[GblId,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 80 0}]
consume3 = unpackCString# " segments of output"

consume1
  :: [PartialNums Word]
     -> State# RealWorld -> (# State# RealWorld, () #)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0] 291 0}]
consume1 =
  \ (x_a1ip :: [PartialNums Word]) (eta_B1 :: State# RealWorld) ->
    case seq#
           @ ()
           @ RealWorld
           ($fNFDataArray_$crnf1
              @ (PartialNums Word)
              (($fNFDataPartialNums_$crnf @ Word)
               `cast` (Sym <(NTCo:NFData <PartialNums Word>)>
                       :: (PartialNums Word -> ()) ~# NFData (PartialNums Word)))
              x_a1ip)
           eta_B1
    of _ { (# ipv_a47L, _ #) ->
    case hPutStr2
           stdout
           (unpackAppendCString#
              "Result: "
              (case $wlen @ (PartialNums Word) x_a1ip 0 of ww_a6ZD { __DEFAULT ->
               ++ @ Char ($wshowSignedInt 0 ww_a6ZD ([] @ Char)) consume3
               }))
           True
           ipv_a47L
    of _ { (# ipv2_X4ei, _ #) ->
    consume2 x_a1ip ipv2_X4ei
    }
    }

consume_$sconsume :: [PartialNums Word] -> IO ()
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
consume_$sconsume =
  consume1
  `cast` (<[PartialNums Word]> -> Sym <(NTCo:IO <()>)>
          :: ([PartialNums Word]
              -> State# RealWorld -> (# State# RealWorld, () #))
               ~#
             ([PartialNums Word] -> IO ()))

lvl8_rb9A :: [Char]
[GblId, Caf=NoCafRefs, Str=DmdType]
lvl8_rb9A = : @ Char lvl5_rb9x ([] @ Char)

lvl9_rb9B :: [Char]
[GblId, Caf=NoCafRefs, Str=DmdType]
lvl9_rb9B = : @ Char lvl5_rb9x ([] @ Char)

consume4
  :: forall n_tQ.
     (Show n_tQ, Unbox n_tQ) =>
     [PartialNums n_tQ]
     -> State# RealWorld -> (# State# RealWorld, () #)
[GblId, Arity=4, Str=DmdType LLLL]
consume4 =
  \ (@ n_tQ)
    ($dShow_a1Vj :: Show n_tQ)
    ($dUnbox_a1Vk :: Unbox n_tQ)
    (eta_B2 :: [PartialNums n_tQ])
    (eta1_B1 :: State# RealWorld) ->
    case seq#
           @ ()
           @ RealWorld
           ($fNFDataArray_$crnf1
              @ (PartialNums n_tQ)
              (($fNFDataPartialNums_$crnf @ n_tQ)
               `cast` (Sym <(NTCo:NFData <PartialNums n_tQ>)>
                       :: (PartialNums n_tQ -> ()) ~# NFData (PartialNums n_tQ)))
              eta_B2)
           eta1_B1
    of _ { (# ipv_a47L, _ #) ->
    case hPutStr2
           stdout
           (unpackAppendCString#
              "Result: "
              (case $wlen @ (PartialNums n_tQ) eta_B2 0 of ww_a6ZD { __DEFAULT ->
               ++ @ Char ($wshowSignedInt 0 ww_a6ZD ([] @ Char)) consume3
               }))
           True
           ipv_a47L
    of _ { (# ipv2_X4ev, _ #) ->
    let {
      lvl62_s96M :: Int -> n_tQ -> ShowS
      [LclId]
      lvl62_s96M = showsPrec @ n_tQ $dShow_a1Vj } in
    let {
      a_s9fM :: Vector Vector n_tQ
      [LclId]
      a_s9fM = $p1Unbox @ n_tQ $dUnbox_a1Vk } in
    let {
      lvl63_s96L :: Vector n_tQ -> Int
      [LclId]
      lvl63_s96L = basicLength @ Vector @ n_tQ a_s9fM } in
    letrec {
      a1_s7gh [Occ=LoopBreaker]
        :: [PartialNums n_tQ]
           -> State# RealWorld -> (# State# RealWorld, () #)
      [LclId, Arity=2, Str=DmdType SL]
      a1_s7gh =
        \ (ds_a2Hq :: [PartialNums n_tQ]) (eta2_X5d :: State# RealWorld) ->
          case ds_a2Hq of _ {
            [] -> (# eta2_X5d, () #);
            : y_a2Hv ys_a2Hw ->
              case y_a2Hv of _ {
                Compound ds3_d2nB uv_a1it ds4_d2nC ->
                  case hPutStr2
                         stdout
                         (unpackAppendCString#
                            " <segment, length "
                            (case lvl63_s96L uv_a1it of _ { I# ww_a6PG ->
                             ++ @ Char ($wshowSignedInt 0 ww_a6PG ([] @ Char)) lvl8_rb9A
                             }))
                         True
                         eta2_X5d
                  of _ { (# ipv4_X4df, _ #) ->
                  a1_s7gh ys_a2Hw ipv4_X4df
                  };
                Single ds3_d2nA ->
                  case ds3_d2nA of _ { MiddleFrag rb_s90z x_s90y ->
                  case hPutStr2
                         stdout
                         (unpackAppendCString#
                            " <middle frag "
                            (++
                               @ Char
                               (show_tuple
                                  (: @ ShowS
                                     (\ (w_a6PI :: String) -> $wshowSignedInt 0 rb_s90z w_a6PI)
                                     (: @ ShowS (lvl62_s96M shows26 x_s90y) ([] @ ShowS)))
                                  ([] @ Char))
                               lvl9_rb9B))
                         True
                         eta2_X5d
                  of _ { (# ipv4_X4df, _ #) ->
                  a1_s7gh ys_a2Hw ipv4_X4df
                  }
                  }
              }
          }; } in
    a1_s7gh eta_B2 ipv2_X4ev
    }
    }

consume
  :: forall n_a13C.
     (Show n_a13C, Unbox n_a13C) =>
     [PartialNums n_a13C] -> IO ()
[GblId,
 Arity=4,
 Str=DmdType LLLL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
consume =
  consume4
  `cast` (forall n_tQ.
          <Show n_tQ>
          -> <Unbox n_tQ> -> <[PartialNums n_tQ]> -> Sym <(NTCo:IO <()>)>
          :: (forall n_tQ.
              (Show n_tQ, Unbox n_tQ) =>
              [PartialNums n_tQ]
              -> State# RealWorld -> (# State# RealWorld, () #))
               ~#
             (forall n_tQ.
              (Show n_tQ, Unbox n_tQ) =>
              [PartialNums n_tQ] -> IO ()))

lvl10_rb9C :: [Char]
[GblId]
lvl10_rb9C = unpackCString# "write"

lvl11_rb9D :: Int
[GblId, Caf=NoCafRefs]
lvl11_rb9D = I# 596

file_rb9E :: String
[GblId, Str=DmdType]
file_rb9E = unpackCString# "./Data/Vector/Generic/Mutable.hs"

lvl12_rb9F :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl12_rb9F =
  \ (ipv_s2WC :: Int#) (ww_s7Sv :: Int#) ->
    checkError
      @ (IO ())
      file_rb9E
      lvl11_rb9D
      Bounds
      lvl10_rb9C
      (checkIndex_msg# ww_s7Sv ipv_s2WC)

lvl13_rb9G :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl13_rb9G =
  \ (ipv_s2WC :: Int#) (ww_s7Sv :: Int#) ->
    checkError
      @ (IO ())
      file_rb9E
      lvl11_rb9D
      Bounds
      lvl10_rb9C
      (checkIndex_msg# ww_s7Sv ipv_s2WC)

Rec {
$s$wa_rb9H
  :: Int#
     -> Int#
     -> Int#
     -> Int#
     -> MutableByteArray# RealWorld
     -> (~#) * (MVector RealWorld Word64) (MVector RealWorld Word64)
     -> Word#
     -> Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld,
           (IOVector Word64, Maybe (LeftFrag Word64), Int) #)
[GblId, Arity=12, Str=DmdType LALLLLLLLLLL]
$s$wa_rb9H =
  \ (sc_s9PT :: Int#)
    (sc1_s9Q5 :: Int#)
    (sc2_s9Q6 :: Int#)
    (sc3_s9Q7 :: Int#)
    (sc4_s9Q8 :: MutableByteArray# RealWorld)
    (sg_s9Q9
       :: (~#) * (MVector RealWorld Word64) (MVector RealWorld Word64))
    (sc5_s9Qa :: Word#)
    (sc6_s9Qb :: Addr#)
    (sc7_s9Qc :: ForeignPtrContents)
    (sc8_s9Qd :: Int#)
    (sc9_s9Qe :: Int#)
    (sc10_s9Qf :: State# RealWorld) ->
    let {
      $w$j_s81h
        :: State# RealWorld
           -> (# State# RealWorld,
                 (IOVector Word64, Maybe (LeftFrag Word64), Int) #)
      [LclId, Arity=1, Str=DmdType T]
      $w$j_s81h =
        \ _ ->
          case sc_s9PT of wild_Xcy {
            __DEFAULT ->
              case readWord8OffAddr#
                     @ RealWorld (plusAddr# sc6_s9Qb sc8_s9Qd) 0 realWorld#
              of _ { (# ipv_a49f, ipv1_a49g #) ->
              case touch# @ ForeignPtrContents sc7_s9Qc ipv_a49f
              of _ { __DEFAULT ->
              $s$wa_rb9H
                (-# wild_Xcy 1)
                sc1_s9Q5
                sc2_s9Q6
                sc3_s9Q7
                sc4_s9Q8
                @~ (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                  <(TFCo:R:MVectorsWord64
                                                                      <RealWorld>)>)
                ipv1_a49g
                sc6_s9Qb
                sc7_s9Qc
                (+# sc8_s9Qd 1)
                (-# sc9_s9Qe 1)
                sc10_s9Qf
              }
              };
            1 ->
              (# sc10_s9Qf,
                 ((MVector @ RealWorld @ Word64 sc2_s9Q6 sc3_s9Q7 sc4_s9Q8)
                  `cast` (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                        <(TFCo:R:MVectorsWord64
                                                                            <RealWorld>)>
                          :: MVector RealWorld Word64 ~# MVector RealWorld Word64),
                  Nothing @ (LeftFrag Word64),
                  I# sc1_s9Q5) #)
          } } in
    case geWord# sc5_s9Qa (__word 48) of _ {
      False -> $w$j_s81h realWorld#;
      True ->
        case leWord# sc5_s9Qa (__word 57) of _ {
          False -> $w$j_s81h realWorld#;
          True ->
            $s$wa1_rb9I
              sc_s9PT
              sc1_s9Q5
              (__word 0)
              sc2_s9Q6
              sc3_s9Q7
              sc4_s9Q8
              @~ (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                <(TFCo:R:MVectorsWord64
                                                                    <RealWorld>)>)
              sc5_s9Qa
              sc6_s9Qb
              sc7_s9Qc
              sc8_s9Qd
              sc9_s9Qe
              sc10_s9Qf
        }
    }

$s$wa1_rb9I
  :: Int#
     -> Int#
     -> Word#
     -> Int#
     -> Int#
     -> MutableByteArray# RealWorld
     -> (~#) * (MVector RealWorld Word64) (MVector RealWorld Word64)
     -> Word#
     -> Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld,
           (IOVector Word64, Maybe (LeftFrag Word64), Int) #)
[GblId, Arity=13, Str=DmdType LLLLLLLLLLLLL]
$s$wa1_rb9I =
  \ (sc_s9OE :: Int#)
    (sc1_s9OR :: Int#)
    (sc2_s9OS :: Word#)
    (sc3_s9OT :: Int#)
    (sc4_s9OU :: Int#)
    (sc5_s9OV :: MutableByteArray# RealWorld)
    (sg_s9OW
       :: (~#) * (MVector RealWorld Word64) (MVector RealWorld Word64))
    (sc6_s9OX :: Word#)
    (sc7_s9OY :: Addr#)
    (sc8_s9OZ :: ForeignPtrContents)
    (sc9_s9P0 :: Int#)
    (sc10_s9P1 :: Int#)
    (sc11_s9P2 :: State# RealWorld) ->
    let {
      nt_s2WA :: MVector RealWorld Word64
      [LclId]
      nt_s2WA =
        MVector @ RealWorld @ Word64 sc3_s9OT sc4_s9OU sc5_s9OV } in
    let {
      $w$j_s81i
        :: State# RealWorld
           -> (# State# RealWorld,
                 (IOVector Word64, Maybe (LeftFrag Word64), Int) #)
      [LclId, Arity=1, Str=DmdType T]
      $w$j_s81i =
        \ _ ->
          case >=# sc1_s9OR 0 of _ {
            False -> case lvl12_rb9F sc4_s9OU sc1_s9OR of wild_00 { };
            True ->
              case <# sc1_s9OR sc4_s9OU of _ {
                False -> case lvl13_rb9G sc4_s9OU sc1_s9OR of wild_00 { };
                True ->
                  case (writeWord64Array#
                          @ (PrimState IO)
                          (sc5_s9OV
                           `cast` (MutableByteArray# (Sym <(TFCo:R:PrimStateIO)>)
                                   :: MutableByteArray# RealWorld
                                        ~#
                                      MutableByteArray# (PrimState IO)))
                          (+# sc3_s9OT sc1_s9OR)
                          sc2_s9OS
                          (sc11_s9P2
                           `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                   :: State# RealWorld ~# State# (PrimState IO))))
                       `cast` (State# <(TFCo:R:PrimStateIO)>
                               :: State# (PrimState IO) ~# State# RealWorld)
                  of ipv_a47L { __DEFAULT ->
                  case sc_s9OE of wild_XcE {
                    __DEFAULT ->
                      case readWord8OffAddr#
                             @ RealWorld (plusAddr# sc7_s9OY sc9_s9P0) 0 realWorld#
                      of _ { (# ipv1_a49f, ipv2_a49g #) ->
                      case touch# @ ForeignPtrContents sc8_s9OZ ipv1_a49f
                      of _ { __DEFAULT ->
                      $s$wa_rb9H
                        (-# wild_XcE 1)
                        (+# sc1_s9OR 1)
                        sc3_s9OT
                        sc4_s9OU
                        sc5_s9OV
                        @~ (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                          <(TFCo:R:MVectorsWord64
                                                                              <RealWorld>)>)
                        ipv2_a49g
                        sc7_s9OY
                        sc8_s9OZ
                        (+# sc9_s9P0 1)
                        (-# sc10_s9P1 1)
                        ipv_a47L
                      }
                      };
                    1 ->
                      (# ipv_a47L,
                         (nt_s2WA
                          `cast` (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                                <(TFCo:R:MVectorsWord64
                                                                                    <RealWorld>)>
                                  :: MVector RealWorld Word64 ~# MVector RealWorld Word64),
                          Nothing @ (LeftFrag Word64),
                          I# (+# sc1_s9OR 1)) #)
                  }
                  }
              }
          } } in
    case geWord# sc6_s9OX (__word 48) of _ {
      False -> $w$j_s81i realWorld#;
      True ->
        case leWord# sc6_s9OX (__word 57) of _ {
          False -> $w$j_s81i realWorld#;
          True ->
            case sc_s9OE of wild2_XcM {
              __DEFAULT ->
                case readWord8OffAddr#
                       @ RealWorld (plusAddr# sc7_s9OY sc9_s9P0) 0 realWorld#
                of _ { (# ipv_a49f, ipv1_a49g #) ->
                case touch# @ ForeignPtrContents sc8_s9OZ ipv_a49f
                of _ { __DEFAULT ->
                $s$wa1_rb9I
                  (-# wild2_XcM 1)
                  sc1_s9OR
                  (plusWord#
                     (timesWord# (__word 10) sc2_s9OS)
                     (minusWord# sc6_s9OX (__word 48)))
                  sc3_s9OT
                  sc4_s9OU
                  sc5_s9OV
                  @~ (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                    <(TFCo:R:MVectorsWord64
                                                                        <RealWorld>)>)
                  ipv1_a49g
                  sc7_s9OY
                  sc8_s9OZ
                  (+# sc9_s9P0 1)
                  (-# sc10_s9P1 1)
                  sc11_s9P2
                }
                };
              1 ->
                (# sc11_s9P2,
                   (nt_s2WA
                    `cast` (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                          <(TFCo:R:MVectorsWord64
                                                                              <RealWorld>)>
                            :: MVector RealWorld Word64 ~# MVector RealWorld Word64),
                    Just
                      @ (LeftFrag Word64)
                      (LeftFrag
                         @ Word64
                         (W64#
                            (plusWord#
                               (timesWord# (__word 10) sc2_s9OS)
                               (minusWord# sc6_s9OX (__word 48))))),
                    I# sc1_s9OR) #)
            }
        }
    }
end Rec }

lvl14_rb9J
  :: forall s_a4gr.
     State# s_a4gr -> (# State# s_a4gr, Vector Word64 #)
[GblId, Arity=1, Caf=NoCafRefs]
lvl14_rb9J =
  \ (@ s_a4gr) (s_a4gs :: State# s_a4gr) ->
    case newByteArray#
           @ (PrimState (ST s_a4gr))
           0
           (s_a4gs
            `cast` (State# (Sym <(TFCo:R:PrimStateST <s_a4gr>)>)
                    :: State# s_a4gr ~# State# (PrimState (ST s_a4gr))))
    of _ { (# ipv_a4sf, ipv1_a4sg #) ->
    case unsafeFreezeByteArray#
           @ (PrimState (ST s_a4gr)) ipv1_a4sg ipv_a4sf
    of _ { (# ipv2_a4oH, ipv3_a4oI #) ->
    (# ipv2_a4oH
       `cast` (State# <(TFCo:R:PrimStateST <s_a4gr>)>
               :: State# (PrimState (ST s_a4gr)) ~# State# s_a4gr),
       (Vector @ Word64 0 0 ipv3_a4oI)
       `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym <(TFCo:R:VectorWord64)>
               :: Vector Word64 ~# Vector Word64) #)
    }
    }

lvl15_rb9K :: Vector Word64
[GblId, Str=DmdType]
lvl15_rb9K = runSTRep @ (Vector Word64) lvl14_rb9J

lvl16_rb9L :: Word64
[GblId, Caf=NoCafRefs]
lvl16_rb9L = W64# (__word 0)

lvl17_rb9M :: MiddleFrag Word64
[GblId, Caf=NoCafRefs]
lvl17_rb9M = MiddleFrag @ Word64 0 lvl16_rb9L

lvl18_rb9N :: PartialNums Word64
[GblId, Caf=NoCafRefs]
lvl18_rb9N = Single @ Word64 lvl17_rb9M

lvl19_rb9O :: Int
[GblId, Caf=NoCafRefs]
lvl19_rb9O = I# 494

lvl20_rb9P :: [Char]
[GblId]
lvl20_rb9P = unpackCString# "new"

lvl21_rb9Q :: Int# -> IO (MVector (PrimState IO) Word64)
[GblId, Arity=1, Str=DmdType Tb]
lvl21_rb9Q =
  \ (x1_s90X :: Int#) ->
    checkError
      @ (IO (MVector (PrimState IO) Word64))
      file_rb9E
      lvl19_rb9O
      Bounds
      lvl20_rb9P
      (checkLength_msg# x1_s90X)

lvl22_rb9R :: [Char]
[GblId]
lvl22_rb9R = unpackCString# "./Data/Vector/Generic.hs"

lvl23_rb9S :: Int
[GblId, Caf=NoCafRefs]
lvl23_rb9S = I# 395

lvl24_rb9T :: [Char]
[GblId]
lvl24_rb9T = unpackCString# "slice"

poly_$w$j_rb9U :: Int# -> Int# -> Vector Word64
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j_rb9U =
  \ (ipv_s6bg :: Int#) (a_s6uW :: Int#) ->
    checkError
      @ (Vector Word64)
      lvl22_rb9R
      lvl23_rb9S
      Bounds
      lvl24_rb9T
      (checkSlice_msg# 1 a_s6uW ipv_s6bg)

lvl25_rb9V :: Int
[GblId, Caf=NoCafRefs]
lvl25_rb9V = I# 244

lvl26_rb9W :: [Char]
[GblId]
lvl26_rb9W = unpackCString# "(!)"

lvl27_rb9X :: Int# -> Word64
[GblId, Arity=1, Str=DmdType Tb]
lvl27_rb9X =
  \ (ipv_s6bg :: Int#) ->
    checkError
      @ Word64
      lvl22_rb9R
      lvl25_rb9V
      Bounds
      lvl26_rb9W
      (checkIndex_msg# 0 ipv_s6bg)

poly_$w$j1_rb9Y :: Int# -> Int# -> Vector Word64
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j1_rb9Y =
  \ (ipv_s6bg :: Int#) (a_s6v6 :: Int#) ->
    checkError
      @ (Vector Word64)
      lvl22_rb9R
      lvl23_rb9S
      Bounds
      lvl24_rb9T
      (checkSlice_msg# 1 a_s6v6 ipv_s6bg)

lvl28_rb9Z :: Int# -> Word64
[GblId, Arity=1, Str=DmdType Tb]
lvl28_rb9Z =
  \ (ipv_s6bg :: Int#) ->
    checkError
      @ Word64
      lvl22_rb9R
      lvl25_rb9V
      Bounds
      lvl26_rb9W
      (checkIndex_msg# 0 ipv_s6bg)

lvl29_rba0 :: [Char]
[GblId]
lvl29_rba0 = unpackCString# "head"

lvl30_rba1 :: Word8
[GblId, Str=DmdType b]
lvl30_rba1 = errorEmptyList @ Word8 lvl29_rba0

$wa2
  :: Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld, PartialNums Word64 #)
[GblId, Arity=5, Str=DmdType LLLLL]
$wa2 =
  \ (ww_s7Tx :: Addr#)
    (ww1_s7Ty :: ForeignPtrContents)
    (ww2_s7Tz :: Int#)
    (ww3_s7TA :: Int#)
    (w_s7TC :: State# RealWorld) ->
    let {
      $wa5_s81j
        :: State# RealWorld -> (# State# RealWorld, PartialNums Word64 #)
      [LclId, Arity=1, Str=DmdType L]
      $wa5_s81j =
        \ (w1_s7Tr :: State# RealWorld) ->
          case <=# ww3_s7TA 0 of _ {
            False ->
              case readWord8OffAddr#
                     @ RealWorld (plusAddr# ww_s7Tx ww2_s7Tz) 0 realWorld#
              of _ { (# ipv_a49f, ipv1_a49g #) ->
              case touch# @ ForeignPtrContents ww1_s7Ty ipv_a49f
              of _ { __DEFAULT ->
              let {
                x1_s90X :: Int#
                [LclId, Str=DmdType]
                x1_s90X = +# (quotInt# ww3_s7TA 2) 1 } in
              case >=# x1_s90X 0 of _ {
                False -> case lvl21_rb9Q x1_s90X of wild_00 { };
                True ->
                  case newByteArray#
                         @ (PrimState IO)
                         (*# x1_s90X 8)
                         (w1_s7Tr
                          `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                  :: State# RealWorld ~# State# (PrimState IO)))
                  of _ { (# ipv2_a4sf, ipv3_a4sg #) ->
                  let {
                    ww4_s7Sa :: Int#
                    [LclId]
                    ww4_s7Sa = +# ww2_s7Tz 1 } in
                  let {
                    $j_saAS
                      :: State# RealWorld
                         -> (IOVector Word64, Maybe (LeftFrag Word64), Int)
                         -> (# State# RealWorld, PartialNums Word64 #)
                    [LclId, Arity=2]
                    $j_saAS =
                      \ (ipv4_X4kz :: State# RealWorld)
                        (ipv5_X4kB :: (IOVector Word64, Maybe (LeftFrag Word64), Int)) ->
                        case ipv5_X4kB of _ { (v_a1i5, w2_a1i6, ind_a1i7) ->
                        case v_a1i5
                             `cast` (<TFCo:R:MVectorsWord64
                                        (Sym <(TFCo:R:PrimStateIO)>)> ; <NTCo:R:MVectorsWord64
                                                                           <PrimState IO>>
                                     :: MVector RealWorld Word64 ~# MVector (PrimState IO) Word64)
                        of _ { MVector rb_a4oA rb1_a4oB rb2_a4oC ->
                        case unsafeFreezeByteArray#
                               @ (PrimState IO)
                               rb2_a4oC
                               (ipv4_X4kz
                                `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                        :: State# RealWorld ~# State# (PrimState IO)))
                        of _ { (# ipv6_a4oH, ipv7_a4oI #) ->
                        let {
                          pref_s3pm [Dmd=Just D(LLL)] :: Vector Word64
                          [LclId, Str=DmdType]
                          pref_s3pm =
                            case ind_a1i7 of _ { I# x2_a4pl ->
                            case <=# x2_a4pl 0 of _ {
                              False ->
                                case <=# x2_a4pl rb1_a4oB of _ {
                                  False ->
                                    (Vector @ Word64 rb_a4oA rb1_a4oB ipv7_a4oI)
                                    `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym
                                                                            <(TFCo:R:VectorWord64)>
                                            :: Vector Word64 ~# Vector Word64);
                                  True ->
                                    (Vector @ Word64 rb_a4oA x2_a4pl ipv7_a4oI)
                                    `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym
                                                                            <(TFCo:R:VectorWord64)>
                                            :: Vector Word64 ~# Vector Word64)
                                };
                              True ->
                                case <=# 0 rb1_a4oB of _ {
                                  False ->
                                    (Vector @ Word64 rb_a4oA rb1_a4oB ipv7_a4oI)
                                    `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym
                                                                            <(TFCo:R:VectorWord64)>
                                            :: Vector Word64 ~# Vector Word64);
                                  True ->
                                    (Vector @ Word64 rb_a4oA 0 ipv7_a4oI)
                                    `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym
                                                                            <(TFCo:R:VectorWord64)>
                                            :: Vector Word64 ~# Vector Word64)
                                }
                            }
                            } } in
                        case geWord# ipv1_a49g (__word 48) of _ {
                          False ->
                            (# ipv6_a4oH
                               `cast` (State# <(TFCo:R:PrimStateIO)>
                                       :: State# (PrimState IO) ~# State# RealWorld),
                               case pref_s3pm
                                    `cast` (<TFCo:R:VectorWord64> ; <NTCo:R:VectorWord64>
                                            :: Vector Word64 ~# Vector Word64)
                               of nt_s4pD { Vector ipv8_s4pE ipv9_s4pF ipv10_s4pG ->
                               case w2_a1i6 of tpl_Xa { __DEFAULT ->
                               Compound
                                 @ Word64
                                 (Nothing @ (RightFrag Word64))
                                 (nt_s4pD
                                  `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym <(TFCo:R:VectorWord64)>
                                          :: Vector Word64 ~# Vector Word64))
                                 tpl_Xa
                               }
                               } #);
                          True ->
                            case leWord# ipv1_a49g (__word 57) of _ {
                              False ->
                                (# ipv6_a4oH
                                   `cast` (State# <(TFCo:R:PrimStateIO)>
                                           :: State# (PrimState IO) ~# State# RealWorld),
                                   case pref_s3pm
                                        `cast` (<TFCo:R:VectorWord64> ; <NTCo:R:VectorWord64>
                                                :: Vector Word64 ~# Vector Word64)
                                   of nt_s4pD { Vector ipv8_s4pE ipv9_s4pF ipv10_s4pG ->
                                   case w2_a1i6 of tpl_Xa { __DEFAULT ->
                                   Compound
                                     @ Word64
                                     (Nothing @ (RightFrag Word64))
                                     (nt_s4pD
                                      `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym
                                                                              <(TFCo:R:VectorWord64)>
                                              :: Vector Word64 ~# Vector Word64))
                                     tpl_Xa
                                   }
                                   } #);
                              True ->
                                case pref_s3pm
                                     `cast` (<TFCo:R:VectorWord64> ; <NTCo:R:VectorWord64>
                                             :: Vector Word64 ~# Vector Word64)
                                of _ { Vector ipv8_s6bf ipv9_s6bg ipv10_s6bh ->
                                case lvl15_rb9K
                                     `cast` (<TFCo:R:VectorWord64> ; <NTCo:R:VectorWord64>
                                             :: Vector Word64 ~# Vector Word64)
                                of _ { Vector ipv11_s6bQ ipv12_s6bR ipv13_s6bS ->
                                let {
                                  lvl62_s90V :: Int
                                  [LclId, Str=DmdType]
                                  lvl62_s90V =
                                    letrec {
                                      $wa6_s81k [Occ=LoopBreaker]
                                        :: Addr#
                                           -> Int#
                                           -> State# RealWorld
                                           -> (# State# RealWorld, Maybe Int #)
                                      [LclId, Arity=3, Str=DmdType LLL]
                                      $wa6_s81k =
                                        \ (ww5_s7SX :: Addr#)
                                          (ww6_s7T1 :: Int#)
                                          (w3_s7T3 :: State# RealWorld) ->
                                          case >=# ww6_s7T1 ww3_s7TA of _ {
                                            False ->
                                              case readWord8OffAddr# @ RealWorld ww5_s7SX 0 w3_s7T3
                                              of _ { (# ipv14_a4ka, ipv15_a4kb #) ->
                                              case geWord# ipv15_a4kb (__word 48) of _ {
                                                False -> (# ipv14_a4ka, Just @ Int (I# ww6_s7T1) #);
                                                True ->
                                                  case leWord# ipv15_a4kb (__word 57) of _ {
                                                    False ->
                                                      (# ipv14_a4ka, Just @ Int (I# ww6_s7T1) #);
                                                    True ->
                                                      $wa6_s81k
                                                        (plusAddr# ww5_s7SX 1)
                                                        (+# ww6_s7T1 1)
                                                        ipv14_a4ka
                                                  }
                                              }
                                              };
                                            True -> (# w3_s7T3, Nothing @ Int #)
                                          }; } in
                                    case $wa6_s81k (plusAddr# ww_s7Tx ww2_s7Tz) 0 realWorld#
                                    of _ { (# ipv14_a48Q, ipv15_a48R #) ->
                                    case touch# @ ForeignPtrContents ww1_s7Ty ipv14_a48Q
                                    of _ { __DEFAULT ->
                                    case ipv15_a48R of _ {
                                      Nothing -> fromJust1 @ Int;
                                      Just x_a339 -> x_a339
                                    }
                                    }
                                    } } in
                                letrec {
                                  $s$weq_loop0_saaI [Occ=LoopBreaker] :: Int# -> Int# -> Bool
                                  [LclId, Arity=2, Str=DmdType LL]
                                  $s$weq_loop0_saaI =
                                    \ (sc_s9Te :: Int#) (sc1_s9Tf :: Int#) ->
                                      case >=# sc_s9Te ipv9_s6bg of _ {
                                        False ->
                                          case >=# sc1_s9Tf ipv12_s6bR of _ {
                                            False ->
                                              case indexWord64Array#
                                                     ipv13_s6bS (+# ipv11_s6bQ sc1_s9Tf)
                                              of wild8_X6i9 { __DEFAULT ->
                                              case indexWord64Array#
                                                     ipv10_s6bh (+# ipv8_s6bf sc_s9Te)
                                              of wild9_a6bI { __DEFAULT ->
                                              case eqWord# wild9_a6bI wild8_X6i9 of _ {
                                                False -> False;
                                                True ->
                                                  $s$weq_loop0_saaI (+# sc_s9Te 1) (+# sc1_s9Tf 1)
                                              }
                                              }
                                              };
                                            True -> False
                                          };
                                        True -> >=# sc1_s9Tf ipv12_s6bR
                                      }; } in
                                case $s$weq_loop0_saaI 0 0 of _ {
                                  False ->
                                    (# ipv6_a4oH
                                       `cast` (State# <(TFCo:R:PrimStateIO)>
                                               :: State# (PrimState IO) ~# State# RealWorld),
                                       let {
                                         a_s6uW [Dmd=Just L] :: Int#
                                         [LclId, Str=DmdType]
                                         a_s6uW = -# ipv9_s6bg 1 } in
                                       case >=# a_s6uW 0 of _ {
                                         False ->
                                           case poly_$w$j_rb9U ipv9_s6bg a_s6uW of wild8_00 { };
                                         True ->
                                           case <=# (+# 1 a_s6uW) ipv9_s6bg of _ {
                                             False ->
                                               case poly_$w$j_rb9U ipv9_s6bg a_s6uW of wild9_00 { };
                                             True ->
                                               case w2_a1i6 of tpl_Xa { __DEFAULT ->
                                               Compound
                                                 @ Word64
                                                 (Just
                                                    @ (RightFrag Word64)
                                                    (case lvl62_s90V of _ { I# tpl2_B4 ->
                                                     case <# 0 ipv9_s6bg of _ {
                                                       False ->
                                                         case lvl27_rb9X ipv9_s6bg of wild10_00 { };
                                                       True ->
                                                         case indexWord64Array# ipv10_s6bh ipv8_s6bf
                                                         of wild10_a6bI { __DEFAULT ->
                                                         RightFrag
                                                           @ Word64 tpl2_B4 (W64# wild10_a6bI)
                                                         }
                                                     }
                                                     }))
                                                 ((Vector
                                                     @ Word64 (+# ipv8_s6bf 1) a_s6uW ipv10_s6bh)
                                                  `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym
                                                                                          <(TFCo:R:VectorWord64)>
                                                          :: Vector Word64 ~# Vector Word64))
                                                 tpl_Xa
                                               }
                                           }
                                       } #);
                                  True ->
                                    case w2_a1i6 of _ {
                                      Nothing ->
                                        (# ipv6_a4oH
                                           `cast` (State# <(TFCo:R:PrimStateIO)>
                                                   :: State# (PrimState IO) ~# State# RealWorld),
                                           let {
                                             a_s6v6 [Dmd=Just L] :: Int#
                                             [LclId, Str=DmdType]
                                             a_s6v6 = -# ipv9_s6bg 1 } in
                                           case >=# a_s6v6 0 of _ {
                                             False ->
                                               case poly_$w$j1_rb9Y ipv9_s6bg a_s6v6 of wild9_00 {
                                               };
                                             True ->
                                               case <=# (+# 1 a_s6v6) ipv9_s6bg of _ {
                                                 False ->
                                                   case poly_$w$j1_rb9Y ipv9_s6bg a_s6v6
                                                   of wild10_00 {
                                                   };
                                                 True ->
                                                   Compound
                                                     @ Word64
                                                     (Just
                                                        @ (RightFrag Word64)
                                                        (case lvl62_s90V of _ { I# tpl1_B4 ->
                                                         case <# 0 ipv9_s6bg of _ {
                                                           False ->
                                                             case lvl28_rb9Z ipv9_s6bg
                                                             of wild11_00 {
                                                             };
                                                           True ->
                                                             case indexWord64Array#
                                                                    ipv10_s6bh ipv8_s6bf
                                                             of wild11_a6bI { __DEFAULT ->
                                                             RightFrag
                                                               @ Word64 tpl1_B4 (W64# wild11_a6bI)
                                                             }
                                                         }
                                                         }))
                                                     ((Vector
                                                         @ Word64
                                                         (+# ipv8_s6bf 1)
                                                         a_s6v6
                                                         ipv10_s6bh)
                                                      `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym
                                                                                              <(TFCo:R:VectorWord64)>
                                                              :: Vector Word64 ~# Vector Word64))
                                                     (Nothing @ (LeftFrag Word64))
                                               }
                                           } #);
                                      Just ds_d2nQ ->
                                        case ds_d2nQ of _ { LeftFrag w3_a1ib ->
                                        (# ipv6_a4oH
                                           `cast` (State# <(TFCo:R:PrimStateIO)>
                                                   :: State# (PrimState IO) ~# State# RealWorld),
                                           Single @ Word64 (MiddleFrag @ Word64 ww3_s7TA w3_a1ib) #)
                                        }
                                    }
                                }
                                }
                                }
                            }
                        }
                        }
                        }
                        } } in
                  case geWord# ipv1_a49g (__word 48) of _ {
                    False ->
                      case ww3_s7TA of wild3_Xcy {
                        __DEFAULT ->
                          case readWord8OffAddr#
                                 @ RealWorld (plusAddr# ww_s7Tx ww4_s7Sa) 0 realWorld#
                          of _ { (# ipv4_X4gh, ipv5_X4gj #) ->
                          case touch# @ ForeignPtrContents ww1_s7Ty ipv4_X4gh
                          of _ { __DEFAULT ->
                          case $s$wa_rb9H
                                 (-# wild3_Xcy 1)
                                 0
                                 0
                                 x1_s90X
                                 (ipv3_a4sg
                                  `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                          :: MutableByteArray# (PrimState IO)
                                               ~#
                                             MutableByteArray# RealWorld))
                                 @~ (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                                   <(TFCo:R:MVectorsWord64
                                                                                       <RealWorld>)>)
                                 ipv5_X4gj
                                 ww_s7Tx
                                 ww1_s7Ty
                                 (+# ww4_s7Sa 1)
                                 (-# (-# wild3_Xcy 1) 1)
                                 (ipv2_a4sf
                                  `cast` (State# <(TFCo:R:PrimStateIO)>
                                          :: State# (PrimState IO) ~# State# RealWorld))
                          of _ { (# ipv6_X4kz, ipv7_X4kB #) ->
                          $j_saAS ipv6_X4kz ipv7_X4kB
                          }
                          }
                          };
                        1 ->
                          $j_saAS
                            (ipv2_a4sf
                             `cast` (State# <(TFCo:R:PrimStateIO)>
                                     :: State# (PrimState IO) ~# State# RealWorld))
                            ((MVector
                                @ RealWorld
                                @ Word64
                                0
                                x1_s90X
                                (ipv3_a4sg
                                 `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                         :: MutableByteArray# (PrimState IO)
                                              ~#
                                            MutableByteArray# RealWorld)))
                             `cast` (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                                   <(TFCo:R:MVectorsWord64
                                                                                       <RealWorld>)>
                                     :: MVector RealWorld Word64 ~# MVector RealWorld Word64),
                             Nothing @ (LeftFrag Word64),
                             $fShowPartialNums7)
                      };
                    True ->
                      case leWord# ipv1_a49g (__word 57) of _ {
                        False ->
                          case ww3_s7TA of wild4_Xcy {
                            __DEFAULT ->
                              case readWord8OffAddr#
                                     @ RealWorld (plusAddr# ww_s7Tx ww4_s7Sa) 0 realWorld#
                              of _ { (# ipv4_X4gh, ipv5_X4gj #) ->
                              case touch# @ ForeignPtrContents ww1_s7Ty ipv4_X4gh
                              of _ { __DEFAULT ->
                              case $s$wa_rb9H
                                     (-# wild4_Xcy 1)
                                     0
                                     0
                                     x1_s90X
                                     (ipv3_a4sg
                                      `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                              :: MutableByteArray# (PrimState IO)
                                                   ~#
                                                 MutableByteArray# RealWorld))
                                     @~ (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                                       <(TFCo:R:MVectorsWord64
                                                                                           <RealWorld>)>)
                                     ipv5_X4gj
                                     ww_s7Tx
                                     ww1_s7Ty
                                     (+# ww4_s7Sa 1)
                                     (-# (-# wild4_Xcy 1) 1)
                                     (ipv2_a4sf
                                      `cast` (State# <(TFCo:R:PrimStateIO)>
                                              :: State# (PrimState IO) ~# State# RealWorld))
                              of _ { (# ipv6_X4kz, ipv7_X4kB #) ->
                              $j_saAS ipv6_X4kz ipv7_X4kB
                              }
                              }
                              };
                            1 ->
                              $j_saAS
                                (ipv2_a4sf
                                 `cast` (State# <(TFCo:R:PrimStateIO)>
                                         :: State# (PrimState IO) ~# State# RealWorld))
                                ((MVector
                                    @ RealWorld
                                    @ Word64
                                    0
                                    x1_s90X
                                    (ipv3_a4sg
                                     `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                             :: MutableByteArray# (PrimState IO)
                                                  ~#
                                                MutableByteArray# RealWorld)))
                                 `cast` (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                                       <(TFCo:R:MVectorsWord64
                                                                                           <RealWorld>)>
                                         :: MVector RealWorld Word64 ~# MVector RealWorld Word64),
                                 Nothing @ (LeftFrag Word64),
                                 $fShowPartialNums7)
                          };
                        True ->
                          case $s$wa1_rb9I
                                 ww3_s7TA
                                 0
                                 (__word 0)
                                 0
                                 x1_s90X
                                 (ipv3_a4sg
                                  `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                          :: MutableByteArray# (PrimState IO)
                                               ~#
                                             MutableByteArray# RealWorld))
                                 @~ (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                                   <(TFCo:R:MVectorsWord64
                                                                                       <RealWorld>)>)
                                 ipv1_a49g
                                 ww_s7Tx
                                 ww1_s7Ty
                                 ww4_s7Sa
                                 (-# ww3_s7TA 1)
                                 (ipv2_a4sf
                                  `cast` (State# <(TFCo:R:PrimStateIO)>
                                          :: State# (PrimState IO) ~# State# RealWorld))
                          of _ { (# ipv4_X4kz, ipv5_X4kB #) ->
                          $j_saAS ipv4_X4kz ipv5_X4kB
                          }
                      }
                  }
                  }
              }
              }
              };
            True -> case lvl30_rba1 of wild_00 { }
          } } in
    case ww3_s7TA of _ {
      __DEFAULT -> $wa5_s81j w_s7TC;
      0 ->
        case eqAddr# ww_s7Tx __NULL of _ {
          False ->
            case $wcompareBytes
                   ww_s7Tx ww1_s7Ty ww2_s7Tz 0 __NULL $fMonoidByteString1 0 0
            of _ {
              __DEFAULT -> $wa5_s81j w_s7TC;
              EQ -> (# w_s7TC, lvl18_rb9N #)
            };
          True ->
            case ww2_s7Tz of wild2_Xck {
              __DEFAULT ->
                case $wcompareBytes
                       ww_s7Tx ww1_s7Ty wild2_Xck 0 __NULL $fMonoidByteString1 0 0
                of _ {
                  __DEFAULT -> $wa5_s81j w_s7TC;
                  EQ -> (# w_s7TC, lvl18_rb9N #)
                };
              0 -> (# w_s7TC, lvl18_rb9N #)
            }
        }
    }

readNatsPartial1 [InlPrag=INLINE[0]]
  :: ByteString
     -> State# RealWorld -> (# State# RealWorld, PartialNums Word64 #)
[GblId,
 Arity=2,
 Str=DmdType U(LLLL)L,
 Unf=Unf{Src=Worker=$wa2, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (w_s7Tv [Occ=Once!] :: ByteString)
                 (w1_s7TC [Occ=Once] :: State# RealWorld) ->
                 case w_s7Tv
                 of _
                 { PS ww_s7Tx [Occ=Once]
                      ww1_s7Ty [Occ=Once]
                      ww2_s7Tz [Occ=Once]
                      ww3_s7TA [Occ=Once] ->
                 $wa2 ww_s7Tx ww1_s7Ty ww2_s7Tz ww3_s7TA w1_s7TC
                 }}]
readNatsPartial1 =
  \ (w_s7Tv :: ByteString) (w1_s7TC :: State# RealWorld) ->
    case w_s7Tv of _ { PS ww_s7Tx ww1_s7Ty ww2_s7Tz ww3_s7TA ->
    $wa2 ww_s7Tx ww1_s7Ty ww2_s7Tz ww3_s7TA w1_s7TC
    }

readNatsPartial_readNatsPartial
  :: ByteString -> IO (PartialNums Word64)
[GblId,
 Arity=2,
 Str=DmdType U(LLLL)L,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= readNatsPartial1
               `cast` (<ByteString> -> Sym <(NTCo:IO <PartialNums Word64>)>
                       :: (ByteString
                           -> State# RealWorld -> (# State# RealWorld, PartialNums Word64 #))
                            ~#
                          (ByteString -> IO (PartialNums Word64)))}]
readNatsPartial_readNatsPartial =
  readNatsPartial1
  `cast` (<ByteString> -> Sym <(NTCo:IO <PartialNums Word64>)>
          :: (ByteString
              -> State# RealWorld -> (# State# RealWorld, PartialNums Word64 #))
               ~#
             (ByteString -> IO (PartialNums Word64)))

lvl31_rba2 :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl31_rba2 =
  \ (ipv_s34Y :: Int#) (ww_s7Um :: Int#) ->
    checkError
      @ (IO ())
      file_rb9E
      lvl11_rb9D
      Bounds
      lvl10_rb9C
      (checkIndex_msg# ww_s7Um ipv_s34Y)

lvl32_rba3 :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl32_rba3 =
  \ (ipv_s34Y :: Int#) (ww_s7Um :: Int#) ->
    checkError
      @ (IO ())
      file_rb9E
      lvl11_rb9D
      Bounds
      lvl10_rb9C
      (checkIndex_msg# ww_s7Um ipv_s34Y)

Rec {
$s$wa2_rba4
  :: Int#
     -> Int#
     -> Int#
     -> Int#
     -> MutableByteArray# RealWorld
     -> (~#) * (MVector RealWorld Word32) (MVector RealWorld Word32)
     -> Word#
     -> Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld,
           (IOVector Word32, Maybe (LeftFrag Word32), Int) #)
[GblId, Arity=12, Str=DmdType LALLLLLLLLLL]
$s$wa2_rba4 =
  \ (sc_s9V7 :: Int#)
    (sc1_s9Vj :: Int#)
    (sc2_s9Vk :: Int#)
    (sc3_s9Vl :: Int#)
    (sc4_s9Vm :: MutableByteArray# RealWorld)
    (sg_s9Vn
       :: (~#) * (MVector RealWorld Word32) (MVector RealWorld Word32))
    (sc5_s9Vo :: Word#)
    (sc6_s9Vp :: Addr#)
    (sc7_s9Vq :: ForeignPtrContents)
    (sc8_s9Vr :: Int#)
    (sc9_s9Vs :: Int#)
    (sc10_s9Vt :: State# RealWorld) ->
    let {
      $w$j_s81o
        :: State# RealWorld
           -> (# State# RealWorld,
                 (IOVector Word32, Maybe (LeftFrag Word32), Int) #)
      [LclId, Arity=1, Str=DmdType T]
      $w$j_s81o =
        \ _ ->
          case sc_s9V7 of wild_Xd2 {
            __DEFAULT ->
              case readWord8OffAddr#
                     @ RealWorld (plusAddr# sc6_s9Vp sc8_s9Vr) 0 realWorld#
              of _ { (# ipv_a49f, ipv1_a49g #) ->
              case touch# @ ForeignPtrContents sc7_s9Vq ipv_a49f
              of _ { __DEFAULT ->
              $s$wa2_rba4
                (-# wild_Xd2 1)
                sc1_s9Vj
                sc2_s9Vk
                sc3_s9Vl
                sc4_s9Vm
                @~ (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                  <(TFCo:R:MVectorsWord32
                                                                      <RealWorld>)>)
                ipv1_a49g
                sc6_s9Vp
                sc7_s9Vq
                (+# sc8_s9Vr 1)
                (-# sc9_s9Vs 1)
                sc10_s9Vt
              }
              };
            1 ->
              (# sc10_s9Vt,
                 ((MVector @ RealWorld @ Word32 sc2_s9Vk sc3_s9Vl sc4_s9Vm)
                  `cast` (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                        <(TFCo:R:MVectorsWord32
                                                                            <RealWorld>)>
                          :: MVector RealWorld Word32 ~# MVector RealWorld Word32),
                  Nothing @ (LeftFrag Word32),
                  I# sc1_s9Vj) #)
          } } in
    case geWord# sc5_s9Vo (__word 48) of _ {
      False -> $w$j_s81o realWorld#;
      True ->
        case leWord# sc5_s9Vo (__word 57) of _ {
          False -> $w$j_s81o realWorld#;
          True ->
            $s$wa3_rba5
              sc_s9V7
              sc1_s9Vj
              (__word 0)
              sc2_s9Vk
              sc3_s9Vl
              sc4_s9Vm
              @~ (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                <(TFCo:R:MVectorsWord32
                                                                    <RealWorld>)>)
              sc5_s9Vo
              sc6_s9Vp
              sc7_s9Vq
              sc8_s9Vr
              sc9_s9Vs
              sc10_s9Vt
        }
    }

$s$wa3_rba5
  :: Int#
     -> Int#
     -> Word#
     -> Int#
     -> Int#
     -> MutableByteArray# RealWorld
     -> (~#) * (MVector RealWorld Word32) (MVector RealWorld Word32)
     -> Word#
     -> Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld,
           (IOVector Word32, Maybe (LeftFrag Word32), Int) #)
[GblId, Arity=13, Str=DmdType LLLLLLLLLLLLL]
$s$wa3_rba5 =
  \ (sc_s9TS :: Int#)
    (sc1_s9U5 :: Int#)
    (sc2_s9U6 :: Word#)
    (sc3_s9U7 :: Int#)
    (sc4_s9U8 :: Int#)
    (sc5_s9U9 :: MutableByteArray# RealWorld)
    (sg_s9Ua
       :: (~#) * (MVector RealWorld Word32) (MVector RealWorld Word32))
    (sc6_s9Ub :: Word#)
    (sc7_s9Uc :: Addr#)
    (sc8_s9Ud :: ForeignPtrContents)
    (sc9_s9Ue :: Int#)
    (sc10_s9Uf :: Int#)
    (sc11_s9Ug :: State# RealWorld) ->
    let {
      nt_s34W :: MVector RealWorld Word32
      [LclId]
      nt_s34W =
        MVector @ RealWorld @ Word32 sc3_s9U7 sc4_s9U8 sc5_s9U9 } in
    let {
      $w$j_s81p
        :: State# RealWorld
           -> (# State# RealWorld,
                 (IOVector Word32, Maybe (LeftFrag Word32), Int) #)
      [LclId, Arity=1, Str=DmdType T]
      $w$j_s81p =
        \ _ ->
          case >=# sc1_s9U5 0 of _ {
            False -> case lvl31_rba2 sc4_s9U8 sc1_s9U5 of wild_00 { };
            True ->
              case <# sc1_s9U5 sc4_s9U8 of _ {
                False -> case lvl32_rba3 sc4_s9U8 sc1_s9U5 of wild_00 { };
                True ->
                  case (writeWord32Array#
                          @ (PrimState IO)
                          (sc5_s9U9
                           `cast` (MutableByteArray# (Sym <(TFCo:R:PrimStateIO)>)
                                   :: MutableByteArray# RealWorld
                                        ~#
                                      MutableByteArray# (PrimState IO)))
                          (+# sc3_s9U7 sc1_s9U5)
                          sc2_s9U6
                          (sc11_s9Ug
                           `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                   :: State# RealWorld ~# State# (PrimState IO))))
                       `cast` (State# <(TFCo:R:PrimStateIO)>
                               :: State# (PrimState IO) ~# State# RealWorld)
                  of ipv_a47L { __DEFAULT ->
                  case sc_s9TS of wild_Xd8 {
                    __DEFAULT ->
                      case readWord8OffAddr#
                             @ RealWorld (plusAddr# sc7_s9Uc sc9_s9Ue) 0 realWorld#
                      of _ { (# ipv1_a49f, ipv2_a49g #) ->
                      case touch# @ ForeignPtrContents sc8_s9Ud ipv1_a49f
                      of _ { __DEFAULT ->
                      $s$wa2_rba4
                        (-# wild_Xd8 1)
                        (+# sc1_s9U5 1)
                        sc3_s9U7
                        sc4_s9U8
                        sc5_s9U9
                        @~ (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                          <(TFCo:R:MVectorsWord32
                                                                              <RealWorld>)>)
                        ipv2_a49g
                        sc7_s9Uc
                        sc8_s9Ud
                        (+# sc9_s9Ue 1)
                        (-# sc10_s9Uf 1)
                        ipv_a47L
                      }
                      };
                    1 ->
                      (# ipv_a47L,
                         (nt_s34W
                          `cast` (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                                <(TFCo:R:MVectorsWord32
                                                                                    <RealWorld>)>
                                  :: MVector RealWorld Word32 ~# MVector RealWorld Word32),
                          Nothing @ (LeftFrag Word32),
                          I# (+# sc1_s9U5 1)) #)
                  }
                  }
              }
          } } in
    case geWord# sc6_s9Ub (__word 48) of _ {
      False -> $w$j_s81p realWorld#;
      True ->
        case leWord# sc6_s9Ub (__word 57) of _ {
          False -> $w$j_s81p realWorld#;
          True ->
            case sc_s9TS of wild2_Xdf {
              __DEFAULT ->
                case readWord8OffAddr#
                       @ RealWorld (plusAddr# sc7_s9Uc sc9_s9Ue) 0 realWorld#
                of _ { (# ipv_a49f, ipv1_a49g #) ->
                case touch# @ ForeignPtrContents sc8_s9Ud ipv_a49f
                of _ { __DEFAULT ->
                $s$wa3_rba5
                  (-# wild2_Xdf 1)
                  sc1_s9U5
                  (narrow32Word#
                     (plusWord#
                        (narrow32Word# (timesWord# (__word 10) sc2_s9U6))
                        (narrow32Word# (minusWord# sc6_s9Ub (__word 48)))))
                  sc3_s9U7
                  sc4_s9U8
                  sc5_s9U9
                  @~ (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                    <(TFCo:R:MVectorsWord32
                                                                        <RealWorld>)>)
                  ipv1_a49g
                  sc7_s9Uc
                  sc8_s9Ud
                  (+# sc9_s9Ue 1)
                  (-# sc10_s9Uf 1)
                  sc11_s9Ug
                }
                };
              1 ->
                (# sc11_s9Ug,
                   (nt_s34W
                    `cast` (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                          <(TFCo:R:MVectorsWord32
                                                                              <RealWorld>)>
                            :: MVector RealWorld Word32 ~# MVector RealWorld Word32),
                    Just
                      @ (LeftFrag Word32)
                      (LeftFrag
                         @ Word32
                         (W32#
                            (narrow32Word#
                               (plusWord#
                                  (narrow32Word# (timesWord# (__word 10) sc2_s9U6))
                                  (narrow32Word# (minusWord# sc6_s9Ub (__word 48))))))),
                    I# sc1_s9U5) #)
            }
        }
    }
end Rec }

lvl33_rba6
  :: forall s_X4s7.
     State# s_X4s7 -> (# State# s_X4s7, Vector Word32 #)
[GblId, Arity=1, Caf=NoCafRefs]
lvl33_rba6 =
  \ (@ s_X4s7) (s_X4mj :: State# s_X4s7) ->
    case newByteArray#
           @ (PrimState (ST s_X4s7))
           0
           (s_X4mj
            `cast` (State# (Sym <(TFCo:R:PrimStateST <s_X4s7>)>)
                    :: State# s_X4s7 ~# State# (PrimState (ST s_X4s7))))
    of _ { (# ipv_a4xK, ipv1_a4xL #) ->
    case unsafeFreezeByteArray#
           @ (PrimState (ST s_X4s7)) ipv1_a4xL ipv_a4xK
    of _ { (# ipv2_a4wu, ipv3_a4wv #) ->
    (# ipv2_a4wu
       `cast` (State# <(TFCo:R:PrimStateST <s_X4s7>)>
               :: State# (PrimState (ST s_X4s7)) ~# State# s_X4s7),
       (Vector @ Word32 0 0 ipv3_a4wv)
       `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym <(TFCo:R:VectorWord32)>
               :: Vector Word32 ~# Vector Word32) #)
    }
    }

lvl34_rba7 :: Vector Word32
[GblId, Str=DmdType]
lvl34_rba7 = runSTRep @ (Vector Word32) lvl33_rba6

lvl35_rba8 :: Word32
[GblId, Caf=NoCafRefs]
lvl35_rba8 = W32# (__word 0)

lvl36_rba9 :: MiddleFrag Word32
[GblId, Caf=NoCafRefs]
lvl36_rba9 = MiddleFrag @ Word32 0 lvl35_rba8

lvl37_rbaa :: PartialNums Word32
[GblId, Caf=NoCafRefs]
lvl37_rbaa = Single @ Word32 lvl36_rba9

lvl38_rbab :: Int# -> IO (MVector (PrimState IO) Word32)
[GblId, Arity=1, Str=DmdType Tb]
lvl38_rbab =
  \ (x1_s91L :: Int#) ->
    checkError
      @ (IO (MVector (PrimState IO) Word32))
      file_rb9E
      lvl19_rb9O
      Bounds
      lvl20_rb9P
      (checkLength_msg# x1_s91L)

poly_$w$j2_rbac :: Int# -> Int# -> Vector Word32
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j2_rbac =
  \ (ipv_s6ff :: Int#) (a_s6wK :: Int#) ->
    checkError
      @ (Vector Word32)
      lvl22_rb9R
      lvl23_rb9S
      Bounds
      lvl24_rb9T
      (checkSlice_msg# 1 a_s6wK ipv_s6ff)

lvl39_rbad :: Int# -> Word32
[GblId, Arity=1, Str=DmdType Tb]
lvl39_rbad =
  \ (ipv_s6ff :: Int#) ->
    checkError
      @ Word32
      lvl22_rb9R
      lvl25_rb9V
      Bounds
      lvl26_rb9W
      (checkIndex_msg# 0 ipv_s6ff)

poly_$w$j3_rbae :: Int# -> Int# -> Vector Word32
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j3_rbae =
  \ (ipv_s6ff :: Int#) (a_s6wU :: Int#) ->
    checkError
      @ (Vector Word32)
      lvl22_rb9R
      lvl23_rb9S
      Bounds
      lvl24_rb9T
      (checkSlice_msg# 1 a_s6wU ipv_s6ff)

lvl40_rbaf :: Int# -> Word32
[GblId, Arity=1, Str=DmdType Tb]
lvl40_rbaf =
  \ (ipv_s6ff :: Int#) ->
    checkError
      @ Word32
      lvl22_rb9R
      lvl25_rb9V
      Bounds
      lvl26_rb9W
      (checkIndex_msg# 0 ipv_s6ff)

lvl41_rbag :: Word8
[GblId, Str=DmdType b]
lvl41_rbag = errorEmptyList @ Word8 lvl29_rba0

$wa3
  :: Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld, PartialNums Word32 #)
[GblId, Arity=5, Str=DmdType LLLLL]
$wa3 =
  \ (ww_s7Vo :: Addr#)
    (ww1_s7Vp :: ForeignPtrContents)
    (ww2_s7Vq :: Int#)
    (ww3_s7Vr :: Int#)
    (w_s7Vt :: State# RealWorld) ->
    let {
      $wa5_s81q
        :: State# RealWorld -> (# State# RealWorld, PartialNums Word32 #)
      [LclId, Arity=1, Str=DmdType L]
      $wa5_s81q =
        \ (w1_s7Vi :: State# RealWorld) ->
          case <=# ww3_s7Vr 0 of _ {
            False ->
              case readWord8OffAddr#
                     @ RealWorld (plusAddr# ww_s7Vo ww2_s7Vq) 0 realWorld#
              of _ { (# ipv_a49f, ipv1_a49g #) ->
              case touch# @ ForeignPtrContents ww1_s7Vp ipv_a49f
              of _ { __DEFAULT ->
              let {
                x1_s91L :: Int#
                [LclId, Str=DmdType]
                x1_s91L = +# (quotInt# ww3_s7Vr 2) 1 } in
              case >=# x1_s91L 0 of _ {
                False -> case lvl38_rbab x1_s91L of wild_00 { };
                True ->
                  case newByteArray#
                         @ (PrimState IO)
                         (*# x1_s91L 4)
                         (w1_s7Vi
                          `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                  :: State# RealWorld ~# State# (PrimState IO)))
                  of _ { (# ipv2_a4xK, ipv3_a4xL #) ->
                  let {
                    ww4_s7U1 :: Int#
                    [LclId]
                    ww4_s7U1 = +# ww2_s7Vq 1 } in
                  let {
                    $j_saCh
                      :: State# RealWorld
                         -> (IOVector Word32, Maybe (LeftFrag Word32), Int)
                         -> (# State# RealWorld, PartialNums Word32 #)
                    [LclId, Arity=2]
                    $j_saCh =
                      \ (ipv4_X4l3 :: State# RealWorld)
                        (ipv5_X4l5 :: (IOVector Word32, Maybe (LeftFrag Word32), Int)) ->
                        case ipv5_X4l5 of _ { (v_a1i5, w2_a1i6, ind_a1i7) ->
                        case v_a1i5
                             `cast` (<TFCo:R:MVectorsWord32
                                        (Sym <(TFCo:R:PrimStateIO)>)> ; <NTCo:R:MVectorsWord32
                                                                           <PrimState IO>>
                                     :: MVector RealWorld Word32 ~# MVector (PrimState IO) Word32)
                        of _ { MVector rb_a4wn rb1_a4wo rb2_a4wp ->
                        case unsafeFreezeByteArray#
                               @ (PrimState IO)
                               rb2_a4wp
                               (ipv4_X4l3
                                `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                        :: State# RealWorld ~# State# (PrimState IO)))
                        of _ { (# ipv6_a4wu, ipv7_a4wv #) ->
                        let {
                          pref_s3p4 [Dmd=Just D(LLL)] :: Vector Word32
                          [LclId, Str=DmdType]
                          pref_s3p4 =
                            case ind_a1i7 of _ { I# x2_a4pl ->
                            case <=# x2_a4pl 0 of _ {
                              False ->
                                case <=# x2_a4pl rb1_a4wo of _ {
                                  False ->
                                    (Vector @ Word32 rb_a4wn rb1_a4wo ipv7_a4wv)
                                    `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym
                                                                            <(TFCo:R:VectorWord32)>
                                            :: Vector Word32 ~# Vector Word32);
                                  True ->
                                    (Vector @ Word32 rb_a4wn x2_a4pl ipv7_a4wv)
                                    `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym
                                                                            <(TFCo:R:VectorWord32)>
                                            :: Vector Word32 ~# Vector Word32)
                                };
                              True ->
                                case <=# 0 rb1_a4wo of _ {
                                  False ->
                                    (Vector @ Word32 rb_a4wn rb1_a4wo ipv7_a4wv)
                                    `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym
                                                                            <(TFCo:R:VectorWord32)>
                                            :: Vector Word32 ~# Vector Word32);
                                  True ->
                                    (Vector @ Word32 rb_a4wn 0 ipv7_a4wv)
                                    `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym
                                                                            <(TFCo:R:VectorWord32)>
                                            :: Vector Word32 ~# Vector Word32)
                                }
                            }
                            } } in
                        case geWord# ipv1_a49g (__word 48) of _ {
                          False ->
                            (# ipv6_a4wu
                               `cast` (State# <(TFCo:R:PrimStateIO)>
                                       :: State# (PrimState IO) ~# State# RealWorld),
                               case pref_s3p4
                                    `cast` (<TFCo:R:VectorWord32> ; <NTCo:R:VectorWord32>
                                            :: Vector Word32 ~# Vector Word32)
                               of nt_s4wV { Vector ipv8_s4wW ipv9_s4wX ipv10_s4wY ->
                               case w2_a1i6 of tpl_Xa { __DEFAULT ->
                               Compound
                                 @ Word32
                                 (Nothing @ (RightFrag Word32))
                                 (nt_s4wV
                                  `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym <(TFCo:R:VectorWord32)>
                                          :: Vector Word32 ~# Vector Word32))
                                 tpl_Xa
                               }
                               } #);
                          True ->
                            case leWord# ipv1_a49g (__word 57) of _ {
                              False ->
                                (# ipv6_a4wu
                                   `cast` (State# <(TFCo:R:PrimStateIO)>
                                           :: State# (PrimState IO) ~# State# RealWorld),
                                   case pref_s3p4
                                        `cast` (<TFCo:R:VectorWord32> ; <NTCo:R:VectorWord32>
                                                :: Vector Word32 ~# Vector Word32)
                                   of nt_s4wV { Vector ipv8_s4wW ipv9_s4wX ipv10_s4wY ->
                                   case w2_a1i6 of tpl_Xa { __DEFAULT ->
                                   Compound
                                     @ Word32
                                     (Nothing @ (RightFrag Word32))
                                     (nt_s4wV
                                      `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym
                                                                              <(TFCo:R:VectorWord32)>
                                              :: Vector Word32 ~# Vector Word32))
                                     tpl_Xa
                                   }
                                   } #);
                              True ->
                                case pref_s3p4
                                     `cast` (<TFCo:R:VectorWord32> ; <NTCo:R:VectorWord32>
                                             :: Vector Word32 ~# Vector Word32)
                                of _ { Vector ipv8_s6fe ipv9_s6ff ipv10_s6fg ->
                                case lvl34_rba7
                                     `cast` (<TFCo:R:VectorWord32> ; <NTCo:R:VectorWord32>
                                             :: Vector Word32 ~# Vector Word32)
                                of _ { Vector ipv11_s6fI ipv12_s6fJ ipv13_s6fK ->
                                let {
                                  lvl62_s91J :: Int
                                  [LclId, Str=DmdType]
                                  lvl62_s91J =
                                    letrec {
                                      $wa6_s81r [Occ=LoopBreaker]
                                        :: Addr#
                                           -> Int#
                                           -> State# RealWorld
                                           -> (# State# RealWorld, Maybe Int #)
                                      [LclId, Arity=3, Str=DmdType LLL]
                                      $wa6_s81r =
                                        \ (ww5_s7UO :: Addr#)
                                          (ww6_s7US :: Int#)
                                          (w3_s7UU :: State# RealWorld) ->
                                          case >=# ww6_s7US ww3_s7Vr of _ {
                                            False ->
                                              case readWord8OffAddr# @ RealWorld ww5_s7UO 0 w3_s7UU
                                              of _ { (# ipv14_a4ka, ipv15_a4kb #) ->
                                              case geWord# ipv15_a4kb (__word 48) of _ {
                                                False -> (# ipv14_a4ka, Just @ Int (I# ww6_s7US) #);
                                                True ->
                                                  case leWord# ipv15_a4kb (__word 57) of _ {
                                                    False ->
                                                      (# ipv14_a4ka, Just @ Int (I# ww6_s7US) #);
                                                    True ->
                                                      $wa6_s81r
                                                        (plusAddr# ww5_s7UO 1)
                                                        (+# ww6_s7US 1)
                                                        ipv14_a4ka
                                                  }
                                              }
                                              };
                                            True -> (# w3_s7UU, Nothing @ Int #)
                                          }; } in
                                    case $wa6_s81r (plusAddr# ww_s7Vo ww2_s7Vq) 0 realWorld#
                                    of _ { (# ipv14_a48Q, ipv15_a48R #) ->
                                    case touch# @ ForeignPtrContents ww1_s7Vp ipv14_a48Q
                                    of _ { __DEFAULT ->
                                    case ipv15_a48R of _ {
                                      Nothing -> fromJust1 @ Int;
                                      Just x_a339 -> x_a339
                                    }
                                    }
                                    } } in
                                letrec {
                                  $s$weq_loop0_saaJ [Occ=LoopBreaker] :: Int# -> Int# -> Bool
                                  [LclId, Arity=2, Str=DmdType LL]
                                  $s$weq_loop0_saaJ =
                                    \ (sc_s9Ys :: Int#) (sc1_s9Yt :: Int#) ->
                                      case >=# sc_s9Ys ipv9_s6ff of _ {
                                        False ->
                                          case >=# sc1_s9Yt ipv12_s6fJ of _ {
                                            False ->
                                              case indexWord32Array#
                                                     ipv13_s6fK (+# ipv11_s6fI sc1_s9Yt)
                                              of wild8_X6m9 { __DEFAULT ->
                                              case indexWord32Array#
                                                     ipv10_s6fg (+# ipv8_s6fe sc_s9Ys)
                                              of wild9_a6fA { __DEFAULT ->
                                              case eqWord# wild9_a6fA wild8_X6m9 of _ {
                                                False -> False;
                                                True ->
                                                  $s$weq_loop0_saaJ (+# sc_s9Ys 1) (+# sc1_s9Yt 1)
                                              }
                                              }
                                              };
                                            True -> False
                                          };
                                        True -> >=# sc1_s9Yt ipv12_s6fJ
                                      }; } in
                                case $s$weq_loop0_saaJ 0 0 of _ {
                                  False ->
                                    (# ipv6_a4wu
                                       `cast` (State# <(TFCo:R:PrimStateIO)>
                                               :: State# (PrimState IO) ~# State# RealWorld),
                                       let {
                                         a_s6wK [Dmd=Just L] :: Int#
                                         [LclId, Str=DmdType]
                                         a_s6wK = -# ipv9_s6ff 1 } in
                                       case >=# a_s6wK 0 of _ {
                                         False ->
                                           case poly_$w$j2_rbac ipv9_s6ff a_s6wK of wild8_00 { };
                                         True ->
                                           case <=# (+# 1 a_s6wK) ipv9_s6ff of _ {
                                             False ->
                                               case poly_$w$j2_rbac ipv9_s6ff a_s6wK of wild9_00 {
                                               };
                                             True ->
                                               case w2_a1i6 of tpl_Xa { __DEFAULT ->
                                               Compound
                                                 @ Word32
                                                 (Just
                                                    @ (RightFrag Word32)
                                                    (case lvl62_s91J of _ { I# tpl2_B4 ->
                                                     case <# 0 ipv9_s6ff of _ {
                                                       False ->
                                                         case lvl39_rbad ipv9_s6ff of wild10_00 { };
                                                       True ->
                                                         case indexWord32Array# ipv10_s6fg ipv8_s6fe
                                                         of wild10_a6fA { __DEFAULT ->
                                                         RightFrag
                                                           @ Word32 tpl2_B4 (W32# wild10_a6fA)
                                                         }
                                                     }
                                                     }))
                                                 ((Vector
                                                     @ Word32 (+# ipv8_s6fe 1) a_s6wK ipv10_s6fg)
                                                  `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym
                                                                                          <(TFCo:R:VectorWord32)>
                                                          :: Vector Word32 ~# Vector Word32))
                                                 tpl_Xa
                                               }
                                           }
                                       } #);
                                  True ->
                                    case w2_a1i6 of _ {
                                      Nothing ->
                                        (# ipv6_a4wu
                                           `cast` (State# <(TFCo:R:PrimStateIO)>
                                                   :: State# (PrimState IO) ~# State# RealWorld),
                                           let {
                                             a_s6wU [Dmd=Just L] :: Int#
                                             [LclId, Str=DmdType]
                                             a_s6wU = -# ipv9_s6ff 1 } in
                                           case >=# a_s6wU 0 of _ {
                                             False ->
                                               case poly_$w$j3_rbae ipv9_s6ff a_s6wU of wild9_00 {
                                               };
                                             True ->
                                               case <=# (+# 1 a_s6wU) ipv9_s6ff of _ {
                                                 False ->
                                                   case poly_$w$j3_rbae ipv9_s6ff a_s6wU
                                                   of wild10_00 {
                                                   };
                                                 True ->
                                                   Compound
                                                     @ Word32
                                                     (Just
                                                        @ (RightFrag Word32)
                                                        (case lvl62_s91J of _ { I# tpl1_B4 ->
                                                         case <# 0 ipv9_s6ff of _ {
                                                           False ->
                                                             case lvl40_rbaf ipv9_s6ff
                                                             of wild11_00 {
                                                             };
                                                           True ->
                                                             case indexWord32Array#
                                                                    ipv10_s6fg ipv8_s6fe
                                                             of wild11_a6fA { __DEFAULT ->
                                                             RightFrag
                                                               @ Word32 tpl1_B4 (W32# wild11_a6fA)
                                                             }
                                                         }
                                                         }))
                                                     ((Vector
                                                         @ Word32
                                                         (+# ipv8_s6fe 1)
                                                         a_s6wU
                                                         ipv10_s6fg)
                                                      `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym
                                                                                              <(TFCo:R:VectorWord32)>
                                                              :: Vector Word32 ~# Vector Word32))
                                                     (Nothing @ (LeftFrag Word32))
                                               }
                                           } #);
                                      Just ds_d2nQ ->
                                        case ds_d2nQ of _ { LeftFrag w3_a1ib ->
                                        (# ipv6_a4wu
                                           `cast` (State# <(TFCo:R:PrimStateIO)>
                                                   :: State# (PrimState IO) ~# State# RealWorld),
                                           Single @ Word32 (MiddleFrag @ Word32 ww3_s7Vr w3_a1ib) #)
                                        }
                                    }
                                }
                                }
                                }
                            }
                        }
                        }
                        }
                        } } in
                  case geWord# ipv1_a49g (__word 48) of _ {
                    False ->
                      case ww3_s7Vr of wild3_Xd2 {
                        __DEFAULT ->
                          case readWord8OffAddr#
                                 @ RealWorld (plusAddr# ww_s7Vo ww4_s7U1) 0 realWorld#
                          of _ { (# ipv4_X4gA, ipv5_X4gC #) ->
                          case touch# @ ForeignPtrContents ww1_s7Vp ipv4_X4gA
                          of _ { __DEFAULT ->
                          case $s$wa2_rba4
                                 (-# wild3_Xd2 1)
                                 0
                                 0
                                 x1_s91L
                                 (ipv3_a4xL
                                  `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                          :: MutableByteArray# (PrimState IO)
                                               ~#
                                             MutableByteArray# RealWorld))
                                 @~ (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                                   <(TFCo:R:MVectorsWord32
                                                                                       <RealWorld>)>)
                                 ipv5_X4gC
                                 ww_s7Vo
                                 ww1_s7Vp
                                 (+# ww4_s7U1 1)
                                 (-# (-# wild3_Xd2 1) 1)
                                 (ipv2_a4xK
                                  `cast` (State# <(TFCo:R:PrimStateIO)>
                                          :: State# (PrimState IO) ~# State# RealWorld))
                          of _ { (# ipv6_X4l3, ipv7_X4l5 #) ->
                          $j_saCh ipv6_X4l3 ipv7_X4l5
                          }
                          }
                          };
                        1 ->
                          $j_saCh
                            (ipv2_a4xK
                             `cast` (State# <(TFCo:R:PrimStateIO)>
                                     :: State# (PrimState IO) ~# State# RealWorld))
                            ((MVector
                                @ RealWorld
                                @ Word32
                                0
                                x1_s91L
                                (ipv3_a4xL
                                 `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                         :: MutableByteArray# (PrimState IO)
                                              ~#
                                            MutableByteArray# RealWorld)))
                             `cast` (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                                   <(TFCo:R:MVectorsWord32
                                                                                       <RealWorld>)>
                                     :: MVector RealWorld Word32 ~# MVector RealWorld Word32),
                             Nothing @ (LeftFrag Word32),
                             $fShowPartialNums7)
                      };
                    True ->
                      case leWord# ipv1_a49g (__word 57) of _ {
                        False ->
                          case ww3_s7Vr of wild4_Xd2 {
                            __DEFAULT ->
                              case readWord8OffAddr#
                                     @ RealWorld (plusAddr# ww_s7Vo ww4_s7U1) 0 realWorld#
                              of _ { (# ipv4_X4gA, ipv5_X4gC #) ->
                              case touch# @ ForeignPtrContents ww1_s7Vp ipv4_X4gA
                              of _ { __DEFAULT ->
                              case $s$wa2_rba4
                                     (-# wild4_Xd2 1)
                                     0
                                     0
                                     x1_s91L
                                     (ipv3_a4xL
                                      `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                              :: MutableByteArray# (PrimState IO)
                                                   ~#
                                                 MutableByteArray# RealWorld))
                                     @~ (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                                       <(TFCo:R:MVectorsWord32
                                                                                           <RealWorld>)>)
                                     ipv5_X4gC
                                     ww_s7Vo
                                     ww1_s7Vp
                                     (+# ww4_s7U1 1)
                                     (-# (-# wild4_Xd2 1) 1)
                                     (ipv2_a4xK
                                      `cast` (State# <(TFCo:R:PrimStateIO)>
                                              :: State# (PrimState IO) ~# State# RealWorld))
                              of _ { (# ipv6_X4l3, ipv7_X4l5 #) ->
                              $j_saCh ipv6_X4l3 ipv7_X4l5
                              }
                              }
                              };
                            1 ->
                              $j_saCh
                                (ipv2_a4xK
                                 `cast` (State# <(TFCo:R:PrimStateIO)>
                                         :: State# (PrimState IO) ~# State# RealWorld))
                                ((MVector
                                    @ RealWorld
                                    @ Word32
                                    0
                                    x1_s91L
                                    (ipv3_a4xL
                                     `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                             :: MutableByteArray# (PrimState IO)
                                                  ~#
                                                MutableByteArray# RealWorld)))
                                 `cast` (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                                       <(TFCo:R:MVectorsWord32
                                                                                           <RealWorld>)>
                                         :: MVector RealWorld Word32 ~# MVector RealWorld Word32),
                                 Nothing @ (LeftFrag Word32),
                                 $fShowPartialNums7)
                          };
                        True ->
                          case $s$wa3_rba5
                                 ww3_s7Vr
                                 0
                                 (__word 0)
                                 0
                                 x1_s91L
                                 (ipv3_a4xL
                                  `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                          :: MutableByteArray# (PrimState IO)
                                               ~#
                                             MutableByteArray# RealWorld))
                                 @~ (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                                   <(TFCo:R:MVectorsWord32
                                                                                       <RealWorld>)>)
                                 ipv1_a49g
                                 ww_s7Vo
                                 ww1_s7Vp
                                 ww4_s7U1
                                 (-# ww3_s7Vr 1)
                                 (ipv2_a4xK
                                  `cast` (State# <(TFCo:R:PrimStateIO)>
                                          :: State# (PrimState IO) ~# State# RealWorld))
                          of _ { (# ipv4_X4l3, ipv5_X4l5 #) ->
                          $j_saCh ipv4_X4l3 ipv5_X4l5
                          }
                      }
                  }
                  }
              }
              }
              };
            True -> case lvl41_rbag of wild_00 { }
          } } in
    case ww3_s7Vr of _ {
      __DEFAULT -> $wa5_s81q w_s7Vt;
      0 ->
        case eqAddr# ww_s7Vo __NULL of _ {
          False ->
            case $wcompareBytes
                   ww_s7Vo ww1_s7Vp ww2_s7Vq 0 __NULL $fMonoidByteString1 0 0
            of _ {
              __DEFAULT -> $wa5_s81q w_s7Vt;
              EQ -> (# w_s7Vt, lvl37_rbaa #)
            };
          True ->
            case ww2_s7Vq of wild2_XcO {
              __DEFAULT ->
                case $wcompareBytes
                       ww_s7Vo ww1_s7Vp wild2_XcO 0 __NULL $fMonoidByteString1 0 0
                of _ {
                  __DEFAULT -> $wa5_s81q w_s7Vt;
                  EQ -> (# w_s7Vt, lvl37_rbaa #)
                };
              0 -> (# w_s7Vt, lvl37_rbaa #)
            }
        }
    }

readNatsPartial2 [InlPrag=INLINE[0]]
  :: ByteString
     -> State# RealWorld -> (# State# RealWorld, PartialNums Word32 #)
[GblId,
 Arity=2,
 Str=DmdType U(LLLL)L,
 Unf=Unf{Src=Worker=$wa3, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (w_s7Vm [Occ=Once!] :: ByteString)
                 (w1_s7Vt [Occ=Once] :: State# RealWorld) ->
                 case w_s7Vm
                 of _
                 { PS ww_s7Vo [Occ=Once]
                      ww1_s7Vp [Occ=Once]
                      ww2_s7Vq [Occ=Once]
                      ww3_s7Vr [Occ=Once] ->
                 $wa3 ww_s7Vo ww1_s7Vp ww2_s7Vq ww3_s7Vr w1_s7Vt
                 }}]
readNatsPartial2 =
  \ (w_s7Vm :: ByteString) (w1_s7Vt :: State# RealWorld) ->
    case w_s7Vm of _ { PS ww_s7Vo ww1_s7Vp ww2_s7Vq ww3_s7Vr ->
    $wa3 ww_s7Vo ww1_s7Vp ww2_s7Vq ww3_s7Vr w1_s7Vt
    }

readNatsPartial_readNatsPartial1
  :: ByteString -> IO (PartialNums Word32)
[GblId,
 Arity=2,
 Str=DmdType U(LLLL)L,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= readNatsPartial2
               `cast` (<ByteString> -> Sym <(NTCo:IO <PartialNums Word32>)>
                       :: (ByteString
                           -> State# RealWorld -> (# State# RealWorld, PartialNums Word32 #))
                            ~#
                          (ByteString -> IO (PartialNums Word32)))}]
readNatsPartial_readNatsPartial1 =
  readNatsPartial2
  `cast` (<ByteString> -> Sym <(NTCo:IO <PartialNums Word32>)>
          :: (ByteString
              -> State# RealWorld -> (# State# RealWorld, PartialNums Word32 #))
               ~#
             (ByteString -> IO (PartialNums Word32)))

lvl42_rbah :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl42_rbah =
  \ (ipv_s36H :: Int#) (ww_s7Wd :: Int#) ->
    checkError
      @ (IO ())
      file_rb9E
      lvl11_rb9D
      Bounds
      lvl10_rb9C
      (checkIndex_msg# ww_s7Wd ipv_s36H)

lvl43_rbai :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl43_rbai =
  \ (ipv_s36H :: Int#) (ww_s7Wd :: Int#) ->
    checkError
      @ (IO ())
      file_rb9E
      lvl11_rb9D
      Bounds
      lvl10_rb9C
      (checkIndex_msg# ww_s7Wd ipv_s36H)

Rec {
$s$wa4_rbaj
  :: Int#
     -> Int#
     -> Int#
     -> Int#
     -> MutableByteArray# RealWorld
     -> (~#) * (MVector RealWorld Word) (MVector RealWorld Word)
     -> Word#
     -> Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld,
           (IOVector Word, Maybe (LeftFrag Word), Int) #)
[GblId, Arity=12, Str=DmdType LALLLLLLLLLL]
$s$wa4_rbaj =
  \ (sc_sa0l :: Int#)
    (sc1_sa0x :: Int#)
    (sc2_sa0y :: Int#)
    (sc3_sa0z :: Int#)
    (sc4_sa0A :: MutableByteArray# RealWorld)
    (sg_sa0B
       :: (~#) * (MVector RealWorld Word) (MVector RealWorld Word))
    (sc5_sa0C :: Word#)
    (sc6_sa0D :: Addr#)
    (sc7_sa0E :: ForeignPtrContents)
    (sc8_sa0F :: Int#)
    (sc9_sa0G :: Int#)
    (sc10_sa0H :: State# RealWorld) ->
    let {
      $w$j_s81v
        :: State# RealWorld
           -> (# State# RealWorld,
                 (IOVector Word, Maybe (LeftFrag Word), Int) #)
      [LclId, Arity=1, Str=DmdType T]
      $w$j_s81v =
        \ _ ->
          case sc_sa0l of wild_Xdw {
            __DEFAULT ->
              case readWord8OffAddr#
                     @ RealWorld (plusAddr# sc6_sa0D sc8_sa0F) 0 realWorld#
              of _ { (# ipv_a49f, ipv1_a49g #) ->
              case touch# @ ForeignPtrContents sc7_sa0E ipv_a49f
              of _ { __DEFAULT ->
              $s$wa4_rbaj
                (-# wild_Xdw 1)
                sc1_sa0x
                sc2_sa0y
                sc3_sa0z
                sc4_sa0A
                @~ (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                <(TFCo:R:MVectorsWord <RealWorld>)>)
                ipv1_a49g
                sc6_sa0D
                sc7_sa0E
                (+# sc8_sa0F 1)
                (-# sc9_sa0G 1)
                sc10_sa0H
              }
              };
            1 ->
              (# sc10_sa0H,
                 ((MVector @ RealWorld @ Word sc2_sa0y sc3_sa0z sc4_sa0A)
                  `cast` (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                      <(TFCo:R:MVectorsWord
                                                                          <RealWorld>)>
                          :: MVector RealWorld Word ~# MVector RealWorld Word),
                  Nothing @ (LeftFrag Word),
                  I# sc1_sa0x) #)
          } } in
    case geWord# sc5_sa0C (__word 48) of _ {
      False -> $w$j_s81v realWorld#;
      True ->
        case leWord# sc5_sa0C (__word 57) of _ {
          False -> $w$j_s81v realWorld#;
          True ->
            $s$wa5_rbak
              sc_sa0l
              sc1_sa0x
              (__word 0)
              sc2_sa0y
              sc3_sa0z
              sc4_sa0A
              @~ (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                              <(TFCo:R:MVectorsWord <RealWorld>)>)
              sc5_sa0C
              sc6_sa0D
              sc7_sa0E
              sc8_sa0F
              sc9_sa0G
              sc10_sa0H
        }
    }

$s$wa5_rbak
  :: Int#
     -> Int#
     -> Word#
     -> Int#
     -> Int#
     -> MutableByteArray# RealWorld
     -> (~#) * (MVector RealWorld Word) (MVector RealWorld Word)
     -> Word#
     -> Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld,
           (IOVector Word, Maybe (LeftFrag Word), Int) #)
[GblId, Arity=13, Str=DmdType LLLLLLLLLLLLL]
$s$wa5_rbak =
  \ (sc_s9Z6 :: Int#)
    (sc1_s9Zj :: Int#)
    (sc2_s9Zk :: Word#)
    (sc3_s9Zl :: Int#)
    (sc4_s9Zm :: Int#)
    (sc5_s9Zn :: MutableByteArray# RealWorld)
    (sg_s9Zo
       :: (~#) * (MVector RealWorld Word) (MVector RealWorld Word))
    (sc6_s9Zp :: Word#)
    (sc7_s9Zq :: Addr#)
    (sc8_s9Zr :: ForeignPtrContents)
    (sc9_s9Zs :: Int#)
    (sc10_s9Zt :: Int#)
    (sc11_s9Zu :: State# RealWorld) ->
    let {
      nt_s36F :: MVector RealWorld Word
      [LclId]
      nt_s36F =
        MVector @ RealWorld @ Word sc3_s9Zl sc4_s9Zm sc5_s9Zn } in
    let {
      $w$j_s81w
        :: State# RealWorld
           -> (# State# RealWorld,
                 (IOVector Word, Maybe (LeftFrag Word), Int) #)
      [LclId, Arity=1, Str=DmdType T]
      $w$j_s81w =
        \ _ ->
          case >=# sc1_s9Zj 0 of _ {
            False -> case lvl42_rbah sc4_s9Zm sc1_s9Zj of wild_00 { };
            True ->
              case <# sc1_s9Zj sc4_s9Zm of _ {
                False -> case lvl43_rbai sc4_s9Zm sc1_s9Zj of wild_00 { };
                True ->
                  case (writeWordArray#
                          @ (PrimState IO)
                          (sc5_s9Zn
                           `cast` (MutableByteArray# (Sym <(TFCo:R:PrimStateIO)>)
                                   :: MutableByteArray# RealWorld
                                        ~#
                                      MutableByteArray# (PrimState IO)))
                          (+# sc3_s9Zl sc1_s9Zj)
                          sc2_s9Zk
                          (sc11_s9Zu
                           `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                   :: State# RealWorld ~# State# (PrimState IO))))
                       `cast` (State# <(TFCo:R:PrimStateIO)>
                               :: State# (PrimState IO) ~# State# RealWorld)
                  of ipv_a47L { __DEFAULT ->
                  case sc_s9Z6 of wild_XdC {
                    __DEFAULT ->
                      case readWord8OffAddr#
                             @ RealWorld (plusAddr# sc7_s9Zq sc9_s9Zs) 0 realWorld#
                      of _ { (# ipv1_a49f, ipv2_a49g #) ->
                      case touch# @ ForeignPtrContents sc8_s9Zr ipv1_a49f
                      of _ { __DEFAULT ->
                      $s$wa4_rbaj
                        (-# wild_XdC 1)
                        (+# sc1_s9Zj 1)
                        sc3_s9Zl
                        sc4_s9Zm
                        sc5_s9Zn
                        @~ (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                        <(TFCo:R:MVectorsWord
                                                                            <RealWorld>)>)
                        ipv2_a49g
                        sc7_s9Zq
                        sc8_s9Zr
                        (+# sc9_s9Zs 1)
                        (-# sc10_s9Zt 1)
                        ipv_a47L
                      }
                      };
                    1 ->
                      (# ipv_a47L,
                         (nt_s36F
                          `cast` (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                              <(TFCo:R:MVectorsWord
                                                                                  <RealWorld>)>
                                  :: MVector RealWorld Word ~# MVector RealWorld Word),
                          Nothing @ (LeftFrag Word),
                          I# (+# sc1_s9Zj 1)) #)
                  }
                  }
              }
          } } in
    case geWord# sc6_s9Zp (__word 48) of _ {
      False -> $w$j_s81w realWorld#;
      True ->
        case leWord# sc6_s9Zp (__word 57) of _ {
          False -> $w$j_s81w realWorld#;
          True ->
            case sc_s9Z6 of wild2_XdJ {
              __DEFAULT ->
                case readWord8OffAddr#
                       @ RealWorld (plusAddr# sc7_s9Zq sc9_s9Zs) 0 realWorld#
                of _ { (# ipv_a49f, ipv1_a49g #) ->
                case touch# @ ForeignPtrContents sc8_s9Zr ipv_a49f
                of _ { __DEFAULT ->
                $s$wa5_rbak
                  (-# wild2_XdJ 1)
                  sc1_s9Zj
                  (plusWord#
                     (timesWord# (__word 10) sc2_s9Zk)
                     (minusWord# sc6_s9Zp (__word 48)))
                  sc3_s9Zl
                  sc4_s9Zm
                  sc5_s9Zn
                  @~ (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                  <(TFCo:R:MVectorsWord
                                                                      <RealWorld>)>)
                  ipv1_a49g
                  sc7_s9Zq
                  sc8_s9Zr
                  (+# sc9_s9Zs 1)
                  (-# sc10_s9Zt 1)
                  sc11_s9Zu
                }
                };
              1 ->
                (# sc11_s9Zu,
                   (nt_s36F
                    `cast` (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                        <(TFCo:R:MVectorsWord
                                                                            <RealWorld>)>
                            :: MVector RealWorld Word ~# MVector RealWorld Word),
                    Just
                      @ (LeftFrag Word)
                      (LeftFrag
                         @ Word
                         (W#
                            (plusWord#
                               (timesWord# (__word 10) sc2_s9Zk)
                               (minusWord# sc6_s9Zp (__word 48))))),
                    I# sc1_s9Zj) #)
            }
        }
    }
end Rec }

lvl44_rbal
  :: forall s_X4sL. State# s_X4sL -> (# State# s_X4sL, Vector Word #)
[GblId, Arity=1, Caf=NoCafRefs]
lvl44_rbal =
  \ (@ s_X4sL) (s_X4sO :: State# s_X4sL) ->
    case newByteArray#
           @ (PrimState (ST s_X4sL))
           0
           (s_X4sO
            `cast` (State# (Sym <(TFCo:R:PrimStateST <s_X4sL>)>)
                    :: State# s_X4sL ~# State# (PrimState (ST s_X4sL))))
    of _ { (# ipv_a4C2, ipv1_a4C3 #) ->
    case unsafeFreezeByteArray#
           @ (PrimState (ST s_X4sL)) ipv1_a4C3 ipv_a4C2
    of _ { (# ipv2_a4AM, ipv3_a4AN #) ->
    (# ipv2_a4AM
       `cast` (State# <(TFCo:R:PrimStateST <s_X4sL>)>
               :: State# (PrimState (ST s_X4sL)) ~# State# s_X4sL),
       (Vector @ Word 0 0 ipv3_a4AN)
       `cast` (Sym <(NTCo:R:VectorWord)> ; Sym <(TFCo:R:VectorWord)>
               :: Vector Word ~# Vector Word) #)
    }
    }

lvl45_rbam :: Vector Word
[GblId, Str=DmdType]
lvl45_rbam = runSTRep @ (Vector Word) lvl44_rbal

lvl46_rban :: Word
[GblId, Caf=NoCafRefs]
lvl46_rban = W# (__word 0)

lvl47_rbao :: MiddleFrag Word
[GblId, Caf=NoCafRefs]
lvl47_rbao = MiddleFrag @ Word 0 lvl46_rban

lvl48_rbap :: PartialNums Word
[GblId, Caf=NoCafRefs]
lvl48_rbap = Single @ Word lvl47_rbao

lvl49_rbaq :: Int# -> IO (MVector (PrimState IO) Word)
[GblId, Arity=1, Str=DmdType Tb]
lvl49_rbaq =
  \ (x1_s92z :: Int#) ->
    checkError
      @ (IO (MVector (PrimState IO) Word))
      file_rb9E
      lvl19_rb9O
      Bounds
      lvl20_rb9P
      (checkLength_msg# x1_s92z)

poly_$w$j4_rbar :: Int# -> Int# -> Vector Word
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j4_rbar =
  \ (ipv_s6j0 :: Int#) (a_s6yy :: Int#) ->
    checkError
      @ (Vector Word)
      lvl22_rb9R
      lvl23_rb9S
      Bounds
      lvl24_rb9T
      (checkSlice_msg# 1 a_s6yy ipv_s6j0)

lvl50_rbas :: Int# -> Word
[GblId, Arity=1, Str=DmdType Tb]
lvl50_rbas =
  \ (ipv_s6j0 :: Int#) ->
    checkError
      @ Word
      lvl22_rb9R
      lvl25_rb9V
      Bounds
      lvl26_rb9W
      (checkIndex_msg# 0 ipv_s6j0)

poly_$w$j5_rbat :: Int# -> Int# -> Vector Word
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j5_rbat =
  \ (ipv_s6j0 :: Int#) (a_s6yI :: Int#) ->
    checkError
      @ (Vector Word)
      lvl22_rb9R
      lvl23_rb9S
      Bounds
      lvl24_rb9T
      (checkSlice_msg# 1 a_s6yI ipv_s6j0)

lvl51_rbau :: Int# -> Word
[GblId, Arity=1, Str=DmdType Tb]
lvl51_rbau =
  \ (ipv_s6j0 :: Int#) ->
    checkError
      @ Word
      lvl22_rb9R
      lvl25_rb9V
      Bounds
      lvl26_rb9W
      (checkIndex_msg# 0 ipv_s6j0)

lvl52_rbav :: Word8
[GblId, Str=DmdType b]
lvl52_rbav = errorEmptyList @ Word8 lvl29_rba0

$wa4
  :: Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld, PartialNums Word #)
[GblId, Arity=5, Str=DmdType LLLLL]
$wa4 =
  \ (ww_s7Xf :: Addr#)
    (ww1_s7Xg :: ForeignPtrContents)
    (ww2_s7Xh :: Int#)
    (ww3_s7Xi :: Int#)
    (w_s7Xk :: State# RealWorld) ->
    let {
      $wa5_s81x
        :: State# RealWorld -> (# State# RealWorld, PartialNums Word #)
      [LclId, Arity=1, Str=DmdType L]
      $wa5_s81x =
        \ (w1_s7X9 :: State# RealWorld) ->
          case <=# ww3_s7Xi 0 of _ {
            False ->
              case readWord8OffAddr#
                     @ RealWorld (plusAddr# ww_s7Xf ww2_s7Xh) 0 realWorld#
              of _ { (# ipv_a49f, ipv1_a49g #) ->
              case touch# @ ForeignPtrContents ww1_s7Xg ipv_a49f
              of _ { __DEFAULT ->
              let {
                x1_s92z :: Int#
                [LclId, Str=DmdType]
                x1_s92z = +# (quotInt# ww3_s7Xi 2) 1 } in
              case >=# x1_s92z 0 of _ {
                False -> case lvl49_rbaq x1_s92z of wild_00 { };
                True ->
                  case newByteArray#
                         @ (PrimState IO)
                         (*# x1_s92z 8)
                         (w1_s7X9
                          `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                  :: State# RealWorld ~# State# (PrimState IO)))
                  of _ { (# ipv2_a4C2, ipv3_a4C3 #) ->
                  let {
                    ww4_s7VS :: Int#
                    [LclId]
                    ww4_s7VS = +# ww2_s7Xh 1 } in
                  let {
                    $j_saDG
                      :: State# RealWorld
                         -> (IOVector Word, Maybe (LeftFrag Word), Int)
                         -> (# State# RealWorld, PartialNums Word #)
                    [LclId, Arity=2]
                    $j_saDG =
                      \ (ipv4_X4lx :: State# RealWorld)
                        (ipv5_X4lz :: (IOVector Word, Maybe (LeftFrag Word), Int)) ->
                        case ipv5_X4lz of _ { (v_a1i5, w2_a1i6, ind_a1i7) ->
                        case v_a1i5
                             `cast` (<TFCo:R:MVectorsWord
                                        (Sym <(TFCo:R:PrimStateIO)>)> ; <NTCo:R:MVectorsWord
                                                                           <PrimState IO>>
                                     :: MVector RealWorld Word ~# MVector (PrimState IO) Word)
                        of _ { MVector rb_a4AF rb1_a4AG rb2_a4AH ->
                        case unsafeFreezeByteArray#
                               @ (PrimState IO)
                               rb2_a4AH
                               (ipv4_X4lx
                                `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                        :: State# RealWorld ~# State# (PrimState IO)))
                        of _ { (# ipv6_a4AM, ipv7_a4AN #) ->
                        let {
                          pref_s3oM [Dmd=Just D(LLL)] :: Vector Word
                          [LclId, Str=DmdType]
                          pref_s3oM =
                            case ind_a1i7 of _ { I# x2_a4pl ->
                            case <=# x2_a4pl 0 of _ {
                              False ->
                                case <=# x2_a4pl rb1_a4AG of _ {
                                  False ->
                                    (Vector @ Word rb_a4AF rb1_a4AG ipv7_a4AN)
                                    `cast` (Sym <(NTCo:R:VectorWord)> ; Sym <(TFCo:R:VectorWord)>
                                            :: Vector Word ~# Vector Word);
                                  True ->
                                    (Vector @ Word rb_a4AF x2_a4pl ipv7_a4AN)
                                    `cast` (Sym <(NTCo:R:VectorWord)> ; Sym <(TFCo:R:VectorWord)>
                                            :: Vector Word ~# Vector Word)
                                };
                              True ->
                                case <=# 0 rb1_a4AG of _ {
                                  False ->
                                    (Vector @ Word rb_a4AF rb1_a4AG ipv7_a4AN)
                                    `cast` (Sym <(NTCo:R:VectorWord)> ; Sym <(TFCo:R:VectorWord)>
                                            :: Vector Word ~# Vector Word);
                                  True ->
                                    (Vector @ Word rb_a4AF 0 ipv7_a4AN)
                                    `cast` (Sym <(NTCo:R:VectorWord)> ; Sym <(TFCo:R:VectorWord)>
                                            :: Vector Word ~# Vector Word)
                                }
                            }
                            } } in
                        case geWord# ipv1_a49g (__word 48) of _ {
                          False ->
                            (# ipv6_a4AM
                               `cast` (State# <(TFCo:R:PrimStateIO)>
                                       :: State# (PrimState IO) ~# State# RealWorld),
                               case pref_s3oM
                                    `cast` (<TFCo:R:VectorWord> ; <NTCo:R:VectorWord>
                                            :: Vector Word ~# Vector Word)
                               of nt_s4Bd { Vector ipv8_s4Be ipv9_s4Bf ipv10_s4Bg ->
                               case w2_a1i6 of tpl_Xa { __DEFAULT ->
                               Compound
                                 @ Word
                                 (Nothing @ (RightFrag Word))
                                 (nt_s4Bd
                                  `cast` (Sym <(NTCo:R:VectorWord)> ; Sym <(TFCo:R:VectorWord)>
                                          :: Vector Word ~# Vector Word))
                                 tpl_Xa
                               }
                               } #);
                          True ->
                            case leWord# ipv1_a49g (__word 57) of _ {
                              False ->
                                (# ipv6_a4AM
                                   `cast` (State# <(TFCo:R:PrimStateIO)>
                                           :: State# (PrimState IO) ~# State# RealWorld),
                                   case pref_s3oM
                                        `cast` (<TFCo:R:VectorWord> ; <NTCo:R:VectorWord>
                                                :: Vector Word ~# Vector Word)
                                   of nt_s4Bd { Vector ipv8_s4Be ipv9_s4Bf ipv10_s4Bg ->
                                   case w2_a1i6 of tpl_Xa { __DEFAULT ->
                                   Compound
                                     @ Word
                                     (Nothing @ (RightFrag Word))
                                     (nt_s4Bd
                                      `cast` (Sym <(NTCo:R:VectorWord)> ; Sym <(TFCo:R:VectorWord)>
                                              :: Vector Word ~# Vector Word))
                                     tpl_Xa
                                   }
                                   } #);
                              True ->
                                case pref_s3oM
                                     `cast` (<TFCo:R:VectorWord> ; <NTCo:R:VectorWord>
                                             :: Vector Word ~# Vector Word)
                                of _ { Vector ipv8_s6iZ ipv9_s6j0 ipv10_s6j1 ->
                                case lvl45_rbam
                                     `cast` (<TFCo:R:VectorWord> ; <NTCo:R:VectorWord>
                                             :: Vector Word ~# Vector Word)
                                of _ { Vector ipv11_s6jt ipv12_s6ju ipv13_s6jv ->
                                let {
                                  lvl62_s92x :: Int
                                  [LclId, Str=DmdType]
                                  lvl62_s92x =
                                    letrec {
                                      $wa6_s81y [Occ=LoopBreaker]
                                        :: Addr#
                                           -> Int#
                                           -> State# RealWorld
                                           -> (# State# RealWorld, Maybe Int #)
                                      [LclId, Arity=3, Str=DmdType LLL]
                                      $wa6_s81y =
                                        \ (ww5_s7WF :: Addr#)
                                          (ww6_s7WJ :: Int#)
                                          (w3_s7WL :: State# RealWorld) ->
                                          case >=# ww6_s7WJ ww3_s7Xi of _ {
                                            False ->
                                              case readWord8OffAddr# @ RealWorld ww5_s7WF 0 w3_s7WL
                                              of _ { (# ipv14_a4ka, ipv15_a4kb #) ->
                                              case geWord# ipv15_a4kb (__word 48) of _ {
                                                False -> (# ipv14_a4ka, Just @ Int (I# ww6_s7WJ) #);
                                                True ->
                                                  case leWord# ipv15_a4kb (__word 57) of _ {
                                                    False ->
                                                      (# ipv14_a4ka, Just @ Int (I# ww6_s7WJ) #);
                                                    True ->
                                                      $wa6_s81y
                                                        (plusAddr# ww5_s7WF 1)
                                                        (+# ww6_s7WJ 1)
                                                        ipv14_a4ka
                                                  }
                                              }
                                              };
                                            True -> (# w3_s7WL, Nothing @ Int #)
                                          }; } in
                                    case $wa6_s81y (plusAddr# ww_s7Xf ww2_s7Xh) 0 realWorld#
                                    of _ { (# ipv14_a48Q, ipv15_a48R #) ->
                                    case touch# @ ForeignPtrContents ww1_s7Xg ipv14_a48Q
                                    of _ { __DEFAULT ->
                                    case ipv15_a48R of _ {
                                      Nothing -> fromJust1 @ Int;
                                      Just x_a339 -> x_a339
                                    }
                                    }
                                    } } in
                                letrec {
                                  $s$weq_loop0_saaK [Occ=LoopBreaker] :: Int# -> Int# -> Bool
                                  [LclId, Arity=2, Str=DmdType LL]
                                  $s$weq_loop0_saaK =
                                    \ (sc_sa3G :: Int#) (sc1_sa3H :: Int#) ->
                                      case >=# sc_sa3G ipv9_s6j0 of _ {
                                        False ->
                                          case >=# sc1_sa3H ipv12_s6ju of _ {
                                            False ->
                                              case indexWordArray#
                                                     ipv13_s6jv (+# ipv11_s6jt sc1_sa3H)
                                              of wild8_X6q2 { __DEFAULT ->
                                              case indexWordArray# ipv10_s6j1 (+# ipv8_s6iZ sc_sa3G)
                                              of wild9_a6jl { __DEFAULT ->
                                              case eqWord# wild9_a6jl wild8_X6q2 of _ {
                                                False -> False;
                                                True ->
                                                  $s$weq_loop0_saaK (+# sc_sa3G 1) (+# sc1_sa3H 1)
                                              }
                                              }
                                              };
                                            True -> False
                                          };
                                        True -> >=# sc1_sa3H ipv12_s6ju
                                      }; } in
                                case $s$weq_loop0_saaK 0 0 of _ {
                                  False ->
                                    (# ipv6_a4AM
                                       `cast` (State# <(TFCo:R:PrimStateIO)>
                                               :: State# (PrimState IO) ~# State# RealWorld),
                                       let {
                                         a_s6yy [Dmd=Just L] :: Int#
                                         [LclId, Str=DmdType]
                                         a_s6yy = -# ipv9_s6j0 1 } in
                                       case >=# a_s6yy 0 of _ {
                                         False ->
                                           case poly_$w$j4_rbar ipv9_s6j0 a_s6yy of wild8_00 { };
                                         True ->
                                           case <=# (+# 1 a_s6yy) ipv9_s6j0 of _ {
                                             False ->
                                               case poly_$w$j4_rbar ipv9_s6j0 a_s6yy of wild9_00 {
                                               };
                                             True ->
                                               case w2_a1i6 of tpl_Xa { __DEFAULT ->
                                               Compound
                                                 @ Word
                                                 (Just
                                                    @ (RightFrag Word)
                                                    (case lvl62_s92x of _ { I# tpl2_B4 ->
                                                     case <# 0 ipv9_s6j0 of _ {
                                                       False ->
                                                         case lvl50_rbas ipv9_s6j0 of wild10_00 { };
                                                       True ->
                                                         case indexWordArray# ipv10_s6j1 ipv8_s6iZ
                                                         of wild10_a6jl { __DEFAULT ->
                                                         RightFrag @ Word tpl2_B4 (W# wild10_a6jl)
                                                         }
                                                     }
                                                     }))
                                                 ((Vector @ Word (+# ipv8_s6iZ 1) a_s6yy ipv10_s6j1)
                                                  `cast` (Sym <(NTCo:R:VectorWord)> ; Sym
                                                                                        <(TFCo:R:VectorWord)>
                                                          :: Vector Word ~# Vector Word))
                                                 tpl_Xa
                                               }
                                           }
                                       } #);
                                  True ->
                                    case w2_a1i6 of _ {
                                      Nothing ->
                                        (# ipv6_a4AM
                                           `cast` (State# <(TFCo:R:PrimStateIO)>
                                                   :: State# (PrimState IO) ~# State# RealWorld),
                                           let {
                                             a_s6yI [Dmd=Just L] :: Int#
                                             [LclId, Str=DmdType]
                                             a_s6yI = -# ipv9_s6j0 1 } in
                                           case >=# a_s6yI 0 of _ {
                                             False ->
                                               case poly_$w$j5_rbat ipv9_s6j0 a_s6yI of wild9_00 {
                                               };
                                             True ->
                                               case <=# (+# 1 a_s6yI) ipv9_s6j0 of _ {
                                                 False ->
                                                   case poly_$w$j5_rbat ipv9_s6j0 a_s6yI
                                                   of wild10_00 {
                                                   };
                                                 True ->
                                                   Compound
                                                     @ Word
                                                     (Just
                                                        @ (RightFrag Word)
                                                        (case lvl62_s92x of _ { I# tpl1_B4 ->
                                                         case <# 0 ipv9_s6j0 of _ {
                                                           False ->
                                                             case lvl51_rbau ipv9_s6j0
                                                             of wild11_00 {
                                                             };
                                                           True ->
                                                             case indexWordArray#
                                                                    ipv10_s6j1 ipv8_s6iZ
                                                             of wild11_a6jl { __DEFAULT ->
                                                             RightFrag
                                                               @ Word tpl1_B4 (W# wild11_a6jl)
                                                             }
                                                         }
                                                         }))
                                                     ((Vector
                                                         @ Word (+# ipv8_s6iZ 1) a_s6yI ipv10_s6j1)
                                                      `cast` (Sym <(NTCo:R:VectorWord)> ; Sym
                                                                                            <(TFCo:R:VectorWord)>
                                                              :: Vector Word ~# Vector Word))
                                                     (Nothing @ (LeftFrag Word))
                                               }
                                           } #);
                                      Just ds_d2nQ ->
                                        case ds_d2nQ of _ { LeftFrag w3_a1ib ->
                                        (# ipv6_a4AM
                                           `cast` (State# <(TFCo:R:PrimStateIO)>
                                                   :: State# (PrimState IO) ~# State# RealWorld),
                                           Single @ Word (MiddleFrag @ Word ww3_s7Xi w3_a1ib) #)
                                        }
                                    }
                                }
                                }
                                }
                            }
                        }
                        }
                        }
                        } } in
                  case geWord# ipv1_a49g (__word 48) of _ {
                    False ->
                      case ww3_s7Xi of wild3_Xdw {
                        __DEFAULT ->
                          case readWord8OffAddr#
                                 @ RealWorld (plusAddr# ww_s7Xf ww4_s7VS) 0 realWorld#
                          of _ { (# ipv4_X4gT, ipv5_X4gV #) ->
                          case touch# @ ForeignPtrContents ww1_s7Xg ipv4_X4gT
                          of _ { __DEFAULT ->
                          case $s$wa4_rbaj
                                 (-# wild3_Xdw 1)
                                 0
                                 0
                                 x1_s92z
                                 (ipv3_a4C3
                                  `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                          :: MutableByteArray# (PrimState IO)
                                               ~#
                                             MutableByteArray# RealWorld))
                                 @~ (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                                 <(TFCo:R:MVectorsWord
                                                                                     <RealWorld>)>)
                                 ipv5_X4gV
                                 ww_s7Xf
                                 ww1_s7Xg
                                 (+# ww4_s7VS 1)
                                 (-# (-# wild3_Xdw 1) 1)
                                 (ipv2_a4C2
                                  `cast` (State# <(TFCo:R:PrimStateIO)>
                                          :: State# (PrimState IO) ~# State# RealWorld))
                          of _ { (# ipv6_X4lx, ipv7_X4lz #) ->
                          $j_saDG ipv6_X4lx ipv7_X4lz
                          }
                          }
                          };
                        1 ->
                          $j_saDG
                            (ipv2_a4C2
                             `cast` (State# <(TFCo:R:PrimStateIO)>
                                     :: State# (PrimState IO) ~# State# RealWorld))
                            ((MVector
                                @ RealWorld
                                @ Word
                                0
                                x1_s92z
                                (ipv3_a4C3
                                 `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                         :: MutableByteArray# (PrimState IO)
                                              ~#
                                            MutableByteArray# RealWorld)))
                             `cast` (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                                 <(TFCo:R:MVectorsWord
                                                                                     <RealWorld>)>
                                     :: MVector RealWorld Word ~# MVector RealWorld Word),
                             Nothing @ (LeftFrag Word),
                             $fShowPartialNums7)
                      };
                    True ->
                      case leWord# ipv1_a49g (__word 57) of _ {
                        False ->
                          case ww3_s7Xi of wild4_Xdw {
                            __DEFAULT ->
                              case readWord8OffAddr#
                                     @ RealWorld (plusAddr# ww_s7Xf ww4_s7VS) 0 realWorld#
                              of _ { (# ipv4_X4gT, ipv5_X4gV #) ->
                              case touch# @ ForeignPtrContents ww1_s7Xg ipv4_X4gT
                              of _ { __DEFAULT ->
                              case $s$wa4_rbaj
                                     (-# wild4_Xdw 1)
                                     0
                                     0
                                     x1_s92z
                                     (ipv3_a4C3
                                      `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                              :: MutableByteArray# (PrimState IO)
                                                   ~#
                                                 MutableByteArray# RealWorld))
                                     @~ (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                                     <(TFCo:R:MVectorsWord
                                                                                         <RealWorld>)>)
                                     ipv5_X4gV
                                     ww_s7Xf
                                     ww1_s7Xg
                                     (+# ww4_s7VS 1)
                                     (-# (-# wild4_Xdw 1) 1)
                                     (ipv2_a4C2
                                      `cast` (State# <(TFCo:R:PrimStateIO)>
                                              :: State# (PrimState IO) ~# State# RealWorld))
                              of _ { (# ipv6_X4lx, ipv7_X4lz #) ->
                              $j_saDG ipv6_X4lx ipv7_X4lz
                              }
                              }
                              };
                            1 ->
                              $j_saDG
                                (ipv2_a4C2
                                 `cast` (State# <(TFCo:R:PrimStateIO)>
                                         :: State# (PrimState IO) ~# State# RealWorld))
                                ((MVector
                                    @ RealWorld
                                    @ Word
                                    0
                                    x1_s92z
                                    (ipv3_a4C3
                                     `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                             :: MutableByteArray# (PrimState IO)
                                                  ~#
                                                MutableByteArray# RealWorld)))
                                 `cast` (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                                     <(TFCo:R:MVectorsWord
                                                                                         <RealWorld>)>
                                         :: MVector RealWorld Word ~# MVector RealWorld Word),
                                 Nothing @ (LeftFrag Word),
                                 $fShowPartialNums7)
                          };
                        True ->
                          case $s$wa5_rbak
                                 ww3_s7Xi
                                 0
                                 (__word 0)
                                 0
                                 x1_s92z
                                 (ipv3_a4C3
                                  `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                          :: MutableByteArray# (PrimState IO)
                                               ~#
                                             MutableByteArray# RealWorld))
                                 @~ (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                                 <(TFCo:R:MVectorsWord
                                                                                     <RealWorld>)>)
                                 ipv1_a49g
                                 ww_s7Xf
                                 ww1_s7Xg
                                 ww4_s7VS
                                 (-# ww3_s7Xi 1)
                                 (ipv2_a4C2
                                  `cast` (State# <(TFCo:R:PrimStateIO)>
                                          :: State# (PrimState IO) ~# State# RealWorld))
                          of _ { (# ipv4_X4lx, ipv5_X4lz #) ->
                          $j_saDG ipv4_X4lx ipv5_X4lz
                          }
                      }
                  }
                  }
              }
              }
              };
            True -> case lvl52_rbav of wild_00 { }
          } } in
    case ww3_s7Xi of _ {
      __DEFAULT -> $wa5_s81x w_s7Xk;
      0 ->
        case eqAddr# ww_s7Xf __NULL of _ {
          False ->
            case $wcompareBytes
                   ww_s7Xf ww1_s7Xg ww2_s7Xh 0 __NULL $fMonoidByteString1 0 0
            of _ {
              __DEFAULT -> $wa5_s81x w_s7Xk;
              EQ -> (# w_s7Xk, lvl48_rbap #)
            };
          True ->
            case ww2_s7Xh of wild2_Xdi {
              __DEFAULT ->
                case $wcompareBytes
                       ww_s7Xf ww1_s7Xg wild2_Xdi 0 __NULL $fMonoidByteString1 0 0
                of _ {
                  __DEFAULT -> $wa5_s81x w_s7Xk;
                  EQ -> (# w_s7Xk, lvl48_rbap #)
                };
              0 -> (# w_s7Xk, lvl48_rbap #)
            }
        }
    }

readNatsPartial3 [InlPrag=INLINE[0]]
  :: ByteString
     -> State# RealWorld -> (# State# RealWorld, PartialNums Word #)
[GblId,
 Arity=2,
 Str=DmdType U(LLLL)L,
 Unf=Unf{Src=Worker=$wa4, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (w_s7Xd [Occ=Once!] :: ByteString)
                 (w1_s7Xk [Occ=Once] :: State# RealWorld) ->
                 case w_s7Xd
                 of _
                 { PS ww_s7Xf [Occ=Once]
                      ww1_s7Xg [Occ=Once]
                      ww2_s7Xh [Occ=Once]
                      ww3_s7Xi [Occ=Once] ->
                 $wa4 ww_s7Xf ww1_s7Xg ww2_s7Xh ww3_s7Xi w1_s7Xk
                 }}]
readNatsPartial3 =
  \ (w_s7Xd :: ByteString) (w1_s7Xk :: State# RealWorld) ->
    case w_s7Xd of _ { PS ww_s7Xf ww1_s7Xg ww2_s7Xh ww3_s7Xi ->
    $wa4 ww_s7Xf ww1_s7Xg ww2_s7Xh ww3_s7Xi w1_s7Xk
    }

readNatsPartial_readNatsPartial2
  :: ByteString -> IO (PartialNums Word)
[GblId,
 Arity=2,
 Str=DmdType U(LLLL)L,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= readNatsPartial3
               `cast` (<ByteString> -> Sym <(NTCo:IO <PartialNums Word>)>
                       :: (ByteString
                           -> State# RealWorld -> (# State# RealWorld, PartialNums Word #))
                            ~#
                          (ByteString -> IO (PartialNums Word)))}]
readNatsPartial_readNatsPartial2 =
  readNatsPartial3
  `cast` (<ByteString> -> Sym <(NTCo:IO <PartialNums Word>)>
          :: (ByteString
              -> State# RealWorld -> (# State# RealWorld, PartialNums Word #))
               ~#
             (ByteString -> IO (PartialNums Word)))

lvl53_rbaw :: Integer
[GblId, Str=DmdType]
lvl53_rbaw = __integer 0

lvl54_rbax :: Integer
[GblId, Str=DmdType]
lvl54_rbax = __integer 10

lvl55_rbay :: Integer
[GblId, Str=DmdType]
lvl55_rbay = __integer 48

lvl56_rbaz :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl56_rbaz =
  \ (n#_a4an :: Int#) (ipv_s37U :: Int#) ->
    checkError
      @ (IO ())
      file_rb9E
      lvl11_rb9D
      Bounds
      lvl10_rb9C
      (checkIndex_msg# ipv_s37U n#_a4an)

lvl57_rbaA :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl57_rbaA =
  \ (y_a4au :: Int#) (ipv_s37U :: Int#) ->
    checkError
      @ (IO ())
      file_rb9E
      lvl11_rb9D
      Bounds
      lvl10_rb9C
      (checkIndex_msg# ipv_s37U y_a4au)

lvl58_rbaB
  :: forall nty_tZ. Int# -> IO (MVector (PrimState IO) nty_tZ)
[GblId, Arity=1, Str=DmdType Tb]
lvl58_rbaB =
  \ (@ nty_tZ) (x1_s93t :: Int#) ->
    checkError
      @ (IO (MVector (PrimState IO) nty_tZ))
      file_rb9E
      lvl19_rb9O
      Bounds
      lvl20_rb9P
      (checkLength_msg# x1_s93t)

lvl59_rbaC :: forall nty_tZ. Int# -> nty_tZ
[GblId, Arity=1, Str=DmdType Tb]
lvl59_rbaC =
  \ (@ nty_tZ) (y_a4pQ :: Int#) ->
    checkError
      @ nty_tZ
      lvl22_rb9R
      lvl25_rb9V
      Bounds
      lvl26_rb9W
      (checkIndex_msg# 0 y_a4pQ)

poly_$w$j6_rbaD :: forall nty_tZ. Int# -> Int# -> Vector nty_tZ
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j6_rbaD =
  \ (@ nty_tZ) (ww_s7Zo :: Int#) (a_s8j9 :: Int#) ->
    checkError
      @ (Vector nty_tZ)
      lvl22_rb9R
      lvl23_rb9S
      Bounds
      lvl24_rb9T
      (checkSlice_msg# 1 a_s8j9 ww_s7Zo)

lvl60_rbaE :: Int
[GblId, Caf=NoCafRefs]
lvl60_rbaE = I# 1

poly_$w$j7_rbaF :: forall nty_tZ. Int# -> Int# -> Vector nty_tZ
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j7_rbaF =
  \ (@ nty_tZ) (ww_s7ZE :: Int#) (a_s8jv :: Int#) ->
    checkError
      @ (Vector nty_tZ)
      lvl22_rb9R
      lvl23_rb9S
      Bounds
      lvl24_rb9T
      (checkSlice_msg# 1 a_s8jv ww_s7ZE)

lvl61_rbaG :: Word8
[GblId, Str=DmdType b]
lvl61_rbaG = errorEmptyList @ Word8 lvl29_rba0

$wa1
  :: forall nty_tZ.
     (Unbox nty_tZ, Num nty_tZ) =>
     Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld, PartialNums nty_tZ #)
[GblId, Arity=7, Str=DmdType LLLLLLL]
$wa1 =
  \ (@ nty_tZ)
    (w_s7ZY :: Unbox nty_tZ)
    (w1_s7ZZ :: Num nty_tZ)
    (ww_s803 :: Addr#)
    (ww1_s804 :: ForeignPtrContents)
    (ww2_s805 :: Int#)
    (ww3_s806 :: Int#)
    (w2_s808 :: State# RealWorld) ->
    let {
      $wa5_s81C
        :: State# RealWorld -> (# State# RealWorld, PartialNums nty_tZ #)
      [LclId, Arity=1, Str=DmdType L]
      $wa5_s81C =
        \ (w3_s7ZM :: State# RealWorld) ->
          let {
            x1_s93t :: Int#
            [LclId, Str=DmdType]
            x1_s93t = +# (quotInt# ww3_s806 2) 1 } in
          case >=# x1_s93t 0 of _ {
            False -> case lvl58_rbaB @ nty_tZ x1_s93t of wild_00 { };
            True ->
              let {
                lvl62_s937 :: nty_tZ
                [LclId, Str=DmdType]
                lvl62_s937 = fromInteger @ nty_tZ w1_s7ZZ lvl53_rbaw } in
              let {
                lvl63_s935 :: nty_tZ
                [LclId, Str=DmdType]
                lvl63_s935 = fromInteger @ nty_tZ w1_s7ZZ lvl54_rbax } in
              let {
                lvl64_s933 :: nty_tZ
                [LclId, Str=DmdType]
                lvl64_s933 = fromInteger @ nty_tZ w1_s7ZZ lvl55_rbay } in
              let {
                lvl65_s97f :: MVector MVector nty_tZ
                [LclId]
                lvl65_s97f = $p2Unbox @ nty_tZ w_s7ZY } in
              let {
                lvl66_s97e :: nty_tZ -> nty_tZ -> nty_tZ
                [LclId]
                lvl66_s97e = + @ nty_tZ w1_s7ZZ } in
              let {
                lvl67_s97d :: nty_tZ -> nty_tZ -> nty_tZ
                [LclId]
                lvl67_s97d = * @ nty_tZ w1_s7ZZ } in
              let {
                lvl68_s97c :: nty_tZ -> nty_tZ -> nty_tZ
                [LclId]
                lvl68_s97c = - @ nty_tZ w1_s7ZZ } in
              let {
                lvl69_s97b :: Integer -> nty_tZ
                [LclId]
                lvl69_s97b = fromInteger @ nty_tZ w1_s7ZZ } in
              letrec {
                $s$wa6_saaL [Occ=LoopBreaker]
                  :: Int#
                     -> Int#
                     -> nty_tZ
                     -> MVector RealWorld nty_tZ
                     -> Word#
                     -> Addr#
                     -> ForeignPtrContents
                     -> Int#
                     -> Int#
                     -> State# RealWorld
                     -> (# State# RealWorld,
                           (IOVector nty_tZ, Maybe (LeftFrag nty_tZ), Int) #)
                [LclId, Arity=10, Str=DmdType LLSSLLLLLL]
                $s$wa6_saaL =
                  \ (sc_sa7v :: Int#)
                    (sc1_sa7F :: Int#)
                    (sc2_sa7G :: nty_tZ)
                    (sc3_sa7H :: MVector RealWorld nty_tZ)
                    (sc4_sa7I :: Word#)
                    (sc5_sa7J :: Addr#)
                    (sc6_sa7K :: ForeignPtrContents)
                    (sc7_sa7L :: Int#)
                    (sc8_sa7M :: Int#)
                    (sc9_sa7N :: State# RealWorld) ->
                    case sc2_sa7G of acc_X1jF { __DEFAULT ->
                    case sc3_sa7H of vec_X1jH { __DEFAULT ->
                    let {
                      $w$j_s81G
                        :: State# RealWorld
                           -> (# State# RealWorld,
                                 (IOVector nty_tZ, Maybe (LeftFrag nty_tZ), Int) #)
                      [LclId, Arity=1, Str=DmdType T]
                      $w$j_s81G =
                        \ _ ->
                          case lvl65_s97f
                          of _
                          { D:MVector ww4_s7XP
                                      ww5_s7XQ
                                      ww6_s7XR
                                      ww7_s7XS
                                      ww8_s7XT
                                      ww9_s7XU
                                      ww10_s7XV
                                      ww11_s7XW
                                      ww12_s7XX
                                      ww13_s7XY
                                      ww14_s7XZ
                                      ww15_s7Y0 ->
                          case >=# sc1_sa7F 0 of _ {
                            False ->
                              case ww4_s7XP
                                     @ (PrimState IO)
                                     (vec_X1jH
                                      `cast` (MVector (Sym <(TFCo:R:PrimStateIO)>) <nty_tZ>
                                              :: MVector RealWorld nty_tZ
                                                   ~#
                                                 MVector (PrimState IO) nty_tZ))
                              of _ { I# n#_a4an ->
                              case lvl56_rbaz n#_a4an sc1_sa7F of wild_00 { }
                              };
                            True ->
                              case ww4_s7XP
                                     @ (PrimState IO)
                                     (vec_X1jH
                                      `cast` (MVector (Sym <(TFCo:R:PrimStateIO)>) <nty_tZ>
                                              :: MVector RealWorld nty_tZ
                                                   ~#
                                                 MVector (PrimState IO) nty_tZ))
                              of _ { I# y_a4au ->
                              case <# sc1_sa7F y_a4au of _ {
                                False -> case lvl57_rbaA y_a4au sc1_sa7F of wild_00 { };
                                True ->
                                  case ((ww10_s7XV
                                           @ IO
                                           $fPrimMonadIO
                                           (vec_X1jH
                                            `cast` (MVector (Sym <(TFCo:R:PrimStateIO)>) <nty_tZ>
                                                    :: MVector RealWorld nty_tZ
                                                         ~#
                                                       MVector (PrimState IO) nty_tZ))
                                           (I# sc1_sa7F)
                                           acc_X1jF)
                                        `cast` (<NTCo:IO <()>>
                                                :: IO ()
                                                     ~#
                                                   (State# RealWorld
                                                    -> (# State# RealWorld, () #))))
                                         sc9_sa7N
                                  of _ { (# ipv_a47L, _ #) ->
                                  case sc_sa7v of wild_XeO {
                                    __DEFAULT ->
                                      case readWord8OffAddr#
                                             @ RealWorld (plusAddr# sc5_sa7J sc7_sa7L) 0 realWorld#
                                      of _ { (# ipv2_a49f, ipv3_a49g #) ->
                                      case touch# @ ForeignPtrContents sc6_sa7K ipv2_a49f
                                      of _ { __DEFAULT ->
                                      letrec {
                                        $s$wa7_saaM [Occ=LoopBreaker]
                                          :: Int#
                                             -> MVector RealWorld nty_tZ
                                             -> Word#
                                             -> Addr#
                                             -> ForeignPtrContents
                                             -> Int#
                                             -> Int#
                                             -> State# RealWorld
                                             -> Int#
                                             -> (# State# RealWorld,
                                                   (IOVector nty_tZ,
                                                    Maybe (LeftFrag nty_tZ),
                                                    Int) #)
                                        [LclId, Arity=9, Str=DmdType LSLLLLLLA]
                                        $s$wa7_saaM =
                                          \ (sc10_sa83 :: Int#)
                                            (sc11_sa84 :: MVector RealWorld nty_tZ)
                                            (sc12_sa85 :: Word#)
                                            (sc13_sa86 :: Addr#)
                                            (sc14_sa87 :: ForeignPtrContents)
                                            (sc15_sa88 :: Int#)
                                            (sc16_sa89 :: Int#)
                                            (sc17_sa8a :: State# RealWorld)
                                            (sc18_sa8b :: Int#) ->
                                            case sc11_sa84 of vec1_X1jM { __DEFAULT ->
                                            let {
                                              $w$j1_s81F
                                                :: State# RealWorld
                                                   -> (# State# RealWorld,
                                                         (IOVector nty_tZ,
                                                          Maybe (LeftFrag nty_tZ),
                                                          Int) #)
                                              [LclId, Arity=1, Str=DmdType T]
                                              $w$j1_s81F =
                                                \ _ ->
                                                  case sc10_sa83 of wild5_XeJ {
                                                    __DEFAULT ->
                                                      case readWord8OffAddr#
                                                             @ RealWorld
                                                             (plusAddr# sc13_sa86 sc15_sa88)
                                                             0
                                                             realWorld#
                                                      of _ { (# ipv4_X4lA, ipv5_X4lC #) ->
                                                      case touch#
                                                             @ ForeignPtrContents
                                                             sc14_sa87
                                                             ipv4_X4lA
                                                      of _ { __DEFAULT ->
                                                      $s$wa7_saaM
                                                        (-# wild5_XeJ 1)
                                                        vec1_X1jM
                                                        ipv5_X4lC
                                                        sc13_sa86
                                                        sc14_sa87
                                                        (+# sc15_sa88 1)
                                                        (-# sc16_sa89 1)
                                                        sc17_sa8a
                                                        sc18_sa8b
                                                      }
                                                      };
                                                    1 ->
                                                      (# sc17_sa8a,
                                                         (vec1_X1jM,
                                                          Nothing @ (LeftFrag nty_tZ),
                                                          I# sc18_sa8b) #)
                                                  } } in
                                            case geWord# sc12_sa85 (__word 48) of _ {
                                              False -> $w$j1_s81F realWorld#;
                                              True ->
                                                case leWord# sc12_sa85 (__word 57) of _ {
                                                  False -> $w$j1_s81F realWorld#;
                                                  True ->
                                                    $s$wa8_saaN
                                                      sc10_sa83
                                                      lvl62_s937
                                                      vec1_X1jM
                                                      sc12_sa85
                                                      sc13_sa86
                                                      sc14_sa87
                                                      sc15_sa88
                                                      sc16_sa89
                                                      sc17_sa8a
                                                      sc18_sa8b
                                                }
                                            }
                                            };
                                        $s$wa8_saaN [Occ=LoopBreaker]
                                          :: Int#
                                             -> nty_tZ
                                             -> MVector RealWorld nty_tZ
                                             -> Word#
                                             -> Addr#
                                             -> ForeignPtrContents
                                             -> Int#
                                             -> Int#
                                             -> State# RealWorld
                                             -> Int#
                                             -> (# State# RealWorld,
                                                   (IOVector nty_tZ,
                                                    Maybe (LeftFrag nty_tZ),
                                                    Int) #)
                                        [LclId, Arity=10, Str=DmdType LSSLLLLLLL]
                                        $s$wa8_saaN =
                                          \ (sc10_sa8Z :: Int#)
                                            (sc11_sa90 :: nty_tZ)
                                            (sc12_sa91 :: MVector RealWorld nty_tZ)
                                            (sc13_sa92 :: Word#)
                                            (sc14_sa93 :: Addr#)
                                            (sc15_sa94 :: ForeignPtrContents)
                                            (sc16_sa95 :: Int#)
                                            (sc17_sa96 :: Int#)
                                            (sc18_sa97 :: State# RealWorld)
                                            (sc19_sa98 :: Int#) ->
                                            case sc11_sa90 of acc1_X1vQ { __DEFAULT ->
                                            case sc12_sa91 of vec1_X1vW { __DEFAULT ->
                                            let {
                                              $w$j1_X8dZ
                                                :: State# RealWorld
                                                   -> (# State# RealWorld,
                                                         (IOVector nty_tZ,
                                                          Maybe (LeftFrag nty_tZ),
                                                          Int) #)
                                              [LclId, Arity=1, Str=DmdType T]
                                              $w$j1_X8dZ =
                                                \ _ ->
                                                  case >=# sc19_sa98 0 of _ {
                                                    False ->
                                                      case ww4_s7XP
                                                             @ (PrimState IO)
                                                             (vec1_X1vW
                                                              `cast` (MVector
                                                                        (Sym <(TFCo:R:PrimStateIO)>)
                                                                        <nty_tZ>
                                                                      :: MVector RealWorld nty_tZ
                                                                           ~#
                                                                         MVector
                                                                           (PrimState IO) nty_tZ))
                                                      of _ { I# n#_a4an ->
                                                      case lvl56_rbaz n#_a4an sc19_sa98
                                                      of wild7_00 {
                                                      }
                                                      };
                                                    True ->
                                                      case ww4_s7XP
                                                             @ (PrimState IO)
                                                             (vec1_X1vW
                                                              `cast` (MVector
                                                                        (Sym <(TFCo:R:PrimStateIO)>)
                                                                        <nty_tZ>
                                                                      :: MVector RealWorld nty_tZ
                                                                           ~#
                                                                         MVector
                                                                           (PrimState IO) nty_tZ))
                                                      of _ { I# y1_X4mU ->
                                                      case <# sc19_sa98 y1_X4mU of _ {
                                                        False ->
                                                          case lvl57_rbaA y1_X4mU sc19_sa98
                                                          of wild8_00 {
                                                          };
                                                        True ->
                                                          case ((ww10_s7XV
                                                                   @ IO
                                                                   $fPrimMonadIO
                                                                   (vec1_X1vW
                                                                    `cast` (MVector
                                                                              (Sym
                                                                                 <(TFCo:R:PrimStateIO)>)
                                                                              <nty_tZ>
                                                                            :: MVector
                                                                                 RealWorld nty_tZ
                                                                                 ~#
                                                                               MVector
                                                                                 (PrimState IO)
                                                                                 nty_tZ))
                                                                   (I# sc19_sa98)
                                                                   acc1_X1vQ)
                                                                `cast` (<NTCo:IO <()>>
                                                                        :: IO ()
                                                                             ~#
                                                                           (State# RealWorld
                                                                            -> (# State# RealWorld,
                                                                                  () #))))
                                                                 sc18_sa97
                                                          of _ { (# ipv4_X4kg, _ #) ->
                                                          case sc10_sa8Z of wild8_Xro {
                                                            __DEFAULT ->
                                                              case readWord8OffAddr#
                                                                     @ RealWorld
                                                                     (plusAddr# sc14_sa93 sc16_sa95)
                                                                     0
                                                                     realWorld#
                                                              of _ { (# ipv6_X4lT, ipv7_X4lV #) ->
                                                              case touch#
                                                                     @ ForeignPtrContents
                                                                     sc15_sa94
                                                                     ipv6_X4lT
                                                              of _ { __DEFAULT ->
                                                              $s$wa7_saaM
                                                                (-# wild8_Xro 1)
                                                                vec1_X1vW
                                                                ipv7_X4lV
                                                                sc14_sa93
                                                                sc15_sa94
                                                                (+# sc16_sa95 1)
                                                                (-# sc17_sa96 1)
                                                                ipv4_X4kg
                                                                (+# sc19_sa98 1)
                                                              }
                                                              };
                                                            1 ->
                                                              (# ipv4_X4kg,
                                                                 (vec1_X1vW,
                                                                  Nothing @ (LeftFrag nty_tZ),
                                                                  I# (+# sc19_sa98 1)) #)
                                                          }
                                                          }
                                                      }
                                                      }
                                                  } } in
                                            case geWord# sc13_sa92 (__word 48) of _ {
                                              False -> $w$j1_X8dZ realWorld#;
                                              True ->
                                                case leWord# sc13_sa92 (__word 57) of _ {
                                                  False -> $w$j1_X8dZ realWorld#;
                                                  True ->
                                                    let {
                                                      acc'_s3ow [Dmd=Just L] :: nty_tZ
                                                      [LclId, Str=DmdType]
                                                      acc'_s3ow =
                                                        lvl66_s97e
                                                          (lvl67_s97d lvl63_s935 acc1_X1vQ)
                                                          (lvl68_s97c
                                                             (lvl69_s97b
                                                                (let {
                                                                   i#_a4DM [Dmd=Just L] :: Int#
                                                                   [LclId, Str=DmdType]
                                                                   i#_a4DM =
                                                                     word2Int# sc13_sa92 } in
                                                                 case >=# i#_a4DM 0 of _ {
                                                                   False -> wordToInteger sc13_sa92;
                                                                   True -> smallInteger i#_a4DM
                                                                 }))
                                                             lvl64_s933) } in
                                                    case sc10_sa8Z of wild7_Xrf {
                                                      __DEFAULT ->
                                                        case readWord8OffAddr#
                                                               @ RealWorld
                                                               (plusAddr# sc14_sa93 sc16_sa95)
                                                               0
                                                               realWorld#
                                                        of _ { (# ipv4_X4lK, ipv5_X4lM #) ->
                                                        case touch#
                                                               @ ForeignPtrContents
                                                               sc15_sa94
                                                               ipv4_X4lK
                                                        of _ { __DEFAULT ->
                                                        $s$wa8_saaN
                                                          (-# wild7_Xrf 1)
                                                          acc'_s3ow
                                                          vec1_X1vW
                                                          ipv5_X4lM
                                                          sc14_sa93
                                                          sc15_sa94
                                                          (+# sc16_sa95 1)
                                                          (-# sc17_sa96 1)
                                                          sc18_sa97
                                                          sc19_sa98
                                                        }
                                                        };
                                                      1 ->
                                                        (# sc18_sa97,
                                                           (vec1_X1vW,
                                                            Just
                                                              @ (LeftFrag nty_tZ)
                                                              ($WLeftFrag @ nty_tZ acc'_s3ow),
                                                            I# sc19_sa98) #)
                                                    }
                                                }
                                            }
                                            }
                                            }; } in
                                      $s$wa7_saaM
                                        (-# wild_XeO 1)
                                        vec_X1jH
                                        ipv3_a49g
                                        sc5_sa7J
                                        sc6_sa7K
                                        (+# sc7_sa7L 1)
                                        (-# sc8_sa7M 1)
                                        ipv_a47L
                                        (+# sc1_sa7F 1)
                                      }
                                      };
                                    1 ->
                                      (# ipv_a47L,
                                         (vec_X1jH,
                                          Nothing @ (LeftFrag nty_tZ),
                                          I# (+# sc1_sa7F 1)) #)
                                  }
                                  }
                              }
                              }
                          }
                          } } in
                    case geWord# sc4_sa7I (__word 48) of _ {
                      False -> $w$j_s81G realWorld#;
                      True ->
                        case leWord# sc4_sa7I (__word 57) of _ {
                          False -> $w$j_s81G realWorld#;
                          True ->
                            let {
                              acc'_s3ow [Dmd=Just L] :: nty_tZ
                              [LclId, Str=DmdType]
                              acc'_s3ow =
                                lvl66_s97e
                                  (lvl67_s97d lvl63_s935 acc_X1jF)
                                  (lvl68_s97c
                                     (lvl69_s97b
                                        (let {
                                           i#_a4DM [Dmd=Just L] :: Int#
                                           [LclId, Str=DmdType]
                                           i#_a4DM = word2Int# sc4_sa7I } in
                                         case >=# i#_a4DM 0 of _ {
                                           False -> wordToInteger sc4_sa7I;
                                           True -> smallInteger i#_a4DM
                                         }))
                                     lvl64_s933) } in
                            case sc_sa7v of wild3_XeO {
                              __DEFAULT ->
                                case readWord8OffAddr#
                                       @ RealWorld (plusAddr# sc5_sa7J sc7_sa7L) 0 realWorld#
                                of _ { (# ipv_a49f, ipv1_a49g #) ->
                                case touch# @ ForeignPtrContents sc6_sa7K ipv_a49f
                                of _ { __DEFAULT ->
                                $s$wa6_saaL
                                  (-# wild3_XeO 1)
                                  sc1_sa7F
                                  acc'_s3ow
                                  vec_X1jH
                                  ipv1_a49g
                                  sc5_sa7J
                                  sc6_sa7K
                                  (+# sc7_sa7L 1)
                                  (-# sc8_sa7M 1)
                                  sc9_sa7N
                                }
                                };
                              1 ->
                                (# sc9_sa7N,
                                   (vec_X1jH,
                                    Just @ (LeftFrag nty_tZ) ($WLeftFrag @ nty_tZ acc'_s3ow),
                                    I# sc1_sa7F) #)
                            }
                        }
                    }
                    }
                    }; } in
              letrec {
                $s$wa7_saaQ [Occ=LoopBreaker]
                  :: Int#
                     -> MVector RealWorld nty_tZ
                     -> Word#
                     -> Addr#
                     -> ForeignPtrContents
                     -> Int#
                     -> Int#
                     -> State# RealWorld
                     -> Int#
                     -> (# State# RealWorld,
                           (IOVector nty_tZ, Maybe (LeftFrag nty_tZ), Int) #)
                [LclId, Arity=9, Str=DmdType LSLLLLLLA]
                $s$wa7_saaQ =
                  \ (sc_sa6p :: Int#)
                    (sc1_sa6q :: MVector RealWorld nty_tZ)
                    (sc2_sa6r :: Word#)
                    (sc3_sa6s :: Addr#)
                    (sc4_sa6t :: ForeignPtrContents)
                    (sc5_sa6u :: Int#)
                    (sc6_sa6v :: Int#)
                    (sc7_sa6w :: State# RealWorld)
                    (sc8_sa6x :: Int#) ->
                    case sc1_sa6q of vec_X1jM { __DEFAULT ->
                    let {
                      $w$j_s81F
                        :: State# RealWorld
                           -> (# State# RealWorld,
                                 (IOVector nty_tZ, Maybe (LeftFrag nty_tZ), Int) #)
                      [LclId, Arity=1, Str=DmdType T]
                      $w$j_s81F =
                        \ _ ->
                          case sc_sa6p of wild_XeJ {
                            __DEFAULT ->
                              case readWord8OffAddr#
                                     @ RealWorld (plusAddr# sc3_sa6s sc5_sa6u) 0 realWorld#
                              of _ { (# ipv_a49f, ipv1_a49g #) ->
                              case touch# @ ForeignPtrContents sc4_sa6t ipv_a49f
                              of _ { __DEFAULT ->
                              $s$wa7_saaQ
                                (-# wild_XeJ 1)
                                vec_X1jM
                                ipv1_a49g
                                sc3_sa6s
                                sc4_sa6t
                                (+# sc5_sa6u 1)
                                (-# sc6_sa6v 1)
                                sc7_sa6w
                                sc8_sa6x
                              }
                              };
                            1 ->
                              (# sc7_sa6w,
                                 (vec_X1jM, Nothing @ (LeftFrag nty_tZ), I# sc8_sa6x) #)
                          } } in
                    case geWord# sc2_sa6r (__word 48) of _ {
                      False -> $w$j_s81F realWorld#;
                      True ->
                        case leWord# sc2_sa6r (__word 57) of _ {
                          False -> $w$j_s81F realWorld#;
                          True ->
                            $s$wa6_saaL
                              sc_sa6p
                              sc8_sa6x
                              lvl62_s937
                              vec_X1jM
                              sc2_sa6r
                              sc3_sa6s
                              sc4_sa6t
                              sc5_sa6u
                              sc6_sa6v
                              sc7_sa6w
                        }
                    }
                    }; } in
              case ((basicUnsafeNew
                       @ MVector @ nty_tZ lvl65_s97f @ IO $fPrimMonadIO (I# x1_s93t))
                    `cast` (<NTCo:IO (MVector <(TFCo:R:PrimStateIO)> <nty_tZ>)>
                            :: IO (MVector (PrimState IO) nty_tZ)
                                 ~#
                               (State# RealWorld
                                -> (# State# RealWorld, MVector RealWorld nty_tZ #))))
                     w3_s7ZM
              of _ { (# ipv_a47L, ipv1_a47M #) ->
              case <=# ww3_s806 0 of _ {
                False ->
                  case readWord8OffAddr#
                         @ RealWorld (plusAddr# ww_s803 ww2_s805) 0 realWorld#
                  of _ { (# ipv2_a49f, ipv3_a49g #) ->
                  case touch# @ ForeignPtrContents ww1_s804 ipv2_a49f
                  of _ { __DEFAULT ->
                  case $s$wa7_saaQ
                         ww3_s806
                         ipv1_a47M
                         ipv3_a49g
                         ww_s803
                         ww1_s804
                         (+# ww2_s805 1)
                         (-# ww3_s806 1)
                         ipv_a47L
                         0
                  of _ { (# ipv4_X4m6, ipv5_X4m8 #) ->
                  case ipv5_X4m8 of _ { (v_a1i5, w4_a1i6, ind_a1i7) ->
                  let {
                    lvl70_s97k :: Vector Vector nty_tZ
                    [LclId]
                    lvl70_s97k = $p1Unbox @ nty_tZ w_s7ZY } in
                  case ((basicUnsafeFreeze
                           @ Vector
                           @ nty_tZ
                           lvl70_s97k
                           @ IO
                           $fPrimMonadIO
                           (v_a1i5
                            `cast` (MVector (Sym <(TFCo:R:PrimStateIO)>) <nty_tZ> ; Sym
                                                                                      <(TFCo:R:MutableVector)> <PrimState
                                                                                                                  IO> <nty_tZ>
                                    :: MVector RealWorld nty_tZ
                                         ~#
                                       Mutable Vector (PrimState IO) nty_tZ)))
                        `cast` (<NTCo:IO <Vector nty_tZ>>
                                :: IO (Vector nty_tZ)
                                     ~#
                                   (State# RealWorld -> (# State# RealWorld, Vector nty_tZ #))))
                         ipv4_X4m6
                  of _ { (# ipv6_X4fR, ipv7_X4fT #) ->
                  let {
                    pref_s3ou [Dmd=Just L] :: Vector nty_tZ
                    [LclId, Str=DmdType]
                    pref_s3ou =
                      case lvl70_s97k
                      of _
                      { D:Vector ww4_s7Yx
                                 ww5_s7Yy
                                 ww6_s7Yz
                                 ww7_s7YA
                                 ww8_s7YB
                                 ww9_s7YC
                                 ww10_s7YD
                                 ww11_s7YE ->
                      ww8_s7YB
                        $fShowPartialNums7
                        (case ind_a1i7 of wild3_a4pj { I# x2_a4pl ->
                         case <=# x2_a4pl 0 of _ {
                           False ->
                             case ww7_s7YA ipv7_X4fT of wild5_a6at { I# y1_a6av ->
                             case <=# x2_a4pl y1_a6av of _ {
                               False -> wild5_a6at;
                               True -> wild3_a4pj
                             }
                             };
                           True ->
                             case ww7_s7YA ipv7_X4fT of wild5_a6at { I# y1_a6av ->
                             case <=# 0 y1_a6av of _ {
                               False -> wild5_a6at;
                               True -> $fShowPartialNums7
                             }
                             }
                         }
                         })
                        ipv7_X4fT
                      } } in
                  case geWord# ipv3_a49g (__word 48) of _ {
                    False ->
                      (# ipv6_X4fR,
                         case pref_s3ou of tpl_X8 { __DEFAULT ->
                         case w4_a1i6 of tpl1_Xa { __DEFAULT ->
                         Compound @ nty_tZ (Nothing @ (RightFrag nty_tZ)) tpl_X8 tpl1_Xa
                         }
                         } #);
                    True ->
                      case leWord# ipv3_a49g (__word 57) of _ {
                        False ->
                          (# ipv6_X4fR,
                             case pref_s3ou of tpl_X8 { __DEFAULT ->
                             case w4_a1i6 of tpl1_Xa { __DEFAULT ->
                             Compound @ nty_tZ (Nothing @ (RightFrag nty_tZ)) tpl_X8 tpl1_Xa
                             }
                             } #);
                        True ->
                          case lvl70_s97k
                          of _
                          { D:Vector ww4_s7Z4
                                     ww5_s7Z5
                                     ww6_s7Z6
                                     ww7_s7Z7
                                     ww8_s7Z8
                                     ww9_s7Z9
                                     ww10_s7Za
                                     ww11_s7Zb ->
                          case pref_s3ou of v1_a3RL { __DEFAULT ->
                          case ww7_s7Z7 v1_a3RL of _ { I# ipv8_a3RQ ->
                          let {
                            a_s3ot :: RightFrag nty_tZ
                            [LclId, Str=DmdType]
                            a_s3ot =
                              letrec {
                                $wa6_s93I [Occ=LoopBreaker]
                                  :: Addr#
                                     -> Int#
                                     -> State# RealWorld
                                     -> (# State# RealWorld, Maybe Int #)
                                [LclId, Arity=3, Str=DmdType LLL]
                                $wa6_s93I =
                                  \ (ww12_s7YL :: Addr#)
                                    (ww13_s7YP :: Int#)
                                    (w5_s7YR :: State# RealWorld) ->
                                    case >=# ww13_s7YP ww3_s806 of _ {
                                      False ->
                                        case readWord8OffAddr# @ RealWorld ww12_s7YL 0 w5_s7YR
                                        of _ { (# ipv9_a4ka, ipv10_a4kb #) ->
                                        case geWord# ipv10_a4kb (__word 48) of _ {
                                          False -> (# ipv9_a4ka, Just @ Int (I# ww13_s7YP) #);
                                          True ->
                                            case leWord# ipv10_a4kb (__word 57) of _ {
                                              False -> (# ipv9_a4ka, Just @ Int (I# ww13_s7YP) #);
                                              True ->
                                                $wa6_s93I
                                                  (plusAddr# ww12_s7YL 1) (+# ww13_s7YP 1) ipv9_a4ka
                                            }
                                        }
                                        };
                                      True -> (# w5_s7YR, Nothing @ Int #)
                                    }; } in
                              case $wa6_s93I (plusAddr# ww_s803 ww2_s805) 0 realWorld#
                              of _ { (# ipv9_a48Q, ipv10_a48R #) ->
                              case touch# @ ForeignPtrContents ww1_s804 ipv9_a48Q
                              of _ { __DEFAULT ->
                              case ipv10_a48R of _ {
                                Nothing -> case fromJust1 of wild6_00 { };
                                Just x_a339 ->
                                  case x_a339 of _ { I# tpl1_B4 ->
                                  case ww7_s7Z7 v1_a3RL of _ { I# y_a4pQ ->
                                  case <# 0 y_a4pQ of _ {
                                    False -> case lvl59_rbaC @ nty_tZ y_a4pQ of wild8_00 { };
                                    True ->
                                      case (ww9_s7Z9 @ Id $fMonadId v1_a3RL $fShowPartialNums7)
                                           `cast` (<NTCo:Id <nty_tZ>> :: Id nty_tZ ~# nty_tZ)
                                      of tpl2_X8 { __DEFAULT ->
                                      RightFrag @ nty_tZ tpl1_B4 tpl2_X8
                                      }
                                  }
                                  }
                                  }
                              }
                              }
                              } } in
                          case >=# 0 ipv8_a3RQ of _ {
                            False ->
                              case ww9_s7Z9 @ Box $fMonadBox v1_a3RL $fShowPartialNums7
                              of _ { Box _ ->
                              (# ipv6_X4fR,
                                 case ww7_s7Z7 v1_a3RL of _ { I# x_a4qj ->
                                 let {
                                   a1_s8j9 :: Int#
                                   [LclId]
                                   a1_s8j9 = -# x_a4qj 1 } in
                                 case >=# a1_s8j9 0 of _ {
                                   False ->
                                     case poly_$w$j6_rbaD @ nty_tZ x_a4qj a1_s8j9 of wild9_00 { };
                                   True ->
                                     case <=# (+# 1 a1_s8j9) x_a4qj of _ {
                                       False ->
                                         case poly_$w$j6_rbaD @ nty_tZ x_a4qj a1_s8j9 of wild10_00 {
                                         };
                                       True ->
                                         case ww8_s7Z8 lvl60_rbaE (I# a1_s8j9) v1_a3RL
                                         of tpl_X8 { __DEFAULT ->
                                         case w4_a1i6 of tpl1_Xa { __DEFAULT ->
                                         Compound
                                           @ nty_tZ
                                           (Just @ (RightFrag nty_tZ) a_s3ot)
                                           tpl_X8
                                           tpl1_Xa
                                         }
                                         }
                                     }
                                 }
                                 } #)
                              };
                            True ->
                              case w4_a1i6 of _ {
                                Nothing ->
                                  (# ipv6_X4fR,
                                     case ww7_s7Z7 v1_a3RL of _ { I# x_a4qj ->
                                     let {
                                       a1_s8jv :: Int#
                                       [LclId]
                                       a1_s8jv = -# x_a4qj 1 } in
                                     case >=# a1_s8jv 0 of _ {
                                       False ->
                                         case poly_$w$j7_rbaF @ nty_tZ x_a4qj a1_s8jv of wild9_00 {
                                         };
                                       True ->
                                         case <=# (+# 1 a1_s8jv) x_a4qj of _ {
                                           False ->
                                             case poly_$w$j7_rbaF @ nty_tZ x_a4qj a1_s8jv
                                             of wild10_00 {
                                             };
                                           True ->
                                             case ww8_s7Z8 lvl60_rbaE (I# a1_s8jv) v1_a3RL
                                             of tpl_X8 { __DEFAULT ->
                                             Compound
                                               @ nty_tZ
                                               (Just @ (RightFrag nty_tZ) a_s3ot)
                                               tpl_X8
                                               (Nothing @ (LeftFrag nty_tZ))
                                             }
                                         }
                                     }
                                     } #);
                                Just ds_d2nQ ->
                                  case ds_d2nQ of _ { LeftFrag w5_a1ib ->
                                  (# ipv6_X4fR,
                                     Single @ nty_tZ (MiddleFrag @ nty_tZ ww3_s806 w5_a1ib) #)
                                  }
                              }
                          }
                          }
                          }
                          }
                      }
                  }
                  }
                  }
                  }
                  }
                  };
                True -> case lvl61_rbaG of wild_00 { }
              }
              }
          } } in
    case ww3_s806 of _ {
      __DEFAULT -> $wa5_s81C w2_s808;
      0 ->
        let {
          lvl62_s97v :: PartialNums nty_tZ
          [LclId]
          lvl62_s97v =
            case fromInteger @ nty_tZ w1_s7ZZ lvl53_rbaw
            of tpl_X8 { __DEFAULT ->
            Single @ nty_tZ (MiddleFrag @ nty_tZ 0 tpl_X8)
            } } in
        let {
          $wa6_s81K
            :: State# RealWorld -> (# State# RealWorld, PartialNums nty_tZ #)
          [LclId, Arity=1, Str=DmdType L]
          $wa6_s81K =
            \ (w3_s7ZR :: State# RealWorld) ->
              case $wcompareBytes
                     ww_s803 ww1_s804 ww2_s805 0 __NULL $fMonoidByteString1 0 0
              of _ {
                __DEFAULT -> $wa5_s81C w3_s7ZR;
                EQ -> (# w3_s7ZR, lvl62_s97v #)
              } } in
        case eqAddr# ww_s803 __NULL of _ {
          False -> $wa6_s81K w2_s808;
          True ->
            case ww2_s805 of _ {
              __DEFAULT -> $wa6_s81K w2_s808;
              0 -> (# w2_s808, lvl62_s97v #)
            }
        }
    }

readNatsPartial4 [InlPrag=INLINE[0]]
  :: forall nty_tZ.
     (Unbox nty_tZ, Num nty_tZ, Eq nty_tZ) =>
     ByteString
     -> State# RealWorld -> (# State# RealWorld, PartialNums nty_tZ #)
[GblId,
 Arity=5,
 Str=DmdType LLAU(LLLL)L,
 Unf=Unf{Src=Worker=$wa1, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ nty_tZ)
                 (w_s7ZY [Occ=Once] :: Unbox nty_tZ)
                 (w1_s7ZZ [Occ=Once] :: Num nty_tZ)
                 _
                 (w3_s801 [Occ=Once!] :: ByteString)
                 (w4_s808 [Occ=Once] :: State# RealWorld) ->
                 case w3_s801
                 of _
                 { PS ww_s803 [Occ=Once]
                      ww1_s804 [Occ=Once]
                      ww2_s805 [Occ=Once]
                      ww3_s806 [Occ=Once] ->
                 $wa1
                   @ nty_tZ w_s7ZY w1_s7ZZ ww_s803 ww1_s804 ww2_s805 ww3_s806 w4_s808
                 }}]
readNatsPartial4 =
  \ (@ nty_tZ)
    (w_s7ZY :: Unbox nty_tZ)
    (w1_s7ZZ :: Num nty_tZ)
    _
    (w3_s801 :: ByteString)
    (w4_s808 :: State# RealWorld) ->
    case w3_s801 of _ { PS ww_s803 ww1_s804 ww2_s805 ww3_s806 ->
    $wa1
      @ nty_tZ w_s7ZY w1_s7ZZ ww_s803 ww1_s804 ww2_s805 ww3_s806 w4_s808
    }

readNatsPartial
  :: forall nty_a13D.
     (Unbox nty_a13D, Num nty_a13D, Eq nty_a13D) =>
     ByteString -> IO (PartialNums nty_a13D)
[GblId,
 Arity=5,
 Str=DmdType LLAU(LLLL)L,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= readNatsPartial4
               `cast` (forall nty_tZ.
                       <Unbox nty_tZ>
                       -> <Num nty_tZ>
                       -> <Eq nty_tZ>
                       -> <ByteString>
                       -> Sym <(NTCo:IO <PartialNums nty_tZ>)>
                       :: (forall nty_tZ.
                           (Unbox nty_tZ, Num nty_tZ, Eq nty_tZ) =>
                           ByteString
                           -> State# RealWorld -> (# State# RealWorld, PartialNums nty_tZ #))
                            ~#
                          (forall nty_tZ.
                           (Unbox nty_tZ, Num nty_tZ, Eq nty_tZ) =>
                           ByteString -> IO (PartialNums nty_tZ)))}]
readNatsPartial =
  readNatsPartial4
  `cast` (forall nty_tZ.
          <Unbox nty_tZ>
          -> <Num nty_tZ>
          -> <Eq nty_tZ>
          -> <ByteString>
          -> Sym <(NTCo:IO <PartialNums nty_tZ>)>
          :: (forall nty_tZ.
              (Unbox nty_tZ, Num nty_tZ, Eq nty_tZ) =>
              ByteString
              -> State# RealWorld -> (# State# RealWorld, PartialNums nty_tZ #))
               ~#
             (forall nty_tZ.
              (Unbox nty_tZ, Num nty_tZ, Eq nty_tZ) =>
              ByteString -> IO (PartialNums nty_tZ)))

main2 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 120 0}]
main2 = unpackCString# "Now this is getting ridiculous..."

$wa
  :: forall nty_t16.
     (Unbox nty_t16, Num nty_t16) =>
     ByteString
     -> State# RealWorld
     -> (# State# RealWorld, [PartialNums nty_t16] #)
[GblId,
 Arity=4,
 Str=DmdType LLLL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 20 0] 381 30}]
$wa =
  \ (@ nty_t16)
    (w_s80f :: Unbox nty_t16)
    (w1_s80g :: Num nty_t16)
    (w2_s80i :: ByteString)
    (w3_s80j :: State# RealWorld) ->
    case readInt32OffAddr#
           @ RealWorld (__label "n_capabilities" (data)) 0 w3_s80j
    of _ { (# ipv_a4Ff, ipv1_a4Fg #) ->
    case hPutStr2
           stdout
           (unpackAppendCString#
              "Read num capabilities as "
              ($wshowSignedInt 0 ipv1_a4Fg ([] @ Char)))
           True
           ipv_a4Ff
    of _ { (# ipv2_X4lD, _ #) ->
    case hPutStr2 stdout main2 True ipv2_X4lD
    of _ { (# ipv4_X4lH, _ #) ->
    case w2_s80i of _ { PS ww_s803 ww1_s804 ww2_s805 ww3_s806 ->
    case $wa1
           @ nty_t16
           w_s80f
           w1_s80g
           ww_s803
           ww1_s804
           ww2_s805
           ww3_s806
           ipv4_X4lH
    of _ { (# ipv6_a47L, ipv7_a47M #) ->
    (# ipv6_a47L,
       : @ (PartialNums nty_t16) ipv7_a47M ([] @ (PartialNums nty_t16)) #)
    }
    }
    }
    }
    }

parReadNats1 [InlPrag=INLINE[0]]
  :: forall nty_t16.
     (Unbox nty_t16, Num nty_t16, Eq nty_t16) =>
     ByteString
     -> State# RealWorld
     -> (# State# RealWorld, [PartialNums nty_t16] #)
[GblId,
 Arity=5,
 Str=DmdType LLALL,
 Unf=Unf{Src=Worker=$wa, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= \ (@ nty_t16)
                 (w_s80f [Occ=Once] :: Unbox nty_t16)
                 (w1_s80g [Occ=Once] :: Num nty_t16)
                 _
                 (w3_s80i [Occ=Once] :: ByteString)
                 (w4_s80j [Occ=Once] :: State# RealWorld) ->
                 $wa @ nty_t16 w_s80f w1_s80g w3_s80i w4_s80j}]
parReadNats1 =
  \ (@ nty_t16)
    (w_s80f :: Unbox nty_t16)
    (w1_s80g :: Num nty_t16)
    _
    (w3_s80i :: ByteString)
    (w4_s80j :: State# RealWorld) ->
    $wa @ nty_t16 w_s80f w1_s80g w3_s80i w4_s80j

parReadNats
  :: forall nty_a1cd.
     (Unbox nty_a1cd, Num nty_a1cd, Eq nty_a1cd) =>
     ByteString -> IO [PartialNums nty_a1cd]
[GblId,
 Arity=5,
 Str=DmdType LLALL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= parReadNats1
               `cast` (forall nty_XeF.
                       <Unbox nty_XeF>
                       -> <Num nty_XeF>
                       -> <Eq nty_XeF>
                       -> <ByteString>
                       -> Sym <(NTCo:IO <[PartialNums nty_XeF]>)>
                       :: (forall nty_XeF.
                           (Unbox nty_XeF, Num nty_XeF, Eq nty_XeF) =>
                           ByteString
                           -> State# RealWorld
                           -> (# State# RealWorld, [PartialNums nty_XeF] #))
                            ~#
                          (forall nty_XeF.
                           (Unbox nty_XeF, Num nty_XeF, Eq nty_XeF) =>
                           ByteString -> IO [PartialNums nty_XeF]))}]
parReadNats =
  parReadNats1
  `cast` (forall nty_XeF.
          <Unbox nty_XeF>
          -> <Num nty_XeF>
          -> <Eq nty_XeF>
          -> <ByteString>
          -> Sym <(NTCo:IO <[PartialNums nty_XeF]>)>
          :: (forall nty_XeF.
              (Unbox nty_XeF, Num nty_XeF, Eq nty_XeF) =>
              ByteString
              -> State# RealWorld
              -> (# State# RealWorld, [PartialNums nty_XeF] #))
               ~#
             (forall nty_XeF.
              (Unbox nty_XeF, Num nty_XeF, Eq nty_XeF) =>
              ByteString -> IO [PartialNums nty_XeF]))

main3 :: [Char]
[GblId,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 190 0}]
main3 =
  unpackCString#
    "../../pbbs/breadthFirstSearch/graphData/data/3Dgrid_J_10000000"

main4 :: [Char]
[GblId,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 100 0}]
main4 = unpackCString# "Using parReadNats + readFile"

main1
  :: State# RealWorld -> (# State# RealWorld, [PartialNums Word] #)
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0] 660 30}]
main1 =
  \ (eta_X3z :: State# RealWorld) ->
    case hPutStr2 stdout main4 True eta_X3z of _ { (# ipv_a47L, _ #) ->
    case getPOSIXTime1 ipv_a47L of _ { (# ipv2_a4KO, ipv3_a4KP #) ->
    case readFile1 main3 ipv2_a4KO of _ { (# ipv4_X4lC, ipv5_X4lE #) ->
    case getPOSIXTime1 ipv4_X4lC of _ { (# ipv6_X4YN, ipv7_X4YP #) ->
    case hPutStr2
           stdout
           (unpackAppendCString#
              "Time to read file sequentially: "
              (case $wposixSecondsToUTCTime ipv7_X4YP
               of _ { (# ww1_a79c, ww2_a79d #) ->
               case $wposixSecondsToUTCTime ipv3_a4KP
               of _ { (# ww4_X7fm, ww5_X7fo #) ->
               ++
                 @ Char
                 (showFixed
                    @ E12
                    ($fHasResolutionE12_$cresolution
                     `cast` (Sym <(NTCo:HasResolution <E12>)>
                             :: (forall (p_a3cR :: * -> *). p_a3cR E12 -> Integer)
                                  ~#
                                HasResolution E12))
                    True
                    ((minusInteger
                        ($wutcTimeToPOSIXSeconds ww1_a79c ww2_a79d)
                        ($wutcTimeToPOSIXSeconds ww4_X7fm ww5_X7fo))
                     `cast` (Sym <(NTCo:Fixed <E12>)> :: Integer ~# Fixed E12)))
                 $fShowNominalDiffTime3
               }
               }))
           True
           ipv6_X4YN
    of _ { (# ipv8_X4lR, _ #) ->
    case $wa @ Word $fUnboxWord $fNumWord ipv5_X4lE ipv8_X4lR
    of _ { (# ipv10_X4lJ, ipv11_X4lL #) ->
    case consume1 ipv11_X4lL ipv10_X4lJ of _ { (# ipv12_X4tu, _ #) ->
    (# ipv12_X4tu, ipv11_X4lL #)
    }
    }
    }
    }
    }
    }
    }

t4 :: IO [PartialNums Word]
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
t4 =
  main1
  `cast` (Sym <(NTCo:IO <[PartialNums Word]>)>
          :: (State# RealWorld -> (# State# RealWorld, [PartialNums Word] #))
               ~#
             IO [PartialNums Word])

main :: IO [PartialNums Word]
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
main =
  main1
  `cast` (Sym <(NTCo:IO <[PartialNums Word]>)>
          :: (State# RealWorld -> (# State# RealWorld, [PartialNums Word] #))
               ~#
             IO [PartialNums Word])

main5
  :: State# RealWorld -> (# State# RealWorld, [PartialNums Word] #)
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0] 30 0}]
main5 =
  \ (eta_X3D :: State# RealWorld) ->
    runMainIO1
      @ [PartialNums Word]
      (main1
       `cast` (Sym <(NTCo:IO <[PartialNums Word]>)>
               :: (State# RealWorld -> (# State# RealWorld, [PartialNums Word] #))
                    ~#
                  IO [PartialNums Word]))
      eta_X3D

main :: IO [PartialNums Word]
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
main =
  main5
  `cast` (Sym <(NTCo:IO <[PartialNums Word]>)>
          :: (State# RealWorld -> (# State# RealWorld, [PartialNums Word] #))
               ~#
             IO [PartialNums Word])


------ Local rules for imported ids --------
"SPEC consume [Word]" [ALWAYS]
    forall ($dShow_s3rM :: Show Word) ($dUnbox_s3rN :: Unbox Word).
      consume @ Word $dShow_s3rM $dUnbox_s3rN
      = consume_$sconsume
"SPEC readNatsPartial" [ALWAYS]
    forall ($dUnbox_a1Zv :: Unbox Word)
           ($dNum_a1Zw :: Num Word)
           ($dEq_a1Zx :: Eq Word).
      readNatsPartial @ Word $dUnbox_a1Zv $dNum_a1Zw $dEq_a1Zx
      = readNatsPartial_readNatsPartial2
"SPEC readNatsPartial" [ALWAYS]
    forall ($dUnbox_a1Zz :: Unbox Word32)
           ($dNum_a1ZA :: Num Word32)
           ($dEq_a1ZB :: Eq Word32).
      readNatsPartial @ Word32 $dUnbox_a1Zz $dNum_a1ZA $dEq_a1ZB
      = readNatsPartial_readNatsPartial1
"SPEC readNatsPartial" [ALWAYS]
    forall ($dUnbox_a1ZD :: Unbox Word64)
           ($dNum_a1ZE :: Num Word64)
           ($dEq_a1ZF :: Eq Word64).
      readNatsPartial @ Word64 $dUnbox_a1ZD $dNum_a1ZE $dEq_a1ZF
      = readNatsPartial_readNatsPartial

PBBS_unbugged.dump-simpl

Result size of Tidy Core
  = {terms: 7,560, types: 8,51, coercions: 1,61}

$WRightFrag [InlPrag=INLINE]
  :: forall n_aSS. Int -> n_aSS -> RightFrag n_aSS
[GblId[DataConWrapper],
 Arity=2,
 Caf=NoCafRefs,
 Str=DmdType SSm,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=False)
         Tmpl= \ (@ n_aSS)
                 (tpl_B1 [Occ=Once!] :: Int)
                 (tpl_B2 [Occ=Once] :: n_aSS) ->
                 case tpl_B1 of _ { I# tpl_B4 [Occ=Once] ->
                 case tpl_B2 of tpl_X8 { __DEFAULT ->
                 RightFrag @ n_aSS tpl_B4 tpl_X8
                 }
                 }}]
$WRightFrag =
  \ (@ n_aSS)
    (tpl_B1 [Occ=Once!] :: Int)
    (tpl_B2 [Occ=Once] :: n_aSS) ->
    case tpl_B1 of _ { I# tpl_B4 [Occ=Once] ->
    case tpl_B2 of tpl_X8 { __DEFAULT ->
    RightFrag @ n_aSS tpl_B4 tpl_X8
    }
    }

$WCompound [InlPrag=INLINE]
  :: forall n_aST.
     Maybe (RightFrag n_aST)
     -> Vector n_aST -> Maybe (LeftFrag n_aST) -> PartialNums n_aST
[GblId[DataConWrapper],
 Arity=3,
 Caf=NoCafRefs,
 Str=DmdType SSS,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=False)
         Tmpl= \ (@ n_aST)
                 (tpl_B1 [Occ=Once] :: Maybe (RightFrag n_aST))
                 (tpl_B2 [Occ=Once] :: Vector n_aST)
                 (tpl_B3 [Occ=Once] :: Maybe (LeftFrag n_aST)) ->
                 case tpl_B1 of tpl_X6 { __DEFAULT ->
                 case tpl_B2 of tpl_X8 { __DEFAULT ->
                 case tpl_B3 of tpl_Xa { __DEFAULT ->
                 Compound @ n_aST tpl_X6 tpl_X8 tpl_Xa
                 }
                 }
                 }}]
$WCompound =
  \ (@ n_aST)
    (tpl_B1 [Occ=Once] :: Maybe (RightFrag n_aST))
    (tpl_B2 [Occ=Once] :: Vector n_aST)
    (tpl_B3 [Occ=Once] :: Maybe (LeftFrag n_aST)) ->
    case tpl_B1 of tpl_X6 { __DEFAULT ->
    case tpl_B2 of tpl_X8 { __DEFAULT ->
    case tpl_B3 of tpl_Xa { __DEFAULT ->
    Compound @ n_aST tpl_X6 tpl_X8 tpl_Xa
    }
    }
    }

$WSingle [InlPrag=INLINE]
  :: forall n_aST. MiddleFrag n_aST -> PartialNums n_aST
[GblId[DataConWrapper],
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType S,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=False)
         Tmpl= \ (@ n_aST) (tpl_B1 [Occ=Once] :: MiddleFrag n_aST) ->
                 case tpl_B1 of tpl_X4 { __DEFAULT -> Single @ n_aST tpl_X4 }}]
$WSingle =
  \ (@ n_aST) (tpl_B1 [Occ=Once] :: MiddleFrag n_aST) ->
    case tpl_B1 of tpl_X4 { __DEFAULT -> Single @ n_aST tpl_X4 }

$WMiddleFrag [InlPrag=INLINE]
  :: forall n_aDS. Int -> n_aDS -> MiddleFrag n_aDS
[GblId[DataConWrapper],
 Arity=2,
 Caf=NoCafRefs,
 Str=DmdType SSm,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=False)
         Tmpl= \ (@ n_aDS)
                 (tpl_B1 [Occ=Once!] :: Int)
                 (tpl_B2 [Occ=Once] :: n_aDS) ->
                 case tpl_B1 of _ { I# tpl_B4 [Occ=Once] ->
                 case tpl_B2 of tpl_X8 { __DEFAULT ->
                 MiddleFrag @ n_aDS tpl_B4 tpl_X8
                 }
                 }}]
$WMiddleFrag =
  \ (@ n_aDS)
    (tpl_B1 [Occ=Once!] :: Int)
    (tpl_B2 [Occ=Once] :: n_aDS) ->
    case tpl_B1 of _ { I# tpl_B4 [Occ=Once] ->
    case tpl_B2 of tpl_X8 { __DEFAULT ->
    MiddleFrag @ n_aDS tpl_B4 tpl_X8
    }
    }

$WLeftFrag [InlPrag=INLINE]
  :: forall n_aSR. n_aSR -> LeftFrag n_aSR
[GblId[DataConWrapper],
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType Sm,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=False)
         Tmpl= \ (@ n_aSR) (tpl_B1 [Occ=Once] :: n_aSR) ->
                 case tpl_B1 of tpl_X4 { __DEFAULT -> LeftFrag @ n_aSR tpl_X4 }}]
$WLeftFrag =
  \ (@ n_aSR) (tpl_B1 [Occ=Once] :: n_aSR) ->
    case tpl_B1 of tpl_X4 { __DEFAULT -> LeftFrag @ n_aSR tpl_X4 }

numDigits :: forall n_aSS. RightFrag n_aSS -> Int
[GblId[[RecSel]],
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType U(LU)m,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_d) (ds_d2n9 [Occ=Once!] :: RightFrag n_d) ->
                 case ds_d2n9 of _ { RightFrag rb_d2uq [Occ=Once] _ ->
                 I# rb_d2uq
                 }}]
numDigits =
  \ (@ n_d) (ds_d2n9 :: RightFrag n_d) ->
    case ds_d2n9 of _ { RightFrag rb_d2uq ds1_d2nb -> I# rb_d2uq }

partialParse :: forall n_aSS. RightFrag n_aSS -> n_aSS
[GblId[[RecSel]],
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType U(AS),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_e) (ds_d2nd [Occ=Once!] :: RightFrag n_e) ->
                 case ds_d2nd of _ { RightFrag _ ds1_d2nf [Occ=Once] -> ds1_d2nf }}]
partialParse =
  \ (@ n_e) (ds_d2nd :: RightFrag n_e) ->
    case ds_d2nd of _ { RightFrag rb_d2uo ds1_d2nf -> ds1_d2nf }

$fNFDataRightFrag_$crnf :: forall n_a1k7. RightFrag n_a1k7 -> ()
[GblId,
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType U(AU),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_a1k7) (ds_d2th [Occ=Once!] :: RightFrag n_a1k7) ->
                 case ds_d2th of _ { RightFrag _ _ -> () }}]
$fNFDataRightFrag_$crnf =
  \ (@ n_a1k7) (ds_d2th :: RightFrag n_a1k7) ->
    case ds_d2th of _ { RightFrag rb_d2ud ds1_d2tj -> () }

$fNFDataRightFrag [InlPrag=INLINE (sat-args=0)]
  :: forall n_a1k7. NFData (RightFrag n_a1k7)
[GblId[DFunId(nt)],
 Str=DmdType,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=True)
         Tmpl= $fNFDataRightFrag_$crnf
               `cast` (forall n_a1k7. Sym <(NTCo:NFData <RightFrag n_a1k7>)>
                       :: (forall n_a1k7. RightFrag n_a1k7 -> ())
                            ~#
                          (forall n_a1k7. NFData (RightFrag n_a1k7)))}]
$fNFDataRightFrag =
  $fNFDataRightFrag_$crnf
  `cast` (forall n_a1k7. Sym <(NTCo:NFData <RightFrag n_a1k7>)>
          :: (forall n_a1k7. RightFrag n_a1k7 -> ())
               ~#
             (forall n_a1k7. NFData (RightFrag n_a1k7)))

$fNFDataLeftFrag_$crnf :: forall n_a1k6. LeftFrag n_a1k6 -> ()
[GblId,
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType U(U),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_a1k6) (ds_d2te [Occ=Once!] :: LeftFrag n_a1k6) ->
                 case ds_d2te of _ { LeftFrag _ -> () }}]
$fNFDataLeftFrag_$crnf =
  \ (@ n_a1k6) (ds_d2te :: LeftFrag n_a1k6) ->
    case ds_d2te of _ { LeftFrag ds1_d2tf -> () }

$fNFDataLeftFrag [InlPrag=INLINE (sat-args=0)]
  :: forall n_a1k6. NFData (LeftFrag n_a1k6)
[GblId[DFunId(nt)],
 Str=DmdType,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=True)
         Tmpl= $fNFDataLeftFrag_$crnf
               `cast` (forall n_a1k6. Sym <(NTCo:NFData <LeftFrag n_a1k6>)>
                       :: (forall n_a1k6. LeftFrag n_a1k6 -> ())
                            ~#
                          (forall n_a1k6. NFData (LeftFrag n_a1k6)))}]
$fNFDataLeftFrag =
  $fNFDataLeftFrag_$crnf
  `cast` (forall n_a1k6. Sym <(NTCo:NFData <LeftFrag n_a1k6>)>
          :: (forall n_a1k6. LeftFrag n_a1k6 -> ())
               ~#
             (forall n_a1k6. NFData (LeftFrag n_a1k6)))

$fNFDataMiddleFrag_$crnf :: forall n_a1k5. MiddleFrag n_a1k5 -> ()
[GblId,
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType U(AU),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_a1k5) (ds_d2ta [Occ=Once!] :: MiddleFrag n_a1k5) ->
                 case ds_d2ta of _ { MiddleFrag _ _ -> () }}]
$fNFDataMiddleFrag_$crnf =
  \ (@ n_a1k5) (ds_d2ta :: MiddleFrag n_a1k5) ->
    case ds_d2ta of _ { MiddleFrag rb_d2ub ds1_d2tc -> () }

$fNFDataMiddleFrag [InlPrag=INLINE (sat-args=0)]
  :: forall n_a1k5. NFData (MiddleFrag n_a1k5)
[GblId[DFunId(nt)],
 Str=DmdType,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=True)
         Tmpl= $fNFDataMiddleFrag_$crnf
               `cast` (forall n_a1k5. Sym <(NTCo:NFData <MiddleFrag n_a1k5>)>
                       :: (forall n_a1k5. MiddleFrag n_a1k5 -> ())
                            ~#
                          (forall n_a1k5. NFData (MiddleFrag n_a1k5)))}]
$fNFDataMiddleFrag =
  $fNFDataMiddleFrag_$crnf
  `cast` (forall n_a1k5. Sym <(NTCo:NFData <MiddleFrag n_a1k5>)>
          :: (forall n_a1k5. MiddleFrag n_a1k5 -> ())
               ~#
             (forall n_a1k5. NFData (MiddleFrag n_a1k5)))

$fNFDataPartialNums_$crnf
  :: forall n_a1k0. PartialNums n_a1k0 -> ()
[GblId,
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType S,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
$fNFDataPartialNums_$crnf =
  \ (@ n_a1k0) (ds_d2t7 :: PartialNums n_a1k0) ->
    case ds_d2t7 of _ {
      Compound a_a1k1 b_a1k2 c_a1k3 -> ();
      Single a_a1k4 -> ()
    }

$fNFDataPartialNums [InlPrag=INLINE (sat-args=0)]
  :: forall n_a1k0. NFData (PartialNums n_a1k0)
[GblId[DFunId(nt)],
 Str=DmdType,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=False,boring_ok=True)
         Tmpl= $fNFDataPartialNums_$crnf
               `cast` (forall n_a1k0. Sym <(NTCo:NFData <PartialNums n_a1k0>)>
                       :: (forall n_a1k0. PartialNums n_a1k0 -> ())
                            ~#
                          (forall n_a1k0. NFData (PartialNums n_a1k0)))}]
$fNFDataPartialNums =
  $fNFDataPartialNums_$crnf
  `cast` (forall n_a1k0. Sym <(NTCo:NFData <PartialNums n_a1k0>)>
          :: (forall n_a1k0. PartialNums n_a1k0 -> ())
               ~#
             (forall n_a1k0. NFData (PartialNums n_a1k0)))

lvl_rbar :: [Char]
[GblId, Str=DmdType]
lvl_rbar = unpackCString# "partialParse"

lvl1_rbas :: [Char]
[GblId, Str=DmdType]
lvl1_rbas = unpackCString# "numDigits"

lvl2_rbat :: [Char]
[GblId, Str=DmdType]
lvl2_rbat = unpackCString# "RightFrag"

$fReadRightFrag2
  :: forall n_aSS. Read n_aSS => Prec -> ReadP (RightFrag n_aSS)
[GblId, Arity=2, Str=DmdType LL]
$fReadRightFrag2 =
  \ (@ n_X11v) ($dRead_a28D :: Read n_X11v) (eta_B1 :: Prec) ->
    let {
      ds_X3M0 :: ReadPrec n_X11v
      [LclId, Str=DmdType]
      ds_X3M0 = readPrec @ n_X11v $dRead_a28D } in
    let {
      lvl62_s98W
        :: forall b_a2vc. (RightFrag n_X11v -> P b_a2vc) -> P b_a2vc
      [LclId, Arity=1]
      lvl62_s98W =
        \ (@ b_a2vc) (eta1_X4q :: RightFrag n_X11v -> P b_a2vc) ->
          let {
            lvl63_s98X :: P b_a2vc
            [LclId]
            lvl63_s98X =
              $fReadInt5
                $fReadInt_$sconvertInt
                minPrec
                @ b_a2vc
                (\ (a1_X3Ln :: Int) ->
                   let {
                     lvl64_s98Y :: P b_a2vc
                     [LclId]
                     lvl64_s98Y =
                       (((ds_X3M0
                          `cast` (<NTCo:ReadPrec <n_X11v>>
                                  :: ReadPrec n_X11v ~# (Prec -> ReadP n_X11v)))
                           minPrec)
                        `cast` (<NTCo:ReadP <n_X11v>>
                                :: ReadP n_X11v
                                     ~#
                                   (forall b_a2vc. (n_X11v -> P b_a2vc) -> P b_a2vc)))
                         @ b_a2vc
                         (\ (a2_X3Po :: n_X11v) ->
                            let {
                              lvl65_s98Z :: P b_a2vc
                              [LclId]
                              lvl65_s98Z =
                                eta1_X4q
                                  (case a1_X3Ln of _ { I# tpl1_B4 ->
                                   case a2_X3Po of tpl2_X8 { __DEFAULT ->
                                   RightFrag @ n_X11v tpl1_B4 tpl2_X8
                                   }
                                   }) } in
                            lex1
                              @ b_a2vc
                              (\ (a3_X3Mq :: Lexeme) ->
                                 case a3_X3Mq of _ {
                                   __DEFAULT -> Fail @ b_a2vc;
                                   Punc ds1_d2pm ->
                                     case ds1_d2pm of _ {
                                       [] -> Fail @ b_a2vc;
                                       : ds2_d2pn ds3_d2po ->
                                         case ds2_d2pn of _ { C# ds4_d2pp ->
                                         case ds4_d2pp of _ {
                                           __DEFAULT -> Fail @ b_a2vc;
                                           '}' ->
                                             case ds3_d2po of _ {
                                               [] -> lvl65_s98Z;
                                               : ipv_s2w4 ipv1_s2w5 -> Fail @ b_a2vc
                                             }
                                         }
                                         }
                                     }
                                 })) } in
                   let {
                     k_a3Gg :: Lexeme -> P b_a2vc
                     [LclId, Arity=1]
                     k_a3Gg =
                       \ (a2_X3LX :: Lexeme) ->
                         case a2_X3LX of _ {
                           __DEFAULT -> Fail @ b_a2vc;
                           Punc ds1_d2px ->
                             case ds1_d2px of _ {
                               [] -> Fail @ b_a2vc;
                               : ds2_d2py ds3_d2pz ->
                                 case ds2_d2py of _ { C# ds4_d2pA ->
                                 case ds4_d2pA of _ {
                                   __DEFAULT -> Fail @ b_a2vc;
                                   '=' ->
                                     case ds3_d2pz of _ {
                                       [] -> lvl64_s98Y;
                                       : ipv_s2wb ipv1_s2wc -> Fail @ b_a2vc
                                     }
                                 }
                                 }
                             }
                         } } in
                   let {
                     lvl85_a3Gh :: P b_a2vc
                     [LclId]
                     lvl85_a3Gh = hsLex2 @ b_a2vc k_a3Gg } in
                   let {
                     k1_a3Gi :: () -> P b_a2vc
                     [LclId,
                      Arity=1,
                      Str=DmdType A,
                      Unf=Unf{Src=InlineStable, TopLvl=False, Arity=1, Value=True,
                              ConLike=True, WorkFree=True, Expandable=True,
                              Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
                              Tmpl= \ _ -> hsLex2 @ b_a2vc k_a3Gg}]
                     k1_a3Gi = \ _ -> lvl85_a3Gh } in
                   let {
                     a_s9au :: String -> P b_a2vc
                     [LclId, Arity=1]
                     a_s9au =
                       \ (a104_a3Gk :: String) ->
                         ((skipSpaces_skip a104_a3Gk)
                          `cast` (<NTCo:ReadP <()>>
                                  :: ReadP () ~# (forall b_a2vc. (() -> P b_a2vc) -> P b_a2vc)))
                           @ b_a2vc k1_a3Gi } in
                   let {
                     lvl65_s990 :: P b_a2vc
                     [LclId]
                     lvl65_s990 = Look @ b_a2vc a_s9au } in
                   let {
                     k2_X3Mg :: Lexeme -> P b_a2vc
                     [LclId, Arity=1]
                     k2_X3Mg =
                       \ (a2_X3LO :: Lexeme) ->
                         case a2_X3LO of _ {
                           __DEFAULT -> Fail @ b_a2vc;
                           Ident ds1_d2pI ->
                             case eqString ds1_d2pI lvl_rbar of _ {
                               False -> Fail @ b_a2vc;
                               True -> lvl65_s990
                             }
                         } } in
                   let {
                     lvl66_X3Mj :: P b_a2vc
                     [LclId]
                     lvl66_X3Mj = hsLex2 @ b_a2vc k2_X3Mg } in
                   let {
                     k3_X3Mm :: () -> P b_a2vc
                     [LclId,
                      Arity=1,
                      Str=DmdType A,
                      Unf=Unf{Src=InlineStable, TopLvl=False, Arity=1, Value=True,
                              ConLike=True, WorkFree=True, Expandable=True,
                              Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
                              Tmpl= \ _ -> hsLex2 @ b_a2vc k2_X3Mg}]
                     k3_X3Mm = \ _ -> lvl66_X3Mj } in
                   let {
                     a2_s9ay :: String -> P b_a2vc
                     [LclId, Arity=1]
                     a2_s9ay =
                       \ (a104_a3Gk :: String) ->
                         ((skipSpaces_skip a104_a3Gk)
                          `cast` (<NTCo:ReadP <()>>
                                  :: ReadP () ~# (forall b_a2vc. (() -> P b_a2vc) -> P b_a2vc)))
                           @ b_a2vc k3_X3Mm } in
                   let {
                     lvl67_s991 :: P b_a2vc
                     [LclId]
                     lvl67_s991 = Look @ b_a2vc a2_s9ay } in
                   lex1
                     @ b_a2vc
                     (\ (a3_X3Ls :: Lexeme) ->
                        case a3_X3Ls of _ {
                          __DEFAULT -> Fail @ b_a2vc;
                          Punc ds1_d2pN ->
                            case ds1_d2pN of _ {
                              [] -> Fail @ b_a2vc;
                              : ds2_d2pO ds3_d2pP ->
                                case ds2_d2pO of _ { C# ds4_d2pQ ->
                                case ds4_d2pQ of _ {
                                  __DEFAULT -> Fail @ b_a2vc;
                                  ',' ->
                                    case ds3_d2pP of _ {
                                      [] -> lvl67_s991;
                                      : ipv_s2we ipv1_s2wf -> Fail @ b_a2vc
                                    }
                                }
                                }
                            }
                        })) } in
          let {
            k_a3Gg :: Lexeme -> P b_a2vc
            [LclId, Arity=1]
            k_a3Gg =
              \ (a1_X3L1 :: Lexeme) ->
                case a1_X3L1 of _ {
                  __DEFAULT -> Fail @ b_a2vc;
                  Punc ds1_d2pY ->
                    case ds1_d2pY of _ {
                      [] -> Fail @ b_a2vc;
                      : ds2_d2pZ ds3_d2q0 ->
                        case ds2_d2pZ of _ { C# ds4_d2q1 ->
                        case ds4_d2q1 of _ {
                          __DEFAULT -> Fail @ b_a2vc;
                          '=' ->
                            case ds3_d2q0 of _ {
                              [] -> lvl63_s98X;
                              : ipv_s2wh ipv1_s2wi -> Fail @ b_a2vc
                            }
                        }
                        }
                    }
                } } in
          let {
            lvl85_a3Gh :: P b_a2vc
            [LclId]
            lvl85_a3Gh = hsLex2 @ b_a2vc k_a3Gg } in
          let {
            k1_a3Gi :: () -> P b_a2vc
            [LclId,
             Arity=1,
             Str=DmdType A,
             Unf=Unf{Src=InlineStable, TopLvl=False, Arity=1, Value=True,
                     ConLike=True, WorkFree=True, Expandable=True,
                     Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
                     Tmpl= \ _ -> hsLex2 @ b_a2vc k_a3Gg}]
            k1_a3Gi = \ _ -> lvl85_a3Gh } in
          let {
            a_s9aK :: String -> P b_a2vc
            [LclId, Arity=1]
            a_s9aK =
              \ (a104_a3Gk :: String) ->
                ((skipSpaces_skip a104_a3Gk)
                 `cast` (<NTCo:ReadP <()>>
                         :: ReadP () ~# (forall b_a2vc. (() -> P b_a2vc) -> P b_a2vc)))
                  @ b_a2vc k1_a3Gi } in
          let {
            lvl64_s992 :: P b_a2vc
            [LclId]
            lvl64_s992 = Look @ b_a2vc a_s9aK } in
          let {
            k2_X3Mc :: Lexeme -> P b_a2vc
            [LclId, Arity=1]
            k2_X3Mc =
              \ (a1_X3KS :: Lexeme) ->
                case a1_X3KS of _ {
                  __DEFAULT -> Fail @ b_a2vc;
                  Ident ds1_d2q9 ->
                    case eqString ds1_d2q9 lvl1_rbas of _ {
                      False -> Fail @ b_a2vc;
                      True -> lvl64_s992
                    }
                } } in
          let {
            lvl65_X3Mf :: P b_a2vc
            [LclId]
            lvl65_X3Mf = hsLex2 @ b_a2vc k2_X3Mc } in
          let {
            k3_X3Mi :: () -> P b_a2vc
            [LclId,
             Arity=1,
             Str=DmdType A,
             Unf=Unf{Src=InlineStable, TopLvl=False, Arity=1, Value=True,
                     ConLike=True, WorkFree=True, Expandable=True,
                     Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
                     Tmpl= \ _ -> hsLex2 @ b_a2vc k2_X3Mc}]
            k3_X3Mi = \ _ -> lvl65_X3Mf } in
          let {
            a1_s9aO :: String -> P b_a2vc
            [LclId, Arity=1]
            a1_s9aO =
              \ (a104_a3Gk :: String) ->
                ((skipSpaces_skip a104_a3Gk)
                 `cast` (<NTCo:ReadP <()>>
                         :: ReadP () ~# (forall b_a2vc. (() -> P b_a2vc) -> P b_a2vc)))
                  @ b_a2vc k3_X3Mi } in
          let {
            lvl66_s993 :: P b_a2vc
            [LclId]
            lvl66_s993 = Look @ b_a2vc a1_s9aO } in
          let {
            k4_X3Mk :: Lexeme -> P b_a2vc
            [LclId, Arity=1]
            k4_X3Mk =
              \ (a2_X3Kw :: Lexeme) ->
                case a2_X3Kw of _ {
                  __DEFAULT -> Fail @ b_a2vc;
                  Punc ds1_d2qe ->
                    case ds1_d2qe of _ {
                      [] -> Fail @ b_a2vc;
                      : ds2_d2qf ds3_d2qg ->
                        case ds2_d2qf of _ { C# ds4_d2qh ->
                        case ds4_d2qh of _ {
                          __DEFAULT -> Fail @ b_a2vc;
                          '{' ->
                            case ds3_d2qg of _ {
                              [] -> lvl66_s993;
                              : ipv_s2wk ipv1_s2wl -> Fail @ b_a2vc
                            }
                        }
                        }
                    }
                } } in
          let {
            lvl67_X3Mn :: P b_a2vc
            [LclId]
            lvl67_X3Mn = hsLex2 @ b_a2vc k4_X3Mk } in
          let {
            k5_X3Mq :: () -> P b_a2vc
            [LclId,
             Arity=1,
             Str=DmdType A,
             Unf=Unf{Src=InlineStable, TopLvl=False, Arity=1, Value=True,
                     ConLike=True, WorkFree=True, Expandable=True,
                     Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
                     Tmpl= \ _ -> hsLex2 @ b_a2vc k4_X3Mk}]
            k5_X3Mq = \ _ -> lvl67_X3Mn } in
          let {
            a2_s9aV :: String -> P b_a2vc
            [LclId, Arity=1]
            a2_s9aV =
              \ (a104_a3Gk :: String) ->
                ((skipSpaces_skip a104_a3Gk)
                 `cast` (<NTCo:ReadP <()>>
                         :: ReadP () ~# (forall b_a2vc. (() -> P b_a2vc) -> P b_a2vc)))
                  @ b_a2vc k5_X3Mq } in
          let {
            lvl68_s994 :: P b_a2vc
            [LclId]
            lvl68_s994 = Look @ b_a2vc a2_s9aV } in
          lex1
            @ b_a2vc
            (\ (a3_a3FW :: Lexeme) ->
               case a3_a3FW of _ {
                 __DEFAULT -> Fail @ b_a2vc;
                 Ident ds1_d2qp ->
                   case eqString ds1_d2qp lvl2_rbat of _ {
                     False -> Fail @ b_a2vc;
                     True -> lvl68_s994
                   }
               }) } in
    parens1
      @ (RightFrag n_X11v)
      ((\ (c_a3HE :: Prec) ->
          case c_a3HE of _ { I# x_a3HH ->
          case <=# x_a3HH 11 of _ {
            False ->
              (pfail1 @ (RightFrag n_X11v))
              `cast` (Sym <(NTCo:ReadP <RightFrag n_X11v>)>
                      :: (forall b_a2vc. (RightFrag n_X11v -> P b_a2vc) -> P b_a2vc)
                           ~#
                         ReadP (RightFrag n_X11v));
            True ->
              lvl62_s98W
              `cast` (Sym <(NTCo:ReadP <RightFrag n_X11v>)>
                      :: (forall b_a2vc. (RightFrag n_X11v -> P b_a2vc) -> P b_a2vc)
                           ~#
                         ReadP (RightFrag n_X11v))
          }
          })
       `cast` (Sym <(NTCo:ReadPrec <RightFrag n_X11v>)>
               :: (Prec -> ReadP (RightFrag n_X11v))
                    ~#
                  ReadPrec (RightFrag n_X11v)))
      eta_B1

$fReadRightFrag_$creadPrec
  :: forall n_aSS. Read n_aSS => ReadPrec (RightFrag n_aSS)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
$fReadRightFrag_$creadPrec =
  $fReadRightFrag2
  `cast` (forall n_X11w.
          <Read n_X11w> -> Sym <(NTCo:ReadPrec <RightFrag n_X11w>)>
          :: (forall n_X11w. Read n_X11w => Prec -> ReadP (RightFrag n_X11w))
               ~#
             (forall n_X11w. Read n_X11w => ReadPrec (RightFrag n_X11w)))

$fReadRightFrag_$creadsPrec
  :: forall n_aSS. Read n_aSS => Int -> ReadS (RightFrag n_aSS)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0] 51 60}]
$fReadRightFrag_$creadsPrec =
  \ (@ n_XUL) ($dRead_X2ax :: Read n_XUL) (eta_B1 :: Int) ->
    run
      @ (RightFrag n_XUL)
      ((($fReadRightFrag2 @ n_XUL $dRead_X2ax eta_B1)
        `cast` (<NTCo:ReadP <RightFrag n_XUL>>
                :: ReadP (RightFrag n_XUL)
                     ~#
                   (forall b_a2vc. (RightFrag n_XUL -> P b_a2vc) -> P b_a2vc)))
         @ (RightFrag n_XUL) ($fMonadP_$creturn @ (RightFrag n_XUL)))

$fReadRightFrag1
  :: forall n_XUN.
     Read n_XUN =>
     Prec -> forall b_a3Ib. ([RightFrag n_XUN] -> P b_a3Ib) -> P b_a3Ib
[GblId,
 Arity=3,
 Str=DmdType LAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XUN)
                 ($dRead_X2az [Occ=Once] :: Read n_XUN)
                 _
                 (@ b_a3Ib)
                 (eta1_a3Ic [Occ=Once] :: [RightFrag n_XUN] -> P b_a3Ib) ->
                 $wa
                   @ (RightFrag n_XUN)
                   (($fReadRightFrag2 @ n_XUN $dRead_X2az)
                    `cast` (Sym <(NTCo:ReadPrec <RightFrag n_XUN>)>
                            :: (Prec -> ReadP (RightFrag n_XUN))
                                 ~#
                               ReadPrec (RightFrag n_XUN)))
                   @ b_a3Ib
                   eta1_a3Ic}]
$fReadRightFrag1 =
  \ (@ n_XUN)
    ($dRead_X2az :: Read n_XUN)
    _
    (@ b_a3Ib)
    (eta1_a3Ic :: [RightFrag n_XUN] -> P b_a3Ib) ->
    $wa
      @ (RightFrag n_XUN)
      (($fReadRightFrag2 @ n_XUN $dRead_X2az)
       `cast` (Sym <(NTCo:ReadPrec <RightFrag n_XUN>)>
               :: (Prec -> ReadP (RightFrag n_XUN))
                    ~#
                  ReadPrec (RightFrag n_XUN)))
      @ b_a3Ib
      eta1_a3Ic

$fReadRightFrag_$creadListPrec
  :: forall n_aSS. Read n_aSS => ReadPrec [RightFrag n_aSS]
[GblId,
 Arity=3,
 Str=DmdType LAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= $fReadRightFrag1
               `cast` (forall n_XUN.
                       <Read n_XUN>
                       -> (<Prec> -> Sym <(NTCo:ReadP <[RightFrag n_XUN]>)>) ; Sym
                                                                                 <(NTCo:ReadPrec
                                                                                     <[RightFrag
                                                                                         n_XUN]>)>
                       :: (forall n_XUN.
                           Read n_XUN =>
                           Prec -> forall b_a2vc. ([RightFrag n_XUN] -> P b_a2vc) -> P b_a2vc)
                            ~#
                          (forall n_XUN. Read n_XUN => ReadPrec [RightFrag n_XUN]))}]
$fReadRightFrag_$creadListPrec =
  $fReadRightFrag1
  `cast` (forall n_XUN.
          <Read n_XUN>
          -> (<Prec> -> Sym <(NTCo:ReadP <[RightFrag n_XUN]>)>) ; Sym
                                                                    <(NTCo:ReadPrec
                                                                        <[RightFrag n_XUN]>)>
          :: (forall n_XUN.
              Read n_XUN =>
              Prec -> forall b_a2vc. ([RightFrag n_XUN] -> P b_a2vc) -> P b_a2vc)
               ~#
             (forall n_XUN. Read n_XUN => ReadPrec [RightFrag n_XUN]))

$fReadRightFrag_$creadList
  :: forall n_aSS. Read n_aSS => ReadS [RightFrag n_aSS]
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0] 70 60}]
$fReadRightFrag_$creadList =
  \ (@ n_XUO) ($dRead_X2aA :: Read n_XUO) ->
    run
      @ [RightFrag n_XUO]
      ($wa
         @ (RightFrag n_XUO)
         (($fReadRightFrag2 @ n_XUO $dRead_X2aA)
          `cast` (Sym <(NTCo:ReadPrec <RightFrag n_XUO>)>
                  :: (Prec -> ReadP (RightFrag n_XUO))
                       ~#
                     ReadPrec (RightFrag n_XUO)))
         @ [RightFrag n_XUO]
         ($fMonadP_$creturn @ [RightFrag n_XUO]))

$fReadRightFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aSS. Read n_aSS => Read (RightFrag n_aSS)
[GblId[DFunId],
 Arity=1,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Read [{$fReadRightFrag_$creadsPrec},
                           {$fReadRightFrag_$creadList}, {$fReadRightFrag_$creadPrec},
                           {$fReadRightFrag_$creadListPrec}]]
$fReadRightFrag =
  \ (@ n_XUM) ($dRead_X2ay :: Read n_XUM) ->
    D:Read
      @ (RightFrag n_XUM)
      ($fReadRightFrag_$creadsPrec @ n_XUM $dRead_X2ay)
      ($fReadRightFrag_$creadList @ n_XUM $dRead_X2ay)
      (($fReadRightFrag2 @ n_XUM $dRead_X2ay)
       `cast` (Sym <(NTCo:ReadPrec <RightFrag n_XUM>)>
               :: (Prec -> ReadP (RightFrag n_XUM))
                    ~#
                  ReadPrec (RightFrag n_XUM)))
      (($fReadRightFrag1 @ n_XUM $dRead_X2ay)
       `cast` ((<Prec> -> Sym <(NTCo:ReadP <[RightFrag n_XUM]>)>) ; Sym
                                                                      <(NTCo:ReadPrec
                                                                          <[RightFrag n_XUM]>)>
               :: (Prec
                   -> forall b_a2vc. ([RightFrag n_XUM] -> P b_a2vc) -> P b_a2vc)
                    ~#
                  ReadPrec [RightFrag n_XUM]))

$fOrdRightFrag_$c<=
  :: forall n_aSS.
     (Eq (RightFrag n_aSS), Ord n_aSS) =>
     RightFrag n_aSS -> RightFrag n_aSS -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XUP)
                 _
                 ($dOrd_a27Z [Occ=Once] :: Ord n_XUP)
                 (a_a1R9 [Occ=Once!] :: RightFrag n_XUP)
                 (b_a1Ra [Occ=Once!] :: RightFrag n_XUP) ->
                 case a_a1R9 of _ { RightFrag rb_d2u9 a2_a1Rc [Occ=Once] ->
                 case b_a1Ra of _ { RightFrag rb1_d2u7 b2_a1Re [Occ=Once] ->
                 case <# rb_d2u9 rb1_d2u7 of _ {
                   False ->
                     case ==# rb_d2u9 rb1_d2u7 of _ {
                       False -> False;
                       True -> <= @ n_XUP $dOrd_a27Z a2_a1Rc b2_a1Re
                     };
                   True -> True
                 }
                 }
                 }}]
$fOrdRightFrag_$c<= =
  \ (@ n_XUP)
    _
    ($dOrd_a27Z :: Ord n_XUP)
    (a_a1R9 :: RightFrag n_XUP)
    (b_a1Ra :: RightFrag n_XUP) ->
    case a_a1R9 of _ { RightFrag rb_d2u9 a2_a1Rc ->
    case b_a1Ra of _ { RightFrag rb1_d2u7 b2_a1Re ->
    case <# rb_d2u9 rb1_d2u7 of _ {
      False ->
        case ==# rb_d2u9 rb1_d2u7 of _ {
          False -> False;
          True -> <= @ n_XUP $dOrd_a27Z a2_a1Rc b2_a1Re
        };
      True -> True
    }
    }
    }

$fOrdRightFrag_$c>
  :: forall n_aSS.
     (Eq (RightFrag n_aSS), Ord n_aSS) =>
     RightFrag n_aSS -> RightFrag n_aSS -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XUQ)
                 _
                 ($dOrd_a27Z [Occ=Once] :: Ord n_XUQ)
                 (a_a1Rl [Occ=Once!] :: RightFrag n_XUQ)
                 (b_a1Rm [Occ=Once!] :: RightFrag n_XUQ) ->
                 case a_a1Rl of _ { RightFrag rb_d2u5 a2_a1Ro [Occ=Once] ->
                 case b_a1Rm of _ { RightFrag rb1_d2u3 b2_a1Rq [Occ=Once] ->
                 case <# rb_d2u5 rb1_d2u3 of _ {
                   False ->
                     case ==# rb_d2u5 rb1_d2u3 of _ {
                       False -> True;
                       True -> > @ n_XUQ $dOrd_a27Z a2_a1Ro b2_a1Rq
                     };
                   True -> False
                 }
                 }
                 }}]
$fOrdRightFrag_$c> =
  \ (@ n_XUQ)
    _
    ($dOrd_a27Z :: Ord n_XUQ)
    (a_a1Rl :: RightFrag n_XUQ)
    (b_a1Rm :: RightFrag n_XUQ) ->
    case a_a1Rl of _ { RightFrag rb_d2u5 a2_a1Ro ->
    case b_a1Rm of _ { RightFrag rb1_d2u3 b2_a1Rq ->
    case <# rb_d2u5 rb1_d2u3 of _ {
      False ->
        case ==# rb_d2u5 rb1_d2u3 of _ {
          False -> True;
          True -> > @ n_XUQ $dOrd_a27Z a2_a1Ro b2_a1Rq
        };
      True -> False
    }
    }
    }

$fOrdRightFrag_$c>=
  :: forall n_aSS.
     (Eq (RightFrag n_aSS), Ord n_aSS) =>
     RightFrag n_aSS -> RightFrag n_aSS -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XUR)
                 _
                 ($dOrd_a27Z [Occ=Once] :: Ord n_XUR)
                 (a_a1Rf [Occ=Once!] :: RightFrag n_XUR)
                 (b_a1Rg [Occ=Once!] :: RightFrag n_XUR) ->
                 case a_a1Rf of _ { RightFrag rb_d2u1 a2_a1Ri [Occ=Once] ->
                 case b_a1Rg of _ { RightFrag rb1_d2tZ b2_a1Rk [Occ=Once] ->
                 case <# rb_d2u1 rb1_d2tZ of _ {
                   False ->
                     case ==# rb_d2u1 rb1_d2tZ of _ {
                       False -> True;
                       True -> >= @ n_XUR $dOrd_a27Z a2_a1Ri b2_a1Rk
                     };
                   True -> False
                 }
                 }
                 }}]
$fOrdRightFrag_$c>= =
  \ (@ n_XUR)
    _
    ($dOrd_a27Z :: Ord n_XUR)
    (a_a1Rf :: RightFrag n_XUR)
    (b_a1Rg :: RightFrag n_XUR) ->
    case a_a1Rf of _ { RightFrag rb_d2u1 a2_a1Ri ->
    case b_a1Rg of _ { RightFrag rb1_d2tZ b2_a1Rk ->
    case <# rb_d2u1 rb1_d2tZ of _ {
      False ->
        case ==# rb_d2u1 rb1_d2tZ of _ {
          False -> True;
          True -> >= @ n_XUR $dOrd_a27Z a2_a1Ri b2_a1Rk
        };
      True -> False
    }
    }
    }

$fOrdRightFrag_$c<
  :: forall n_aSS.
     (Eq (RightFrag n_aSS), Ord n_aSS) =>
     RightFrag n_aSS -> RightFrag n_aSS -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XUS)
                 _
                 ($dOrd_a27Z [Occ=Once] :: Ord n_XUS)
                 (a_a1R3 [Occ=Once!] :: RightFrag n_XUS)
                 (b_a1R4 [Occ=Once!] :: RightFrag n_XUS) ->
                 case a_a1R3 of _ { RightFrag rb_d2tX a2_a1R6 [Occ=Once] ->
                 case b_a1R4 of _ { RightFrag rb1_d2tV b2_a1R8 [Occ=Once] ->
                 case <# rb_d2tX rb1_d2tV of _ {
                   False ->
                     case ==# rb_d2tX rb1_d2tV of _ {
                       False -> False;
                       True -> < @ n_XUS $dOrd_a27Z a2_a1R6 b2_a1R8
                     };
                   True -> True
                 }
                 }
                 }}]
$fOrdRightFrag_$c< =
  \ (@ n_XUS)
    _
    ($dOrd_a27Z :: Ord n_XUS)
    (a_a1R3 :: RightFrag n_XUS)
    (b_a1R4 :: RightFrag n_XUS) ->
    case a_a1R3 of _ { RightFrag rb_d2tX a2_a1R6 ->
    case b_a1R4 of _ { RightFrag rb1_d2tV b2_a1R8 ->
    case <# rb_d2tX rb1_d2tV of _ {
      False ->
        case ==# rb_d2tX rb1_d2tV of _ {
          False -> False;
          True -> < @ n_XUS $dOrd_a27Z a2_a1R6 b2_a1R8
        };
      True -> True
    }
    }
    }

$fOrdRightFrag_$ccompare
  :: forall n_aSS.
     (Eq (RightFrag n_aSS), Ord n_aSS) =>
     RightFrag n_aSS -> RightFrag n_aSS -> Ordering
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XUT)
                 _
                 ($dOrd_a27Z [Occ=Once] :: Ord n_XUT)
                 (a_a1QX [Occ=Once!] :: RightFrag n_XUT)
                 (b_a1QY [Occ=Once!] :: RightFrag n_XUT) ->
                 case a_a1QX of _ { RightFrag rb_d2tT a2_a1R0 [Occ=Once] ->
                 case b_a1QY of _ { RightFrag rb1_d2tR b2_a1R2 [Occ=Once] ->
                 case <# rb_d2tT rb1_d2tR of _ {
                   False ->
                     case ==# rb_d2tT rb1_d2tR of _ {
                       False -> GT;
                       True -> compare @ n_XUT $dOrd_a27Z a2_a1R0 b2_a1R2
                     };
                   True -> LT
                 }
                 }
                 }}]
$fOrdRightFrag_$ccompare =
  \ (@ n_XUT)
    _
    ($dOrd_a27Z :: Ord n_XUT)
    (a_a1QX :: RightFrag n_XUT)
    (b_a1QY :: RightFrag n_XUT) ->
    case a_a1QX of _ { RightFrag rb_d2tT a2_a1R0 ->
    case b_a1QY of _ { RightFrag rb1_d2tR b2_a1R2 ->
    case <# rb_d2tT rb1_d2tR of _ {
      False ->
        case ==# rb_d2tT rb1_d2tR of _ {
          False -> GT;
          True -> compare @ n_XUT $dOrd_a27Z a2_a1R0 b2_a1R2
        };
      True -> LT
    }
    }
    }

$fOrdRightFrag_$cmin [InlPrag=INLINE[0]]
  :: forall n_aSS.
     (Eq (RightFrag n_aSS), Ord n_aSS) =>
     RightFrag n_aSS -> RightFrag n_aSS -> RightFrag n_aSS
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*))m,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aSS)
                 _
                 (w1_s7Oe [Occ=Once] :: Ord n_aSS)
                 (w2_s7Of [Occ=Once!] :: RightFrag n_aSS)
                 (w3_s7Ok [Occ=Once!] :: RightFrag n_aSS) ->
                 case w2_s7Of of _ { RightFrag ww_s7Oh ww1_s7Oi ->
                 case w3_s7Ok of _ { RightFrag ww2_s7Om ww3_s7On ->
                 case <# ww_s7Oh ww2_s7Om of _ {
                   False ->
                     case ==# ww_s7Oh ww2_s7Om of _ {
                       False -> RightFrag @ n_aSS ww2_s7Om ww3_s7On;
                       True ->
                         case <= @ n_aSS w1_s7Oe ww1_s7Oi ww3_s7On of _ {
                           False -> RightFrag @ n_aSS ww2_s7Om ww3_s7On;
                           True -> RightFrag @ n_aSS ww_s7Oh ww1_s7Oi
                         }
                     };
                   True -> RightFrag @ n_aSS ww_s7Oh ww1_s7Oi
                 }
                 }
                 }}]
$fOrdRightFrag_$cmin =
  \ (@ n_aSS)
    _
    (w1_s7Oe :: Ord n_aSS)
    (w2_s7Of :: RightFrag n_aSS)
    (w3_s7Ok :: RightFrag n_aSS) ->
    case w2_s7Of of _ { RightFrag ww_s7Oh ww1_s7Oi ->
    case w3_s7Ok of _ { RightFrag ww2_s7Om ww3_s7On ->
    case <# ww_s7Oh ww2_s7Om of _ {
      False ->
        case ==# ww_s7Oh ww2_s7Om of _ {
          False -> RightFrag @ n_aSS ww2_s7Om ww3_s7On;
          True ->
            case <= @ n_aSS w1_s7Oe ww1_s7Oi ww3_s7On of _ {
              False -> RightFrag @ n_aSS ww2_s7Om ww3_s7On;
              True -> RightFrag @ n_aSS ww_s7Oh ww1_s7Oi
            }
        };
      True -> RightFrag @ n_aSS ww_s7Oh ww1_s7Oi
    }
    }
    }

$fOrdRightFrag_$cmax [InlPrag=INLINE[0]]
  :: forall n_aSS.
     (Eq (RightFrag n_aSS), Ord n_aSS) =>
     RightFrag n_aSS -> RightFrag n_aSS -> RightFrag n_aSS
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*))m,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aSS)
                 _
                 (w1_s7Ow [Occ=Once] :: Ord n_aSS)
                 (w2_s7Ox [Occ=Once!] :: RightFrag n_aSS)
                 (w3_s7OC [Occ=Once!] :: RightFrag n_aSS) ->
                 case w2_s7Ox of _ { RightFrag ww_s7Oz ww1_s7OA ->
                 case w3_s7OC of _ { RightFrag ww2_s7OE ww3_s7OF ->
                 case <# ww_s7Oz ww2_s7OE of _ {
                   False ->
                     case ==# ww_s7Oz ww2_s7OE of _ {
                       False -> RightFrag @ n_aSS ww_s7Oz ww1_s7OA;
                       True ->
                         case <= @ n_aSS w1_s7Ow ww1_s7OA ww3_s7OF of _ {
                           False -> RightFrag @ n_aSS ww_s7Oz ww1_s7OA;
                           True -> RightFrag @ n_aSS ww2_s7OE ww3_s7OF
                         }
                     };
                   True -> RightFrag @ n_aSS ww2_s7OE ww3_s7OF
                 }
                 }
                 }}]
$fOrdRightFrag_$cmax =
  \ (@ n_aSS)
    _
    (w1_s7Ow :: Ord n_aSS)
    (w2_s7Ox :: RightFrag n_aSS)
    (w3_s7OC :: RightFrag n_aSS) ->
    case w2_s7Ox of _ { RightFrag ww_s7Oz ww1_s7OA ->
    case w3_s7OC of _ { RightFrag ww2_s7OE ww3_s7OF ->
    case <# ww_s7Oz ww2_s7OE of _ {
      False ->
        case ==# ww_s7Oz ww2_s7OE of _ {
          False -> RightFrag @ n_aSS ww_s7Oz ww1_s7OA;
          True ->
            case <= @ n_aSS w1_s7Ow ww1_s7OA ww3_s7OF of _ {
              False -> RightFrag @ n_aSS ww_s7Oz ww1_s7OA;
              True -> RightFrag @ n_aSS ww2_s7OE ww3_s7OF
            }
        };
      True -> RightFrag @ n_aSS ww2_s7OE ww3_s7OF
    }
    }
    }

$fOrdRightFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aSS.
     (Eq (RightFrag n_aSS), Ord n_aSS) =>
     Ord (RightFrag n_aSS)
[GblId[DFunId[1]],
 Arity=2,
 Caf=NoCafRefs,
 Str=DmdType LLm,
 Unf=DFun(arity=3) D:Ord [<1>, {$fOrdRightFrag_$ccompare},
                          {$fOrdRightFrag_$c<}, {$fOrdRightFrag_$c>=}, {$fOrdRightFrag_$c>},
                          {$fOrdRightFrag_$c<=}, {$fOrdRightFrag_$cmax},
                          {$fOrdRightFrag_$cmin}]]
$fOrdRightFrag =
  \ (@ n_XUW)
    ($dEq_a27Y :: Eq (RightFrag n_XUW))
    ($dOrd_a27Z :: Ord n_XUW) ->
    D:Ord
      @ (RightFrag n_XUW)
      $dEq_a27Y
      ($fOrdRightFrag_$ccompare @ n_XUW $dEq_a27Y $dOrd_a27Z)
      ($fOrdRightFrag_$c< @ n_XUW $dEq_a27Y $dOrd_a27Z)
      ($fOrdRightFrag_$c>= @ n_XUW $dEq_a27Y $dOrd_a27Z)
      ($fOrdRightFrag_$c> @ n_XUW $dEq_a27Y $dOrd_a27Z)
      ($fOrdRightFrag_$c<= @ n_XUW $dEq_a27Y $dOrd_a27Z)
      ($fOrdRightFrag_$cmax @ n_XUW $dEq_a27Y $dOrd_a27Z)
      ($fOrdRightFrag_$cmin @ n_XUW $dEq_a27Y $dOrd_a27Z)

$fEqRightFrag_$c==
  :: forall n_aSS.
     Eq n_aSS =>
     RightFrag n_aSS -> RightFrag n_aSS -> Bool
[GblId,
 Arity=3,
 Caf=NoCafRefs,
 Str=DmdType LU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XUX)
                 ($dEq_a27L [Occ=Once] :: Eq n_XUX)
                 (ds_d2oD [Occ=Once!] :: RightFrag n_XUX)
                 (ds1_d2oE [Occ=Once!] :: RightFrag n_XUX) ->
                 case ds_d2oD
                 of _ { RightFrag rb_d2tP [Occ=Once] a2_a1QS [Occ=Once] ->
                 case ds1_d2oE
                 of _ { RightFrag rb1_d2tN [Occ=Once] b2_a1QU [Occ=Once] ->
                 case ==# rb_d2tP rb1_d2tN of _ {
                   False -> False;
                   True -> == @ n_XUX $dEq_a27L a2_a1QS b2_a1QU
                 }
                 }
                 }}]
$fEqRightFrag_$c== =
  \ (@ n_XUX)
    ($dEq_a27L :: Eq n_XUX)
    (ds_d2oD :: RightFrag n_XUX)
    (ds1_d2oE :: RightFrag n_XUX) ->
    case ds_d2oD of _ { RightFrag rb_d2tP a2_a1QS ->
    case ds1_d2oE of _ { RightFrag rb1_d2tN b2_a1QU ->
    case ==# rb_d2tP rb1_d2tN of _ {
      False -> False;
      True -> == @ n_XUX $dEq_a27L a2_a1QS b2_a1QU
    }
    }
    }

$fEqRightFrag_$c/= [InlPrag=INLINE[0]]
  :: forall n_aSS.
     Eq n_aSS =>
     RightFrag n_aSS -> RightFrag n_aSS -> Bool
[GblId,
 Arity=3,
 Caf=NoCafRefs,
 Str=DmdType LU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aSS)
                 (w_s7OM [Occ=Once] :: Eq n_aSS)
                 (w1_s7ON [Occ=Once!] :: RightFrag n_aSS)
                 (w2_s7OS [Occ=Once!] :: RightFrag n_aSS) ->
                 case w1_s7ON
                 of _ { RightFrag ww_s7OP [Occ=Once] ww1_s7OQ [Occ=Once] ->
                 case w2_s7OS
                 of _ { RightFrag ww2_s7OU [Occ=Once] ww3_s7OV [Occ=Once] ->
                 case ==# ww_s7OP ww2_s7OU of _ {
                   False -> True;
                   True ->
                     case == @ n_aSS w_s7OM ww1_s7OQ ww3_s7OV of _ {
                       False -> True;
                       True -> False
                     }
                 }
                 }
                 }}]
$fEqRightFrag_$c/= =
  \ (@ n_aSS)
    (w_s7OM :: Eq n_aSS)
    (w1_s7ON :: RightFrag n_aSS)
    (w2_s7OS :: RightFrag n_aSS) ->
    case w1_s7ON of _ { RightFrag ww_s7OP ww1_s7OQ ->
    case w2_s7OS of _ { RightFrag ww2_s7OU ww3_s7OV ->
    case ==# ww_s7OP ww2_s7OU of _ {
      False -> True;
      True ->
        case == @ n_aSS w_s7OM ww1_s7OQ ww3_s7OV of _ {
          False -> True;
          True -> False
        }
    }
    }
    }

$fEqRightFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aSS. Eq n_aSS => Eq (RightFrag n_aSS)
[GblId[DFunId],
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Eq [{$fEqRightFrag_$c==},
                         {$fEqRightFrag_$c/=}]]
$fEqRightFrag =
  \ (@ n_XUZ) ($dEq_a27L :: Eq n_XUZ) ->
    D:Eq
      @ (RightFrag n_XUZ)
      ($fEqRightFrag_$c== @ n_XUZ $dEq_a27L)
      ($fEqRightFrag_$c/= @ n_XUZ $dEq_a27L)

$fShowPartialNums6 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 60 0}]
$fShowPartialNums6 = unpackCString# "RightFrag {"

$fShowPartialNums5 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 60 0}]
$fShowPartialNums5 = unpackCString# "numDigits = "

$fShowPartialNums4 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 40 0}]
$fShowPartialNums4 = unpackCString# ", "

$fShowPartialNums3 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 70 0}]
$fShowPartialNums3 = unpackCString# "partialParse = "

$fShowPartialNums7 :: Int
[GblId,
 Caf=NoCafRefs,
 Str=DmdType m,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=False, Expandable=True,
         Guidance=IF_ARGS [] 10 20}]
$fShowPartialNums7 = I# 0

$fShowPartialNums2 :: Char
[GblId,
 Caf=NoCafRefs,
 Str=DmdType m,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=False, Expandable=True,
         Guidance=IF_ARGS [] 10 20}]
$fShowPartialNums2 = C# '}'

$w$cshowsPrec3
  :: forall n_aSS. Show n_aSS => Int# -> Int# -> n_aSS -> ShowS
[GblId,
 Arity=4,
 Str=DmdType LLLS,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [30 0 0 0] 321 120}]
$w$cshowsPrec3 =
  \ (@ n_aSS)
    (w_s7P1 :: Show n_aSS)
    (ww_s7P4 :: Int#)
    (ww1_s7P8 :: Int#)
    (ww2_s7P9 :: n_aSS) ->
    let {
      f_X2R3 [Dmd=Just L] :: String -> String
      [LclId, Str=DmdType]
      f_X2R3 = showsPrec @ n_aSS w_s7P1 $fShowPartialNums7 ww2_s7P9 } in
    let {
      p_a2xL :: ShowS
      [LclId, Arity=1, Str=DmdType L]
      p_a2xL =
        \ (x_X2HN :: String) ->
          ++
            @ Char
            $fShowPartialNums6
            (++
               @ Char
               $fShowPartialNums5
               (itos
                  ww1_s7P8
                  (++
                     @ Char
                     $fShowPartialNums4
                     (++
                        @ Char
                        $fShowPartialNums3
                        (f_X2R3 (: @ Char $fShowPartialNums2 x_X2HN)))))) } in
    case >=# ww_s7P4 11 of _ {
      False -> p_a2xL;
      True ->
        \ (x_a2xQ :: String) ->
          : @ Char shows11 (p_a2xL (: @ Char shows10 x_a2xQ))
    }

$fShowRightFrag_$cshowsPrec [InlPrag=INLINE[0]]
  :: forall n_aSS. Show n_aSS => Int -> RightFrag n_aSS -> ShowS
[GblId,
 Arity=3,
 Str=DmdType LU(L)U(LS),
 Unf=Unf{Src=Worker=$w$cshowsPrec3, TopLvl=True, Arity=3,
         Value=True, ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aSS)
                 (w_s7P1 [Occ=Once] :: Show n_aSS)
                 (w1_s7P2 [Occ=Once!] :: Int)
                 (w2_s7P6 [Occ=Once!] :: RightFrag n_aSS) ->
                 case w1_s7P2 of _ { I# ww_s7P4 [Occ=Once] ->
                 case w2_s7P6
                 of _ { RightFrag ww1_s7P8 [Occ=Once] ww2_s7P9 [Occ=Once] ->
                 $w$cshowsPrec3 @ n_aSS w_s7P1 ww_s7P4 ww1_s7P8 ww2_s7P9
                 }
                 }}]
$fShowRightFrag_$cshowsPrec =
  \ (@ n_aSS)
    (w_s7P1 :: Show n_aSS)
    (w1_s7P2 :: Int)
    (w2_s7P6 :: RightFrag n_aSS) ->
    case w1_s7P2 of _ { I# ww_s7P4 ->
    case w2_s7P6 of _ { RightFrag ww1_s7P8 ww2_s7P9 ->
    $w$cshowsPrec3 @ n_aSS w_s7P1 ww_s7P4 ww1_s7P8 ww2_s7P9
    }
    }

$fShowRightFrag_$cshowList
  :: forall n_aSS. Show n_aSS => [RightFrag n_aSS] -> ShowS
[GblId,
 Arity=3,
 Str=DmdType LSL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 0] 110 0}]
$fShowRightFrag_$cshowList =
  \ (@ n_XV1)
    ($dShow_a27u :: Show n_XV1)
    (eta_B2 :: [RightFrag n_XV1])
    (eta1_B1 :: String) ->
    showList__
      @ (RightFrag n_XV1)
      (\ (w_s7P6 :: RightFrag n_XV1) ->
         case w_s7P6 of _ { RightFrag ww_s7P8 ww1_s7P9 ->
         $w$cshowsPrec3 @ n_XV1 $dShow_a27u 0 ww_s7P8 ww1_s7P9
         })
      eta_B2
      eta1_B1

$fShowRightFrag_$cshow
  :: forall n_aSS. Show n_aSS => RightFrag n_aSS -> String
[GblId,
 Arity=2,
 Str=DmdType LU(LS),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XV3)
                 ($dShow_a27u [Occ=Once] :: Show n_XV3)
                 (x_a2yw [Occ=Once] :: RightFrag n_XV3) ->
                 $fShowRightFrag_$cshowsPrec
                   @ n_XV3 $dShow_a27u shows26 x_a2yw ([] @ Char)}]
$fShowRightFrag_$cshow =
  \ (@ n_XV3)
    ($dShow_a27u :: Show n_XV3)
    (x_a2yw :: RightFrag n_XV3) ->
    case x_a2yw of _ { RightFrag ww_s7P8 ww1_s7P9 ->
    $w$cshowsPrec3 @ n_XV3 $dShow_a27u 0 ww_s7P8 ww1_s7P9 ([] @ Char)
    }

$fShowRightFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aSS. Show n_aSS => Show (RightFrag n_aSS)
[GblId[DFunId],
 Arity=1,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Show [{$fShowRightFrag_$cshowsPrec},
                           {$fShowRightFrag_$cshow}, {$fShowRightFrag_$cshowList}]]
$fShowRightFrag =
  \ (@ n_XV2) ($dShow_a27u :: Show n_XV2) ->
    D:Show
      @ (RightFrag n_XV2)
      ($fShowRightFrag_$cshowsPrec @ n_XV2 $dShow_a27u)
      ($fShowRightFrag_$cshow @ n_XV2 $dShow_a27u)
      ($fShowRightFrag_$cshowList @ n_XV2 $dShow_a27u)

$fReadMiddleFrag3 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 60 0}]
$fReadMiddleFrag3 = unpackCString# "MiddleFrag"

$fReadLeftFrag4 :: Int
[GblId,
 Caf=NoCafRefs,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=False, Expandable=True,
         Guidance=IF_ARGS [] 10 20}]
$fReadLeftFrag4 = I# 11

$fReadMiddleFrag2
  :: forall n_aDS. Read n_aDS => Prec -> ReadP (MiddleFrag n_aDS)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [30 0] 343 0}]
$fReadMiddleFrag2 =
  \ (@ n_XNj) ($dRead_a26Y :: Read n_XNj) (eta_B1 :: Prec) ->
    let {
      ds_X3T8 :: ReadPrec n_XNj
      [LclId, Str=DmdType]
      ds_X3T8 = readPrec @ n_XNj $dRead_a26Y } in
    let {
      lvl62_s995
        :: forall b_a2vc. (MiddleFrag n_XNj -> P b_a2vc) -> P b_a2vc
      [LclId, Arity=1]
      lvl62_s995 =
        \ (@ b_a2vc) (eta1_X50 :: MiddleFrag n_XNj -> P b_a2vc) ->
          let {
            lvl63_s996 :: P b_a2vc
            [LclId]
            lvl63_s996 =
              $fReadInt5
                $fReadInt_$sconvertInt
                $fReadLeftFrag4
                @ b_a2vc
                (\ (a1_X3L6 :: Int) ->
                   (((ds_X3T8
                      `cast` (<NTCo:ReadPrec <n_XNj>>
                              :: ReadPrec n_XNj ~# (Prec -> ReadP n_XNj)))
                       $fReadLeftFrag4)
                    `cast` (<NTCo:ReadP <n_XNj>>
                            :: ReadP n_XNj
                                 ~#
                               (forall b_a2vc. (n_XNj -> P b_a2vc) -> P b_a2vc)))
                     @ b_a2vc
                     (\ (a2_X3Lb :: n_XNj) ->
                        eta1_X50
                          (case a1_X3L6 of _ { I# tpl1_B4 ->
                           case a2_X3Lb of tpl2_X8 { __DEFAULT ->
                           MiddleFrag @ n_XNj tpl1_B4 tpl2_X8
                           }
                           }))) } in
          lex1
            @ b_a2vc
            (\ (a1_a3FW :: Lexeme) ->
               case a1_a3FW of _ {
                 __DEFAULT -> Fail @ b_a2vc;
                 Ident ds1_d2ox ->
                   case eqString ds1_d2ox $fReadMiddleFrag3 of _ {
                     False -> Fail @ b_a2vc;
                     True -> lvl63_s996
                   }
               }) } in
    parens1
      @ (MiddleFrag n_XNj)
      ((\ (c_a3HE :: Prec) ->
          case c_a3HE of _ { I# x_a3HH ->
          case <=# x_a3HH 10 of _ {
            False ->
              (pfail1 @ (MiddleFrag n_XNj))
              `cast` (Sym <(NTCo:ReadP <MiddleFrag n_XNj>)>
                      :: (forall b_a2vc. (MiddleFrag n_XNj -> P b_a2vc) -> P b_a2vc)
                           ~#
                         ReadP (MiddleFrag n_XNj));
            True ->
              lvl62_s995
              `cast` (Sym <(NTCo:ReadP <MiddleFrag n_XNj>)>
                      :: (forall b_a2vc. (MiddleFrag n_XNj -> P b_a2vc) -> P b_a2vc)
                           ~#
                         ReadP (MiddleFrag n_XNj))
          }
          })
       `cast` (Sym <(NTCo:ReadPrec <MiddleFrag n_XNj>)>
               :: (Prec -> ReadP (MiddleFrag n_XNj))
                    ~#
                  ReadPrec (MiddleFrag n_XNj)))
      eta_B1

$fReadMiddleFrag_$creadPrec
  :: forall n_aDS. Read n_aDS => ReadPrec (MiddleFrag n_aDS)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
$fReadMiddleFrag_$creadPrec =
  $fReadMiddleFrag2
  `cast` (forall n_XNk.
          <Read n_XNk> -> Sym <(NTCo:ReadPrec <MiddleFrag n_XNk>)>
          :: (forall n_XNk. Read n_XNk => Prec -> ReadP (MiddleFrag n_XNk))
               ~#
             (forall n_XNk. Read n_XNk => ReadPrec (MiddleFrag n_XNk)))

$fReadMiddleFrag_$creadsPrec
  :: forall n_aDS. Read n_aDS => Int -> ReadS (MiddleFrag n_aDS)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0] 51 60}]
$fReadMiddleFrag_$creadsPrec =
  \ (@ n_XG8) ($dRead_X29f :: Read n_XG8) (eta_B1 :: Int) ->
    run
      @ (MiddleFrag n_XG8)
      ((($fReadMiddleFrag2 @ n_XG8 $dRead_X29f eta_B1)
        `cast` (<NTCo:ReadP <MiddleFrag n_XG8>>
                :: ReadP (MiddleFrag n_XG8)
                     ~#
                   (forall b_a2vc. (MiddleFrag n_XG8 -> P b_a2vc) -> P b_a2vc)))
         @ (MiddleFrag n_XG8) ($fMonadP_$creturn @ (MiddleFrag n_XG8)))

$fReadMiddleFrag1
  :: forall n_XGa.
     Read n_XGa =>
     Prec -> forall b_a3Ib. ([MiddleFrag n_XGa] -> P b_a3Ib) -> P b_a3Ib
[GblId,
 Arity=3,
 Str=DmdType LAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XGa)
                 ($dRead_X29h [Occ=Once] :: Read n_XGa)
                 _
                 (@ b_a3Ib)
                 (eta1_a3Ic [Occ=Once] :: [MiddleFrag n_XGa] -> P b_a3Ib) ->
                 $wa
                   @ (MiddleFrag n_XGa)
                   (($fReadMiddleFrag2 @ n_XGa $dRead_X29h)
                    `cast` (Sym <(NTCo:ReadPrec <MiddleFrag n_XGa>)>
                            :: (Prec -> ReadP (MiddleFrag n_XGa))
                                 ~#
                               ReadPrec (MiddleFrag n_XGa)))
                   @ b_a3Ib
                   eta1_a3Ic}]
$fReadMiddleFrag1 =
  \ (@ n_XGa)
    ($dRead_X29h :: Read n_XGa)
    _
    (@ b_a3Ib)
    (eta1_a3Ic :: [MiddleFrag n_XGa] -> P b_a3Ib) ->
    $wa
      @ (MiddleFrag n_XGa)
      (($fReadMiddleFrag2 @ n_XGa $dRead_X29h)
       `cast` (Sym <(NTCo:ReadPrec <MiddleFrag n_XGa>)>
               :: (Prec -> ReadP (MiddleFrag n_XGa))
                    ~#
                  ReadPrec (MiddleFrag n_XGa)))
      @ b_a3Ib
      eta1_a3Ic

$fReadMiddleFrag_$creadListPrec
  :: forall n_aDS. Read n_aDS => ReadPrec [MiddleFrag n_aDS]
[GblId,
 Arity=3,
 Str=DmdType LAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= $fReadMiddleFrag1
               `cast` (forall n_XGa.
                       <Read n_XGa>
                       -> (<Prec> -> Sym <(NTCo:ReadP <[MiddleFrag n_XGa]>)>) ; Sym
                                                                                  <(NTCo:ReadPrec
                                                                                      <[MiddleFrag
                                                                                          n_XGa]>)>
                       :: (forall n_XGa.
                           Read n_XGa =>
                           Prec
                           -> forall b_a2vc. ([MiddleFrag n_XGa] -> P b_a2vc) -> P b_a2vc)
                            ~#
                          (forall n_XGa. Read n_XGa => ReadPrec [MiddleFrag n_XGa]))}]
$fReadMiddleFrag_$creadListPrec =
  $fReadMiddleFrag1
  `cast` (forall n_XGa.
          <Read n_XGa>
          -> (<Prec> -> Sym <(NTCo:ReadP <[MiddleFrag n_XGa]>)>) ; Sym
                                                                     <(NTCo:ReadPrec
                                                                         <[MiddleFrag n_XGa]>)>
          :: (forall n_XGa.
              Read n_XGa =>
              Prec
              -> forall b_a2vc. ([MiddleFrag n_XGa] -> P b_a2vc) -> P b_a2vc)
               ~#
             (forall n_XGa. Read n_XGa => ReadPrec [MiddleFrag n_XGa]))

$fReadMiddleFrag_$creadList
  :: forall n_aDS. Read n_aDS => ReadS [MiddleFrag n_aDS]
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0] 70 60}]
$fReadMiddleFrag_$creadList =
  \ (@ n_XGb) ($dRead_X29i :: Read n_XGb) ->
    run
      @ [MiddleFrag n_XGb]
      ($wa
         @ (MiddleFrag n_XGb)
         (($fReadMiddleFrag2 @ n_XGb $dRead_X29i)
          `cast` (Sym <(NTCo:ReadPrec <MiddleFrag n_XGb>)>
                  :: (Prec -> ReadP (MiddleFrag n_XGb))
                       ~#
                     ReadPrec (MiddleFrag n_XGb)))
         @ [MiddleFrag n_XGb]
         ($fMonadP_$creturn @ [MiddleFrag n_XGb]))

$fReadMiddleFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aDS. Read n_aDS => Read (MiddleFrag n_aDS)
[GblId[DFunId],
 Arity=1,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Read [{$fReadMiddleFrag_$creadsPrec},
                           {$fReadMiddleFrag_$creadList}, {$fReadMiddleFrag_$creadPrec},
                           {$fReadMiddleFrag_$creadListPrec}]]
$fReadMiddleFrag =
  \ (@ n_XG9) ($dRead_X29g :: Read n_XG9) ->
    D:Read
      @ (MiddleFrag n_XG9)
      ($fReadMiddleFrag_$creadsPrec @ n_XG9 $dRead_X29g)
      ($fReadMiddleFrag_$creadList @ n_XG9 $dRead_X29g)
      (($fReadMiddleFrag2 @ n_XG9 $dRead_X29g)
       `cast` (Sym <(NTCo:ReadPrec <MiddleFrag n_XG9>)>
               :: (Prec -> ReadP (MiddleFrag n_XG9))
                    ~#
                  ReadPrec (MiddleFrag n_XG9)))
      (($fReadMiddleFrag1 @ n_XG9 $dRead_X29g)
       `cast` ((<Prec> -> Sym <(NTCo:ReadP <[MiddleFrag n_XG9]>)>) ; Sym
                                                                       <(NTCo:ReadPrec
                                                                           <[MiddleFrag n_XG9]>)>
               :: (Prec
                   -> forall b_a2vc. ([MiddleFrag n_XG9] -> P b_a2vc) -> P b_a2vc)
                    ~#
                  ReadPrec [MiddleFrag n_XG9]))

$fOrdMiddleFrag_$c<=
  :: forall n_aDS.
     (Eq (MiddleFrag n_aDS), Ord n_aDS) =>
     MiddleFrag n_aDS -> MiddleFrag n_aDS -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XGc)
                 _
                 ($dOrd_a26k [Occ=Once] :: Ord n_XGc)
                 (a_a1Qu [Occ=Once!] :: MiddleFrag n_XGc)
                 (b_a1Qv [Occ=Once!] :: MiddleFrag n_XGc) ->
                 case a_a1Qu of _ { MiddleFrag rb_d2tJ a2_a1Qx [Occ=Once] ->
                 case b_a1Qv of _ { MiddleFrag rb1_d2tH b2_a1Qz [Occ=Once] ->
                 case <# rb_d2tJ rb1_d2tH of _ {
                   False ->
                     case ==# rb_d2tJ rb1_d2tH of _ {
                       False -> False;
                       True -> <= @ n_XGc $dOrd_a26k a2_a1Qx b2_a1Qz
                     };
                   True -> True
                 }
                 }
                 }}]
$fOrdMiddleFrag_$c<= =
  \ (@ n_XGc)
    _
    ($dOrd_a26k :: Ord n_XGc)
    (a_a1Qu :: MiddleFrag n_XGc)
    (b_a1Qv :: MiddleFrag n_XGc) ->
    case a_a1Qu of _ { MiddleFrag rb_d2tJ a2_a1Qx ->
    case b_a1Qv of _ { MiddleFrag rb1_d2tH b2_a1Qz ->
    case <# rb_d2tJ rb1_d2tH of _ {
      False ->
        case ==# rb_d2tJ rb1_d2tH of _ {
          False -> False;
          True -> <= @ n_XGc $dOrd_a26k a2_a1Qx b2_a1Qz
        };
      True -> True
    }
    }
    }

$fOrdMiddleFrag_$c>
  :: forall n_aDS.
     (Eq (MiddleFrag n_aDS), Ord n_aDS) =>
     MiddleFrag n_aDS -> MiddleFrag n_aDS -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XGd)
                 _
                 ($dOrd_a26k [Occ=Once] :: Ord n_XGd)
                 (a_a1QG [Occ=Once!] :: MiddleFrag n_XGd)
                 (b_a1QH [Occ=Once!] :: MiddleFrag n_XGd) ->
                 case a_a1QG of _ { MiddleFrag rb_d2tF a2_a1QJ [Occ=Once] ->
                 case b_a1QH of _ { MiddleFrag rb1_d2tD b2_a1QL [Occ=Once] ->
                 case <# rb_d2tF rb1_d2tD of _ {
                   False ->
                     case ==# rb_d2tF rb1_d2tD of _ {
                       False -> True;
                       True -> > @ n_XGd $dOrd_a26k a2_a1QJ b2_a1QL
                     };
                   True -> False
                 }
                 }
                 }}]
$fOrdMiddleFrag_$c> =
  \ (@ n_XGd)
    _
    ($dOrd_a26k :: Ord n_XGd)
    (a_a1QG :: MiddleFrag n_XGd)
    (b_a1QH :: MiddleFrag n_XGd) ->
    case a_a1QG of _ { MiddleFrag rb_d2tF a2_a1QJ ->
    case b_a1QH of _ { MiddleFrag rb1_d2tD b2_a1QL ->
    case <# rb_d2tF rb1_d2tD of _ {
      False ->
        case ==# rb_d2tF rb1_d2tD of _ {
          False -> True;
          True -> > @ n_XGd $dOrd_a26k a2_a1QJ b2_a1QL
        };
      True -> False
    }
    }
    }

$fOrdMiddleFrag_$c>=
  :: forall n_aDS.
     (Eq (MiddleFrag n_aDS), Ord n_aDS) =>
     MiddleFrag n_aDS -> MiddleFrag n_aDS -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XGe)
                 _
                 ($dOrd_a26k [Occ=Once] :: Ord n_XGe)
                 (a_a1QA [Occ=Once!] :: MiddleFrag n_XGe)
                 (b_a1QB [Occ=Once!] :: MiddleFrag n_XGe) ->
                 case a_a1QA of _ { MiddleFrag rb_d2tB a2_a1QD [Occ=Once] ->
                 case b_a1QB of _ { MiddleFrag rb1_d2tz b2_a1QF [Occ=Once] ->
                 case <# rb_d2tB rb1_d2tz of _ {
                   False ->
                     case ==# rb_d2tB rb1_d2tz of _ {
                       False -> True;
                       True -> >= @ n_XGe $dOrd_a26k a2_a1QD b2_a1QF
                     };
                   True -> False
                 }
                 }
                 }}]
$fOrdMiddleFrag_$c>= =
  \ (@ n_XGe)
    _
    ($dOrd_a26k :: Ord n_XGe)
    (a_a1QA :: MiddleFrag n_XGe)
    (b_a1QB :: MiddleFrag n_XGe) ->
    case a_a1QA of _ { MiddleFrag rb_d2tB a2_a1QD ->
    case b_a1QB of _ { MiddleFrag rb1_d2tz b2_a1QF ->
    case <# rb_d2tB rb1_d2tz of _ {
      False ->
        case ==# rb_d2tB rb1_d2tz of _ {
          False -> True;
          True -> >= @ n_XGe $dOrd_a26k a2_a1QD b2_a1QF
        };
      True -> False
    }
    }
    }

$fOrdMiddleFrag_$c<
  :: forall n_aDS.
     (Eq (MiddleFrag n_aDS), Ord n_aDS) =>
     MiddleFrag n_aDS -> MiddleFrag n_aDS -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XGf)
                 _
                 ($dOrd_a26k [Occ=Once] :: Ord n_XGf)
                 (a_a1Qo [Occ=Once!] :: MiddleFrag n_XGf)
                 (b_a1Qp [Occ=Once!] :: MiddleFrag n_XGf) ->
                 case a_a1Qo of _ { MiddleFrag rb_d2tx a2_a1Qr [Occ=Once] ->
                 case b_a1Qp of _ { MiddleFrag rb1_d2tv b2_a1Qt [Occ=Once] ->
                 case <# rb_d2tx rb1_d2tv of _ {
                   False ->
                     case ==# rb_d2tx rb1_d2tv of _ {
                       False -> False;
                       True -> < @ n_XGf $dOrd_a26k a2_a1Qr b2_a1Qt
                     };
                   True -> True
                 }
                 }
                 }}]
$fOrdMiddleFrag_$c< =
  \ (@ n_XGf)
    _
    ($dOrd_a26k :: Ord n_XGf)
    (a_a1Qo :: MiddleFrag n_XGf)
    (b_a1Qp :: MiddleFrag n_XGf) ->
    case a_a1Qo of _ { MiddleFrag rb_d2tx a2_a1Qr ->
    case b_a1Qp of _ { MiddleFrag rb1_d2tv b2_a1Qt ->
    case <# rb_d2tx rb1_d2tv of _ {
      False ->
        case ==# rb_d2tx rb1_d2tv of _ {
          False -> False;
          True -> < @ n_XGf $dOrd_a26k a2_a1Qr b2_a1Qt
        };
      True -> True
    }
    }
    }

$fOrdMiddleFrag_$ccompare
  :: forall n_aDS.
     (Eq (MiddleFrag n_aDS), Ord n_aDS) =>
     MiddleFrag n_aDS -> MiddleFrag n_aDS -> Ordering
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XGg)
                 _
                 ($dOrd_a26k [Occ=Once] :: Ord n_XGg)
                 (a_a1Qi [Occ=Once!] :: MiddleFrag n_XGg)
                 (b_a1Qj [Occ=Once!] :: MiddleFrag n_XGg) ->
                 case a_a1Qi of _ { MiddleFrag rb_d2tt a2_a1Ql [Occ=Once] ->
                 case b_a1Qj of _ { MiddleFrag rb1_d2tr b2_a1Qn [Occ=Once] ->
                 case <# rb_d2tt rb1_d2tr of _ {
                   False ->
                     case ==# rb_d2tt rb1_d2tr of _ {
                       False -> GT;
                       True -> compare @ n_XGg $dOrd_a26k a2_a1Ql b2_a1Qn
                     };
                   True -> LT
                 }
                 }
                 }}]
$fOrdMiddleFrag_$ccompare =
  \ (@ n_XGg)
    _
    ($dOrd_a26k :: Ord n_XGg)
    (a_a1Qi :: MiddleFrag n_XGg)
    (b_a1Qj :: MiddleFrag n_XGg) ->
    case a_a1Qi of _ { MiddleFrag rb_d2tt a2_a1Ql ->
    case b_a1Qj of _ { MiddleFrag rb1_d2tr b2_a1Qn ->
    case <# rb_d2tt rb1_d2tr of _ {
      False ->
        case ==# rb_d2tt rb1_d2tr of _ {
          False -> GT;
          True -> compare @ n_XGg $dOrd_a26k a2_a1Ql b2_a1Qn
        };
      True -> LT
    }
    }
    }

$fOrdMiddleFrag_$cmin [InlPrag=INLINE[0]]
  :: forall n_aDS.
     (Eq (MiddleFrag n_aDS), Ord n_aDS) =>
     MiddleFrag n_aDS -> MiddleFrag n_aDS -> MiddleFrag n_aDS
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*))m,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aDS)
                 _
                 (w1_s7Ph [Occ=Once] :: Ord n_aDS)
                 (w2_s7Pi [Occ=Once!] :: MiddleFrag n_aDS)
                 (w3_s7Pn [Occ=Once!] :: MiddleFrag n_aDS) ->
                 case w2_s7Pi of _ { MiddleFrag ww_s7Pk ww1_s7Pl ->
                 case w3_s7Pn of _ { MiddleFrag ww2_s7Pp ww3_s7Pq ->
                 case <# ww_s7Pk ww2_s7Pp of _ {
                   False ->
                     case ==# ww_s7Pk ww2_s7Pp of _ {
                       False -> MiddleFrag @ n_aDS ww2_s7Pp ww3_s7Pq;
                       True ->
                         case <= @ n_aDS w1_s7Ph ww1_s7Pl ww3_s7Pq of _ {
                           False -> MiddleFrag @ n_aDS ww2_s7Pp ww3_s7Pq;
                           True -> MiddleFrag @ n_aDS ww_s7Pk ww1_s7Pl
                         }
                     };
                   True -> MiddleFrag @ n_aDS ww_s7Pk ww1_s7Pl
                 }
                 }
                 }}]
$fOrdMiddleFrag_$cmin =
  \ (@ n_aDS)
    _
    (w1_s7Ph :: Ord n_aDS)
    (w2_s7Pi :: MiddleFrag n_aDS)
    (w3_s7Pn :: MiddleFrag n_aDS) ->
    case w2_s7Pi of _ { MiddleFrag ww_s7Pk ww1_s7Pl ->
    case w3_s7Pn of _ { MiddleFrag ww2_s7Pp ww3_s7Pq ->
    case <# ww_s7Pk ww2_s7Pp of _ {
      False ->
        case ==# ww_s7Pk ww2_s7Pp of _ {
          False -> MiddleFrag @ n_aDS ww2_s7Pp ww3_s7Pq;
          True ->
            case <= @ n_aDS w1_s7Ph ww1_s7Pl ww3_s7Pq of _ {
              False -> MiddleFrag @ n_aDS ww2_s7Pp ww3_s7Pq;
              True -> MiddleFrag @ n_aDS ww_s7Pk ww1_s7Pl
            }
        };
      True -> MiddleFrag @ n_aDS ww_s7Pk ww1_s7Pl
    }
    }
    }

$fOrdMiddleFrag_$cmax [InlPrag=INLINE[0]]
  :: forall n_aDS.
     (Eq (MiddleFrag n_aDS), Ord n_aDS) =>
     MiddleFrag n_aDS -> MiddleFrag n_aDS -> MiddleFrag n_aDS
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType ALU(LU(L*))U(LU(L*))m,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aDS)
                 _
                 (w1_s7Pz [Occ=Once] :: Ord n_aDS)
                 (w2_s7PA [Occ=Once!] :: MiddleFrag n_aDS)
                 (w3_s7PF [Occ=Once!] :: MiddleFrag n_aDS) ->
                 case w2_s7PA of _ { MiddleFrag ww_s7PC ww1_s7PD ->
                 case w3_s7PF of _ { MiddleFrag ww2_s7PH ww3_s7PI ->
                 case <# ww_s7PC ww2_s7PH of _ {
                   False ->
                     case ==# ww_s7PC ww2_s7PH of _ {
                       False -> MiddleFrag @ n_aDS ww_s7PC ww1_s7PD;
                       True ->
                         case <= @ n_aDS w1_s7Pz ww1_s7PD ww3_s7PI of _ {
                           False -> MiddleFrag @ n_aDS ww_s7PC ww1_s7PD;
                           True -> MiddleFrag @ n_aDS ww2_s7PH ww3_s7PI
                         }
                     };
                   True -> MiddleFrag @ n_aDS ww2_s7PH ww3_s7PI
                 }
                 }
                 }}]
$fOrdMiddleFrag_$cmax =
  \ (@ n_aDS)
    _
    (w1_s7Pz :: Ord n_aDS)
    (w2_s7PA :: MiddleFrag n_aDS)
    (w3_s7PF :: MiddleFrag n_aDS) ->
    case w2_s7PA of _ { MiddleFrag ww_s7PC ww1_s7PD ->
    case w3_s7PF of _ { MiddleFrag ww2_s7PH ww3_s7PI ->
    case <# ww_s7PC ww2_s7PH of _ {
      False ->
        case ==# ww_s7PC ww2_s7PH of _ {
          False -> MiddleFrag @ n_aDS ww_s7PC ww1_s7PD;
          True ->
            case <= @ n_aDS w1_s7Pz ww1_s7PD ww3_s7PI of _ {
              False -> MiddleFrag @ n_aDS ww_s7PC ww1_s7PD;
              True -> MiddleFrag @ n_aDS ww2_s7PH ww3_s7PI
            }
        };
      True -> MiddleFrag @ n_aDS ww2_s7PH ww3_s7PI
    }
    }
    }

$fOrdMiddleFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aDS.
     (Eq (MiddleFrag n_aDS), Ord n_aDS) =>
     Ord (MiddleFrag n_aDS)
[GblId[DFunId[1]],
 Arity=2,
 Caf=NoCafRefs,
 Str=DmdType LLm,
 Unf=DFun(arity=3) D:Ord [<1>, {$fOrdMiddleFrag_$ccompare},
                          {$fOrdMiddleFrag_$c<}, {$fOrdMiddleFrag_$c>=},
                          {$fOrdMiddleFrag_$c>}, {$fOrdMiddleFrag_$c<=},
                          {$fOrdMiddleFrag_$cmax}, {$fOrdMiddleFrag_$cmin}]]
$fOrdMiddleFrag =
  \ (@ n_XGj)
    ($dEq_a26j :: Eq (MiddleFrag n_XGj))
    ($dOrd_a26k :: Ord n_XGj) ->
    D:Ord
      @ (MiddleFrag n_XGj)
      $dEq_a26j
      ($fOrdMiddleFrag_$ccompare @ n_XGj $dEq_a26j $dOrd_a26k)
      ($fOrdMiddleFrag_$c< @ n_XGj $dEq_a26j $dOrd_a26k)
      ($fOrdMiddleFrag_$c>= @ n_XGj $dEq_a26j $dOrd_a26k)
      ($fOrdMiddleFrag_$c> @ n_XGj $dEq_a26j $dOrd_a26k)
      ($fOrdMiddleFrag_$c<= @ n_XGj $dEq_a26j $dOrd_a26k)
      ($fOrdMiddleFrag_$cmax @ n_XGj $dEq_a26j $dOrd_a26k)
      ($fOrdMiddleFrag_$cmin @ n_XGj $dEq_a26j $dOrd_a26k)

$fEqMiddleFrag_$c==
  :: forall n_aDS.
     Eq n_aDS =>
     MiddleFrag n_aDS -> MiddleFrag n_aDS -> Bool
[GblId,
 Arity=3,
 Caf=NoCafRefs,
 Str=DmdType LU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XGk)
                 ($dEq_a266 [Occ=Once] :: Eq n_XGk)
                 (ds_d2nO [Occ=Once!] :: MiddleFrag n_XGk)
                 (ds1_d2nP [Occ=Once!] :: MiddleFrag n_XGk) ->
                 case ds_d2nO
                 of _ { MiddleFrag rb_d2tp [Occ=Once] a2_a1Qd [Occ=Once] ->
                 case ds1_d2nP
                 of _ { MiddleFrag rb1_d2tn [Occ=Once] b2_a1Qf [Occ=Once] ->
                 case ==# rb_d2tp rb1_d2tn of _ {
                   False -> False;
                   True -> == @ n_XGk $dEq_a266 a2_a1Qd b2_a1Qf
                 }
                 }
                 }}]
$fEqMiddleFrag_$c== =
  \ (@ n_XGk)
    ($dEq_a266 :: Eq n_XGk)
    (ds_d2nO :: MiddleFrag n_XGk)
    (ds1_d2nP :: MiddleFrag n_XGk) ->
    case ds_d2nO of _ { MiddleFrag rb_d2tp a2_a1Qd ->
    case ds1_d2nP of _ { MiddleFrag rb1_d2tn b2_a1Qf ->
    case ==# rb_d2tp rb1_d2tn of _ {
      False -> False;
      True -> == @ n_XGk $dEq_a266 a2_a1Qd b2_a1Qf
    }
    }
    }

$fEqMiddleFrag_$c/= [InlPrag=INLINE[0]]
  :: forall n_aDS.
     Eq n_aDS =>
     MiddleFrag n_aDS -> MiddleFrag n_aDS -> Bool
[GblId,
 Arity=3,
 Caf=NoCafRefs,
 Str=DmdType LU(LU(L*))U(LU(L*)),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aDS)
                 (w_s7PP [Occ=Once] :: Eq n_aDS)
                 (w1_s7PQ [Occ=Once!] :: MiddleFrag n_aDS)
                 (w2_s7PV [Occ=Once!] :: MiddleFrag n_aDS) ->
                 case w1_s7PQ
                 of _ { MiddleFrag ww_s7PS [Occ=Once] ww1_s7PT [Occ=Once] ->
                 case w2_s7PV
                 of _ { MiddleFrag ww2_s7PX [Occ=Once] ww3_s7PY [Occ=Once] ->
                 case ==# ww_s7PS ww2_s7PX of _ {
                   False -> True;
                   True ->
                     case == @ n_aDS w_s7PP ww1_s7PT ww3_s7PY of _ {
                       False -> True;
                       True -> False
                     }
                 }
                 }
                 }}]
$fEqMiddleFrag_$c/= =
  \ (@ n_aDS)
    (w_s7PP :: Eq n_aDS)
    (w1_s7PQ :: MiddleFrag n_aDS)
    (w2_s7PV :: MiddleFrag n_aDS) ->
    case w1_s7PQ of _ { MiddleFrag ww_s7PS ww1_s7PT ->
    case w2_s7PV of _ { MiddleFrag ww2_s7PX ww3_s7PY ->
    case ==# ww_s7PS ww2_s7PX of _ {
      False -> True;
      True ->
        case == @ n_aDS w_s7PP ww1_s7PT ww3_s7PY of _ {
          False -> True;
          True -> False
        }
    }
    }
    }

$fEqMiddleFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aDS. Eq n_aDS => Eq (MiddleFrag n_aDS)
[GblId[DFunId],
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Eq [{$fEqMiddleFrag_$c==},
                         {$fEqMiddleFrag_$c/=}]]
$fEqMiddleFrag =
  \ (@ n_XGm) ($dEq_a266 :: Eq n_XGm) ->
    D:Eq
      @ (MiddleFrag n_XGm)
      ($fEqMiddleFrag_$c== @ n_XGm $dEq_a266)
      ($fEqMiddleFrag_$c/= @ n_XGm $dEq_a266)

$fShowMiddleFrag1 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 60 0}]
$fShowMiddleFrag1 = unpackCString# "MiddleFrag "

$w$cshowsPrec1
  :: forall n_aDS. Show n_aDS => Int# -> Int# -> n_aDS -> ShowS
[GblId,
 Arity=4,
 Str=DmdType LLLS,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [30 0 0 0] 241 120}]
$w$cshowsPrec1 =
  \ (@ n_aDS)
    (w_s7Q4 :: Show n_aDS)
    (ww_s7Q7 :: Int#)
    (ww1_s7Qb :: Int#)
    (ww2_s7Qc :: n_aDS) ->
    let {
      g_X2Ia [Dmd=Just L] :: String -> String
      [LclId, Str=DmdType]
      g_X2Ia = showsPrec @ n_aDS w_s7Q4 $fReadLeftFrag4 ww2_s7Qc } in
    let {
      p_a2xL :: ShowS
      [LclId, Arity=1, Str=DmdType L]
      p_a2xL =
        \ (x_X2Ig :: String) ->
          ++
            @ Char
            $fShowMiddleFrag1
            ($wshowSignedInt
               11 ww1_s7Qb (: @ Char showSpace1 (g_X2Ia x_X2Ig))) } in
    case >=# ww_s7Q7 11 of _ {
      False -> p_a2xL;
      True ->
        \ (x_a2xQ :: String) ->
          : @ Char shows11 (p_a2xL (: @ Char shows10 x_a2xQ))
    }

$fShowMiddleFrag_$cshowsPrec [InlPrag=INLINE[0]]
  :: forall n_aDS. Show n_aDS => Int -> MiddleFrag n_aDS -> ShowS
[GblId,
 Arity=3,
 Str=DmdType LU(L)U(LS),
 Unf=Unf{Src=Worker=$w$cshowsPrec1, TopLvl=True, Arity=3,
         Value=True, ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aDS)
                 (w_s7Q4 [Occ=Once] :: Show n_aDS)
                 (w1_s7Q5 [Occ=Once!] :: Int)
                 (w2_s7Q9 [Occ=Once!] :: MiddleFrag n_aDS) ->
                 case w1_s7Q5 of _ { I# ww_s7Q7 [Occ=Once] ->
                 case w2_s7Q9
                 of _ { MiddleFrag ww1_s7Qb [Occ=Once] ww2_s7Qc [Occ=Once] ->
                 $w$cshowsPrec1 @ n_aDS w_s7Q4 ww_s7Q7 ww1_s7Qb ww2_s7Qc
                 }
                 }}]
$fShowMiddleFrag_$cshowsPrec =
  \ (@ n_aDS)
    (w_s7Q4 :: Show n_aDS)
    (w1_s7Q5 :: Int)
    (w2_s7Q9 :: MiddleFrag n_aDS) ->
    case w1_s7Q5 of _ { I# ww_s7Q7 ->
    case w2_s7Q9 of _ { MiddleFrag ww1_s7Qb ww2_s7Qc ->
    $w$cshowsPrec1 @ n_aDS w_s7Q4 ww_s7Q7 ww1_s7Qb ww2_s7Qc
    }
    }

$fShowMiddleFrag_$cshowList
  :: forall n_aDS. Show n_aDS => [MiddleFrag n_aDS] -> ShowS
[GblId,
 Arity=3,
 Str=DmdType LSL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 0] 110 0}]
$fShowMiddleFrag_$cshowList =
  \ (@ n_XGo)
    ($dShow_a25P :: Show n_XGo)
    (eta_B2 :: [MiddleFrag n_XGo])
    (eta1_B1 :: String) ->
    showList__
      @ (MiddleFrag n_XGo)
      (\ (w_s7Q9 :: MiddleFrag n_XGo) ->
         case w_s7Q9 of _ { MiddleFrag ww_s7Qb ww1_s7Qc ->
         $w$cshowsPrec1 @ n_XGo $dShow_a25P 0 ww_s7Qb ww1_s7Qc
         })
      eta_B2
      eta1_B1

$fShowMiddleFrag_$cshow
  :: forall n_aDS. Show n_aDS => MiddleFrag n_aDS -> String
[GblId,
 Arity=2,
 Str=DmdType LU(LS),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XGq)
                 ($dShow_a25P [Occ=Once] :: Show n_XGq)
                 (x_a2yw [Occ=Once] :: MiddleFrag n_XGq) ->
                 $fShowMiddleFrag_$cshowsPrec
                   @ n_XGq $dShow_a25P shows26 x_a2yw ([] @ Char)}]
$fShowMiddleFrag_$cshow =
  \ (@ n_XGq)
    ($dShow_a25P :: Show n_XGq)
    (x_a2yw :: MiddleFrag n_XGq) ->
    case x_a2yw of _ { MiddleFrag ww_s7Qb ww1_s7Qc ->
    $w$cshowsPrec1 @ n_XGq $dShow_a25P 0 ww_s7Qb ww1_s7Qc ([] @ Char)
    }

$fShowMiddleFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aDS. Show n_aDS => Show (MiddleFrag n_aDS)
[GblId[DFunId],
 Arity=1,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Show [{$fShowMiddleFrag_$cshowsPrec},
                           {$fShowMiddleFrag_$cshow}, {$fShowMiddleFrag_$cshowList}]]
$fShowMiddleFrag =
  \ (@ n_XGp) ($dShow_a25P :: Show n_XGp) ->
    D:Show
      @ (MiddleFrag n_XGp)
      ($fShowMiddleFrag_$cshowsPrec @ n_XGp $dShow_a25P)
      ($fShowMiddleFrag_$cshow @ n_XGp $dShow_a25P)
      ($fShowMiddleFrag_$cshowList @ n_XGp $dShow_a25P)

$fReadLeftFrag3 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 50 0}]
$fReadLeftFrag3 = unpackCString# "LeftFrag"

$fReadLeftFrag2
  :: forall n_aSR. Read n_aSR => Prec -> ReadP (LeftFrag n_aSR)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [30 0] 283 0}]
$fReadLeftFrag2 =
  \ (@ n_X12U) ($dRead_a23E :: Read n_X12U) (eta_B1 :: Prec) ->
    let {
      ds_X3TL :: ReadPrec n_X12U
      [LclId, Str=DmdType]
      ds_X3TL = readPrec @ n_X12U $dRead_a23E } in
    let {
      lvl62_s997
        :: forall b_a2vc. (LeftFrag n_X12U -> P b_a2vc) -> P b_a2vc
      [LclId, Arity=1]
      lvl62_s997 =
        \ (@ b_a2vc) (eta1_X5w :: LeftFrag n_X12U -> P b_a2vc) ->
          let {
            lvl63_s998 :: P b_a2vc
            [LclId]
            lvl63_s998 =
              (((ds_X3TL
                 `cast` (<NTCo:ReadPrec <n_X12U>>
                         :: ReadPrec n_X12U ~# (Prec -> ReadP n_X12U)))
                  $fReadLeftFrag4)
               `cast` (<NTCo:ReadP <n_X12U>>
                       :: ReadP n_X12U
                            ~#
                          (forall b_a2vc. (n_X12U -> P b_a2vc) -> P b_a2vc)))
                @ b_a2vc
                (\ (a1_X3Qv :: n_X12U) ->
                   eta1_X5w
                     (case a1_X3Qv of tpl_X4 { __DEFAULT ->
                      LeftFrag @ n_X12U tpl_X4
                      })) } in
          lex1
            @ b_a2vc
            (\ (a1_a3FW :: Lexeme) ->
               case a1_a3FW of _ {
                 __DEFAULT -> Fail @ b_a2vc;
                 Ident ds1_d2nI ->
                   case eqString ds1_d2nI $fReadLeftFrag3 of _ {
                     False -> Fail @ b_a2vc;
                     True -> lvl63_s998
                   }
               }) } in
    parens1
      @ (LeftFrag n_X12U)
      ((\ (c_a3HE :: Prec) ->
          case c_a3HE of _ { I# x_a3HH ->
          case <=# x_a3HH 10 of _ {
            False ->
              (pfail1 @ (LeftFrag n_X12U))
              `cast` (Sym <(NTCo:ReadP <LeftFrag n_X12U>)>
                      :: (forall b_a2vc. (LeftFrag n_X12U -> P b_a2vc) -> P b_a2vc)
                           ~#
                         ReadP (LeftFrag n_X12U));
            True ->
              lvl62_s997
              `cast` (Sym <(NTCo:ReadP <LeftFrag n_X12U>)>
                      :: (forall b_a2vc. (LeftFrag n_X12U -> P b_a2vc) -> P b_a2vc)
                           ~#
                         ReadP (LeftFrag n_X12U))
          }
          })
       `cast` (Sym <(NTCo:ReadPrec <LeftFrag n_X12U>)>
               :: (Prec -> ReadP (LeftFrag n_X12U))
                    ~#
                  ReadPrec (LeftFrag n_X12U)))
      eta_B1

$fReadLeftFrag_$creadPrec
  :: forall n_aSR. Read n_aSR => ReadPrec (LeftFrag n_aSR)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
$fReadLeftFrag_$creadPrec =
  $fReadLeftFrag2
  `cast` (forall n_X12V.
          <Read n_X12V> -> Sym <(NTCo:ReadPrec <LeftFrag n_X12V>)>
          :: (forall n_X12V. Read n_X12V => Prec -> ReadP (LeftFrag n_X12V))
               ~#
             (forall n_X12V. Read n_X12V => ReadPrec (LeftFrag n_X12V)))

$fReadLeftFrag_$creadsPrec
  :: forall n_aSR. Read n_aSR => Int -> ReadS (LeftFrag n_aSR)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0] 51 60}]
$fReadLeftFrag_$creadsPrec =
  \ (@ n_XVu) ($dRead_X26i :: Read n_XVu) (eta_B1 :: Int) ->
    run
      @ (LeftFrag n_XVu)
      ((($fReadLeftFrag2 @ n_XVu $dRead_X26i eta_B1)
        `cast` (<NTCo:ReadP <LeftFrag n_XVu>>
                :: ReadP (LeftFrag n_XVu)
                     ~#
                   (forall b_a2vc. (LeftFrag n_XVu -> P b_a2vc) -> P b_a2vc)))
         @ (LeftFrag n_XVu) ($fMonadP_$creturn @ (LeftFrag n_XVu)))

$fReadLeftFrag1
  :: forall n_XVw.
     Read n_XVw =>
     Prec -> forall b_a3Ib. ([LeftFrag n_XVw] -> P b_a3Ib) -> P b_a3Ib
[GblId,
 Arity=3,
 Str=DmdType LAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XVw)
                 ($dRead_X26k [Occ=Once] :: Read n_XVw)
                 _
                 (@ b_a3Ib)
                 (eta1_a3Ic [Occ=Once] :: [LeftFrag n_XVw] -> P b_a3Ib) ->
                 $wa
                   @ (LeftFrag n_XVw)
                   (($fReadLeftFrag2 @ n_XVw $dRead_X26k)
                    `cast` (Sym <(NTCo:ReadPrec <LeftFrag n_XVw>)>
                            :: (Prec -> ReadP (LeftFrag n_XVw)) ~# ReadPrec (LeftFrag n_XVw)))
                   @ b_a3Ib
                   eta1_a3Ic}]
$fReadLeftFrag1 =
  \ (@ n_XVw)
    ($dRead_X26k :: Read n_XVw)
    _
    (@ b_a3Ib)
    (eta1_a3Ic :: [LeftFrag n_XVw] -> P b_a3Ib) ->
    $wa
      @ (LeftFrag n_XVw)
      (($fReadLeftFrag2 @ n_XVw $dRead_X26k)
       `cast` (Sym <(NTCo:ReadPrec <LeftFrag n_XVw>)>
               :: (Prec -> ReadP (LeftFrag n_XVw)) ~# ReadPrec (LeftFrag n_XVw)))
      @ b_a3Ib
      eta1_a3Ic

$fReadLeftFrag_$creadListPrec
  :: forall n_aSR. Read n_aSR => ReadPrec [LeftFrag n_aSR]
[GblId,
 Arity=3,
 Str=DmdType LAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= $fReadLeftFrag1
               `cast` (forall n_XVw.
                       <Read n_XVw>
                       -> (<Prec> -> Sym <(NTCo:ReadP <[LeftFrag n_XVw]>)>) ; Sym
                                                                                <(NTCo:ReadPrec
                                                                                    <[LeftFrag
                                                                                        n_XVw]>)>
                       :: (forall n_XVw.
                           Read n_XVw =>
                           Prec -> forall b_a2vc. ([LeftFrag n_XVw] -> P b_a2vc) -> P b_a2vc)
                            ~#
                          (forall n_XVw. Read n_XVw => ReadPrec [LeftFrag n_XVw]))}]
$fReadLeftFrag_$creadListPrec =
  $fReadLeftFrag1
  `cast` (forall n_XVw.
          <Read n_XVw>
          -> (<Prec> -> Sym <(NTCo:ReadP <[LeftFrag n_XVw]>)>) ; Sym
                                                                   <(NTCo:ReadPrec
                                                                       <[LeftFrag n_XVw]>)>
          :: (forall n_XVw.
              Read n_XVw =>
              Prec -> forall b_a2vc. ([LeftFrag n_XVw] -> P b_a2vc) -> P b_a2vc)
               ~#
             (forall n_XVw. Read n_XVw => ReadPrec [LeftFrag n_XVw]))

$fReadLeftFrag_$creadList
  :: forall n_aSR. Read n_aSR => ReadS [LeftFrag n_aSR]
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0] 70 60}]
$fReadLeftFrag_$creadList =
  \ (@ n_XVx) ($dRead_X26l :: Read n_XVx) ->
    run
      @ [LeftFrag n_XVx]
      ($wa
         @ (LeftFrag n_XVx)
         (($fReadLeftFrag2 @ n_XVx $dRead_X26l)
          `cast` (Sym <(NTCo:ReadPrec <LeftFrag n_XVx>)>
                  :: (Prec -> ReadP (LeftFrag n_XVx)) ~# ReadPrec (LeftFrag n_XVx)))
         @ [LeftFrag n_XVx]
         ($fMonadP_$creturn @ [LeftFrag n_XVx]))

$fReadLeftFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aSR. Read n_aSR => Read (LeftFrag n_aSR)
[GblId[DFunId],
 Arity=1,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Read [{$fReadLeftFrag_$creadsPrec},
                           {$fReadLeftFrag_$creadList}, {$fReadLeftFrag_$creadPrec},
                           {$fReadLeftFrag_$creadListPrec}]]
$fReadLeftFrag =
  \ (@ n_XVv) ($dRead_X26j :: Read n_XVv) ->
    D:Read
      @ (LeftFrag n_XVv)
      ($fReadLeftFrag_$creadsPrec @ n_XVv $dRead_X26j)
      ($fReadLeftFrag_$creadList @ n_XVv $dRead_X26j)
      (($fReadLeftFrag2 @ n_XVv $dRead_X26j)
       `cast` (Sym <(NTCo:ReadPrec <LeftFrag n_XVv>)>
               :: (Prec -> ReadP (LeftFrag n_XVv)) ~# ReadPrec (LeftFrag n_XVv)))
      (($fReadLeftFrag1 @ n_XVv $dRead_X26j)
       `cast` ((<Prec> -> Sym <(NTCo:ReadP <[LeftFrag n_XVv]>)>) ; Sym
                                                                     <(NTCo:ReadPrec
                                                                         <[LeftFrag n_XVv]>)>
               :: (Prec
                   -> forall b_a2vc. ([LeftFrag n_XVv] -> P b_a2vc) -> P b_a2vc)
                    ~#
                  ReadPrec [LeftFrag n_XVv]))

lvl3_rbau :: [Char]
[GblId, Str=DmdType]
lvl3_rbau = unpackCString# "Compound"

lvl4_rbav :: [Char]
[GblId, Str=DmdType]
lvl4_rbav = unpackCString# "Single"

$fReadPartialNums_$creadPrec
  :: forall n_aST.
     (Read n_aST, Unbox n_aST) =>
     ReadPrec (PartialNums n_aST)
[GblId, Arity=2, Str=DmdType LL]
$fReadPartialNums_$creadPrec =
  \ (@ n_X13n)
    ($dRead_a2ba :: Read n_X13n)
    ($dUnbox_a2bb :: Unbox n_X13n) ->
    let {
      $dRead1_s3pF :: Read (RightFrag n_X13n)
      [LclId, Str=DmdType]
      $dRead1_s3pF = $fReadRightFrag @ n_X13n $dRead_a2ba } in
    let {
      $dRead2_s3pE :: Read (LeftFrag n_X13n)
      [LclId, Str=DmdType]
      $dRead2_s3pE = $fReadLeftFrag @ n_X13n $dRead_a2ba } in
    (parens1
       @ (PartialNums n_X13n)
       ((\ (n_a3Nh :: Prec)
           (@ b_a3Nk)
           (k_a3Nl :: PartialNums n_X13n -> P b_a3Nk) ->
           case n_a3Nh of _ { I# x_a3HH ->
           let {
             a_s3NT [Dmd=Just L] :: P b_a3Nk
             [LclId, Str=DmdType]
             a_s3NT =
               case <=# x_a3HH 10 of _ {
                 False -> Fail @ b_a3Nk;
                 True ->
                   let {
                     lvl62_s999 :: P b_a3Nk
                     [LclId]
                     lvl62_s999 =
                       (($fReadMiddleFrag2 @ n_X13n $dRead_a2ba $fReadLeftFrag4)
                        `cast` (<NTCo:ReadP <MiddleFrag n_X13n>>
                                :: ReadP (MiddleFrag n_X13n)
                                     ~#
                                   (forall b_a2vc. (MiddleFrag n_X13n -> P b_a2vc) -> P b_a2vc)))
                         @ b_a3Nk
                         (\ (a1_X3Rv :: MiddleFrag n_X13n) ->
                            k_a3Nl
                              (case a1_X3Rv of tpl_X4 { MiddleFrag ipv_s3LD ipv1_s3LE ->
                               Single @ n_X13n tpl_X4
                               })) } in
                   let {
                     k1_a3Gg :: Lexeme -> P b_a3Nk
                     [LclId, Arity=1, Str=DmdType S]
                     k1_a3Gg =
                       \ (a1_a3FW :: Lexeme) ->
                         case a1_a3FW of _ {
                           __DEFAULT -> Fail @ b_a3Nk;
                           Ident ds_d2sV ->
                             case eqString ds_d2sV lvl4_rbav of _ {
                               False -> Fail @ b_a3Nk;
                               True -> lvl62_s999
                             }
                         } } in
                   let {
                     lvl85_a3Gh [Dmd=Just L] :: P b_a3Nk
                     [LclId, Str=DmdType]
                     lvl85_a3Gh = hsLex2 @ b_a3Nk k1_a3Gg } in
                   let {
                     k2_a3Gi :: () -> P b_a3Nk
                     [LclId,
                      Arity=1,
                      Str=DmdType A,
                      Unf=Unf{Src=InlineStable, TopLvl=False, Arity=1, Value=True,
                              ConLike=True, WorkFree=True, Expandable=True,
                              Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
                              Tmpl= \ _ -> hsLex2 @ b_a3Nk k1_a3Gg}]
                     k2_a3Gi = \ _ -> lvl85_a3Gh } in
                   Look
                     @ b_a3Nk
                     (\ (a104_a3Gk :: String) ->
                        ((skipSpaces_skip a104_a3Gk)
                         `cast` (<NTCo:ReadP <()>>
                                 :: ReadP () ~# (forall b_a2vc. (() -> P b_a2vc) -> P b_a2vc)))
                          @ b_a3Nk k2_a3Gi)
               } } in
           case <=# x_a3HH 10 of _ {
             False -> $fMonadPlusP_$cmplus @ b_a3Nk (Fail @ b_a3Nk) a_s3NT;
             True ->
               let {
                 lvl62_s99a :: P b_a3Nk
                 [LclId]
                 lvl62_s99a =
                   $fReadMaybe2
                     @ (RightFrag n_X13n)
                     $dRead1_s3pF
                     $fReadLeftFrag4
                     @ b_a3Nk
                     (\ (a1_X3LY :: Maybe (RightFrag n_X13n)) ->
                        (($fReadVector2 @ n_X13n $dRead_a2ba $dUnbox_a2bb $fReadLeftFrag4)
                         `cast` (<NTCo:ReadP <Vector n_X13n>>
                                 :: ReadP (Vector n_X13n)
                                      ~#
                                    (forall b_a2vc. (Vector n_X13n -> P b_a2vc) -> P b_a2vc)))
                          @ b_a3Nk
                          (\ (a2_X3M4 :: Vector n_X13n) ->
                             $fReadMaybe2
                               @ (LeftFrag n_X13n)
                               $dRead2_s3pE
                               $fReadLeftFrag4
                               @ b_a3Nk
                               (\ (a3_X3M9 :: Maybe (LeftFrag n_X13n)) ->
                                  k_a3Nl
                                    (case a1_X3LY of tpl_X6 { __DEFAULT ->
                                     case a2_X3M4 of tpl1_X8 { __DEFAULT ->
                                     case a3_X3M9 of tpl2_Xa { __DEFAULT ->
                                     Compound @ n_X13n tpl_X6 tpl1_X8 tpl2_Xa
                                     }
                                     }
                                     })))) } in
               let {
                 k1_a3Gg :: Lexeme -> P b_a3Nk
                 [LclId, Arity=1, Str=DmdType S]
                 k1_a3Gg =
                   \ (a1_a3FW :: Lexeme) ->
                     case a1_a3FW of _ {
                       __DEFAULT -> Fail @ b_a3Nk;
                       Ident ds_d2sQ ->
                         case eqString ds_d2sQ lvl3_rbau of _ {
                           False -> Fail @ b_a3Nk;
                           True -> lvl62_s99a
                         }
                     } } in
               let {
                 lvl85_a3Gh [Dmd=Just L] :: P b_a3Nk
                 [LclId, Str=DmdType]
                 lvl85_a3Gh = hsLex2 @ b_a3Nk k1_a3Gg } in
               let {
                 k2_a3Gi :: () -> P b_a3Nk
                 [LclId,
                  Arity=1,
                  Str=DmdType A,
                  Unf=Unf{Src=InlineStable, TopLvl=False, Arity=1, Value=True,
                          ConLike=True, WorkFree=True, Expandable=True,
                          Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
                          Tmpl= \ _ -> hsLex2 @ b_a3Nk k1_a3Gg}]
                 k2_a3Gi = \ _ -> lvl85_a3Gh } in
               $fMonadPlusP_$cmplus
                 @ b_a3Nk
                 (Look
                    @ b_a3Nk
                    (\ (a104_a3Gk :: String) ->
                       ((skipSpaces_skip a104_a3Gk)
                        `cast` (<NTCo:ReadP <()>>
                                :: ReadP () ~# (forall b_a2vc. (() -> P b_a2vc) -> P b_a2vc)))
                         @ b_a3Nk k2_a3Gi))
                 a_s3NT
           }
           })
        `cast` ((<Prec> -> Sym <(NTCo:ReadP <PartialNums n_X13n>)>) ; Sym
                                                                        <(NTCo:ReadPrec
                                                                            <PartialNums n_X13n>)>
                :: (Prec
                    -> forall b_a2vc. (PartialNums n_X13n -> P b_a2vc) -> P b_a2vc)
                     ~#
                   ReadPrec (PartialNums n_X13n))))
    `cast` (Sym <(NTCo:ReadPrec <PartialNums n_X13n>)>
            :: (Prec -> ReadP (PartialNums n_X13n))
                 ~#
               ReadPrec (PartialNums n_X13n))

$fReadPartialNums_$creadsPrec
  :: forall n_aST.
     (Read n_aST, Unbox n_aST) =>
     Int -> ReadS (PartialNums n_aST)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0] 72 60}]
$fReadPartialNums_$creadsPrec =
  \ (@ n_X13o)
    ($dRead_a2ba :: Read n_X13o)
    ($dUnbox_a2bb :: Unbox n_X13o) ->
    let {
      ds_a2wy [Dmd=Just L] :: ReadPrec (PartialNums n_X13o)
      [LclId, Str=DmdType]
      ds_a2wy =
        $fReadPartialNums_$creadPrec @ n_X13o $dRead_a2ba $dUnbox_a2bb } in
    \ (n_a2wz :: Int) ->
      run
        @ (PartialNums n_X13o)
        ((((ds_a2wy
            `cast` (<NTCo:ReadPrec <PartialNums n_X13o>>
                    :: ReadPrec (PartialNums n_X13o)
                         ~#
                       (Prec -> ReadP (PartialNums n_X13o))))
             n_a2wz)
          `cast` (<NTCo:ReadP <PartialNums n_X13o>>
                  :: ReadP (PartialNums n_X13o)
                       ~#
                     (forall b_a2vc. (PartialNums n_X13o -> P b_a2vc) -> P b_a2vc)))
           @ (PartialNums n_X13o) ($fMonadP_$creturn @ (PartialNums n_X13o)))

$fReadPartialNums1
  :: forall n_X13q.
     (Read n_X13q, Unbox n_X13q) =>
     Prec
     -> forall b_a3Ib. ([PartialNums n_X13q] -> P b_a3Ib) -> P b_a3Ib
[GblId,
 Arity=4,
 Str=DmdType LLAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_X13q)
                 ($dRead_a2ba [Occ=Once] :: Read n_X13q)
                 ($dUnbox_a2bb [Occ=Once] :: Unbox n_X13q)
                 _
                 (@ b_a3Ib)
                 (eta1_a3Ic [Occ=Once] :: [PartialNums n_X13q] -> P b_a3Ib) ->
                 $wa
                   @ (PartialNums n_X13q)
                   ($fReadPartialNums_$creadPrec @ n_X13q $dRead_a2ba $dUnbox_a2bb)
                   @ b_a3Ib
                   eta1_a3Ic}]
$fReadPartialNums1 =
  \ (@ n_X13q)
    ($dRead_a2ba :: Read n_X13q)
    ($dUnbox_a2bb :: Unbox n_X13q)
    _
    (@ b_a3Ib)
    (eta1_a3Ic :: [PartialNums n_X13q] -> P b_a3Ib) ->
    $wa
      @ (PartialNums n_X13q)
      ($fReadPartialNums_$creadPrec @ n_X13q $dRead_a2ba $dUnbox_a2bb)
      @ b_a3Ib
      eta1_a3Ic

$fReadPartialNums_$creadListPrec
  :: forall n_aST.
     (Read n_aST, Unbox n_aST) =>
     ReadPrec [PartialNums n_aST]
[GblId,
 Arity=4,
 Str=DmdType LLAL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= $fReadPartialNums1
               `cast` (forall n_X13q.
                       <Read n_X13q>
                       -> <Unbox n_X13q>
                       -> (<Prec> -> Sym <(NTCo:ReadP <[PartialNums n_X13q]>)>) ; Sym
                                                                                    <(NTCo:ReadPrec
                                                                                        <[PartialNums
                                                                                            n_X13q]>)>
                       :: (forall n_X13q.
                           (Read n_X13q, Unbox n_X13q) =>
                           Prec
                           -> forall b_a2vc. ([PartialNums n_X13q] -> P b_a2vc) -> P b_a2vc)
                            ~#
                          (forall n_X13q.
                           (Read n_X13q, Unbox n_X13q) =>
                           ReadPrec [PartialNums n_X13q]))}]
$fReadPartialNums_$creadListPrec =
  $fReadPartialNums1
  `cast` (forall n_X13q.
          <Read n_X13q>
          -> <Unbox n_X13q>
          -> (<Prec> -> Sym <(NTCo:ReadP <[PartialNums n_X13q]>)>) ; Sym
                                                                       <(NTCo:ReadPrec
                                                                           <[PartialNums n_X13q]>)>
          :: (forall n_X13q.
              (Read n_X13q, Unbox n_X13q) =>
              Prec
              -> forall b_a2vc. ([PartialNums n_X13q] -> P b_a2vc) -> P b_a2vc)
               ~#
             (forall n_X13q.
              (Read n_X13q, Unbox n_X13q) =>
              ReadPrec [PartialNums n_X13q]))

$fReadPartialNums_$creadList
  :: forall n_aST.
     (Read n_aST, Unbox n_aST) =>
     ReadS [PartialNums n_aST]
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0] 80 60}]
$fReadPartialNums_$creadList =
  \ (@ n_X13r)
    ($dRead_X2gQ :: Read n_X13r)
    ($dUnbox_X2gS :: Unbox n_X13r) ->
    run
      @ [PartialNums n_X13r]
      ($wa
         @ (PartialNums n_X13r)
         ($fReadPartialNums_$creadPrec @ n_X13r $dRead_X2gQ $dUnbox_X2gS)
         @ [PartialNums n_X13r]
         ($fMonadP_$creturn @ [PartialNums n_X13r]))

$fReadPartialNums [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aST.
     (Read n_aST, Unbox n_aST) =>
     Read (PartialNums n_aST)
[GblId[DFunId],
 Arity=2,
 Str=DmdType LLm,
 Unf=DFun(arity=3) D:Read [{$fReadPartialNums_$creadsPrec},
                           {$fReadPartialNums_$creadList}, {$fReadPartialNums_$creadPrec},
                           {$fReadPartialNums_$creadListPrec}]]
$fReadPartialNums =
  \ (@ n_X13p)
    ($dRead_X2gR :: Read n_X13p)
    ($dUnbox_X2gT :: Unbox n_X13p) ->
    D:Read
      @ (PartialNums n_X13p)
      ($fReadPartialNums_$creadsPrec @ n_X13p $dRead_X2gR $dUnbox_X2gT)
      ($fReadPartialNums_$creadList @ n_X13p $dRead_X2gR $dUnbox_X2gT)
      ($fReadPartialNums_$creadPrec @ n_X13p $dRead_X2gR $dUnbox_X2gT)
      (($fReadPartialNums1 @ n_X13p $dRead_X2gR $dUnbox_X2gT)
       `cast` ((<Prec> -> Sym <(NTCo:ReadP <[PartialNums n_X13p]>)>) ; Sym
                                                                         <(NTCo:ReadPrec
                                                                             <[PartialNums
                                                                                 n_X13p]>)>
               :: (Prec
                   -> forall b_a2vc. ([PartialNums n_X13p] -> P b_a2vc) -> P b_a2vc)
                    ~#
                  ReadPrec [PartialNums n_X13p]))

$fOrdLeftFrag_$c<=
  :: forall n_aSR.
     (Eq (LeftFrag n_aSR), Ord n_aSR) =>
     LeftFrag n_aSR -> LeftFrag n_aSR -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType AU(AAAAASAA)U(S)U(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XVD)
                 _
                 ($dOrd_a233 [Occ=Once] :: Ord n_XVD)
                 (a_a1PU [Occ=Once!] :: LeftFrag n_XVD)
                 (b_a1PV [Occ=Once!] :: LeftFrag n_XVD) ->
                 case a_a1PU of _ { LeftFrag a1_a1PW [Occ=Once] ->
                 case b_a1PV of _ { LeftFrag b1_a1PX [Occ=Once] ->
                 <= @ n_XVD $dOrd_a233 a1_a1PW b1_a1PX
                 }
                 }}]
$fOrdLeftFrag_$c<= =
  \ (@ n_XVD)
    _
    ($dOrd_a233 :: Ord n_XVD)
    (a_a1PU :: LeftFrag n_XVD)
    (b_a1PV :: LeftFrag n_XVD) ->
    case a_a1PU of _ { LeftFrag a1_a1PW ->
    case b_a1PV of _ { LeftFrag b1_a1PX ->
    <= @ n_XVD $dOrd_a233 a1_a1PW b1_a1PX
    }
    }

$fOrdLeftFrag_$c>
  :: forall n_aSR.
     (Eq (LeftFrag n_aSR), Ord n_aSR) =>
     LeftFrag n_aSR -> LeftFrag n_aSR -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType AU(AAAASAAA)U(S)U(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XVE)
                 _
                 ($dOrd_a233 [Occ=Once] :: Ord n_XVE)
                 (a_a1Q2 [Occ=Once!] :: LeftFrag n_XVE)
                 (b_a1Q3 [Occ=Once!] :: LeftFrag n_XVE) ->
                 case a_a1Q2 of _ { LeftFrag a1_a1Q4 [Occ=Once] ->
                 case b_a1Q3 of _ { LeftFrag b1_a1Q5 [Occ=Once] ->
                 > @ n_XVE $dOrd_a233 a1_a1Q4 b1_a1Q5
                 }
                 }}]
$fOrdLeftFrag_$c> =
  \ (@ n_XVE)
    _
    ($dOrd_a233 :: Ord n_XVE)
    (a_a1Q2 :: LeftFrag n_XVE)
    (b_a1Q3 :: LeftFrag n_XVE) ->
    case a_a1Q2 of _ { LeftFrag a1_a1Q4 ->
    case b_a1Q3 of _ { LeftFrag b1_a1Q5 ->
    > @ n_XVE $dOrd_a233 a1_a1Q4 b1_a1Q5
    }
    }

$fOrdLeftFrag_$c>=
  :: forall n_aSR.
     (Eq (LeftFrag n_aSR), Ord n_aSR) =>
     LeftFrag n_aSR -> LeftFrag n_aSR -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType AU(AAASAAAA)U(S)U(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XVF)
                 _
                 ($dOrd_a233 [Occ=Once] :: Ord n_XVF)
                 (a_a1PY [Occ=Once!] :: LeftFrag n_XVF)
                 (b_a1PZ [Occ=Once!] :: LeftFrag n_XVF) ->
                 case a_a1PY of _ { LeftFrag a1_a1Q0 [Occ=Once] ->
                 case b_a1PZ of _ { LeftFrag b1_a1Q1 [Occ=Once] ->
                 >= @ n_XVF $dOrd_a233 a1_a1Q0 b1_a1Q1
                 }
                 }}]
$fOrdLeftFrag_$c>= =
  \ (@ n_XVF)
    _
    ($dOrd_a233 :: Ord n_XVF)
    (a_a1PY :: LeftFrag n_XVF)
    (b_a1PZ :: LeftFrag n_XVF) ->
    case a_a1PY of _ { LeftFrag a1_a1Q0 ->
    case b_a1PZ of _ { LeftFrag b1_a1Q1 ->
    >= @ n_XVF $dOrd_a233 a1_a1Q0 b1_a1Q1
    }
    }

$fOrdLeftFrag_$c<
  :: forall n_aSR.
     (Eq (LeftFrag n_aSR), Ord n_aSR) =>
     LeftFrag n_aSR -> LeftFrag n_aSR -> Bool
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType AU(AASAAAAA)U(S)U(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XVG)
                 _
                 ($dOrd_a233 [Occ=Once] :: Ord n_XVG)
                 (a_a1PQ [Occ=Once!] :: LeftFrag n_XVG)
                 (b_a1PR [Occ=Once!] :: LeftFrag n_XVG) ->
                 case a_a1PQ of _ { LeftFrag a1_a1PS [Occ=Once] ->
                 case b_a1PR of _ { LeftFrag b1_a1PT [Occ=Once] ->
                 < @ n_XVG $dOrd_a233 a1_a1PS b1_a1PT
                 }
                 }}]
$fOrdLeftFrag_$c< =
  \ (@ n_XVG)
    _
    ($dOrd_a233 :: Ord n_XVG)
    (a_a1PQ :: LeftFrag n_XVG)
    (b_a1PR :: LeftFrag n_XVG) ->
    case a_a1PQ of _ { LeftFrag a1_a1PS ->
    case b_a1PR of _ { LeftFrag b1_a1PT ->
    < @ n_XVG $dOrd_a233 a1_a1PS b1_a1PT
    }
    }

$fOrdLeftFrag_$ccompare
  :: forall n_aSR.
     (Eq (LeftFrag n_aSR), Ord n_aSR) =>
     LeftFrag n_aSR -> LeftFrag n_aSR -> Ordering
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType AU(ASAAAAAA)U(S)U(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XVH)
                 _
                 ($dOrd_a233 [Occ=Once] :: Ord n_XVH)
                 (a_a1PM [Occ=Once!] :: LeftFrag n_XVH)
                 (b_a1PN [Occ=Once!] :: LeftFrag n_XVH) ->
                 case a_a1PM of _ { LeftFrag a1_a1PO [Occ=Once] ->
                 case b_a1PN of _ { LeftFrag b1_a1PP [Occ=Once] ->
                 compare @ n_XVH $dOrd_a233 a1_a1PO b1_a1PP
                 }
                 }}]
$fOrdLeftFrag_$ccompare =
  \ (@ n_XVH)
    _
    ($dOrd_a233 :: Ord n_XVH)
    (a_a1PM :: LeftFrag n_XVH)
    (b_a1PN :: LeftFrag n_XVH) ->
    case a_a1PM of _ { LeftFrag a1_a1PO ->
    case b_a1PN of _ { LeftFrag b1_a1PP ->
    compare @ n_XVH $dOrd_a233 a1_a1PO b1_a1PP
    }
    }

$fOrdLeftFrag_$cmin
  :: forall n_aSR.
     (Eq (LeftFrag n_aSR), Ord n_aSR) =>
     LeftFrag n_aSR -> LeftFrag n_aSR -> LeftFrag n_aSR
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType AU(AAAAASAA)U(S)U(S)m,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XVI)
                 _
                 ($dOrd_a233 [Occ=Once] :: Ord n_XVI)
                 (x_a2x1 [Occ=Once!] :: LeftFrag n_XVI)
                 (y_a2x2 [Occ=Once!] :: LeftFrag n_XVI) ->
                 case x_a2x1 of wild_X2F { LeftFrag a1_a1PW [Occ=Once] ->
                 case y_a2x2 of wild1_X16 { LeftFrag b1_a1PX [Occ=Once] ->
                 case <= @ n_XVI $dOrd_a233 a1_a1PW b1_a1PX of _ {
                   False -> wild1_X16;
                   True -> wild_X2F
                 }
                 }
                 }}]
$fOrdLeftFrag_$cmin =
  \ (@ n_XVI)
    _
    ($dOrd_a233 :: Ord n_XVI)
    (x_a2x1 :: LeftFrag n_XVI)
    (y_a2x2 :: LeftFrag n_XVI) ->
    case x_a2x1 of wild_X2F { LeftFrag a1_a1PW ->
    case y_a2x2 of wild1_X16 { LeftFrag b1_a1PX ->
    case <= @ n_XVI $dOrd_a233 a1_a1PW b1_a1PX of _ {
      False -> wild1_X16;
      True -> wild_X2F
    }
    }
    }

$fOrdLeftFrag_$cmax
  :: forall n_aSR.
     (Eq (LeftFrag n_aSR), Ord n_aSR) =>
     LeftFrag n_aSR -> LeftFrag n_aSR -> LeftFrag n_aSR
[GblId,
 Arity=4,
 Caf=NoCafRefs,
 Str=DmdType AU(AAAAASAA)U(S)U(S)m,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XVJ)
                 _
                 ($dOrd_a233 [Occ=Once] :: Ord n_XVJ)
                 (x_a2xb [Occ=Once!] :: LeftFrag n_XVJ)
                 (y_a2xc [Occ=Once!] :: LeftFrag n_XVJ) ->
                 case x_a2xb of wild_X2F { LeftFrag a1_a1PW [Occ=Once] ->
                 case y_a2xc of wild1_X16 { LeftFrag b1_a1PX [Occ=Once] ->
                 case <= @ n_XVJ $dOrd_a233 a1_a1PW b1_a1PX of _ {
                   False -> wild_X2F;
                   True -> wild1_X16
                 }
                 }
                 }}]
$fOrdLeftFrag_$cmax =
  \ (@ n_XVJ)
    _
    ($dOrd_a233 :: Ord n_XVJ)
    (x_a2xb :: LeftFrag n_XVJ)
    (y_a2xc :: LeftFrag n_XVJ) ->
    case x_a2xb of wild_X2F { LeftFrag a1_a1PW ->
    case y_a2xc of wild1_X16 { LeftFrag b1_a1PX ->
    case <= @ n_XVJ $dOrd_a233 a1_a1PW b1_a1PX of _ {
      False -> wild_X2F;
      True -> wild1_X16
    }
    }
    }

$fOrdLeftFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aSR.
     (Eq (LeftFrag n_aSR), Ord n_aSR) =>
     Ord (LeftFrag n_aSR)
[GblId[DFunId[1]],
 Arity=2,
 Caf=NoCafRefs,
 Str=DmdType LLm,
 Unf=DFun(arity=3) D:Ord [<1>, {$fOrdLeftFrag_$ccompare},
                          {$fOrdLeftFrag_$c<}, {$fOrdLeftFrag_$c>=}, {$fOrdLeftFrag_$c>},
                          {$fOrdLeftFrag_$c<=}, {$fOrdLeftFrag_$cmax},
                          {$fOrdLeftFrag_$cmin}]]
$fOrdLeftFrag =
  \ (@ n_XVK)
    ($dEq_a232 :: Eq (LeftFrag n_XVK))
    ($dOrd_a233 :: Ord n_XVK) ->
    D:Ord
      @ (LeftFrag n_XVK)
      $dEq_a232
      ($fOrdLeftFrag_$ccompare @ n_XVK $dEq_a232 $dOrd_a233)
      ($fOrdLeftFrag_$c< @ n_XVK $dEq_a232 $dOrd_a233)
      ($fOrdLeftFrag_$c>= @ n_XVK $dEq_a232 $dOrd_a233)
      ($fOrdLeftFrag_$c> @ n_XVK $dEq_a232 $dOrd_a233)
      ($fOrdLeftFrag_$c<= @ n_XVK $dEq_a232 $dOrd_a233)
      ($fOrdLeftFrag_$cmax @ n_XVK $dEq_a232 $dOrd_a233)
      ($fOrdLeftFrag_$cmin @ n_XVK $dEq_a232 $dOrd_a233)

$fEqLeftFrag_$c==
  :: forall n_aSR.
     Eq n_aSR =>
     LeftFrag n_aSR -> LeftFrag n_aSR -> Bool
[GblId,
 Arity=3,
 Caf=NoCafRefs,
 Str=DmdType U(SA)U(S)U(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XVL)
                 ($dEq_a22Q [Occ=Once] :: Eq n_XVL)
                 (ds_d2nj [Occ=Once!] :: LeftFrag n_XVL)
                 (ds1_d2nk [Occ=Once!] :: LeftFrag n_XVL) ->
                 case ds_d2nj of _ { LeftFrag a1_a1PI [Occ=Once] ->
                 case ds1_d2nk of _ { LeftFrag b1_a1PJ [Occ=Once] ->
                 == @ n_XVL $dEq_a22Q a1_a1PI b1_a1PJ
                 }
                 }}]
$fEqLeftFrag_$c== =
  \ (@ n_XVL)
    ($dEq_a22Q :: Eq n_XVL)
    (ds_d2nj :: LeftFrag n_XVL)
    (ds1_d2nk :: LeftFrag n_XVL) ->
    case ds_d2nj of _ { LeftFrag a1_a1PI ->
    case ds1_d2nk of _ { LeftFrag b1_a1PJ ->
    == @ n_XVL $dEq_a22Q a1_a1PI b1_a1PJ
    }
    }

$fEqLeftFrag_$c/=
  :: forall n_aSR.
     Eq n_aSR =>
     LeftFrag n_aSR -> LeftFrag n_aSR -> Bool
[GblId,
 Arity=3,
 Caf=NoCafRefs,
 Str=DmdType U(SA)U(S)U(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XVM)
                 ($dEq_a22Q [Occ=Once] :: Eq n_XVM)
                 (a_a1PK [Occ=Once!] :: LeftFrag n_XVM)
                 (b_a1PL [Occ=Once!] :: LeftFrag n_XVM) ->
                 case a_a1PK of _ { LeftFrag a1_a1PI [Occ=Once] ->
                 case b_a1PL of _ { LeftFrag b1_a1PJ [Occ=Once] ->
                 case == @ n_XVM $dEq_a22Q a1_a1PI b1_a1PJ of _ {
                   False -> True;
                   True -> False
                 }
                 }
                 }}]
$fEqLeftFrag_$c/= =
  \ (@ n_XVM)
    ($dEq_a22Q :: Eq n_XVM)
    (a_a1PK :: LeftFrag n_XVM)
    (b_a1PL :: LeftFrag n_XVM) ->
    case a_a1PK of _ { LeftFrag a1_a1PI ->
    case b_a1PL of _ { LeftFrag b1_a1PJ ->
    case == @ n_XVM $dEq_a22Q a1_a1PI b1_a1PJ of _ {
      False -> True;
      True -> False
    }
    }
    }

$fEqLeftFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aSR. Eq n_aSR => Eq (LeftFrag n_aSR)
[GblId[DFunId],
 Arity=1,
 Caf=NoCafRefs,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Eq [{$fEqLeftFrag_$c==}, {$fEqLeftFrag_$c/=}]]
$fEqLeftFrag =
  \ (@ n_XVN) ($dEq_a22Q :: Eq n_XVN) ->
    D:Eq
      @ (LeftFrag n_XVN)
      ($fEqLeftFrag_$c== @ n_XVN $dEq_a22Q)
      ($fEqLeftFrag_$c/= @ n_XVN $dEq_a22Q)

$fEqPartialNums_$c==
  :: forall n_aST.
     (Eq n_aST, Unbox n_aST) =>
     PartialNums n_aST -> PartialNums n_aST -> Bool
[GblId, Arity=4, Str=DmdType LLSS]
$fEqPartialNums_$c== =
  \ (@ n_X13G)
    ($dEq_a2a4 :: Eq n_X13G)
    ($dUnbox_a2a5 :: Unbox n_X13G)
    (ds_d2qE :: PartialNums n_X13G)
    (ds1_d2qF :: PartialNums n_X13G) ->
    case ds_d2qE of _ {
      Compound a1_a1RA a2_a1RB a3_a1RC ->
        case ds1_d2qF of _ {
          Compound b1_a1RD b2_a1RE b3_a1RF ->
            let {
              $w$j_s83l :: Bool
              [LclId, Str=DmdType]
              $w$j_s83l =
                case $p1Unbox @ n_X13G $dUnbox_a2a5
                of _ { D:Vector _ _ _ ww3_s7Qj _ ww5_s7Ql _ _ ->
                case ww3_s7Qj a2_a1RB of _ { I# ipv_a3Qx ->
                case ww3_s7Qj b2_a1RE of _ { I# ipv1_X3VO ->
                let {
                  lvl62_s99b :: n_X13G -> n_X13G -> Bool
                  [LclId]
                  lvl62_s99b = == @ n_X13G $dEq_a2a4 } in
                letrec {
                  $s$weq_loop0_sadh [Occ=LoopBreaker] :: Int# -> Int# -> Bool
                  [LclId, Arity=2, Str=DmdType LL]
                  $s$weq_loop0_sadh =
                    \ (sc_s9PO :: Int#) (sc1_s9PP :: Int#) ->
                      case >=# sc_s9PO ipv_a3Qx of _ {
                        False ->
                          case ww5_s7Ql @ Box $fMonadBox a2_a1RB (I# sc_s9PO)
                          of _ { Box x1_a3R2 ->
                          case >=# sc1_s9PP ipv1_X3VO of _ {
                            False ->
                              case ww5_s7Ql @ Box $fMonadBox b2_a1RE (I# sc1_s9PP)
                              of _ { Box x2_X3Wl ->
                              case lvl62_s99b x1_a3R2 x2_X3Wl of _ {
                                False -> False;
                                True -> $s$weq_loop0_sadh (+# sc_s9PO 1) (+# sc1_s9PP 1)
                              }
                              };
                            True -> False
                          }
                          };
                        True ->
                          case >=# sc1_s9PP ipv1_X3VO of _ {
                            False ->
                              case ww5_s7Ql @ Box $fMonadBox b2_a1RE (I# sc1_s9PP)
                              of _ { Box _ ->
                              False
                              };
                            True -> True
                          }
                      }; } in
                case $s$weq_loop0_sadh 0 0 of _ {
                  False -> False;
                  True ->
                    case a3_a1RC of _ {
                      Nothing ->
                        case b3_a1RF of _ {
                          Nothing -> True;
                          Just ds2_a2zX -> False
                        };
                      Just a4_a2zP ->
                        case b3_a1RF of _ {
                          Nothing -> False;
                          Just b4_a2zU ->
                            case a4_a2zP of _ { LeftFrag a5_a1PI ->
                            case b4_a2zU of _ { LeftFrag b5_a1PJ ->
                            == @ n_X13G $dEq_a2a4 a5_a1PI b5_a1PJ
                            }
                            }
                        }
                    }
                }
                }
                }
                } } in
            case a1_a1RA of _ {
              Nothing ->
                case b1_a1RD of _ {
                  Nothing -> $w$j_s83l;
                  Just ds2_a2zX -> False
                };
              Just a4_a2zP ->
                case b1_a1RD of _ {
                  Nothing -> False;
                  Just b4_a2zU ->
                    case a4_a2zP of _ { RightFrag rb_d2tP a5_a1QS ->
                    case b4_a2zU of _ { RightFrag rb1_d2tN b5_a1QU ->
                    case ==# rb_d2tP rb1_d2tN of _ {
                      False -> False;
                      True ->
                        case == @ n_X13G $dEq_a2a4 a5_a1QS b5_a1QU of _ {
                          False -> False;
                          True -> $w$j_s83l
                        }
                    }
                    }
                    }
                }
            };
          Single ipv_s2Bf -> False
        };
      Single a1_a1RG ->
        case a1_a1RG of _ { MiddleFrag rb_s91j a2_s91i ->
        case ds1_d2qF of _ {
          Compound ipv_s2Bi ipv1_s2Bj ipv2_s2Bk -> False;
          Single b1_a1RH ->
            case b1_a1RH of _ { MiddleFrag rb1_s91o b2_s91p ->
            case ==# rb_s91j rb1_s91o of _ {
              False -> False;
              True -> == @ n_X13G $dEq_a2a4 a2_s91i b2_s91p
            }
            }
        }
        }
    }

$fEqPartialNums_$c/=
  :: forall n_aST.
     (Eq n_aST, Unbox n_aST) =>
     PartialNums n_aST -> PartialNums n_aST -> Bool
[GblId,
 Arity=4,
 Str=DmdType LLSS,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 0 0] 70 20}]
$fEqPartialNums_$c/= =
  \ (@ n_X13H)
    ($dEq_a2a4 :: Eq n_X13H)
    ($dUnbox_a2a5 :: Unbox n_X13H)
    (a_a1RI :: PartialNums n_X13H)
    (b_a1RJ :: PartialNums n_X13H) ->
    case $fEqPartialNums_$c==
           @ n_X13H $dEq_a2a4 $dUnbox_a2a5 a_a1RI b_a1RJ
    of _ {
      False -> True;
      True -> False
    }

$fEqPartialNums [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aST. (Eq n_aST, Unbox n_aST) => Eq (PartialNums n_aST)
[GblId[DFunId],
 Arity=2,
 Str=DmdType LLm,
 Unf=DFun(arity=3) D:Eq [{$fEqPartialNums_$c==},
                         {$fEqPartialNums_$c/=}]]
$fEqPartialNums =
  \ (@ n_X13I)
    ($dEq_a2a4 :: Eq n_X13I)
    ($dUnbox_a2a5 :: Unbox n_X13I) ->
    D:Eq
      @ (PartialNums n_X13I)
      ($fEqPartialNums_$c== @ n_X13I $dEq_a2a4 $dUnbox_a2a5)
      ($fEqPartialNums_$c/= @ n_X13I $dEq_a2a4 $dUnbox_a2a5)

$w$ccompare
  :: forall n_aST.
     (Ord n_aST, Unbox n_aST) =>
     PartialNums n_aST -> PartialNums n_aST -> Ordering
[GblId, Arity=4, Str=DmdType LLSS]
$w$ccompare =
  \ (@ n_aST)
    (w_s7Rb :: Ord n_aST)
    (w1_s7Rc :: Unbox n_aST)
    (w2_s7Rd :: PartialNums n_aST)
    (w3_s7Re :: PartialNums n_aST) ->
    case w2_s7Rd of _ {
      Compound a1_a1RM a2_a1RN a3_a1RO ->
        case w3_s7Re of _ {
          Compound b1_a1RP b2_a1RQ b3_a1RR ->
            let {
              $w$j_s83n :: Ordering
              [LclId, Str=DmdType]
              $w$j_s83n =
                case $p1Unbox @ n_aST w1_s7Rc
                of _ { D:Vector _ _ _ ww3_s7QJ _ ww5_s7QL _ _ ->
                case ww3_s7QJ a2_a1RN of _ { I# ipv_a3Qx ->
                case ww3_s7QJ b2_a1RQ of _ { I# ipv1_X3VS ->
                let {
                  lvl62_s99c :: n_aST -> n_aST -> Ordering
                  [LclId]
                  lvl62_s99c = compare @ n_aST w_s7Rb } in
                letrec {
                  $s$wcmp_loop0_sadi [Occ=LoopBreaker] :: Int# -> Int# -> Ordering
                  [LclId, Arity=2, Str=DmdType LL]
                  $s$wcmp_loop0_sadi =
                    \ (sc_s9PX :: Int#) (sc1_s9PY :: Int#) ->
                      case >=# sc_s9PX ipv_a3Qx of _ {
                        False ->
                          case ww5_s7QL @ Box $fMonadBox a2_a1RN (I# sc_s9PX)
                          of _ { Box x1_a3R2 ->
                          case >=# sc1_s9PY ipv1_X3VS of _ {
                            False ->
                              case ww5_s7QL @ Box $fMonadBox b2_a1RQ (I# sc1_s9PY)
                              of _ { Box x2_X3Wp ->
                              case lvl62_s99c x1_a3R2 x2_X3Wp of wild6_a3TZ {
                                __DEFAULT -> wild6_a3TZ;
                                EQ -> $s$wcmp_loop0_sadi (+# sc_s9PX 1) (+# sc1_s9PY 1)
                              }
                              };
                            True -> GT
                          }
                          };
                        True ->
                          case >=# sc1_s9PY ipv1_X3VS of _ {
                            False ->
                              case ww5_s7QL @ Box $fMonadBox b2_a1RQ (I# sc1_s9PY)
                              of _ { Box _ ->
                              LT
                              };
                            True -> EQ
                          }
                      }; } in
                case $s$wcmp_loop0_sadi 0 0 of _ {
                  LT -> LT;
                  EQ ->
                    case a3_a1RO of _ {
                      Nothing ->
                        case b3_a1RR of _ {
                          Nothing -> EQ;
                          Just ipv2_a2BZ -> LT
                        };
                      Just a4_a2BR ->
                        case b3_a1RR of _ {
                          Nothing -> GT;
                          Just b4_a2BW ->
                            case a4_a2BR of _ { LeftFrag a5_a1PO ->
                            case b4_a2BW of _ { LeftFrag b5_a1PP ->
                            compare @ n_aST w_s7Rb a5_a1PO b5_a1PP
                            }
                            }
                        }
                    };
                  GT -> GT
                }
                }
                }
                } } in
            case a1_a1RM of _ {
              Nothing ->
                case b1_a1RP of _ {
                  Nothing -> $w$j_s83n;
                  Just ipv_a2BZ -> LT
                };
              Just a4_a2BR ->
                case b1_a1RP of _ {
                  Nothing -> GT;
                  Just b4_a2BW ->
                    case a4_a2BR of _ { RightFrag rb_d2tT a5_a1R0 ->
                    case b4_a2BW of _ { RightFrag rb1_d2tR b5_a1R2 ->
                    case <# rb_d2tT rb1_d2tR of _ {
                      False ->
                        case ==# rb_d2tT rb1_d2tR of _ {
                          False -> GT;
                          True ->
                            case compare @ n_aST w_s7Rb a5_a1R0 b5_a1R2 of _ {
                              LT -> LT;
                              EQ -> $w$j_s83n;
                              GT -> GT
                            }
                        };
                      True -> LT
                    }
                    }
                    }
                }
            };
          Single ipv_s2Cc -> LT
        };
      Single a1_a1RS ->
        case a1_a1RS of _ { MiddleFrag rb_s91w a2_s91v ->
        case w3_s7Re of _ {
          Compound ipv_s2Cf ipv1_s2Cg ipv2_s2Ch -> GT;
          Single b1_a1RT ->
            case b1_a1RT of _ { MiddleFrag rb1_s91B b2_s91C ->
            case <# rb_s91w rb1_s91B of _ {
              False ->
                case ==# rb_s91w rb1_s91B of _ {
                  False -> GT;
                  True -> compare @ n_aST w_s7Rb a2_s91v b2_s91C
                };
              True -> LT
            }
            }
        }
        }
    }

$fOrdPartialNums_$ccompare [InlPrag=INLINE[0]]
  :: forall n_aST.
     (Eq (PartialNums n_aST), Ord n_aST, Unbox n_aST) =>
     PartialNums n_aST -> PartialNums n_aST -> Ordering
[GblId,
 Arity=5,
 Str=DmdType ALLSS,
 Unf=Unf{Src=Worker=$w$ccompare, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= \ (@ n_aST)
                 _
                 (w1_s7Rb [Occ=Once] :: Ord n_aST)
                 (w2_s7Rc [Occ=Once] :: Unbox n_aST)
                 (w3_s7Rd [Occ=Once] :: PartialNums n_aST)
                 (w4_s7Re [Occ=Once] :: PartialNums n_aST) ->
                 $w$ccompare @ n_aST w1_s7Rb w2_s7Rc w3_s7Rd w4_s7Re}]
$fOrdPartialNums_$ccompare =
  \ (@ n_aST)
    _
    (w1_s7Rb :: Ord n_aST)
    (w2_s7Rc :: Unbox n_aST)
    (w3_s7Rd :: PartialNums n_aST)
    (w4_s7Re :: PartialNums n_aST) ->
    $w$ccompare @ n_aST w1_s7Rb w2_s7Rc w3_s7Rd w4_s7Re

$w$c<
  :: forall n_aST.
     (Ord n_aST, Unbox n_aST) =>
     PartialNums n_aST -> PartialNums n_aST -> Bool
[GblId, Arity=4, Str=DmdType LLSS]
$w$c< =
  \ (@ n_aST)
    (w_s7RM :: Ord n_aST)
    (w1_s7RN :: Unbox n_aST)
    (w2_s7RO :: PartialNums n_aST)
    (w3_s7RP :: PartialNums n_aST) ->
    case w2_s7RO of _ {
      Compound a1_a1RW a2_a1RX a3_a1RY ->
        case w3_s7RP of _ {
          Compound b1_a1RZ b2_a1S0 b3_a1S1 ->
            let {
              $w$j_s83p :: Bool
              [LclId, Str=DmdType]
              $w$j_s83p =
                case $p1Unbox @ n_aST w1_s7RN
                of _ { D:Vector _ _ _ ww3_s7Rk _ ww5_s7Rm _ _ ->
                case ww3_s7Rk a2_a1RX of _ { I# ipv_a3Qx ->
                case ww3_s7Rk b2_a1S0 of _ { I# ipv1_X3VT ->
                let {
                  lvl62_s99d :: n_aST -> n_aST -> Ordering
                  [LclId]
                  lvl62_s99d = compare @ n_aST w_s7RM } in
                letrec {
                  $s$wcmp_loop0_sadj [Occ=LoopBreaker] :: Int# -> Int# -> Ordering
                  [LclId, Arity=2, Str=DmdType LL]
                  $s$wcmp_loop0_sadj =
                    \ (sc_s9Q6 :: Int#) (sc1_s9Q7 :: Int#) ->
                      case >=# sc_s9Q6 ipv_a3Qx of _ {
                        False ->
                          case ww5_s7Rm @ Box $fMonadBox a2_a1RX (I# sc_s9Q6)
                          of _ { Box x1_a3R2 ->
                          case >=# sc1_s9Q7 ipv1_X3VT of _ {
                            False ->
                              case ww5_s7Rm @ Box $fMonadBox b2_a1S0 (I# sc1_s9Q7)
                              of _ { Box x2_X3Wq ->
                              case lvl62_s99d x1_a3R2 x2_X3Wq of wild6_a3TZ {
                                __DEFAULT -> wild6_a3TZ;
                                EQ -> $s$wcmp_loop0_sadj (+# sc_s9Q6 1) (+# sc1_s9Q7 1)
                              }
                              };
                            True -> GT
                          }
                          };
                        True ->
                          case >=# sc1_s9Q7 ipv1_X3VT of _ {
                            False ->
                              case ww5_s7Rm @ Box $fMonadBox b2_a1S0 (I# sc1_s9Q7)
                              of _ { Box _ ->
                              LT
                              };
                            True -> EQ
                          }
                      }; } in
                case $s$wcmp_loop0_sadj 0 0 of _ {
                  LT -> True;
                  EQ ->
                    case a3_a1RY of _ {
                      Nothing ->
                        case b3_a1S1 of _ {
                          Nothing -> False;
                          Just ipv2_a2CH -> True
                        };
                      Just a4_a2Cz ->
                        case b3_a1S1 of _ {
                          Nothing -> False;
                          Just b4_a2CE ->
                            case a4_a2Cz of _ { LeftFrag a5_a1PS ->
                            case b4_a2CE of _ { LeftFrag b5_a1PT ->
                            < @ n_aST w_s7RM a5_a1PS b5_a1PT
                            }
                            }
                        }
                    };
                  GT -> False
                }
                }
                }
                } } in
            case a1_a1RW of _ {
              Nothing ->
                case b1_a1RZ of _ {
                  Nothing -> $w$j_s83p;
                  Just ipv_a2BZ -> True
                };
              Just a4_a2BR ->
                case b1_a1RZ of _ {
                  Nothing -> False;
                  Just b4_a2BW ->
                    case a4_a2BR of _ { RightFrag rb_d2tT a5_a1R0 ->
                    case b4_a2BW of _ { RightFrag rb1_d2tR b5_a1R2 ->
                    case <# rb_d2tT rb1_d2tR of _ {
                      False ->
                        case ==# rb_d2tT rb1_d2tR of _ {
                          False -> False;
                          True ->
                            case compare @ n_aST w_s7RM a5_a1R0 b5_a1R2 of _ {
                              LT -> True;
                              EQ -> $w$j_s83p;
                              GT -> False
                            }
                        };
                      True -> True
                    }
                    }
                    }
                }
            };
          Single ipv_s2CK -> True
        };
      Single a1_a1S2 ->
        case a1_a1S2 of _ { MiddleFrag rb_s91J a2_s91I ->
        case w3_s7RP of _ {
          Compound ipv_s2CN ipv1_s2CO ipv2_s2CP -> False;
          Single b1_a1S3 ->
            case b1_a1S3 of _ { MiddleFrag rb1_s91O b2_s91P ->
            case <# rb_s91J rb1_s91O of _ {
              False ->
                case ==# rb_s91J rb1_s91O of _ {
                  False -> False;
                  True -> < @ n_aST w_s7RM a2_s91I b2_s91P
                };
              True -> True
            }
            }
        }
        }
    }

$fOrdPartialNums_$c< [InlPrag=INLINE[0]]
  :: forall n_aST.
     (Eq (PartialNums n_aST), Ord n_aST, Unbox n_aST) =>
     PartialNums n_aST -> PartialNums n_aST -> Bool
[GblId,
 Arity=5,
 Str=DmdType ALLSS,
 Unf=Unf{Src=Worker=$w$c<, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= \ (@ n_aST)
                 _
                 (w1_s7RM [Occ=Once] :: Ord n_aST)
                 (w2_s7RN [Occ=Once] :: Unbox n_aST)
                 (w3_s7RO [Occ=Once] :: PartialNums n_aST)
                 (w4_s7RP [Occ=Once] :: PartialNums n_aST) ->
                 $w$c< @ n_aST w1_s7RM w2_s7RN w3_s7RO w4_s7RP}]
$fOrdPartialNums_$c< =
  \ (@ n_aST)
    _
    (w1_s7RM :: Ord n_aST)
    (w2_s7RN :: Unbox n_aST)
    (w3_s7RO :: PartialNums n_aST)
    (w4_s7RP :: PartialNums n_aST) ->
    $w$c< @ n_aST w1_s7RM w2_s7RN w3_s7RO w4_s7RP

$w$c>=
  :: forall n_aST.
     (Ord n_aST, Unbox n_aST) =>
     PartialNums n_aST -> PartialNums n_aST -> Bool
[GblId, Arity=4, Str=DmdType LLSS]
$w$c>= =
  \ (@ n_aST)
    (w_s7Sn :: Ord n_aST)
    (w1_s7So :: Unbox n_aST)
    (w2_s7Sp :: PartialNums n_aST)
    (w3_s7Sq :: PartialNums n_aST) ->
    case w2_s7Sp of _ {
      Compound a1_a1Sg a2_a1Sh a3_a1Si ->
        case w3_s7Sq of _ {
          Compound b1_a1Sj b2_a1Sk b3_a1Sl ->
            let {
              $w$j_s83r :: Bool
              [LclId, Str=DmdType]
              $w$j_s83r =
                case $p1Unbox @ n_aST w1_s7So
                of _ { D:Vector _ _ _ ww3_s7RV _ ww5_s7RX _ _ ->
                case ww3_s7RV a2_a1Sh of _ { I# ipv_a3Qx ->
                case ww3_s7RV b2_a1Sk of _ { I# ipv1_X3VU ->
                let {
                  lvl62_s99e :: n_aST -> n_aST -> Ordering
                  [LclId]
                  lvl62_s99e = compare @ n_aST w_s7Sn } in
                letrec {
                  $s$wcmp_loop0_sadk [Occ=LoopBreaker] :: Int# -> Int# -> Ordering
                  [LclId, Arity=2, Str=DmdType LL]
                  $s$wcmp_loop0_sadk =
                    \ (sc_s9Qf :: Int#) (sc1_s9Qg :: Int#) ->
                      case >=# sc_s9Qf ipv_a3Qx of _ {
                        False ->
                          case ww5_s7RX @ Box $fMonadBox a2_a1Sh (I# sc_s9Qf)
                          of _ { Box x1_a3R2 ->
                          case >=# sc1_s9Qg ipv1_X3VU of _ {
                            False ->
                              case ww5_s7RX @ Box $fMonadBox b2_a1Sk (I# sc1_s9Qg)
                              of _ { Box x2_X3Wr ->
                              case lvl62_s99e x1_a3R2 x2_X3Wr of wild6_a3TZ {
                                __DEFAULT -> wild6_a3TZ;
                                EQ -> $s$wcmp_loop0_sadk (+# sc_s9Qf 1) (+# sc1_s9Qg 1)
                              }
                              };
                            True -> GT
                          }
                          };
                        True ->
                          case >=# sc1_s9Qg ipv1_X3VU of _ {
                            False ->
                              case ww5_s7RX @ Box $fMonadBox b2_a1Sk (I# sc1_s9Qg)
                              of _ { Box _ ->
                              LT
                              };
                            True -> EQ
                          }
                      }; } in
                case $s$wcmp_loop0_sadk 0 0 of _ {
                  LT -> False;
                  EQ ->
                    case a3_a1Si of _ {
                      Nothing ->
                        case b3_a1Sl of _ {
                          Nothing -> True;
                          Just ipv2_a2Df -> False
                        };
                      Just a4_a2D7 ->
                        case b3_a1Sl of _ {
                          Nothing -> True;
                          Just b4_a2Dc ->
                            case a4_a2D7 of _ { LeftFrag a5_a1Q0 ->
                            case b4_a2Dc of _ { LeftFrag b5_a1Q1 ->
                            >= @ n_aST w_s7Sn a5_a1Q0 b5_a1Q1
                            }
                            }
                        }
                    };
                  GT -> True
                }
                }
                }
                } } in
            case a1_a1Sg of _ {
              Nothing ->
                case b1_a1Sj of _ {
                  Nothing -> $w$j_s83r;
                  Just ipv_a2BZ -> False
                };
              Just a4_a2BR ->
                case b1_a1Sj of _ {
                  Nothing -> True;
                  Just b4_a2BW ->
                    case a4_a2BR of _ { RightFrag rb_d2tT a5_a1R0 ->
                    case b4_a2BW of _ { RightFrag rb1_d2tR b5_a1R2 ->
                    case <# rb_d2tT rb1_d2tR of _ {
                      False ->
                        case ==# rb_d2tT rb1_d2tR of _ {
                          False -> True;
                          True ->
                            case compare @ n_aST w_s7Sn a5_a1R0 b5_a1R2 of _ {
                              LT -> False;
                              EQ -> $w$j_s83r;
                              GT -> True
                            }
                        };
                      True -> False
                    }
                    }
                    }
                }
            };
          Single ipv_s2Di -> False
        };
      Single a1_a1Sm ->
        case a1_a1Sm of _ { MiddleFrag rb_s91W a2_s91V ->
        case w3_s7Sq of _ {
          Compound ipv_s2Dl ipv1_s2Dm ipv2_s2Dn -> True;
          Single b1_a1Sn ->
            case b1_a1Sn of _ { MiddleFrag rb1_s921 b2_s922 ->
            case <# rb_s91W rb1_s921 of _ {
              False ->
                case ==# rb_s91W rb1_s921 of _ {
                  False -> True;
                  True -> >= @ n_aST w_s7Sn a2_s91V b2_s922
                };
              True -> False
            }
            }
        }
        }
    }

$fOrdPartialNums_$c>= [InlPrag=INLINE[0]]
  :: forall n_aST.
     (Eq (PartialNums n_aST), Ord n_aST, Unbox n_aST) =>
     PartialNums n_aST -> PartialNums n_aST -> Bool
[GblId,
 Arity=5,
 Str=DmdType ALLSS,
 Unf=Unf{Src=Worker=$w$c>=, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= \ (@ n_aST)
                 _
                 (w1_s7Sn [Occ=Once] :: Ord n_aST)
                 (w2_s7So [Occ=Once] :: Unbox n_aST)
                 (w3_s7Sp [Occ=Once] :: PartialNums n_aST)
                 (w4_s7Sq [Occ=Once] :: PartialNums n_aST) ->
                 $w$c>= @ n_aST w1_s7Sn w2_s7So w3_s7Sp w4_s7Sq}]
$fOrdPartialNums_$c>= =
  \ (@ n_aST)
    _
    (w1_s7Sn :: Ord n_aST)
    (w2_s7So :: Unbox n_aST)
    (w3_s7Sp :: PartialNums n_aST)
    (w4_s7Sq :: PartialNums n_aST) ->
    $w$c>= @ n_aST w1_s7Sn w2_s7So w3_s7Sp w4_s7Sq

$w$c>
  :: forall n_aST.
     (Ord n_aST, Unbox n_aST) =>
     PartialNums n_aST -> PartialNums n_aST -> Bool
[GblId, Arity=4, Str=DmdType LLSS]
$w$c> =
  \ (@ n_aST)
    (w_s7SY :: Ord n_aST)
    (w1_s7SZ :: Unbox n_aST)
    (w2_s7T0 :: PartialNums n_aST)
    (w3_s7T1 :: PartialNums n_aST) ->
    case w2_s7T0 of _ {
      Compound a1_a1Sq a2_a1Sr a3_a1Ss ->
        case w3_s7T1 of _ {
          Compound b1_a1St b2_a1Su b3_a1Sv ->
            let {
              $w$j_s83t :: Bool
              [LclId, Str=DmdType]
              $w$j_s83t =
                case $p1Unbox @ n_aST w1_s7SZ
                of _ { D:Vector _ _ _ ww3_s7Sw _ ww5_s7Sy _ _ ->
                case ww3_s7Sw a2_a1Sr of _ { I# ipv_a3Qx ->
                case ww3_s7Sw b2_a1Su of _ { I# ipv1_X3VV ->
                let {
                  lvl62_s99f :: n_aST -> n_aST -> Ordering
                  [LclId]
                  lvl62_s99f = compare @ n_aST w_s7SY } in
                letrec {
                  $s$wcmp_loop0_sadl [Occ=LoopBreaker] :: Int# -> Int# -> Ordering
                  [LclId, Arity=2, Str=DmdType LL]
                  $s$wcmp_loop0_sadl =
                    \ (sc_s9Qo :: Int#) (sc1_s9Qp :: Int#) ->
                      case >=# sc_s9Qo ipv_a3Qx of _ {
                        False ->
                          case ww5_s7Sy @ Box $fMonadBox a2_a1Sr (I# sc_s9Qo)
                          of _ { Box x1_a3R2 ->
                          case >=# sc1_s9Qp ipv1_X3VV of _ {
                            False ->
                              case ww5_s7Sy @ Box $fMonadBox b2_a1Su (I# sc1_s9Qp)
                              of _ { Box x2_X3Ws ->
                              case lvl62_s99f x1_a3R2 x2_X3Ws of wild6_a3TZ {
                                __DEFAULT -> wild6_a3TZ;
                                EQ -> $s$wcmp_loop0_sadl (+# sc_s9Qo 1) (+# sc1_s9Qp 1)
                              }
                              };
                            True -> GT
                          }
                          };
                        True ->
                          case >=# sc1_s9Qp ipv1_X3VV of _ {
                            False ->
                              case ww5_s7Sy @ Box $fMonadBox b2_a1Su (I# sc1_s9Qp)
                              of _ { Box _ ->
                              LT
                              };
                            True -> EQ
                          }
                      }; } in
                case $s$wcmp_loop0_sadl 0 0 of _ {
                  LT -> False;
                  EQ ->
                    case a3_a1Ss of _ {
                      Nothing ->
                        case b3_a1Sv of _ {
                          Nothing -> False;
                          Just ipv2_a2DN -> False
                        };
                      Just a4_a2DF ->
                        case b3_a1Sv of _ {
                          Nothing -> True;
                          Just b4_a2DK ->
                            case a4_a2DF of _ { LeftFrag a5_a1Q4 ->
                            case b4_a2DK of _ { LeftFrag b5_a1Q5 ->
                            > @ n_aST w_s7SY a5_a1Q4 b5_a1Q5
                            }
                            }
                        }
                    };
                  GT -> True
                }
                }
                }
                } } in
            case a1_a1Sq of _ {
              Nothing ->
                case b1_a1St of _ {
                  Nothing -> $w$j_s83t;
                  Just ipv_a2BZ -> False
                };
              Just a4_a2BR ->
                case b1_a1St of _ {
                  Nothing -> True;
                  Just b4_a2BW ->
                    case a4_a2BR of _ { RightFrag rb_d2tT a5_a1R0 ->
                    case b4_a2BW of _ { RightFrag rb1_d2tR b5_a1R2 ->
                    case <# rb_d2tT rb1_d2tR of _ {
                      False ->
                        case ==# rb_d2tT rb1_d2tR of _ {
                          False -> True;
                          True ->
                            case compare @ n_aST w_s7SY a5_a1R0 b5_a1R2 of _ {
                              LT -> False;
                              EQ -> $w$j_s83t;
                              GT -> True
                            }
                        };
                      True -> False
                    }
                    }
                    }
                }
            };
          Single ipv_s2DQ -> False
        };
      Single a1_a1Sw ->
        case a1_a1Sw of _ { MiddleFrag rb_s929 a2_s928 ->
        case w3_s7T1 of _ {
          Compound ipv_s2DT ipv1_s2DU ipv2_s2DV -> True;
          Single b1_a1Sx ->
            case b1_a1Sx of _ { MiddleFrag rb1_s92e b2_s92f ->
            case <# rb_s929 rb1_s92e of _ {
              False ->
                case ==# rb_s929 rb1_s92e of _ {
                  False -> True;
                  True -> > @ n_aST w_s7SY a2_s928 b2_s92f
                };
              True -> False
            }
            }
        }
        }
    }

$fOrdPartialNums_$c> [InlPrag=INLINE[0]]
  :: forall n_aST.
     (Eq (PartialNums n_aST), Ord n_aST, Unbox n_aST) =>
     PartialNums n_aST -> PartialNums n_aST -> Bool
[GblId,
 Arity=5,
 Str=DmdType ALLSS,
 Unf=Unf{Src=Worker=$w$c>, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= \ (@ n_aST)
                 _
                 (w1_s7SY [Occ=Once] :: Ord n_aST)
                 (w2_s7SZ [Occ=Once] :: Unbox n_aST)
                 (w3_s7T0 [Occ=Once] :: PartialNums n_aST)
                 (w4_s7T1 [Occ=Once] :: PartialNums n_aST) ->
                 $w$c> @ n_aST w1_s7SY w2_s7SZ w3_s7T0 w4_s7T1}]
$fOrdPartialNums_$c> =
  \ (@ n_aST)
    _
    (w1_s7SY :: Ord n_aST)
    (w2_s7SZ :: Unbox n_aST)
    (w3_s7T0 :: PartialNums n_aST)
    (w4_s7T1 :: PartialNums n_aST) ->
    $w$c> @ n_aST w1_s7SY w2_s7SZ w3_s7T0 w4_s7T1

$w$c<=
  :: forall n_aST.
     (Ord n_aST, Unbox n_aST) =>
     PartialNums n_aST -> PartialNums n_aST -> Bool
[GblId, Arity=4, Str=DmdType LLSS]
$w$c<= =
  \ (@ n_aST)
    (w_s7Tz :: Ord n_aST)
    (w1_s7TA :: Unbox n_aST)
    (w2_s7TB :: PartialNums n_aST)
    (w3_s7TC :: PartialNums n_aST) ->
    case w2_s7TB of _ {
      Compound a1_a1S6 a2_a1S7 a3_a1S8 ->
        case w3_s7TC of _ {
          Compound b1_a1S9 b2_a1Sa b3_a1Sb ->
            let {
              $w$j_s83v :: Bool
              [LclId, Str=DmdType]
              $w$j_s83v =
                case $p1Unbox @ n_aST w1_s7TA
                of _ { D:Vector _ _ _ ww3_s7T7 _ ww5_s7T9 _ _ ->
                case ww3_s7T7 a2_a1S7 of _ { I# ipv_a3Qx ->
                case ww3_s7T7 b2_a1Sa of _ { I# ipv1_X3VW ->
                let {
                  lvl62_s99g :: n_aST -> n_aST -> Ordering
                  [LclId]
                  lvl62_s99g = compare @ n_aST w_s7Tz } in
                letrec {
                  $s$wcmp_loop0_sadm [Occ=LoopBreaker] :: Int# -> Int# -> Ordering
                  [LclId, Arity=2, Str=DmdType LL]
                  $s$wcmp_loop0_sadm =
                    \ (sc_s9Qx :: Int#) (sc1_s9Qy :: Int#) ->
                      case >=# sc_s9Qx ipv_a3Qx of _ {
                        False ->
                          case ww5_s7T9 @ Box $fMonadBox a2_a1S7 (I# sc_s9Qx)
                          of _ { Box x1_a3R2 ->
                          case >=# sc1_s9Qy ipv1_X3VW of _ {
                            False ->
                              case ww5_s7T9 @ Box $fMonadBox b2_a1Sa (I# sc1_s9Qy)
                              of _ { Box x2_X3Wt ->
                              case lvl62_s99g x1_a3R2 x2_X3Wt of wild6_a3TZ {
                                __DEFAULT -> wild6_a3TZ;
                                EQ -> $s$wcmp_loop0_sadm (+# sc_s9Qx 1) (+# sc1_s9Qy 1)
                              }
                              };
                            True -> GT
                          }
                          };
                        True ->
                          case >=# sc1_s9Qy ipv1_X3VW of _ {
                            False ->
                              case ww5_s7T9 @ Box $fMonadBox b2_a1Sa (I# sc1_s9Qy)
                              of _ { Box _ ->
                              LT
                              };
                            True -> EQ
                          }
                      }; } in
                case $s$wcmp_loop0_sadm 0 0 of _ {
                  LT -> True;
                  EQ ->
                    case a3_a1S8 of _ {
                      Nothing ->
                        case b3_a1Sb of _ {
                          Nothing -> True;
                          Just ipv2_a2El -> True
                        };
                      Just a4_a2Ed ->
                        case b3_a1Sb of _ {
                          Nothing -> False;
                          Just b4_a2Ei ->
                            case a4_a2Ed of _ { LeftFrag a5_a1PW ->
                            case b4_a2Ei of _ { LeftFrag b5_a1PX ->
                            <= @ n_aST w_s7Tz a5_a1PW b5_a1PX
                            }
                            }
                        }
                    };
                  GT -> False
                }
                }
                }
                } } in
            case a1_a1S6 of _ {
              Nothing ->
                case b1_a1S9 of _ {
                  Nothing -> $w$j_s83v;
                  Just ipv_a2BZ -> True
                };
              Just a4_a2BR ->
                case b1_a1S9 of _ {
                  Nothing -> False;
                  Just b4_a2BW ->
                    case a4_a2BR of _ { RightFrag rb_d2tT a5_a1R0 ->
                    case b4_a2BW of _ { RightFrag rb1_d2tR b5_a1R2 ->
                    case <# rb_d2tT rb1_d2tR of _ {
                      False ->
                        case ==# rb_d2tT rb1_d2tR of _ {
                          False -> False;
                          True ->
                            case compare @ n_aST w_s7Tz a5_a1R0 b5_a1R2 of _ {
                              LT -> True;
                              EQ -> $w$j_s83v;
                              GT -> False
                            }
                        };
                      True -> True
                    }
                    }
                    }
                }
            };
          Single ipv_s2Eo -> True
        };
      Single a1_a1Sc ->
        case a1_a1Sc of _ { MiddleFrag rb_s92m a2_s92l ->
        case w3_s7TC of _ {
          Compound ipv_s2Er ipv1_s2Es ipv2_s2Et -> False;
          Single b1_a1Sd ->
            case b1_a1Sd of _ { MiddleFrag rb1_s92r b2_s92s ->
            case <# rb_s92m rb1_s92r of _ {
              False ->
                case ==# rb_s92m rb1_s92r of _ {
                  False -> False;
                  True -> <= @ n_aST w_s7Tz a2_s92l b2_s92s
                };
              True -> True
            }
            }
        }
        }
    }

$fOrdPartialNums_$c<= [InlPrag=INLINE[0]]
  :: forall n_aST.
     (Eq (PartialNums n_aST), Ord n_aST, Unbox n_aST) =>
     PartialNums n_aST -> PartialNums n_aST -> Bool
[GblId,
 Arity=5,
 Str=DmdType ALLSS,
 Unf=Unf{Src=Worker=$w$c<=, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= \ (@ n_aST)
                 _
                 (w1_s7Tz [Occ=Once] :: Ord n_aST)
                 (w2_s7TA [Occ=Once] :: Unbox n_aST)
                 (w3_s7TB [Occ=Once] :: PartialNums n_aST)
                 (w4_s7TC [Occ=Once] :: PartialNums n_aST) ->
                 $w$c<= @ n_aST w1_s7Tz w2_s7TA w3_s7TB w4_s7TC}]
$fOrdPartialNums_$c<= =
  \ (@ n_aST)
    _
    (w1_s7Tz :: Ord n_aST)
    (w2_s7TA :: Unbox n_aST)
    (w3_s7TB :: PartialNums n_aST)
    (w4_s7TC :: PartialNums n_aST) ->
    $w$c<= @ n_aST w1_s7Tz w2_s7TA w3_s7TB w4_s7TC

$fOrdPartialNums_$cmin
  :: forall n_aST.
     (Eq (PartialNums n_aST), Ord n_aST, Unbox n_aST) =>
     PartialNums n_aST -> PartialNums n_aST -> PartialNums n_aST
[GblId,
 Arity=5,
 Str=DmdType ALLSS,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_X13O)
                 ($dEq_a2ak [Occ=Once] :: Eq (PartialNums n_X13O))
                 ($dOrd_a2al [Occ=Once] :: Ord n_X13O)
                 ($dUnbox_a2am [Occ=Once] :: Unbox n_X13O)
                 (x_a2x1 :: PartialNums n_X13O)
                 (y_a2x2 :: PartialNums n_X13O) ->
                 case $fOrdPartialNums_$c<=
                        @ n_X13O $dEq_a2ak $dOrd_a2al $dUnbox_a2am x_a2x1 y_a2x2
                 of _ {
                   False -> y_a2x2;
                   True -> x_a2x1
                 }}]
$fOrdPartialNums_$cmin =
  \ (@ n_X13O)
    _
    ($dOrd_a2al :: Ord n_X13O)
    ($dUnbox_a2am :: Unbox n_X13O)
    (x_a2x1 :: PartialNums n_X13O)
    (y_a2x2 :: PartialNums n_X13O) ->
    case $w$c<= @ n_X13O $dOrd_a2al $dUnbox_a2am x_a2x1 y_a2x2 of _ {
      False -> y_a2x2;
      True -> x_a2x1
    }

$fOrdPartialNums_$cmax
  :: forall n_aST.
     (Eq (PartialNums n_aST), Ord n_aST, Unbox n_aST) =>
     PartialNums n_aST -> PartialNums n_aST -> PartialNums n_aST
[GblId,
 Arity=5,
 Str=DmdType ALLSS,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_X13P)
                 ($dEq_a2ak [Occ=Once] :: Eq (PartialNums n_X13P))
                 ($dOrd_a2al [Occ=Once] :: Ord n_X13P)
                 ($dUnbox_a2am [Occ=Once] :: Unbox n_X13P)
                 (x_a2xb :: PartialNums n_X13P)
                 (y_a2xc :: PartialNums n_X13P) ->
                 case $fOrdPartialNums_$c<=
                        @ n_X13P $dEq_a2ak $dOrd_a2al $dUnbox_a2am x_a2xb y_a2xc
                 of _ {
                   False -> x_a2xb;
                   True -> y_a2xc
                 }}]
$fOrdPartialNums_$cmax =
  \ (@ n_X13P)
    _
    ($dOrd_a2al :: Ord n_X13P)
    ($dUnbox_a2am :: Unbox n_X13P)
    (x_a2xb :: PartialNums n_X13P)
    (y_a2xc :: PartialNums n_X13P) ->
    case $w$c<= @ n_X13P $dOrd_a2al $dUnbox_a2am x_a2xb y_a2xc of _ {
      False -> x_a2xb;
      True -> y_a2xc
    }

$fOrdPartialNums [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aST.
     (Eq (PartialNums n_aST), Ord n_aST, Unbox n_aST) =>
     Ord (PartialNums n_aST)
[GblId[DFunId[1]],
 Arity=3,
 Str=DmdType LLLm,
 Unf=DFun(arity=4) D:Ord [<1>, {$fOrdPartialNums_$ccompare},
                          {$fOrdPartialNums_$c<}, {$fOrdPartialNums_$c>=},
                          {$fOrdPartialNums_$c>}, {$fOrdPartialNums_$c<=},
                          {$fOrdPartialNums_$cmax}, {$fOrdPartialNums_$cmin}]]
$fOrdPartialNums =
  \ (@ n_X13Q)
    ($dEq_a2ak :: Eq (PartialNums n_X13Q))
    ($dOrd_a2al :: Ord n_X13Q)
    ($dUnbox_a2am :: Unbox n_X13Q) ->
    D:Ord
      @ (PartialNums n_X13Q)
      $dEq_a2ak
      (\ (w_s7Rd :: PartialNums n_X13Q)
         (w1_s7Re :: PartialNums n_X13Q) ->
         $w$ccompare @ n_X13Q $dOrd_a2al $dUnbox_a2am w_s7Rd w1_s7Re)
      (\ (w_s7RO :: PartialNums n_X13Q)
         (w1_s7RP :: PartialNums n_X13Q) ->
         $w$c< @ n_X13Q $dOrd_a2al $dUnbox_a2am w_s7RO w1_s7RP)
      (\ (w_s7Sp :: PartialNums n_X13Q)
         (w1_s7Sq :: PartialNums n_X13Q) ->
         $w$c>= @ n_X13Q $dOrd_a2al $dUnbox_a2am w_s7Sp w1_s7Sq)
      (\ (w_s7T0 :: PartialNums n_X13Q)
         (w1_s7T1 :: PartialNums n_X13Q) ->
         $w$c> @ n_X13Q $dOrd_a2al $dUnbox_a2am w_s7T0 w1_s7T1)
      (\ (w_s7TB :: PartialNums n_X13Q)
         (w1_s7TC :: PartialNums n_X13Q) ->
         $w$c<= @ n_X13Q $dOrd_a2al $dUnbox_a2am w_s7TB w1_s7TC)
      ($fOrdPartialNums_$cmax @ n_X13Q $dEq_a2ak $dOrd_a2al $dUnbox_a2am)
      ($fOrdPartialNums_$cmin @ n_X13Q $dEq_a2ak $dOrd_a2al $dUnbox_a2am)

$fShowLeftFrag1 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 60 0}]
$fShowLeftFrag1 = unpackCString# "LeftFrag "

$w$cshowsPrec :: forall n_aSR. Show n_aSR => Int# -> n_aSR -> ShowS
[GblId,
 Arity=3,
 Str=DmdType LLS,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [30 0 0] 211 120}]
$w$cshowsPrec =
  \ (@ n_aSR)
    (w_s7TH :: Show n_aSR)
    (ww_s7TK :: Int#)
    (ww1_s7TO :: n_aSR) ->
    let {
      g_a2y6 [Dmd=Just L] :: String -> String
      [LclId, Str=DmdType]
      g_a2y6 = showsPrec @ n_aSR w_s7TH $fReadLeftFrag4 ww1_s7TO } in
    case >=# ww_s7TK 11 of _ {
      False ->
        \ (x_a2y7 :: String) -> ++ @ Char $fShowLeftFrag1 (g_a2y6 x_a2y7);
      True ->
        \ (x_a2xQ :: String) ->
          : @ Char
            shows11
            (++ @ Char $fShowLeftFrag1 (g_a2y6 (: @ Char shows10 x_a2xQ)))
    }

$fShowLeftFrag_$cshowsPrec [InlPrag=INLINE[0]]
  :: forall n_aSR. Show n_aSR => Int -> LeftFrag n_aSR -> ShowS
[GblId,
 Arity=3,
 Str=DmdType LU(L)U(S),
 Unf=Unf{Src=Worker=$w$cshowsPrec, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aSR)
                 (w_s7TH [Occ=Once] :: Show n_aSR)
                 (w1_s7TI [Occ=Once!] :: Int)
                 (w2_s7TM [Occ=Once!] :: LeftFrag n_aSR) ->
                 case w1_s7TI of _ { I# ww_s7TK [Occ=Once] ->
                 case w2_s7TM of _ { LeftFrag ww1_s7TO [Occ=Once] ->
                 $w$cshowsPrec @ n_aSR w_s7TH ww_s7TK ww1_s7TO
                 }
                 }}]
$fShowLeftFrag_$cshowsPrec =
  \ (@ n_aSR)
    (w_s7TH :: Show n_aSR)
    (w1_s7TI :: Int)
    (w2_s7TM :: LeftFrag n_aSR) ->
    case w1_s7TI of _ { I# ww_s7TK ->
    case w2_s7TM of _ { LeftFrag ww1_s7TO ->
    $w$cshowsPrec @ n_aSR w_s7TH ww_s7TK ww1_s7TO
    }
    }

$fShowLeftFrag_$cshowList
  :: forall n_aSR. Show n_aSR => [LeftFrag n_aSR] -> ShowS
[GblId,
 Arity=3,
 Str=DmdType LSL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 0] 100 0}]
$fShowLeftFrag_$cshowList =
  \ (@ n_XW0)
    ($dShow_a22y :: Show n_XW0)
    (eta_B2 :: [LeftFrag n_XW0])
    (eta1_B1 :: String) ->
    showList__
      @ (LeftFrag n_XW0)
      (\ (w_s7TM :: LeftFrag n_XW0) ->
         case w_s7TM of _ { LeftFrag ww_s7TO ->
         $w$cshowsPrec @ n_XW0 $dShow_a22y 0 ww_s7TO
         })
      eta_B2
      eta1_B1

$fShowLeftFrag_$cshow
  :: forall n_aSR. Show n_aSR => LeftFrag n_aSR -> String
[GblId,
 Arity=2,
 Str=DmdType LU(S),
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_XW2)
                 ($dShow_a22y [Occ=Once] :: Show n_XW2)
                 (x_a2yw [Occ=Once] :: LeftFrag n_XW2) ->
                 $fShowLeftFrag_$cshowsPrec
                   @ n_XW2 $dShow_a22y shows26 x_a2yw ([] @ Char)}]
$fShowLeftFrag_$cshow =
  \ (@ n_XW2)
    ($dShow_a22y :: Show n_XW2)
    (x_a2yw :: LeftFrag n_XW2) ->
    case x_a2yw of _ { LeftFrag ww_s7TO ->
    $w$cshowsPrec @ n_XW2 $dShow_a22y 0 ww_s7TO ([] @ Char)
    }

$fShowLeftFrag [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aSR. Show n_aSR => Show (LeftFrag n_aSR)
[GblId[DFunId],
 Arity=1,
 Str=DmdType Lm,
 Unf=DFun(arity=2) D:Show [{$fShowLeftFrag_$cshowsPrec},
                           {$fShowLeftFrag_$cshow}, {$fShowLeftFrag_$cshowList}]]
$fShowLeftFrag =
  \ (@ n_XW1) ($dShow_a22y :: Show n_XW1) ->
    D:Show
      @ (LeftFrag n_XW1)
      ($fShowLeftFrag_$cshowsPrec @ n_XW1 $dShow_a22y)
      ($fShowLeftFrag_$cshow @ n_XW1 $dShow_a22y)
      ($fShowLeftFrag_$cshowList @ n_XW1 $dShow_a22y)

$fShowPartialNums8 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 60 0}]
$fShowPartialNums8 = unpackCString# "Compound "

$fShowPartialNums1 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 50 0}]
$fShowPartialNums1 = unpackCString# "Single "

$w$cshowsPrec2
  :: forall n_aST.
     (Show n_aST, Unbox n_aST) =>
     Int# -> PartialNums n_aST -> ShowS
[GblId,
 Arity=4,
 Str=DmdType LLLS,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 0 261] 822 240}]
$w$cshowsPrec2 =
  \ (@ n_aST)
    (w_s7TV :: Show n_aST)
    (w1_s7TW :: Unbox n_aST)
    (ww_s7TZ :: Int#)
    (w2_s7U1 :: PartialNums n_aST) ->
    case w2_s7U1 of _ {
      Compound b1_a1Rv b2_a1Rw b3_a1Rx ->
        let {
          f_X2Vt [Dmd=Just L] :: String -> String
          [LclId, Str=DmdType]
          f_X2Vt = $w$cshowsPrec @ n_aST w_s7TV w1_s7TW 11 b2_a1Rw } in
        let {
          p_a2xL :: ShowS
          [LclId, Arity=1, Str=DmdType L]
          p_a2xL =
            \ (x_X2JZ :: String) ->
              ++
                @ Char
                $fShowPartialNums8
                (let {
                   a_s5Cx [Dmd=Just L] :: String
                   [LclId, Str=DmdType]
                   a_s5Cx =
                     f_X2Vt
                       (: @ Char
                          showSpace1
                          (case b3_a1Rx of _ {
                             Nothing -> ++ @ Char $fShowMaybe2 x_X2JZ;
                             Just x1_a2EP ->
                               : @ Char
                                 shows11
                                 (++
                                    @ Char
                                    $fShowMaybe1
                                    (case x1_a2EP of _ { LeftFrag ww1_s7TO ->
                                     $w$cshowsPrec
                                       @ n_aST w_s7TV 11 ww1_s7TO (: @ Char shows10 x_X2JZ)
                                     }))
                           })) } in
                 case b1_a1Rv of _ {
                   Nothing -> ++ @ Char $fShowMaybe2 (: @ Char showSpace1 a_s5Cx);
                   Just x1_a2EP ->
                     : @ Char
                       shows11
                       (++
                          @ Char
                          $fShowMaybe1
                          (case x1_a2EP of _ { RightFrag ww1_s7P8 ww2_s7P9 ->
                           $w$cshowsPrec3
                             @ n_aST
                             w_s7TV
                             11
                             ww1_s7P8
                             ww2_s7P9
                             (: @ Char shows10 (: @ Char showSpace1 a_s5Cx))
                           }))
                 }) } in
        case >=# ww_s7TZ 11 of _ {
          False -> p_a2xL;
          True ->
            \ (x_a2xQ :: String) ->
              : @ Char shows11 (p_a2xL (: @ Char shows10 x_a2xQ))
        };
      Single b1_a1Rz ->
        case b1_a1Rz of _ { MiddleFrag ww1_s92y ww2_s92x ->
        let {
          g_a2y6 [Dmd=Just L] :: String -> String
          [LclId, Str=DmdType]
          g_a2y6 = $w$cshowsPrec1 @ n_aST w_s7TV 11 ww1_s92y ww2_s92x } in
        case >=# ww_s7TZ 11 of _ {
          False ->
            \ (x_a2y7 :: String) ->
              ++ @ Char $fShowPartialNums1 (g_a2y6 x_a2y7);
          True ->
            \ (x_a2xQ :: String) ->
              : @ Char
                shows11
                (++ @ Char $fShowPartialNums1 (g_a2y6 (: @ Char shows10 x_a2xQ)))
        }
        }
    }

$fShowPartialNums_$cshowsPrec [InlPrag=INLINE[0]]
  :: forall n_aST.
     (Show n_aST, Unbox n_aST) =>
     Int -> PartialNums n_aST -> ShowS
[GblId,
 Arity=4,
 Str=DmdType LLU(L)S,
 Unf=Unf{Src=Worker=$w$cshowsPrec2, TopLvl=True, Arity=4,
         Value=True, ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ n_aST)
                 (w_s7TV [Occ=Once] :: Show n_aST)
                 (w1_s7TW [Occ=Once] :: Unbox n_aST)
                 (w2_s7TX [Occ=Once!] :: Int)
                 (w3_s7U1 [Occ=Once] :: PartialNums n_aST) ->
                 case w2_s7TX of _ { I# ww_s7TZ [Occ=Once] ->
                 $w$cshowsPrec2 @ n_aST w_s7TV w1_s7TW ww_s7TZ w3_s7U1
                 }}]
$fShowPartialNums_$cshowsPrec =
  \ (@ n_aST)
    (w_s7TV :: Show n_aST)
    (w1_s7TW :: Unbox n_aST)
    (w2_s7TX :: Int)
    (w3_s7U1 :: PartialNums n_aST) ->
    case w2_s7TX of _ { I# ww_s7TZ ->
    $w$cshowsPrec2 @ n_aST w_s7TV w1_s7TW ww_s7TZ w3_s7U1
    }

$fShowPartialNums_$cshowList
  :: forall n_aST.
     (Show n_aST, Unbox n_aST) =>
     [PartialNums n_aST] -> ShowS
[GblId,
 Arity=4,
 Str=DmdType LLSL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 0 0] 100 0}]
$fShowPartialNums_$cshowList =
  \ (@ n_X14c)
    ($dShow_a29J :: Show n_X14c)
    ($dUnbox_a29K :: Unbox n_X14c)
    (eta_B2 :: [PartialNums n_X14c])
    (eta1_B1 :: String) ->
    showList__
      @ (PartialNums n_X14c)
      (\ (w_s7U1 :: PartialNums n_X14c) ->
         $w$cshowsPrec2 @ n_X14c $dShow_a29J $dUnbox_a29K 0 w_s7U1)
      eta_B2
      eta1_B1

$fShowPartialNums_$cshow
  :: forall n_aST.
     (Show n_aST, Unbox n_aST) =>
     PartialNums n_aST -> String
[GblId,
 Arity=3,
 Str=DmdType LLS,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=3, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 0] 60 0}]
$fShowPartialNums_$cshow =
  \ (@ n_X14e)
    ($dShow_a29J :: Show n_X14e)
    ($dUnbox_a29K :: Unbox n_X14e)
    (x_a2yw :: PartialNums n_X14e) ->
    $w$cshowsPrec2
      @ n_X14e $dShow_a29J $dUnbox_a29K 0 x_a2yw ([] @ Char)

$fShowPartialNums [InlPrag=[ALWAYS] CONLIKE]
  :: forall n_aST.
     (Show n_aST, Unbox n_aST) =>
     Show (PartialNums n_aST)
[GblId[DFunId],
 Arity=2,
 Str=DmdType LLm,
 Unf=DFun(arity=3) D:Show [{$fShowPartialNums_$cshowsPrec},
                           {$fShowPartialNums_$cshow}, {$fShowPartialNums_$cshowList}]]
$fShowPartialNums =
  \ (@ n_X14d)
    ($dShow_a29J :: Show n_X14d)
    ($dUnbox_a29K :: Unbox n_X14d) ->
    D:Show
      @ (PartialNums n_X14d)
      ($fShowPartialNums_$cshowsPrec @ n_X14d $dShow_a29J $dUnbox_a29K)
      ($fShowPartialNums_$cshow @ n_X14d $dShow_a29J $dUnbox_a29K)
      ($fShowPartialNums_$cshowList @ n_X14d $dShow_a29J $dUnbox_a29K)

lvl5_rbaw :: Char
[GblId, Caf=NoCafRefs, Str=DmdType m]
lvl5_rbaw = C# '>'

lvl6_rbax :: [Char]
[GblId, Caf=NoCafRefs, Str=DmdType]
lvl6_rbax = : @ Char lvl5_rbaw ([] @ Char)

lvl7_rbay :: [Char]
[GblId, Caf=NoCafRefs, Str=DmdType]
lvl7_rbay = : @ Char lvl5_rbaw ([] @ Char)

Rec {
consume2 [Occ=LoopBreaker]
  :: [PartialNums Word]
     -> State# RealWorld -> (# State# RealWorld, () #)
[GblId, Arity=2, Str=DmdType SL]
consume2 =
  \ (ds_a2FB :: [PartialNums Word]) (eta_X57 :: State# RealWorld) ->
    case ds_a2FB of _ {
      [] -> (# eta_X57, () #);
      : y_a2FG ys_a2FH ->
        case y_a2FG of _ {
          Compound ds1_d2lM uv_a1hO ds2_d2lN ->
            case uv_a1hO
                 `cast` (<TFCo:R:VectorWord> ; <NTCo:R:VectorWord>
                         :: Vector Word ~# Vector Word)
            of _ { Vector _ rb1_s92H _ ->
            case hPutStr2
                   stdout
                   (unpackAppendCString#
                      " <segment, length "
                      (++ @ Char ($wshowSignedInt 0 rb1_s92H ([] @ Char)) lvl6_rbax))
                   True
                   eta_X57
            of _ { (# ipv_X4bM, _ #) ->
            consume2 ys_a2FH ipv_X4bM
            }
            };
          Single ds1_d2lL ->
            case ds1_d2lL of _ { MiddleFrag rb_s92P x_s92O ->
            case x_s92O of _ { W# w_s92T ->
            case hPutStr2
                   stdout
                   (unpackAppendCString#
                      " <middle frag "
                      (++
                         @ Char
                         (show_tuple
                            (: @ ShowS
                               (\ (w1_a6Sj :: String) -> $wshowSignedInt 0 rb_s92P w1_a6Sj)
                               (: @ ShowS
                                  (\ (eta1_a71y :: String) -> showWord w_s92T eta1_a71y)
                                  ([] @ ShowS)))
                            ([] @ Char))
                         lvl7_rbay))
                   True
                   eta_X57
            of _ { (# ipv_X4bM, _ #) ->
            consume2 ys_a2FH ipv_X4bM
            }
            }
            }
        }
    }
end Rec }

consume3 :: [Char]
[GblId,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 80 0}]
consume3 = unpackCString# " segments of output"

consume1
  :: [PartialNums Word]
     -> State# RealWorld -> (# State# RealWorld, () #)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0] 291 0}]
consume1 =
  \ (x_a1hK :: [PartialNums Word]) (eta_B1 :: State# RealWorld) ->
    case seq#
           @ ()
           @ RealWorld
           ($fNFDataArray_$crnf1
              @ (PartialNums Word)
              (($fNFDataPartialNums_$crnf @ Word)
               `cast` (Sym <(NTCo:NFData <PartialNums Word>)>
                       :: (PartialNums Word -> ()) ~# NFData (PartialNums Word)))
              x_a1hK)
           eta_B1
    of _ { (# ipv_a46r, _ #) ->
    case hPutStr2
           stdout
           (unpackAppendCString#
              "Result: "
              (case $wlen @ (PartialNums Word) x_a1hK 0 of ww_a71L { __DEFAULT ->
               ++ @ Char ($wshowSignedInt 0 ww_a71L ([] @ Char)) consume3
               }))
           True
           ipv_a46r
    of _ { (# ipv2_X4d0, _ #) ->
    consume2 x_a1hK ipv2_X4d0
    }
    }

consume_$sconsume :: [PartialNums Word] -> IO ()
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
consume_$sconsume =
  consume1
  `cast` (<[PartialNums Word]> -> Sym <(NTCo:IO <()>)>
          :: ([PartialNums Word]
              -> State# RealWorld -> (# State# RealWorld, () #))
               ~#
             ([PartialNums Word] -> IO ()))

lvl8_rbaz :: [Char]
[GblId, Caf=NoCafRefs, Str=DmdType]
lvl8_rbaz = : @ Char lvl5_rbaw ([] @ Char)

lvl9_rbaA :: [Char]
[GblId, Caf=NoCafRefs, Str=DmdType]
lvl9_rbaA = : @ Char lvl5_rbaw ([] @ Char)

consume4
  :: forall n_tQ.
     (Show n_tQ, Unbox n_tQ) =>
     [PartialNums n_tQ]
     -> State# RealWorld -> (# State# RealWorld, () #)
[GblId, Arity=4, Str=DmdType LLLL]
consume4 =
  \ (@ n_tQ)
    ($dShow_a1TD :: Show n_tQ)
    ($dUnbox_a1TE :: Unbox n_tQ)
    (eta_B2 :: [PartialNums n_tQ])
    (eta1_B1 :: State# RealWorld) ->
    case seq#
           @ ()
           @ RealWorld
           ($fNFDataArray_$crnf1
              @ (PartialNums n_tQ)
              (($fNFDataPartialNums_$crnf @ n_tQ)
               `cast` (Sym <(NTCo:NFData <PartialNums n_tQ>)>
                       :: (PartialNums n_tQ -> ()) ~# NFData (PartialNums n_tQ)))
              eta_B2)
           eta1_B1
    of _ { (# ipv_a46r, _ #) ->
    case hPutStr2
           stdout
           (unpackAppendCString#
              "Result: "
              (case $wlen @ (PartialNums n_tQ) eta_B2 0 of ww_a71L { __DEFAULT ->
               ++ @ Char ($wshowSignedInt 0 ww_a71L ([] @ Char)) consume3
               }))
           True
           ipv_a46r
    of _ { (# ipv2_X4dd, _ #) ->
    let {
      lvl62_s99i :: Int -> n_tQ -> ShowS
      [LclId]
      lvl62_s99i = showsPrec @ n_tQ $dShow_a1TD } in
    let {
      a_s9ii :: Vector Vector n_tQ
      [LclId]
      a_s9ii = $p1Unbox @ n_tQ $dUnbox_a1TE } in
    let {
      lvl63_s99h :: Vector n_tQ -> Int
      [LclId]
      lvl63_s99h = basicLength @ Vector @ n_tQ a_s9ii } in
    letrec {
      a1_s7ir [Occ=LoopBreaker]
        :: [PartialNums n_tQ]
           -> State# RealWorld -> (# State# RealWorld, () #)
      [LclId, Arity=2, Str=DmdType SL]
      a1_s7ir =
        \ (ds_a2FB :: [PartialNums n_tQ]) (eta2_X5g :: State# RealWorld) ->
          case ds_a2FB of _ {
            [] -> (# eta2_X5g, () #);
            : y_a2FG ys_a2FH ->
              case y_a2FG of _ {
                Compound ds3_d2lM uv_a1hO ds4_d2lN ->
                  case hPutStr2
                         stdout
                         (unpackAppendCString#
                            " <segment, length "
                            (case lvl63_s99h uv_a1hO of _ { I# ww_a6Sh ->
                             ++ @ Char ($wshowSignedInt 0 ww_a6Sh ([] @ Char)) lvl8_rbaz
                             }))
                         True
                         eta2_X5g
                  of _ { (# ipv4_X4bY, _ #) ->
                  a1_s7ir ys_a2FH ipv4_X4bY
                  };
                Single ds3_d2lL ->
                  case ds3_d2lL of _ { MiddleFrag rb_s931 x_s930 ->
                  case hPutStr2
                         stdout
                         (unpackAppendCString#
                            " <middle frag "
                            (++
                               @ Char
                               (show_tuple
                                  (: @ ShowS
                                     (\ (w_a6Sj :: String) -> $wshowSignedInt 0 rb_s931 w_a6Sj)
                                     (: @ ShowS (lvl62_s99i shows26 x_s930) ([] @ ShowS)))
                                  ([] @ Char))
                               lvl9_rbaA))
                         True
                         eta2_X5g
                  of _ { (# ipv4_X4bY, _ #) ->
                  a1_s7ir ys_a2FH ipv4_X4bY
                  }
                  }
              }
          }; } in
    a1_s7ir eta_B2 ipv2_X4dd
    }
    }

consume
  :: forall n_a165.
     (Show n_a165, Unbox n_a165) =>
     [PartialNums n_a165] -> IO ()
[GblId,
 Arity=4,
 Str=DmdType LLLL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
consume =
  consume4
  `cast` (forall n_tQ.
          <Show n_tQ>
          -> <Unbox n_tQ> -> <[PartialNums n_tQ]> -> Sym <(NTCo:IO <()>)>
          :: (forall n_tQ.
              (Show n_tQ, Unbox n_tQ) =>
              [PartialNums n_tQ]
              -> State# RealWorld -> (# State# RealWorld, () #))
               ~#
             (forall n_tQ.
              (Show n_tQ, Unbox n_tQ) =>
              [PartialNums n_tQ] -> IO ()))

lvl10_rbaB :: [Char]
[GblId]
lvl10_rbaB = unpackCString# "write"

lvl11_rbaC :: Int
[GblId, Caf=NoCafRefs]
lvl11_rbaC = I# 596

file_rbaD :: String
[GblId, Str=DmdType]
file_rbaD = unpackCString# "./Data/Vector/Generic/Mutable.hs"

lvl12_rbaE :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl12_rbaE =
  \ (ipv_s2UP :: Int#) (ww_s7UL :: Int#) ->
    checkError
      @ (IO ())
      file_rbaD
      lvl11_rbaC
      Bounds
      lvl10_rbaB
      (checkIndex_msg# ww_s7UL ipv_s2UP)

lvl13_rbaF :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl13_rbaF =
  \ (ipv_s2UP :: Int#) (ww_s7UL :: Int#) ->
    checkError
      @ (IO ())
      file_rbaD
      lvl11_rbaC
      Bounds
      lvl10_rbaB
      (checkIndex_msg# ww_s7UL ipv_s2UP)

Rec {
$s$wa_rbaG
  :: Int#
     -> Int#
     -> Int#
     -> Int#
     -> MutableByteArray# RealWorld
     -> (~#) * (MVector RealWorld Word64) (MVector RealWorld Word64)
     -> Word#
     -> Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld,
           (IOVector Word64, Maybe (LeftFrag Word64), Int) #)
[GblId, Arity=12, Str=DmdType LALLLLLLLLLL]
$s$wa_rbaG =
  \ (sc_s9Sy :: Int#)
    (sc1_s9SK :: Int#)
    (sc2_s9SL :: Int#)
    (sc3_s9SM :: Int#)
    (sc4_s9SN :: MutableByteArray# RealWorld)
    (sg_s9SO
       :: (~#) * (MVector RealWorld Word64) (MVector RealWorld Word64))
    (sc5_s9SP :: Word#)
    (sc6_s9SQ :: Addr#)
    (sc7_s9SR :: ForeignPtrContents)
    (sc8_s9SS :: Int#)
    (sc9_s9ST :: Int#)
    (sc10_s9SU :: State# RealWorld) ->
    let {
      $w$j_s83x
        :: State# RealWorld
           -> (# State# RealWorld,
                 (IOVector Word64, Maybe (LeftFrag Word64), Int) #)
      [LclId, Arity=1, Str=DmdType T]
      $w$j_s83x =
        \ _ ->
          case sc_s9Sy of wild_XcH {
            __DEFAULT ->
              case readWord8OffAddr#
                     @ RealWorld (plusAddr# sc6_s9SQ sc8_s9SS) 0 realWorld#
              of _ { (# ipv_a47V, ipv1_a47W #) ->
              case touch# @ ForeignPtrContents sc7_s9SR ipv_a47V
              of _ { __DEFAULT ->
              $s$wa_rbaG
                (-# wild_XcH 1)
                sc1_s9SK
                sc2_s9SL
                sc3_s9SM
                sc4_s9SN
                @~ (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                  <(TFCo:R:MVectorsWord64
                                                                      <RealWorld>)>)
                ipv1_a47W
                sc6_s9SQ
                sc7_s9SR
                (+# sc8_s9SS 1)
                (-# sc9_s9ST 1)
                sc10_s9SU
              }
              };
            1 ->
              (# sc10_s9SU,
                 ((MVector @ RealWorld @ Word64 sc2_s9SL sc3_s9SM sc4_s9SN)
                  `cast` (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                        <(TFCo:R:MVectorsWord64
                                                                            <RealWorld>)>
                          :: MVector RealWorld Word64 ~# MVector RealWorld Word64),
                  Nothing @ (LeftFrag Word64),
                  I# sc1_s9SK) #)
          } } in
    case geWord# sc5_s9SP (__word 48) of _ {
      False -> $w$j_s83x realWorld#;
      True ->
        case leWord# sc5_s9SP (__word 57) of _ {
          False -> $w$j_s83x realWorld#;
          True ->
            $s$wa1_rbaH
              sc_s9Sy
              sc1_s9SK
              (__word 0)
              sc2_s9SL
              sc3_s9SM
              sc4_s9SN
              @~ (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                <(TFCo:R:MVectorsWord64
                                                                    <RealWorld>)>)
              sc5_s9SP
              sc6_s9SQ
              sc7_s9SR
              sc8_s9SS
              sc9_s9ST
              sc10_s9SU
        }
    }

$s$wa1_rbaH
  :: Int#
     -> Int#
     -> Word#
     -> Int#
     -> Int#
     -> MutableByteArray# RealWorld
     -> (~#) * (MVector RealWorld Word64) (MVector RealWorld Word64)
     -> Word#
     -> Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld,
           (IOVector Word64, Maybe (LeftFrag Word64), Int) #)
[GblId, Arity=13, Str=DmdType LLLLLLLLLLLLL]
$s$wa1_rbaH =
  \ (sc_s9Rj :: Int#)
    (sc1_s9Rw :: Int#)
    (sc2_s9Rx :: Word#)
    (sc3_s9Ry :: Int#)
    (sc4_s9Rz :: Int#)
    (sc5_s9RA :: MutableByteArray# RealWorld)
    (sg_s9RB
       :: (~#) * (MVector RealWorld Word64) (MVector RealWorld Word64))
    (sc6_s9RC :: Word#)
    (sc7_s9RD :: Addr#)
    (sc8_s9RE :: ForeignPtrContents)
    (sc9_s9RF :: Int#)
    (sc10_s9RG :: Int#)
    (sc11_s9RH :: State# RealWorld) ->
    let {
      nt_s2UN :: MVector RealWorld Word64
      [LclId]
      nt_s2UN =
        MVector @ RealWorld @ Word64 sc3_s9Ry sc4_s9Rz sc5_s9RA } in
    let {
      $w$j_s83y
        :: State# RealWorld
           -> (# State# RealWorld,
                 (IOVector Word64, Maybe (LeftFrag Word64), Int) #)
      [LclId, Arity=1, Str=DmdType T]
      $w$j_s83y =
        \ _ ->
          case >=# sc1_s9Rw 0 of _ {
            False -> case lvl12_rbaE sc4_s9Rz sc1_s9Rw of wild_00 { };
            True ->
              case <# sc1_s9Rw sc4_s9Rz of _ {
                False -> case lvl13_rbaF sc4_s9Rz sc1_s9Rw of wild_00 { };
                True ->
                  case (writeWord64Array#
                          @ (PrimState IO)
                          (sc5_s9RA
                           `cast` (MutableByteArray# (Sym <(TFCo:R:PrimStateIO)>)
                                   :: MutableByteArray# RealWorld
                                        ~#
                                      MutableByteArray# (PrimState IO)))
                          (+# sc3_s9Ry sc1_s9Rw)
                          sc2_s9Rx
                          (sc11_s9RH
                           `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                   :: State# RealWorld ~# State# (PrimState IO))))
                       `cast` (State# <(TFCo:R:PrimStateIO)>
                               :: State# (PrimState IO) ~# State# RealWorld)
                  of ipv_a46r { __DEFAULT ->
                  case sc_s9Rj of wild_XcN {
                    __DEFAULT ->
                      case readWord8OffAddr#
                             @ RealWorld (plusAddr# sc7_s9RD sc9_s9RF) 0 realWorld#
                      of _ { (# ipv1_a47V, ipv2_a47W #) ->
                      case touch# @ ForeignPtrContents sc8_s9RE ipv1_a47V
                      of _ { __DEFAULT ->
                      $s$wa_rbaG
                        (-# wild_XcN 1)
                        (+# sc1_s9Rw 1)
                        sc3_s9Ry
                        sc4_s9Rz
                        sc5_s9RA
                        @~ (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                          <(TFCo:R:MVectorsWord64
                                                                              <RealWorld>)>)
                        ipv2_a47W
                        sc7_s9RD
                        sc8_s9RE
                        (+# sc9_s9RF 1)
                        (-# sc10_s9RG 1)
                        ipv_a46r
                      }
                      };
                    1 ->
                      (# ipv_a46r,
                         (nt_s2UN
                          `cast` (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                                <(TFCo:R:MVectorsWord64
                                                                                    <RealWorld>)>
                                  :: MVector RealWorld Word64 ~# MVector RealWorld Word64),
                          Nothing @ (LeftFrag Word64),
                          I# (+# sc1_s9Rw 1)) #)
                  }
                  }
              }
          } } in
    case geWord# sc6_s9RC (__word 48) of _ {
      False -> $w$j_s83y realWorld#;
      True ->
        case leWord# sc6_s9RC (__word 57) of _ {
          False -> $w$j_s83y realWorld#;
          True ->
            case sc_s9Rj of wild2_XcV {
              __DEFAULT ->
                case readWord8OffAddr#
                       @ RealWorld (plusAddr# sc7_s9RD sc9_s9RF) 0 realWorld#
                of _ { (# ipv_a47V, ipv1_a47W #) ->
                case touch# @ ForeignPtrContents sc8_s9RE ipv_a47V
                of _ { __DEFAULT ->
                $s$wa1_rbaH
                  (-# wild2_XcV 1)
                  sc1_s9Rw
                  (plusWord#
                     (timesWord# (__word 10) sc2_s9Rx)
                     (minusWord# sc6_s9RC (__word 48)))
                  sc3_s9Ry
                  sc4_s9Rz
                  sc5_s9RA
                  @~ (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                    <(TFCo:R:MVectorsWord64
                                                                        <RealWorld>)>)
                  ipv1_a47W
                  sc7_s9RD
                  sc8_s9RE
                  (+# sc9_s9RF 1)
                  (-# sc10_s9RG 1)
                  sc11_s9RH
                }
                };
              1 ->
                (# sc11_s9RH,
                   (nt_s2UN
                    `cast` (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                          <(TFCo:R:MVectorsWord64
                                                                              <RealWorld>)>
                            :: MVector RealWorld Word64 ~# MVector RealWorld Word64),
                    Just
                      @ (LeftFrag Word64)
                      (LeftFrag
                         @ Word64
                         (W64#
                            (plusWord#
                               (timesWord# (__word 10) sc2_s9Rx)
                               (minusWord# sc6_s9RC (__word 48))))),
                    I# sc1_s9Rw) #)
            }
        }
    }
end Rec }

lvl14_rbaI
  :: forall s_a4f7.
     State# s_a4f7 -> (# State# s_a4f7, Vector Word64 #)
[GblId, Arity=1, Caf=NoCafRefs]
lvl14_rbaI =
  \ (@ s_a4f7) (s_a4f8 :: State# s_a4f7) ->
    case newByteArray#
           @ (PrimState (ST s_a4f7))
           0
           (s_a4f8
            `cast` (State# (Sym <(TFCo:R:PrimStateST <s_a4f7>)>)
                    :: State# s_a4f7 ~# State# (PrimState (ST s_a4f7))))
    of _ { (# ipv_a4qV, ipv1_a4qW #) ->
    case unsafeFreezeByteArray#
           @ (PrimState (ST s_a4f7)) ipv1_a4qW ipv_a4qV
    of _ { (# ipv2_a4nn, ipv3_a4no #) ->
    (# ipv2_a4nn
       `cast` (State# <(TFCo:R:PrimStateST <s_a4f7>)>
               :: State# (PrimState (ST s_a4f7)) ~# State# s_a4f7),
       (Vector @ Word64 0 0 ipv3_a4no)
       `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym <(TFCo:R:VectorWord64)>
               :: Vector Word64 ~# Vector Word64) #)
    }
    }

lvl15_rbaJ :: Vector Word64
[GblId, Str=DmdType]
lvl15_rbaJ = runSTRep @ (Vector Word64) lvl14_rbaI

lvl16_rbaK :: Word64
[GblId, Caf=NoCafRefs]
lvl16_rbaK = W64# (__word 0)

lvl17_rbaL :: MiddleFrag Word64
[GblId, Caf=NoCafRefs]
lvl17_rbaL = MiddleFrag @ Word64 0 lvl16_rbaK

lvl18_rbaM :: PartialNums Word64
[GblId, Caf=NoCafRefs]
lvl18_rbaM = Single @ Word64 lvl17_rbaL

lvl19_rbaN :: Int
[GblId, Caf=NoCafRefs]
lvl19_rbaN = I# 494

lvl20_rbaO :: [Char]
[GblId]
lvl20_rbaO = unpackCString# "new"

lvl21_rbaP :: Int# -> IO (MVector (PrimState IO) Word64)
[GblId, Arity=1, Str=DmdType Tb]
lvl21_rbaP =
  \ (x1_s93p :: Int#) ->
    checkError
      @ (IO (MVector (PrimState IO) Word64))
      file_rbaD
      lvl19_rbaN
      Bounds
      lvl20_rbaO
      (checkLength_msg# x1_s93p)

lvl22_rbaQ :: [Char]
[GblId]
lvl22_rbaQ = unpackCString# "./Data/Vector/Generic.hs"

lvl23_rbaR :: Int
[GblId, Caf=NoCafRefs]
lvl23_rbaR = I# 395

lvl24_rbaS :: [Char]
[GblId]
lvl24_rbaS = unpackCString# "slice"

poly_$w$j_rbaT :: Int# -> Int# -> Vector Word64
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j_rbaT =
  \ (ipv_s6di :: Int#) (a_s6x0 :: Int#) ->
    checkError
      @ (Vector Word64)
      lvl22_rbaQ
      lvl23_rbaR
      Bounds
      lvl24_rbaS
      (checkSlice_msg# 1 a_s6x0 ipv_s6di)

lvl25_rbaU :: Int
[GblId, Caf=NoCafRefs]
lvl25_rbaU = I# 244

lvl26_rbaV :: [Char]
[GblId]
lvl26_rbaV = unpackCString# "(!)"

lvl27_rbaW :: Int# -> Word64
[GblId, Arity=1, Str=DmdType Tb]
lvl27_rbaW =
  \ (ipv_s6di :: Int#) ->
    checkError
      @ Word64
      lvl22_rbaQ
      lvl25_rbaU
      Bounds
      lvl26_rbaV
      (checkIndex_msg# 0 ipv_s6di)

poly_$w$j1_rbaX :: Int# -> Int# -> Vector Word64
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j1_rbaX =
  \ (ipv_s6di :: Int#) (a_s6xa :: Int#) ->
    checkError
      @ (Vector Word64)
      lvl22_rbaQ
      lvl23_rbaR
      Bounds
      lvl24_rbaS
      (checkSlice_msg# 1 a_s6xa ipv_s6di)

lvl28_rbaY :: Int# -> Word64
[GblId, Arity=1, Str=DmdType Tb]
lvl28_rbaY =
  \ (ipv_s6di :: Int#) ->
    checkError
      @ Word64
      lvl22_rbaQ
      lvl25_rbaU
      Bounds
      lvl26_rbaV
      (checkIndex_msg# 0 ipv_s6di)

lvl29_rbaZ :: [Char]
[GblId]
lvl29_rbaZ = unpackCString# "head"

lvl30_rbb0 :: Word8
[GblId, Str=DmdType b]
lvl30_rbb0 = errorEmptyList @ Word8 lvl29_rbaZ

$wa3
  :: Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld, PartialNums Word64 #)
[GblId, Arity=5, Str=DmdType LLLLL]
$wa3 =
  \ (ww_s7VN :: Addr#)
    (ww1_s7VO :: ForeignPtrContents)
    (ww2_s7VP :: Int#)
    (ww3_s7VQ :: Int#)
    (w_s7VS :: State# RealWorld) ->
    let {
      $wa5_s83z
        :: State# RealWorld -> (# State# RealWorld, PartialNums Word64 #)
      [LclId, Arity=1, Str=DmdType L]
      $wa5_s83z =
        \ (w1_s7VH :: State# RealWorld) ->
          case <=# ww3_s7VQ 0 of _ {
            False ->
              case readWord8OffAddr#
                     @ RealWorld (plusAddr# ww_s7VN ww2_s7VP) 0 realWorld#
              of _ { (# ipv_a47V, ipv1_a47W #) ->
              case touch# @ ForeignPtrContents ww1_s7VO ipv_a47V
              of _ { __DEFAULT ->
              let {
                x1_s93p :: Int#
                [LclId, Str=DmdType]
                x1_s93p = +# (quotInt# ww3_s7VQ 2) 1 } in
              case >=# x1_s93p 0 of _ {
                False -> case lvl21_rbaP x1_s93p of wild_00 { };
                True ->
                  case newByteArray#
                         @ (PrimState IO)
                         (*# x1_s93p 8)
                         (w1_s7VH
                          `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                  :: State# RealWorld ~# State# (PrimState IO)))
                  of _ { (# ipv2_a4qV, ipv3_a4qW #) ->
                  let {
                    ww4_s7Uq :: Int#
                    [LclId]
                    ww4_s7Uq = +# ww2_s7VP 1 } in
                  let {
                    $j_saDA
                      :: State# RealWorld
                         -> (IOVector Word64, Maybe (LeftFrag Word64), Int)
                         -> (# State# RealWorld, PartialNums Word64 #)
                    [LclId, Arity=2]
                    $j_saDA =
                      \ (ipv4_X4jo :: State# RealWorld)
                        (ipv5_X4jq :: (IOVector Word64, Maybe (LeftFrag Word64), Int)) ->
                        case ipv5_X4jq of _ { (v_a1hu, w2_a1hv, ind_a1hw) ->
                        case v_a1hu
                             `cast` (<TFCo:R:MVectorsWord64
                                        (Sym <(TFCo:R:PrimStateIO)>)> ; <NTCo:R:MVectorsWord64
                                                                           <PrimState IO>>
                                     :: MVector RealWorld Word64 ~# MVector (PrimState IO) Word64)
                        of _ { MVector rb_a4ng rb1_a4nh rb2_a4ni ->
                        case unsafeFreezeByteArray#
                               @ (PrimState IO)
                               rb2_a4ni
                               (ipv4_X4jo
                                `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                        :: State# RealWorld ~# State# (PrimState IO)))
                        of _ { (# ipv6_a4nn, ipv7_a4no #) ->
                        let {
                          pref_s3nH [Dmd=Just D(LLL)] :: Vector Word64
                          [LclId, Str=DmdType]
                          pref_s3nH =
                            case ind_a1hw of _ { I# x2_a4o1 ->
                            case <=# x2_a4o1 0 of _ {
                              False ->
                                case <=# x2_a4o1 rb1_a4nh of _ {
                                  False ->
                                    (Vector @ Word64 rb_a4ng rb1_a4nh ipv7_a4no)
                                    `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym
                                                                            <(TFCo:R:VectorWord64)>
                                            :: Vector Word64 ~# Vector Word64);
                                  True ->
                                    (Vector @ Word64 rb_a4ng x2_a4o1 ipv7_a4no)
                                    `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym
                                                                            <(TFCo:R:VectorWord64)>
                                            :: Vector Word64 ~# Vector Word64)
                                };
                              True ->
                                case <=# 0 rb1_a4nh of _ {
                                  False ->
                                    (Vector @ Word64 rb_a4ng rb1_a4nh ipv7_a4no)
                                    `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym
                                                                            <(TFCo:R:VectorWord64)>
                                            :: Vector Word64 ~# Vector Word64);
                                  True ->
                                    (Vector @ Word64 rb_a4ng 0 ipv7_a4no)
                                    `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym
                                                                            <(TFCo:R:VectorWord64)>
                                            :: Vector Word64 ~# Vector Word64)
                                }
                            }
                            } } in
                        case geWord# ipv1_a47W (__word 48) of _ {
                          False ->
                            (# ipv6_a4nn
                               `cast` (State# <(TFCo:R:PrimStateIO)>
                                       :: State# (PrimState IO) ~# State# RealWorld),
                               case pref_s3nH
                                    `cast` (<TFCo:R:VectorWord64> ; <NTCo:R:VectorWord64>
                                            :: Vector Word64 ~# Vector Word64)
                               of nt_s4oj { Vector ipv8_s4ok ipv9_s4ol ipv10_s4om ->
                               case w2_a1hv of tpl_Xa { __DEFAULT ->
                               Compound
                                 @ Word64
                                 (Nothing @ (RightFrag Word64))
                                 (nt_s4oj
                                  `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym <(TFCo:R:VectorWord64)>
                                          :: Vector Word64 ~# Vector Word64))
                                 tpl_Xa
                               }
                               } #);
                          True ->
                            case leWord# ipv1_a47W (__word 57) of _ {
                              False ->
                                (# ipv6_a4nn
                                   `cast` (State# <(TFCo:R:PrimStateIO)>
                                           :: State# (PrimState IO) ~# State# RealWorld),
                                   case pref_s3nH
                                        `cast` (<TFCo:R:VectorWord64> ; <NTCo:R:VectorWord64>
                                                :: Vector Word64 ~# Vector Word64)
                                   of nt_s4oj { Vector ipv8_s4ok ipv9_s4ol ipv10_s4om ->
                                   case w2_a1hv of tpl_Xa { __DEFAULT ->
                                   Compound
                                     @ Word64
                                     (Nothing @ (RightFrag Word64))
                                     (nt_s4oj
                                      `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym
                                                                              <(TFCo:R:VectorWord64)>
                                              :: Vector Word64 ~# Vector Word64))
                                     tpl_Xa
                                   }
                                   } #);
                              True ->
                                case pref_s3nH
                                     `cast` (<TFCo:R:VectorWord64> ; <NTCo:R:VectorWord64>
                                             :: Vector Word64 ~# Vector Word64)
                                of _ { Vector ipv8_s6dh ipv9_s6di ipv10_s6dj ->
                                case lvl15_rbaJ
                                     `cast` (<TFCo:R:VectorWord64> ; <NTCo:R:VectorWord64>
                                             :: Vector Word64 ~# Vector Word64)
                                of _ { Vector ipv11_s6dS ipv12_s6dT ipv13_s6dU ->
                                let {
                                  lvl62_s93n :: Int
                                  [LclId, Str=DmdType]
                                  lvl62_s93n =
                                    letrec {
                                      $wa6_s83A [Occ=LoopBreaker]
                                        :: Addr#
                                           -> Int#
                                           -> State# RealWorld
                                           -> (# State# RealWorld, Maybe Int #)
                                      [LclId, Arity=3, Str=DmdType LLL]
                                      $wa6_s83A =
                                        \ (ww5_s7Vd :: Addr#)
                                          (ww6_s7Vh :: Int#)
                                          (w3_s7Vj :: State# RealWorld) ->
                                          case >=# ww6_s7Vh ww3_s7VQ of _ {
                                            False ->
                                              case readWord8OffAddr# @ RealWorld ww5_s7Vd 0 w3_s7Vj
                                              of _ { (# ipv14_a4iQ, ipv15_a4iR #) ->
                                              case geWord# ipv15_a4iR (__word 48) of _ {
                                                False -> (# ipv14_a4iQ, Just @ Int (I# ww6_s7Vh) #);
                                                True ->
                                                  case leWord# ipv15_a4iR (__word 57) of _ {
                                                    False ->
                                                      (# ipv14_a4iQ, Just @ Int (I# ww6_s7Vh) #);
                                                    True ->
                                                      $wa6_s83A
                                                        (plusAddr# ww5_s7Vd 1)
                                                        (+# ww6_s7Vh 1)
                                                        ipv14_a4iQ
                                                  }
                                              }
                                              };
                                            True -> (# w3_s7Vj, Nothing @ Int #)
                                          }; } in
                                    case $wa6_s83A (plusAddr# ww_s7VN ww2_s7VP) 0 realWorld#
                                    of _ { (# ipv14_a47w, ipv15_a47x #) ->
                                    case touch# @ ForeignPtrContents ww1_s7VO ipv14_a47w
                                    of _ { __DEFAULT ->
                                    case ipv15_a47x of _ {
                                      Nothing -> fromJust1 @ Int;
                                      Just x_a31m -> x_a31m
                                    }
                                    }
                                    } } in
                                letrec {
                                  $s$weq_loop0_sadn [Occ=LoopBreaker] :: Int# -> Int# -> Bool
                                  [LclId, Arity=2, Str=DmdType LL]
                                  $s$weq_loop0_sadn =
                                    \ (sc_s9VT :: Int#) (sc1_s9VU :: Int#) ->
                                      case >=# sc_s9VT ipv9_s6di of _ {
                                        False ->
                                          case >=# sc1_s9VU ipv12_s6dT of _ {
                                            False ->
                                              case indexWord64Array#
                                                     ipv13_s6dU (+# ipv11_s6dS sc1_s9VU)
                                              of wild8_X6ke { __DEFAULT ->
                                              case indexWord64Array#
                                                     ipv10_s6dj (+# ipv8_s6dh sc_s9VT)
                                              of wild9_a6dK { __DEFAULT ->
                                              case eqWord# wild9_a6dK wild8_X6ke of _ {
                                                False -> False;
                                                True ->
                                                  $s$weq_loop0_sadn (+# sc_s9VT 1) (+# sc1_s9VU 1)
                                              }
                                              }
                                              };
                                            True -> False
                                          };
                                        True -> >=# sc1_s9VU ipv12_s6dT
                                      }; } in
                                case $s$weq_loop0_sadn 0 0 of _ {
                                  False ->
                                    (# ipv6_a4nn
                                       `cast` (State# <(TFCo:R:PrimStateIO)>
                                               :: State# (PrimState IO) ~# State# RealWorld),
                                       let {
                                         a_s6x0 [Dmd=Just L] :: Int#
                                         [LclId, Str=DmdType]
                                         a_s6x0 = -# ipv9_s6di 1 } in
                                       case >=# a_s6x0 0 of _ {
                                         False ->
                                           case poly_$w$j_rbaT ipv9_s6di a_s6x0 of wild8_00 { };
                                         True ->
                                           case <=# (+# 1 a_s6x0) ipv9_s6di of _ {
                                             False ->
                                               case poly_$w$j_rbaT ipv9_s6di a_s6x0 of wild9_00 { };
                                             True ->
                                               case w2_a1hv of tpl_Xa { __DEFAULT ->
                                               Compound
                                                 @ Word64
                                                 (Just
                                                    @ (RightFrag Word64)
                                                    (case lvl62_s93n of _ { I# tpl2_B4 ->
                                                     case <# 0 ipv9_s6di of _ {
                                                       False ->
                                                         case lvl27_rbaW ipv9_s6di of wild10_00 { };
                                                       True ->
                                                         case indexWord64Array# ipv10_s6dj ipv8_s6dh
                                                         of wild10_a6dK { __DEFAULT ->
                                                         RightFrag
                                                           @ Word64 tpl2_B4 (W64# wild10_a6dK)
                                                         }
                                                     }
                                                     }))
                                                 ((Vector
                                                     @ Word64 (+# ipv8_s6dh 1) a_s6x0 ipv10_s6dj)
                                                  `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym
                                                                                          <(TFCo:R:VectorWord64)>
                                                          :: Vector Word64 ~# Vector Word64))
                                                 tpl_Xa
                                               }
                                           }
                                       } #);
                                  True ->
                                    case w2_a1hv of _ {
                                      Nothing ->
                                        (# ipv6_a4nn
                                           `cast` (State# <(TFCo:R:PrimStateIO)>
                                                   :: State# (PrimState IO) ~# State# RealWorld),
                                           let {
                                             a_s6xa [Dmd=Just L] :: Int#
                                             [LclId, Str=DmdType]
                                             a_s6xa = -# ipv9_s6di 1 } in
                                           case >=# a_s6xa 0 of _ {
                                             False ->
                                               case poly_$w$j1_rbaX ipv9_s6di a_s6xa of wild9_00 {
                                               };
                                             True ->
                                               case <=# (+# 1 a_s6xa) ipv9_s6di of _ {
                                                 False ->
                                                   case poly_$w$j1_rbaX ipv9_s6di a_s6xa
                                                   of wild10_00 {
                                                   };
                                                 True ->
                                                   Compound
                                                     @ Word64
                                                     (Just
                                                        @ (RightFrag Word64)
                                                        (case lvl62_s93n of _ { I# tpl1_B4 ->
                                                         case <# 0 ipv9_s6di of _ {
                                                           False ->
                                                             case lvl28_rbaY ipv9_s6di
                                                             of wild11_00 {
                                                             };
                                                           True ->
                                                             case indexWord64Array#
                                                                    ipv10_s6dj ipv8_s6dh
                                                             of wild11_a6dK { __DEFAULT ->
                                                             RightFrag
                                                               @ Word64 tpl1_B4 (W64# wild11_a6dK)
                                                             }
                                                         }
                                                         }))
                                                     ((Vector
                                                         @ Word64
                                                         (+# ipv8_s6dh 1)
                                                         a_s6xa
                                                         ipv10_s6dj)
                                                      `cast` (Sym <(NTCo:R:VectorWord64)> ; Sym
                                                                                              <(TFCo:R:VectorWord64)>
                                                              :: Vector Word64 ~# Vector Word64))
                                                     (Nothing @ (LeftFrag Word64))
                                               }
                                           } #);
                                      Just ds_d2m1 ->
                                        case ds_d2m1 of _ { LeftFrag w3_a1hA ->
                                        (# ipv6_a4nn
                                           `cast` (State# <(TFCo:R:PrimStateIO)>
                                                   :: State# (PrimState IO) ~# State# RealWorld),
                                           Single @ Word64 (MiddleFrag @ Word64 ww3_s7VQ w3_a1hA) #)
                                        }
                                    }
                                }
                                }
                                }
                            }
                        }
                        }
                        }
                        } } in
                  case geWord# ipv1_a47W (__word 48) of _ {
                    False ->
                      case ww3_s7VQ of wild3_XcH {
                        __DEFAULT ->
                          case readWord8OffAddr#
                                 @ RealWorld (plusAddr# ww_s7VN ww4_s7Uq) 0 realWorld#
                          of _ { (# ipv4_X4f0, ipv5_X4f2 #) ->
                          case touch# @ ForeignPtrContents ww1_s7VO ipv4_X4f0
                          of _ { __DEFAULT ->
                          case $s$wa_rbaG
                                 (-# wild3_XcH 1)
                                 0
                                 0
                                 x1_s93p
                                 (ipv3_a4qW
                                  `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                          :: MutableByteArray# (PrimState IO)
                                               ~#
                                             MutableByteArray# RealWorld))
                                 @~ (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                                   <(TFCo:R:MVectorsWord64
                                                                                       <RealWorld>)>)
                                 ipv5_X4f2
                                 ww_s7VN
                                 ww1_s7VO
                                 (+# ww4_s7Uq 1)
                                 (-# (-# wild3_XcH 1) 1)
                                 (ipv2_a4qV
                                  `cast` (State# <(TFCo:R:PrimStateIO)>
                                          :: State# (PrimState IO) ~# State# RealWorld))
                          of _ { (# ipv6_X4jo, ipv7_X4jq #) ->
                          $j_saDA ipv6_X4jo ipv7_X4jq
                          }
                          }
                          };
                        1 ->
                          $j_saDA
                            (ipv2_a4qV
                             `cast` (State# <(TFCo:R:PrimStateIO)>
                                     :: State# (PrimState IO) ~# State# RealWorld))
                            ((MVector
                                @ RealWorld
                                @ Word64
                                0
                                x1_s93p
                                (ipv3_a4qW
                                 `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                         :: MutableByteArray# (PrimState IO)
                                              ~#
                                            MutableByteArray# RealWorld)))
                             `cast` (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                                   <(TFCo:R:MVectorsWord64
                                                                                       <RealWorld>)>
                                     :: MVector RealWorld Word64 ~# MVector RealWorld Word64),
                             Nothing @ (LeftFrag Word64),
                             $fShowPartialNums7)
                      };
                    True ->
                      case leWord# ipv1_a47W (__word 57) of _ {
                        False ->
                          case ww3_s7VQ of wild4_XcH {
                            __DEFAULT ->
                              case readWord8OffAddr#
                                     @ RealWorld (plusAddr# ww_s7VN ww4_s7Uq) 0 realWorld#
                              of _ { (# ipv4_X4f0, ipv5_X4f2 #) ->
                              case touch# @ ForeignPtrContents ww1_s7VO ipv4_X4f0
                              of _ { __DEFAULT ->
                              case $s$wa_rbaG
                                     (-# wild4_XcH 1)
                                     0
                                     0
                                     x1_s93p
                                     (ipv3_a4qW
                                      `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                              :: MutableByteArray# (PrimState IO)
                                                   ~#
                                                 MutableByteArray# RealWorld))
                                     @~ (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                                       <(TFCo:R:MVectorsWord64
                                                                                           <RealWorld>)>)
                                     ipv5_X4f2
                                     ww_s7VN
                                     ww1_s7VO
                                     (+# ww4_s7Uq 1)
                                     (-# (-# wild4_XcH 1) 1)
                                     (ipv2_a4qV
                                      `cast` (State# <(TFCo:R:PrimStateIO)>
                                              :: State# (PrimState IO) ~# State# RealWorld))
                              of _ { (# ipv6_X4jo, ipv7_X4jq #) ->
                              $j_saDA ipv6_X4jo ipv7_X4jq
                              }
                              }
                              };
                            1 ->
                              $j_saDA
                                (ipv2_a4qV
                                 `cast` (State# <(TFCo:R:PrimStateIO)>
                                         :: State# (PrimState IO) ~# State# RealWorld))
                                ((MVector
                                    @ RealWorld
                                    @ Word64
                                    0
                                    x1_s93p
                                    (ipv3_a4qW
                                     `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                             :: MutableByteArray# (PrimState IO)
                                                  ~#
                                                MutableByteArray# RealWorld)))
                                 `cast` (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                                       <(TFCo:R:MVectorsWord64
                                                                                           <RealWorld>)>
                                         :: MVector RealWorld Word64 ~# MVector RealWorld Word64),
                                 Nothing @ (LeftFrag Word64),
                                 $fShowPartialNums7)
                          };
                        True ->
                          case $s$wa1_rbaH
                                 ww3_s7VQ
                                 0
                                 (__word 0)
                                 0
                                 x1_s93p
                                 (ipv3_a4qW
                                  `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                          :: MutableByteArray# (PrimState IO)
                                               ~#
                                             MutableByteArray# RealWorld))
                                 @~ (Sym <(NTCo:R:MVectorsWord64 <RealWorld>)> ; Sym
                                                                                   <(TFCo:R:MVectorsWord64
                                                                                       <RealWorld>)>)
                                 ipv1_a47W
                                 ww_s7VN
                                 ww1_s7VO
                                 ww4_s7Uq
                                 (-# ww3_s7VQ 1)
                                 (ipv2_a4qV
                                  `cast` (State# <(TFCo:R:PrimStateIO)>
                                          :: State# (PrimState IO) ~# State# RealWorld))
                          of _ { (# ipv4_X4jo, ipv5_X4jq #) ->
                          $j_saDA ipv4_X4jo ipv5_X4jq
                          }
                      }
                  }
                  }
              }
              }
              };
            True -> case lvl30_rbb0 of wild_00 { }
          } } in
    case ww3_s7VQ of _ {
      __DEFAULT -> $wa5_s83z w_s7VS;
      0 ->
        case eqAddr# ww_s7VN __NULL of _ {
          False ->
            case $wcompareBytes
                   ww_s7VN ww1_s7VO ww2_s7VP 0 __NULL $fMonoidByteString1 0 0
            of _ {
              __DEFAULT -> $wa5_s83z w_s7VS;
              EQ -> (# w_s7VS, lvl18_rbaM #)
            };
          True ->
            case ww2_s7VP of wild2_Xct {
              __DEFAULT ->
                case $wcompareBytes
                       ww_s7VN ww1_s7VO wild2_Xct 0 __NULL $fMonoidByteString1 0 0
                of _ {
                  __DEFAULT -> $wa5_s83z w_s7VS;
                  EQ -> (# w_s7VS, lvl18_rbaM #)
                };
              0 -> (# w_s7VS, lvl18_rbaM #)
            }
        }
    }

readNatsPartial1 [InlPrag=INLINE[0]]
  :: ByteString
     -> State# RealWorld -> (# State# RealWorld, PartialNums Word64 #)
[GblId,
 Arity=2,
 Str=DmdType U(LLLL)L,
 Unf=Unf{Src=Worker=$wa3, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (w_s7VL [Occ=Once!] :: ByteString)
                 (w1_s7VS [Occ=Once] :: State# RealWorld) ->
                 case w_s7VL
                 of _
                 { PS ww_s7VN [Occ=Once]
                      ww1_s7VO [Occ=Once]
                      ww2_s7VP [Occ=Once]
                      ww3_s7VQ [Occ=Once] ->
                 $wa3 ww_s7VN ww1_s7VO ww2_s7VP ww3_s7VQ w1_s7VS
                 }}]
readNatsPartial1 =
  \ (w_s7VL :: ByteString) (w1_s7VS :: State# RealWorld) ->
    case w_s7VL of _ { PS ww_s7VN ww1_s7VO ww2_s7VP ww3_s7VQ ->
    $wa3 ww_s7VN ww1_s7VO ww2_s7VP ww3_s7VQ w1_s7VS
    }

readNatsPartial_readNatsPartial
  :: ByteString -> IO (PartialNums Word64)
[GblId,
 Arity=2,
 Str=DmdType U(LLLL)L,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= readNatsPartial1
               `cast` (<ByteString> -> Sym <(NTCo:IO <PartialNums Word64>)>
                       :: (ByteString
                           -> State# RealWorld -> (# State# RealWorld, PartialNums Word64 #))
                            ~#
                          (ByteString -> IO (PartialNums Word64)))}]
readNatsPartial_readNatsPartial =
  readNatsPartial1
  `cast` (<ByteString> -> Sym <(NTCo:IO <PartialNums Word64>)>
          :: (ByteString
              -> State# RealWorld -> (# State# RealWorld, PartialNums Word64 #))
               ~#
             (ByteString -> IO (PartialNums Word64)))

lvl31_rbb1 :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl31_rbb1 =
  \ (ipv_s33b :: Int#) (ww_s7WC :: Int#) ->
    checkError
      @ (IO ())
      file_rbaD
      lvl11_rbaC
      Bounds
      lvl10_rbaB
      (checkIndex_msg# ww_s7WC ipv_s33b)

lvl32_rbb2 :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl32_rbb2 =
  \ (ipv_s33b :: Int#) (ww_s7WC :: Int#) ->
    checkError
      @ (IO ())
      file_rbaD
      lvl11_rbaC
      Bounds
      lvl10_rbaB
      (checkIndex_msg# ww_s7WC ipv_s33b)

Rec {
$s$wa2_rbb3
  :: Int#
     -> Int#
     -> Int#
     -> Int#
     -> MutableByteArray# RealWorld
     -> (~#) * (MVector RealWorld Word32) (MVector RealWorld Word32)
     -> Word#
     -> Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld,
           (IOVector Word32, Maybe (LeftFrag Word32), Int) #)
[GblId, Arity=12, Str=DmdType LALLLLLLLLLL]
$s$wa2_rbb3 =
  \ (sc_s9XM :: Int#)
    (sc1_s9XY :: Int#)
    (sc2_s9XZ :: Int#)
    (sc3_s9Y0 :: Int#)
    (sc4_s9Y1 :: MutableByteArray# RealWorld)
    (sg_s9Y2
       :: (~#) * (MVector RealWorld Word32) (MVector RealWorld Word32))
    (sc5_s9Y3 :: Word#)
    (sc6_s9Y4 :: Addr#)
    (sc7_s9Y5 :: ForeignPtrContents)
    (sc8_s9Y6 :: Int#)
    (sc9_s9Y7 :: Int#)
    (sc10_s9Y8 :: State# RealWorld) ->
    let {
      $w$j_s83E
        :: State# RealWorld
           -> (# State# RealWorld,
                 (IOVector Word32, Maybe (LeftFrag Word32), Int) #)
      [LclId, Arity=1, Str=DmdType T]
      $w$j_s83E =
        \ _ ->
          case sc_s9XM of wild_Xdb {
            __DEFAULT ->
              case readWord8OffAddr#
                     @ RealWorld (plusAddr# sc6_s9Y4 sc8_s9Y6) 0 realWorld#
              of _ { (# ipv_a47V, ipv1_a47W #) ->
              case touch# @ ForeignPtrContents sc7_s9Y5 ipv_a47V
              of _ { __DEFAULT ->
              $s$wa2_rbb3
                (-# wild_Xdb 1)
                sc1_s9XY
                sc2_s9XZ
                sc3_s9Y0
                sc4_s9Y1
                @~ (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                  <(TFCo:R:MVectorsWord32
                                                                      <RealWorld>)>)
                ipv1_a47W
                sc6_s9Y4
                sc7_s9Y5
                (+# sc8_s9Y6 1)
                (-# sc9_s9Y7 1)
                sc10_s9Y8
              }
              };
            1 ->
              (# sc10_s9Y8,
                 ((MVector @ RealWorld @ Word32 sc2_s9XZ sc3_s9Y0 sc4_s9Y1)
                  `cast` (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                        <(TFCo:R:MVectorsWord32
                                                                            <RealWorld>)>
                          :: MVector RealWorld Word32 ~# MVector RealWorld Word32),
                  Nothing @ (LeftFrag Word32),
                  I# sc1_s9XY) #)
          } } in
    case geWord# sc5_s9Y3 (__word 48) of _ {
      False -> $w$j_s83E realWorld#;
      True ->
        case leWord# sc5_s9Y3 (__word 57) of _ {
          False -> $w$j_s83E realWorld#;
          True ->
            $s$wa3_rbb4
              sc_s9XM
              sc1_s9XY
              (__word 0)
              sc2_s9XZ
              sc3_s9Y0
              sc4_s9Y1
              @~ (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                <(TFCo:R:MVectorsWord32
                                                                    <RealWorld>)>)
              sc5_s9Y3
              sc6_s9Y4
              sc7_s9Y5
              sc8_s9Y6
              sc9_s9Y7
              sc10_s9Y8
        }
    }

$s$wa3_rbb4
  :: Int#
     -> Int#
     -> Word#
     -> Int#
     -> Int#
     -> MutableByteArray# RealWorld
     -> (~#) * (MVector RealWorld Word32) (MVector RealWorld Word32)
     -> Word#
     -> Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld,
           (IOVector Word32, Maybe (LeftFrag Word32), Int) #)
[GblId, Arity=13, Str=DmdType LLLLLLLLLLLLL]
$s$wa3_rbb4 =
  \ (sc_s9Wx :: Int#)
    (sc1_s9WK :: Int#)
    (sc2_s9WL :: Word#)
    (sc3_s9WM :: Int#)
    (sc4_s9WN :: Int#)
    (sc5_s9WO :: MutableByteArray# RealWorld)
    (sg_s9WP
       :: (~#) * (MVector RealWorld Word32) (MVector RealWorld Word32))
    (sc6_s9WQ :: Word#)
    (sc7_s9WR :: Addr#)
    (sc8_s9WS :: ForeignPtrContents)
    (sc9_s9WT :: Int#)
    (sc10_s9WU :: Int#)
    (sc11_s9WV :: State# RealWorld) ->
    let {
      nt_s339 :: MVector RealWorld Word32
      [LclId]
      nt_s339 =
        MVector @ RealWorld @ Word32 sc3_s9WM sc4_s9WN sc5_s9WO } in
    let {
      $w$j_s83F
        :: State# RealWorld
           -> (# State# RealWorld,
                 (IOVector Word32, Maybe (LeftFrag Word32), Int) #)
      [LclId, Arity=1, Str=DmdType T]
      $w$j_s83F =
        \ _ ->
          case >=# sc1_s9WK 0 of _ {
            False -> case lvl31_rbb1 sc4_s9WN sc1_s9WK of wild_00 { };
            True ->
              case <# sc1_s9WK sc4_s9WN of _ {
                False -> case lvl32_rbb2 sc4_s9WN sc1_s9WK of wild_00 { };
                True ->
                  case (writeWord32Array#
                          @ (PrimState IO)
                          (sc5_s9WO
                           `cast` (MutableByteArray# (Sym <(TFCo:R:PrimStateIO)>)
                                   :: MutableByteArray# RealWorld
                                        ~#
                                      MutableByteArray# (PrimState IO)))
                          (+# sc3_s9WM sc1_s9WK)
                          sc2_s9WL
                          (sc11_s9WV
                           `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                   :: State# RealWorld ~# State# (PrimState IO))))
                       `cast` (State# <(TFCo:R:PrimStateIO)>
                               :: State# (PrimState IO) ~# State# RealWorld)
                  of ipv_a46r { __DEFAULT ->
                  case sc_s9Wx of wild_Xdh {
                    __DEFAULT ->
                      case readWord8OffAddr#
                             @ RealWorld (plusAddr# sc7_s9WR sc9_s9WT) 0 realWorld#
                      of _ { (# ipv1_a47V, ipv2_a47W #) ->
                      case touch# @ ForeignPtrContents sc8_s9WS ipv1_a47V
                      of _ { __DEFAULT ->
                      $s$wa2_rbb3
                        (-# wild_Xdh 1)
                        (+# sc1_s9WK 1)
                        sc3_s9WM
                        sc4_s9WN
                        sc5_s9WO
                        @~ (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                          <(TFCo:R:MVectorsWord32
                                                                              <RealWorld>)>)
                        ipv2_a47W
                        sc7_s9WR
                        sc8_s9WS
                        (+# sc9_s9WT 1)
                        (-# sc10_s9WU 1)
                        ipv_a46r
                      }
                      };
                    1 ->
                      (# ipv_a46r,
                         (nt_s339
                          `cast` (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                                <(TFCo:R:MVectorsWord32
                                                                                    <RealWorld>)>
                                  :: MVector RealWorld Word32 ~# MVector RealWorld Word32),
                          Nothing @ (LeftFrag Word32),
                          I# (+# sc1_s9WK 1)) #)
                  }
                  }
              }
          } } in
    case geWord# sc6_s9WQ (__word 48) of _ {
      False -> $w$j_s83F realWorld#;
      True ->
        case leWord# sc6_s9WQ (__word 57) of _ {
          False -> $w$j_s83F realWorld#;
          True ->
            case sc_s9Wx of wild2_Xdo {
              __DEFAULT ->
                case readWord8OffAddr#
                       @ RealWorld (plusAddr# sc7_s9WR sc9_s9WT) 0 realWorld#
                of _ { (# ipv_a47V, ipv1_a47W #) ->
                case touch# @ ForeignPtrContents sc8_s9WS ipv_a47V
                of _ { __DEFAULT ->
                $s$wa3_rbb4
                  (-# wild2_Xdo 1)
                  sc1_s9WK
                  (narrow32Word#
                     (plusWord#
                        (narrow32Word# (timesWord# (__word 10) sc2_s9WL))
                        (narrow32Word# (minusWord# sc6_s9WQ (__word 48)))))
                  sc3_s9WM
                  sc4_s9WN
                  sc5_s9WO
                  @~ (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                    <(TFCo:R:MVectorsWord32
                                                                        <RealWorld>)>)
                  ipv1_a47W
                  sc7_s9WR
                  sc8_s9WS
                  (+# sc9_s9WT 1)
                  (-# sc10_s9WU 1)
                  sc11_s9WV
                }
                };
              1 ->
                (# sc11_s9WV,
                   (nt_s339
                    `cast` (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                          <(TFCo:R:MVectorsWord32
                                                                              <RealWorld>)>
                            :: MVector RealWorld Word32 ~# MVector RealWorld Word32),
                    Just
                      @ (LeftFrag Word32)
                      (LeftFrag
                         @ Word32
                         (W32#
                            (narrow32Word#
                               (plusWord#
                                  (narrow32Word# (timesWord# (__word 10) sc2_s9WL))
                                  (narrow32Word# (minusWord# sc6_s9WQ (__word 48))))))),
                    I# sc1_s9WK) #)
            }
        }
    }
end Rec }

lvl33_rbb5
  :: forall s_X4qR.
     State# s_X4qR -> (# State# s_X4qR, Vector Word32 #)
[GblId, Arity=1, Caf=NoCafRefs]
lvl33_rbb5 =
  \ (@ s_X4qR) (s_X4l1 :: State# s_X4qR) ->
    case newByteArray#
           @ (PrimState (ST s_X4qR))
           0
           (s_X4l1
            `cast` (State# (Sym <(TFCo:R:PrimStateST <s_X4qR>)>)
                    :: State# s_X4qR ~# State# (PrimState (ST s_X4qR))))
    of _ { (# ipv_a4wq, ipv1_a4wr #) ->
    case unsafeFreezeByteArray#
           @ (PrimState (ST s_X4qR)) ipv1_a4wr ipv_a4wq
    of _ { (# ipv2_a4va, ipv3_a4vb #) ->
    (# ipv2_a4va
       `cast` (State# <(TFCo:R:PrimStateST <s_X4qR>)>
               :: State# (PrimState (ST s_X4qR)) ~# State# s_X4qR),
       (Vector @ Word32 0 0 ipv3_a4vb)
       `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym <(TFCo:R:VectorWord32)>
               :: Vector Word32 ~# Vector Word32) #)
    }
    }

lvl34_rbb6 :: Vector Word32
[GblId, Str=DmdType]
lvl34_rbb6 = runSTRep @ (Vector Word32) lvl33_rbb5

lvl35_rbb7 :: Word32
[GblId, Caf=NoCafRefs]
lvl35_rbb7 = W32# (__word 0)

lvl36_rbb8 :: MiddleFrag Word32
[GblId, Caf=NoCafRefs]
lvl36_rbb8 = MiddleFrag @ Word32 0 lvl35_rbb7

lvl37_rbb9 :: PartialNums Word32
[GblId, Caf=NoCafRefs]
lvl37_rbb9 = Single @ Word32 lvl36_rbb8

lvl38_rbba :: Int# -> IO (MVector (PrimState IO) Word32)
[GblId, Arity=1, Str=DmdType Tb]
lvl38_rbba =
  \ (x1_s94d :: Int#) ->
    checkError
      @ (IO (MVector (PrimState IO) Word32))
      file_rbaD
      lvl19_rbaN
      Bounds
      lvl20_rbaO
      (checkLength_msg# x1_s94d)

poly_$w$j2_rbbb :: Int# -> Int# -> Vector Word32
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j2_rbbb =
  \ (ipv_s6hh :: Int#) (a_s6yO :: Int#) ->
    checkError
      @ (Vector Word32)
      lvl22_rbaQ
      lvl23_rbaR
      Bounds
      lvl24_rbaS
      (checkSlice_msg# 1 a_s6yO ipv_s6hh)

lvl39_rbbc :: Int# -> Word32
[GblId, Arity=1, Str=DmdType Tb]
lvl39_rbbc =
  \ (ipv_s6hh :: Int#) ->
    checkError
      @ Word32
      lvl22_rbaQ
      lvl25_rbaU
      Bounds
      lvl26_rbaV
      (checkIndex_msg# 0 ipv_s6hh)

poly_$w$j3_rbbd :: Int# -> Int# -> Vector Word32
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j3_rbbd =
  \ (ipv_s6hh :: Int#) (a_s6yY :: Int#) ->
    checkError
      @ (Vector Word32)
      lvl22_rbaQ
      lvl23_rbaR
      Bounds
      lvl24_rbaS
      (checkSlice_msg# 1 a_s6yY ipv_s6hh)

lvl40_rbbe :: Int# -> Word32
[GblId, Arity=1, Str=DmdType Tb]
lvl40_rbbe =
  \ (ipv_s6hh :: Int#) ->
    checkError
      @ Word32
      lvl22_rbaQ
      lvl25_rbaU
      Bounds
      lvl26_rbaV
      (checkIndex_msg# 0 ipv_s6hh)

lvl41_rbbf :: Word8
[GblId, Str=DmdType b]
lvl41_rbbf = errorEmptyList @ Word8 lvl29_rbaZ

$wa4
  :: Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld, PartialNums Word32 #)
[GblId, Arity=5, Str=DmdType LLLLL]
$wa4 =
  \ (ww_s7XE :: Addr#)
    (ww1_s7XF :: ForeignPtrContents)
    (ww2_s7XG :: Int#)
    (ww3_s7XH :: Int#)
    (w_s7XJ :: State# RealWorld) ->
    let {
      $wa5_s83G
        :: State# RealWorld -> (# State# RealWorld, PartialNums Word32 #)
      [LclId, Arity=1, Str=DmdType L]
      $wa5_s83G =
        \ (w1_s7Xy :: State# RealWorld) ->
          case <=# ww3_s7XH 0 of _ {
            False ->
              case readWord8OffAddr#
                     @ RealWorld (plusAddr# ww_s7XE ww2_s7XG) 0 realWorld#
              of _ { (# ipv_a47V, ipv1_a47W #) ->
              case touch# @ ForeignPtrContents ww1_s7XF ipv_a47V
              of _ { __DEFAULT ->
              let {
                x1_s94d :: Int#
                [LclId, Str=DmdType]
                x1_s94d = +# (quotInt# ww3_s7XH 2) 1 } in
              case >=# x1_s94d 0 of _ {
                False -> case lvl38_rbba x1_s94d of wild_00 { };
                True ->
                  case newByteArray#
                         @ (PrimState IO)
                         (*# x1_s94d 4)
                         (w1_s7Xy
                          `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                  :: State# RealWorld ~# State# (PrimState IO)))
                  of _ { (# ipv2_a4wq, ipv3_a4wr #) ->
                  let {
                    ww4_s7Wh :: Int#
                    [LclId]
                    ww4_s7Wh = +# ww2_s7XG 1 } in
                  let {
                    $j_saEZ
                      :: State# RealWorld
                         -> (IOVector Word32, Maybe (LeftFrag Word32), Int)
                         -> (# State# RealWorld, PartialNums Word32 #)
                    [LclId, Arity=2]
                    $j_saEZ =
                      \ (ipv4_X4jS :: State# RealWorld)
                        (ipv5_X4jU :: (IOVector Word32, Maybe (LeftFrag Word32), Int)) ->
                        case ipv5_X4jU of _ { (v_a1hu, w2_a1hv, ind_a1hw) ->
                        case v_a1hu
                             `cast` (<TFCo:R:MVectorsWord32
                                        (Sym <(TFCo:R:PrimStateIO)>)> ; <NTCo:R:MVectorsWord32
                                                                           <PrimState IO>>
                                     :: MVector RealWorld Word32 ~# MVector (PrimState IO) Word32)
                        of _ { MVector rb_a4v3 rb1_a4v4 rb2_a4v5 ->
                        case unsafeFreezeByteArray#
                               @ (PrimState IO)
                               rb2_a4v5
                               (ipv4_X4jS
                                `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                        :: State# RealWorld ~# State# (PrimState IO)))
                        of _ { (# ipv6_a4va, ipv7_a4vb #) ->
                        let {
                          pref_s3np [Dmd=Just D(LLL)] :: Vector Word32
                          [LclId, Str=DmdType]
                          pref_s3np =
                            case ind_a1hw of _ { I# x2_a4o1 ->
                            case <=# x2_a4o1 0 of _ {
                              False ->
                                case <=# x2_a4o1 rb1_a4v4 of _ {
                                  False ->
                                    (Vector @ Word32 rb_a4v3 rb1_a4v4 ipv7_a4vb)
                                    `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym
                                                                            <(TFCo:R:VectorWord32)>
                                            :: Vector Word32 ~# Vector Word32);
                                  True ->
                                    (Vector @ Word32 rb_a4v3 x2_a4o1 ipv7_a4vb)
                                    `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym
                                                                            <(TFCo:R:VectorWord32)>
                                            :: Vector Word32 ~# Vector Word32)
                                };
                              True ->
                                case <=# 0 rb1_a4v4 of _ {
                                  False ->
                                    (Vector @ Word32 rb_a4v3 rb1_a4v4 ipv7_a4vb)
                                    `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym
                                                                            <(TFCo:R:VectorWord32)>
                                            :: Vector Word32 ~# Vector Word32);
                                  True ->
                                    (Vector @ Word32 rb_a4v3 0 ipv7_a4vb)
                                    `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym
                                                                            <(TFCo:R:VectorWord32)>
                                            :: Vector Word32 ~# Vector Word32)
                                }
                            }
                            } } in
                        case geWord# ipv1_a47W (__word 48) of _ {
                          False ->
                            (# ipv6_a4va
                               `cast` (State# <(TFCo:R:PrimStateIO)>
                                       :: State# (PrimState IO) ~# State# RealWorld),
                               case pref_s3np
                                    `cast` (<TFCo:R:VectorWord32> ; <NTCo:R:VectorWord32>
                                            :: Vector Word32 ~# Vector Word32)
                               of nt_s4vB { Vector ipv8_s4vC ipv9_s4vD ipv10_s4vE ->
                               case w2_a1hv of tpl_Xa { __DEFAULT ->
                               Compound
                                 @ Word32
                                 (Nothing @ (RightFrag Word32))
                                 (nt_s4vB
                                  `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym <(TFCo:R:VectorWord32)>
                                          :: Vector Word32 ~# Vector Word32))
                                 tpl_Xa
                               }
                               } #);
                          True ->
                            case leWord# ipv1_a47W (__word 57) of _ {
                              False ->
                                (# ipv6_a4va
                                   `cast` (State# <(TFCo:R:PrimStateIO)>
                                           :: State# (PrimState IO) ~# State# RealWorld),
                                   case pref_s3np
                                        `cast` (<TFCo:R:VectorWord32> ; <NTCo:R:VectorWord32>
                                                :: Vector Word32 ~# Vector Word32)
                                   of nt_s4vB { Vector ipv8_s4vC ipv9_s4vD ipv10_s4vE ->
                                   case w2_a1hv of tpl_Xa { __DEFAULT ->
                                   Compound
                                     @ Word32
                                     (Nothing @ (RightFrag Word32))
                                     (nt_s4vB
                                      `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym
                                                                              <(TFCo:R:VectorWord32)>
                                              :: Vector Word32 ~# Vector Word32))
                                     tpl_Xa
                                   }
                                   } #);
                              True ->
                                case pref_s3np
                                     `cast` (<TFCo:R:VectorWord32> ; <NTCo:R:VectorWord32>
                                             :: Vector Word32 ~# Vector Word32)
                                of _ { Vector ipv8_s6hg ipv9_s6hh ipv10_s6hi ->
                                case lvl34_rbb6
                                     `cast` (<TFCo:R:VectorWord32> ; <NTCo:R:VectorWord32>
                                             :: Vector Word32 ~# Vector Word32)
                                of _ { Vector ipv11_s6hK ipv12_s6hL ipv13_s6hM ->
                                let {
                                  lvl62_s94b :: Int
                                  [LclId, Str=DmdType]
                                  lvl62_s94b =
                                    letrec {
                                      $wa6_s83H [Occ=LoopBreaker]
                                        :: Addr#
                                           -> Int#
                                           -> State# RealWorld
                                           -> (# State# RealWorld, Maybe Int #)
                                      [LclId, Arity=3, Str=DmdType LLL]
                                      $wa6_s83H =
                                        \ (ww5_s7X4 :: Addr#)
                                          (ww6_s7X8 :: Int#)
                                          (w3_s7Xa :: State# RealWorld) ->
                                          case >=# ww6_s7X8 ww3_s7XH of _ {
                                            False ->
                                              case readWord8OffAddr# @ RealWorld ww5_s7X4 0 w3_s7Xa
                                              of _ { (# ipv14_a4iQ, ipv15_a4iR #) ->
                                              case geWord# ipv15_a4iR (__word 48) of _ {
                                                False -> (# ipv14_a4iQ, Just @ Int (I# ww6_s7X8) #);
                                                True ->
                                                  case leWord# ipv15_a4iR (__word 57) of _ {
                                                    False ->
                                                      (# ipv14_a4iQ, Just @ Int (I# ww6_s7X8) #);
                                                    True ->
                                                      $wa6_s83H
                                                        (plusAddr# ww5_s7X4 1)
                                                        (+# ww6_s7X8 1)
                                                        ipv14_a4iQ
                                                  }
                                              }
                                              };
                                            True -> (# w3_s7Xa, Nothing @ Int #)
                                          }; } in
                                    case $wa6_s83H (plusAddr# ww_s7XE ww2_s7XG) 0 realWorld#
                                    of _ { (# ipv14_a47w, ipv15_a47x #) ->
                                    case touch# @ ForeignPtrContents ww1_s7XF ipv14_a47w
                                    of _ { __DEFAULT ->
                                    case ipv15_a47x of _ {
                                      Nothing -> fromJust1 @ Int;
                                      Just x_a31m -> x_a31m
                                    }
                                    }
                                    } } in
                                letrec {
                                  $s$weq_loop0_sado [Occ=LoopBreaker] :: Int# -> Int# -> Bool
                                  [LclId, Arity=2, Str=DmdType LL]
                                  $s$weq_loop0_sado =
                                    \ (sc_sa17 :: Int#) (sc1_sa18 :: Int#) ->
                                      case >=# sc_sa17 ipv9_s6hh of _ {
                                        False ->
                                          case >=# sc1_sa18 ipv12_s6hL of _ {
                                            False ->
                                              case indexWord32Array#
                                                     ipv13_s6hM (+# ipv11_s6hK sc1_sa18)
                                              of wild8_X6oe { __DEFAULT ->
                                              case indexWord32Array#
                                                     ipv10_s6hi (+# ipv8_s6hg sc_sa17)
                                              of wild9_a6hC { __DEFAULT ->
                                              case eqWord# wild9_a6hC wild8_X6oe of _ {
                                                False -> False;
                                                True ->
                                                  $s$weq_loop0_sado (+# sc_sa17 1) (+# sc1_sa18 1)
                                              }
                                              }
                                              };
                                            True -> False
                                          };
                                        True -> >=# sc1_sa18 ipv12_s6hL
                                      }; } in
                                case $s$weq_loop0_sado 0 0 of _ {
                                  False ->
                                    (# ipv6_a4va
                                       `cast` (State# <(TFCo:R:PrimStateIO)>
                                               :: State# (PrimState IO) ~# State# RealWorld),
                                       let {
                                         a_s6yO [Dmd=Just L] :: Int#
                                         [LclId, Str=DmdType]
                                         a_s6yO = -# ipv9_s6hh 1 } in
                                       case >=# a_s6yO 0 of _ {
                                         False ->
                                           case poly_$w$j2_rbbb ipv9_s6hh a_s6yO of wild8_00 { };
                                         True ->
                                           case <=# (+# 1 a_s6yO) ipv9_s6hh of _ {
                                             False ->
                                               case poly_$w$j2_rbbb ipv9_s6hh a_s6yO of wild9_00 {
                                               };
                                             True ->
                                               case w2_a1hv of tpl_Xa { __DEFAULT ->
                                               Compound
                                                 @ Word32
                                                 (Just
                                                    @ (RightFrag Word32)
                                                    (case lvl62_s94b of _ { I# tpl2_B4 ->
                                                     case <# 0 ipv9_s6hh of _ {
                                                       False ->
                                                         case lvl39_rbbc ipv9_s6hh of wild10_00 { };
                                                       True ->
                                                         case indexWord32Array# ipv10_s6hi ipv8_s6hg
                                                         of wild10_a6hC { __DEFAULT ->
                                                         RightFrag
                                                           @ Word32 tpl2_B4 (W32# wild10_a6hC)
                                                         }
                                                     }
                                                     }))
                                                 ((Vector
                                                     @ Word32 (+# ipv8_s6hg 1) a_s6yO ipv10_s6hi)
                                                  `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym
                                                                                          <(TFCo:R:VectorWord32)>
                                                          :: Vector Word32 ~# Vector Word32))
                                                 tpl_Xa
                                               }
                                           }
                                       } #);
                                  True ->
                                    case w2_a1hv of _ {
                                      Nothing ->
                                        (# ipv6_a4va
                                           `cast` (State# <(TFCo:R:PrimStateIO)>
                                                   :: State# (PrimState IO) ~# State# RealWorld),
                                           let {
                                             a_s6yY [Dmd=Just L] :: Int#
                                             [LclId, Str=DmdType]
                                             a_s6yY = -# ipv9_s6hh 1 } in
                                           case >=# a_s6yY 0 of _ {
                                             False ->
                                               case poly_$w$j3_rbbd ipv9_s6hh a_s6yY of wild9_00 {
                                               };
                                             True ->
                                               case <=# (+# 1 a_s6yY) ipv9_s6hh of _ {
                                                 False ->
                                                   case poly_$w$j3_rbbd ipv9_s6hh a_s6yY
                                                   of wild10_00 {
                                                   };
                                                 True ->
                                                   Compound
                                                     @ Word32
                                                     (Just
                                                        @ (RightFrag Word32)
                                                        (case lvl62_s94b of _ { I# tpl1_B4 ->
                                                         case <# 0 ipv9_s6hh of _ {
                                                           False ->
                                                             case lvl40_rbbe ipv9_s6hh
                                                             of wild11_00 {
                                                             };
                                                           True ->
                                                             case indexWord32Array#
                                                                    ipv10_s6hi ipv8_s6hg
                                                             of wild11_a6hC { __DEFAULT ->
                                                             RightFrag
                                                               @ Word32 tpl1_B4 (W32# wild11_a6hC)
                                                             }
                                                         }
                                                         }))
                                                     ((Vector
                                                         @ Word32
                                                         (+# ipv8_s6hg 1)
                                                         a_s6yY
                                                         ipv10_s6hi)
                                                      `cast` (Sym <(NTCo:R:VectorWord32)> ; Sym
                                                                                              <(TFCo:R:VectorWord32)>
                                                              :: Vector Word32 ~# Vector Word32))
                                                     (Nothing @ (LeftFrag Word32))
                                               }
                                           } #);
                                      Just ds_d2m1 ->
                                        case ds_d2m1 of _ { LeftFrag w3_a1hA ->
                                        (# ipv6_a4va
                                           `cast` (State# <(TFCo:R:PrimStateIO)>
                                                   :: State# (PrimState IO) ~# State# RealWorld),
                                           Single @ Word32 (MiddleFrag @ Word32 ww3_s7XH w3_a1hA) #)
                                        }
                                    }
                                }
                                }
                                }
                            }
                        }
                        }
                        }
                        } } in
                  case geWord# ipv1_a47W (__word 48) of _ {
                    False ->
                      case ww3_s7XH of wild3_Xdb {
                        __DEFAULT ->
                          case readWord8OffAddr#
                                 @ RealWorld (plusAddr# ww_s7XE ww4_s7Wh) 0 realWorld#
                          of _ { (# ipv4_X4fj, ipv5_X4fl #) ->
                          case touch# @ ForeignPtrContents ww1_s7XF ipv4_X4fj
                          of _ { __DEFAULT ->
                          case $s$wa2_rbb3
                                 (-# wild3_Xdb 1)
                                 0
                                 0
                                 x1_s94d
                                 (ipv3_a4wr
                                  `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                          :: MutableByteArray# (PrimState IO)
                                               ~#
                                             MutableByteArray# RealWorld))
                                 @~ (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                                   <(TFCo:R:MVectorsWord32
                                                                                       <RealWorld>)>)
                                 ipv5_X4fl
                                 ww_s7XE
                                 ww1_s7XF
                                 (+# ww4_s7Wh 1)
                                 (-# (-# wild3_Xdb 1) 1)
                                 (ipv2_a4wq
                                  `cast` (State# <(TFCo:R:PrimStateIO)>
                                          :: State# (PrimState IO) ~# State# RealWorld))
                          of _ { (# ipv6_X4jS, ipv7_X4jU #) ->
                          $j_saEZ ipv6_X4jS ipv7_X4jU
                          }
                          }
                          };
                        1 ->
                          $j_saEZ
                            (ipv2_a4wq
                             `cast` (State# <(TFCo:R:PrimStateIO)>
                                     :: State# (PrimState IO) ~# State# RealWorld))
                            ((MVector
                                @ RealWorld
                                @ Word32
                                0
                                x1_s94d
                                (ipv3_a4wr
                                 `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                         :: MutableByteArray# (PrimState IO)
                                              ~#
                                            MutableByteArray# RealWorld)))
                             `cast` (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                                   <(TFCo:R:MVectorsWord32
                                                                                       <RealWorld>)>
                                     :: MVector RealWorld Word32 ~# MVector RealWorld Word32),
                             Nothing @ (LeftFrag Word32),
                             $fShowPartialNums7)
                      };
                    True ->
                      case leWord# ipv1_a47W (__word 57) of _ {
                        False ->
                          case ww3_s7XH of wild4_Xdb {
                            __DEFAULT ->
                              case readWord8OffAddr#
                                     @ RealWorld (plusAddr# ww_s7XE ww4_s7Wh) 0 realWorld#
                              of _ { (# ipv4_X4fj, ipv5_X4fl #) ->
                              case touch# @ ForeignPtrContents ww1_s7XF ipv4_X4fj
                              of _ { __DEFAULT ->
                              case $s$wa2_rbb3
                                     (-# wild4_Xdb 1)
                                     0
                                     0
                                     x1_s94d
                                     (ipv3_a4wr
                                      `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                              :: MutableByteArray# (PrimState IO)
                                                   ~#
                                                 MutableByteArray# RealWorld))
                                     @~ (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                                       <(TFCo:R:MVectorsWord32
                                                                                           <RealWorld>)>)
                                     ipv5_X4fl
                                     ww_s7XE
                                     ww1_s7XF
                                     (+# ww4_s7Wh 1)
                                     (-# (-# wild4_Xdb 1) 1)
                                     (ipv2_a4wq
                                      `cast` (State# <(TFCo:R:PrimStateIO)>
                                              :: State# (PrimState IO) ~# State# RealWorld))
                              of _ { (# ipv6_X4jS, ipv7_X4jU #) ->
                              $j_saEZ ipv6_X4jS ipv7_X4jU
                              }
                              }
                              };
                            1 ->
                              $j_saEZ
                                (ipv2_a4wq
                                 `cast` (State# <(TFCo:R:PrimStateIO)>
                                         :: State# (PrimState IO) ~# State# RealWorld))
                                ((MVector
                                    @ RealWorld
                                    @ Word32
                                    0
                                    x1_s94d
                                    (ipv3_a4wr
                                     `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                             :: MutableByteArray# (PrimState IO)
                                                  ~#
                                                MutableByteArray# RealWorld)))
                                 `cast` (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                                       <(TFCo:R:MVectorsWord32
                                                                                           <RealWorld>)>
                                         :: MVector RealWorld Word32 ~# MVector RealWorld Word32),
                                 Nothing @ (LeftFrag Word32),
                                 $fShowPartialNums7)
                          };
                        True ->
                          case $s$wa3_rbb4
                                 ww3_s7XH
                                 0
                                 (__word 0)
                                 0
                                 x1_s94d
                                 (ipv3_a4wr
                                  `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                          :: MutableByteArray# (PrimState IO)
                                               ~#
                                             MutableByteArray# RealWorld))
                                 @~ (Sym <(NTCo:R:MVectorsWord32 <RealWorld>)> ; Sym
                                                                                   <(TFCo:R:MVectorsWord32
                                                                                       <RealWorld>)>)
                                 ipv1_a47W
                                 ww_s7XE
                                 ww1_s7XF
                                 ww4_s7Wh
                                 (-# ww3_s7XH 1)
                                 (ipv2_a4wq
                                  `cast` (State# <(TFCo:R:PrimStateIO)>
                                          :: State# (PrimState IO) ~# State# RealWorld))
                          of _ { (# ipv4_X4jS, ipv5_X4jU #) ->
                          $j_saEZ ipv4_X4jS ipv5_X4jU
                          }
                      }
                  }
                  }
              }
              }
              };
            True -> case lvl41_rbbf of wild_00 { }
          } } in
    case ww3_s7XH of _ {
      __DEFAULT -> $wa5_s83G w_s7XJ;
      0 ->
        case eqAddr# ww_s7XE __NULL of _ {
          False ->
            case $wcompareBytes
                   ww_s7XE ww1_s7XF ww2_s7XG 0 __NULL $fMonoidByteString1 0 0
            of _ {
              __DEFAULT -> $wa5_s83G w_s7XJ;
              EQ -> (# w_s7XJ, lvl37_rbb9 #)
            };
          True ->
            case ww2_s7XG of wild2_XcX {
              __DEFAULT ->
                case $wcompareBytes
                       ww_s7XE ww1_s7XF wild2_XcX 0 __NULL $fMonoidByteString1 0 0
                of _ {
                  __DEFAULT -> $wa5_s83G w_s7XJ;
                  EQ -> (# w_s7XJ, lvl37_rbb9 #)
                };
              0 -> (# w_s7XJ, lvl37_rbb9 #)
            }
        }
    }

readNatsPartial2 [InlPrag=INLINE[0]]
  :: ByteString
     -> State# RealWorld -> (# State# RealWorld, PartialNums Word32 #)
[GblId,
 Arity=2,
 Str=DmdType U(LLLL)L,
 Unf=Unf{Src=Worker=$wa4, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (w_s7XC [Occ=Once!] :: ByteString)
                 (w1_s7XJ [Occ=Once] :: State# RealWorld) ->
                 case w_s7XC
                 of _
                 { PS ww_s7XE [Occ=Once]
                      ww1_s7XF [Occ=Once]
                      ww2_s7XG [Occ=Once]
                      ww3_s7XH [Occ=Once] ->
                 $wa4 ww_s7XE ww1_s7XF ww2_s7XG ww3_s7XH w1_s7XJ
                 }}]
readNatsPartial2 =
  \ (w_s7XC :: ByteString) (w1_s7XJ :: State# RealWorld) ->
    case w_s7XC of _ { PS ww_s7XE ww1_s7XF ww2_s7XG ww3_s7XH ->
    $wa4 ww_s7XE ww1_s7XF ww2_s7XG ww3_s7XH w1_s7XJ
    }

readNatsPartial_readNatsPartial1
  :: ByteString -> IO (PartialNums Word32)
[GblId,
 Arity=2,
 Str=DmdType U(LLLL)L,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= readNatsPartial2
               `cast` (<ByteString> -> Sym <(NTCo:IO <PartialNums Word32>)>
                       :: (ByteString
                           -> State# RealWorld -> (# State# RealWorld, PartialNums Word32 #))
                            ~#
                          (ByteString -> IO (PartialNums Word32)))}]
readNatsPartial_readNatsPartial1 =
  readNatsPartial2
  `cast` (<ByteString> -> Sym <(NTCo:IO <PartialNums Word32>)>
          :: (ByteString
              -> State# RealWorld -> (# State# RealWorld, PartialNums Word32 #))
               ~#
             (ByteString -> IO (PartialNums Word32)))

lvl42_rbbg :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl42_rbbg =
  \ (ipv_s34U :: Int#) (ww_s7Yt :: Int#) ->
    checkError
      @ (IO ())
      file_rbaD
      lvl11_rbaC
      Bounds
      lvl10_rbaB
      (checkIndex_msg# ww_s7Yt ipv_s34U)

lvl43_rbbh :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl43_rbbh =
  \ (ipv_s34U :: Int#) (ww_s7Yt :: Int#) ->
    checkError
      @ (IO ())
      file_rbaD
      lvl11_rbaC
      Bounds
      lvl10_rbaB
      (checkIndex_msg# ww_s7Yt ipv_s34U)

Rec {
$s$wa4_rbbi
  :: Int#
     -> Int#
     -> Int#
     -> Int#
     -> MutableByteArray# RealWorld
     -> (~#) * (MVector RealWorld Word) (MVector RealWorld Word)
     -> Word#
     -> Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld,
           (IOVector Word, Maybe (LeftFrag Word), Int) #)
[GblId, Arity=12, Str=DmdType LALLLLLLLLLL]
$s$wa4_rbbi =
  \ (sc_sa30 :: Int#)
    (sc1_sa3c :: Int#)
    (sc2_sa3d :: Int#)
    (sc3_sa3e :: Int#)
    (sc4_sa3f :: MutableByteArray# RealWorld)
    (sg_sa3g
       :: (~#) * (MVector RealWorld Word) (MVector RealWorld Word))
    (sc5_sa3h :: Word#)
    (sc6_sa3i :: Addr#)
    (sc7_sa3j :: ForeignPtrContents)
    (sc8_sa3k :: Int#)
    (sc9_sa3l :: Int#)
    (sc10_sa3m :: State# RealWorld) ->
    let {
      $w$j_s83L
        :: State# RealWorld
           -> (# State# RealWorld,
                 (IOVector Word, Maybe (LeftFrag Word), Int) #)
      [LclId, Arity=1, Str=DmdType T]
      $w$j_s83L =
        \ _ ->
          case sc_sa30 of wild_XdF {
            __DEFAULT ->
              case readWord8OffAddr#
                     @ RealWorld (plusAddr# sc6_sa3i sc8_sa3k) 0 realWorld#
              of _ { (# ipv_a47V, ipv1_a47W #) ->
              case touch# @ ForeignPtrContents sc7_sa3j ipv_a47V
              of _ { __DEFAULT ->
              $s$wa4_rbbi
                (-# wild_XdF 1)
                sc1_sa3c
                sc2_sa3d
                sc3_sa3e
                sc4_sa3f
                @~ (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                <(TFCo:R:MVectorsWord <RealWorld>)>)
                ipv1_a47W
                sc6_sa3i
                sc7_sa3j
                (+# sc8_sa3k 1)
                (-# sc9_sa3l 1)
                sc10_sa3m
              }
              };
            1 ->
              (# sc10_sa3m,
                 ((MVector @ RealWorld @ Word sc2_sa3d sc3_sa3e sc4_sa3f)
                  `cast` (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                      <(TFCo:R:MVectorsWord
                                                                          <RealWorld>)>
                          :: MVector RealWorld Word ~# MVector RealWorld Word),
                  Nothing @ (LeftFrag Word),
                  I# sc1_sa3c) #)
          } } in
    case geWord# sc5_sa3h (__word 48) of _ {
      False -> $w$j_s83L realWorld#;
      True ->
        case leWord# sc5_sa3h (__word 57) of _ {
          False -> $w$j_s83L realWorld#;
          True ->
            $s$wa5_rbbj
              sc_sa30
              sc1_sa3c
              (__word 0)
              sc2_sa3d
              sc3_sa3e
              sc4_sa3f
              @~ (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                              <(TFCo:R:MVectorsWord <RealWorld>)>)
              sc5_sa3h
              sc6_sa3i
              sc7_sa3j
              sc8_sa3k
              sc9_sa3l
              sc10_sa3m
        }
    }

$s$wa5_rbbj
  :: Int#
     -> Int#
     -> Word#
     -> Int#
     -> Int#
     -> MutableByteArray# RealWorld
     -> (~#) * (MVector RealWorld Word) (MVector RealWorld Word)
     -> Word#
     -> Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld,
           (IOVector Word, Maybe (LeftFrag Word), Int) #)
[GblId, Arity=13, Str=DmdType LLLLLLLLLLLLL]
$s$wa5_rbbj =
  \ (sc_sa1L :: Int#)
    (sc1_sa1Y :: Int#)
    (sc2_sa1Z :: Word#)
    (sc3_sa20 :: Int#)
    (sc4_sa21 :: Int#)
    (sc5_sa22 :: MutableByteArray# RealWorld)
    (sg_sa23
       :: (~#) * (MVector RealWorld Word) (MVector RealWorld Word))
    (sc6_sa24 :: Word#)
    (sc7_sa25 :: Addr#)
    (sc8_sa26 :: ForeignPtrContents)
    (sc9_sa27 :: Int#)
    (sc10_sa28 :: Int#)
    (sc11_sa29 :: State# RealWorld) ->
    let {
      nt_s34S :: MVector RealWorld Word
      [LclId]
      nt_s34S =
        MVector @ RealWorld @ Word sc3_sa20 sc4_sa21 sc5_sa22 } in
    let {
      $w$j_s83M
        :: State# RealWorld
           -> (# State# RealWorld,
                 (IOVector Word, Maybe (LeftFrag Word), Int) #)
      [LclId, Arity=1, Str=DmdType T]
      $w$j_s83M =
        \ _ ->
          case >=# sc1_sa1Y 0 of _ {
            False -> case lvl42_rbbg sc4_sa21 sc1_sa1Y of wild_00 { };
            True ->
              case <# sc1_sa1Y sc4_sa21 of _ {
                False -> case lvl43_rbbh sc4_sa21 sc1_sa1Y of wild_00 { };
                True ->
                  case (writeWordArray#
                          @ (PrimState IO)
                          (sc5_sa22
                           `cast` (MutableByteArray# (Sym <(TFCo:R:PrimStateIO)>)
                                   :: MutableByteArray# RealWorld
                                        ~#
                                      MutableByteArray# (PrimState IO)))
                          (+# sc3_sa20 sc1_sa1Y)
                          sc2_sa1Z
                          (sc11_sa29
                           `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                   :: State# RealWorld ~# State# (PrimState IO))))
                       `cast` (State# <(TFCo:R:PrimStateIO)>
                               :: State# (PrimState IO) ~# State# RealWorld)
                  of ipv_a46r { __DEFAULT ->
                  case sc_sa1L of wild_XdL {
                    __DEFAULT ->
                      case readWord8OffAddr#
                             @ RealWorld (plusAddr# sc7_sa25 sc9_sa27) 0 realWorld#
                      of _ { (# ipv1_a47V, ipv2_a47W #) ->
                      case touch# @ ForeignPtrContents sc8_sa26 ipv1_a47V
                      of _ { __DEFAULT ->
                      $s$wa4_rbbi
                        (-# wild_XdL 1)
                        (+# sc1_sa1Y 1)
                        sc3_sa20
                        sc4_sa21
                        sc5_sa22
                        @~ (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                        <(TFCo:R:MVectorsWord
                                                                            <RealWorld>)>)
                        ipv2_a47W
                        sc7_sa25
                        sc8_sa26
                        (+# sc9_sa27 1)
                        (-# sc10_sa28 1)
                        ipv_a46r
                      }
                      };
                    1 ->
                      (# ipv_a46r,
                         (nt_s34S
                          `cast` (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                              <(TFCo:R:MVectorsWord
                                                                                  <RealWorld>)>
                                  :: MVector RealWorld Word ~# MVector RealWorld Word),
                          Nothing @ (LeftFrag Word),
                          I# (+# sc1_sa1Y 1)) #)
                  }
                  }
              }
          } } in
    case geWord# sc6_sa24 (__word 48) of _ {
      False -> $w$j_s83M realWorld#;
      True ->
        case leWord# sc6_sa24 (__word 57) of _ {
          False -> $w$j_s83M realWorld#;
          True ->
            case sc_sa1L of wild2_XdS {
              __DEFAULT ->
                case readWord8OffAddr#
                       @ RealWorld (plusAddr# sc7_sa25 sc9_sa27) 0 realWorld#
                of _ { (# ipv_a47V, ipv1_a47W #) ->
                case touch# @ ForeignPtrContents sc8_sa26 ipv_a47V
                of _ { __DEFAULT ->
                $s$wa5_rbbj
                  (-# wild2_XdS 1)
                  sc1_sa1Y
                  (plusWord#
                     (timesWord# (__word 10) sc2_sa1Z)
                     (minusWord# sc6_sa24 (__word 48)))
                  sc3_sa20
                  sc4_sa21
                  sc5_sa22
                  @~ (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                  <(TFCo:R:MVectorsWord
                                                                      <RealWorld>)>)
                  ipv1_a47W
                  sc7_sa25
                  sc8_sa26
                  (+# sc9_sa27 1)
                  (-# sc10_sa28 1)
                  sc11_sa29
                }
                };
              1 ->
                (# sc11_sa29,
                   (nt_s34S
                    `cast` (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                        <(TFCo:R:MVectorsWord
                                                                            <RealWorld>)>
                            :: MVector RealWorld Word ~# MVector RealWorld Word),
                    Just
                      @ (LeftFrag Word)
                      (LeftFrag
                         @ Word
                         (W#
                            (plusWord#
                               (timesWord# (__word 10) sc2_sa1Z)
                               (minusWord# sc6_sa24 (__word 48))))),
                    I# sc1_sa1Y) #)
            }
        }
    }
end Rec }

lvl44_rbbk
  :: forall s_X4rv. State# s_X4rv -> (# State# s_X4rv, Vector Word #)
[GblId, Arity=1, Caf=NoCafRefs]
lvl44_rbbk =
  \ (@ s_X4rv) (s_X4ry :: State# s_X4rv) ->
    case newByteArray#
           @ (PrimState (ST s_X4rv))
           0
           (s_X4ry
            `cast` (State# (Sym <(TFCo:R:PrimStateST <s_X4rv>)>)
                    :: State# s_X4rv ~# State# (PrimState (ST s_X4rv))))
    of _ { (# ipv_a4AI, ipv1_a4AJ #) ->
    case unsafeFreezeByteArray#
           @ (PrimState (ST s_X4rv)) ipv1_a4AJ ipv_a4AI
    of _ { (# ipv2_a4zs, ipv3_a4zt #) ->
    (# ipv2_a4zs
       `cast` (State# <(TFCo:R:PrimStateST <s_X4rv>)>
               :: State# (PrimState (ST s_X4rv)) ~# State# s_X4rv),
       (Vector @ Word 0 0 ipv3_a4zt)
       `cast` (Sym <(NTCo:R:VectorWord)> ; Sym <(TFCo:R:VectorWord)>
               :: Vector Word ~# Vector Word) #)
    }
    }

lvl45_rbbl :: Vector Word
[GblId, Str=DmdType]
lvl45_rbbl = runSTRep @ (Vector Word) lvl44_rbbk

lvl46_rbbm :: Word
[GblId, Caf=NoCafRefs]
lvl46_rbbm = W# (__word 0)

lvl47_rbbn :: MiddleFrag Word
[GblId, Caf=NoCafRefs]
lvl47_rbbn = MiddleFrag @ Word 0 lvl46_rbbm

lvl48_rbbo :: PartialNums Word
[GblId, Caf=NoCafRefs]
lvl48_rbbo = Single @ Word lvl47_rbbn

lvl49_rbbp :: Int# -> IO (MVector (PrimState IO) Word)
[GblId, Arity=1, Str=DmdType Tb]
lvl49_rbbp =
  \ (x1_s951 :: Int#) ->
    checkError
      @ (IO (MVector (PrimState IO) Word))
      file_rbaD
      lvl19_rbaN
      Bounds
      lvl20_rbaO
      (checkLength_msg# x1_s951)

poly_$w$j4_rbbq :: Int# -> Int# -> Vector Word
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j4_rbbq =
  \ (ipv_s6l2 :: Int#) (a_s6AC :: Int#) ->
    checkError
      @ (Vector Word)
      lvl22_rbaQ
      lvl23_rbaR
      Bounds
      lvl24_rbaS
      (checkSlice_msg# 1 a_s6AC ipv_s6l2)

lvl50_rbbr :: Int# -> Word
[GblId, Arity=1, Str=DmdType Tb]
lvl50_rbbr =
  \ (ipv_s6l2 :: Int#) ->
    checkError
      @ Word
      lvl22_rbaQ
      lvl25_rbaU
      Bounds
      lvl26_rbaV
      (checkIndex_msg# 0 ipv_s6l2)

poly_$w$j5_rbbs :: Int# -> Int# -> Vector Word
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j5_rbbs =
  \ (ipv_s6l2 :: Int#) (a_s6AM :: Int#) ->
    checkError
      @ (Vector Word)
      lvl22_rbaQ
      lvl23_rbaR
      Bounds
      lvl24_rbaS
      (checkSlice_msg# 1 a_s6AM ipv_s6l2)

lvl51_rbbt :: Int# -> Word
[GblId, Arity=1, Str=DmdType Tb]
lvl51_rbbt =
  \ (ipv_s6l2 :: Int#) ->
    checkError
      @ Word
      lvl22_rbaQ
      lvl25_rbaU
      Bounds
      lvl26_rbaV
      (checkIndex_msg# 0 ipv_s6l2)

lvl52_rbbu :: Word8
[GblId, Str=DmdType b]
lvl52_rbbu = errorEmptyList @ Word8 lvl29_rbaZ

$wa
  :: Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld, PartialNums Word #)
[GblId, Arity=5, Str=DmdType LLLLL]
$wa =
  \ (ww_s7Zv :: Addr#)
    (ww1_s7Zw :: ForeignPtrContents)
    (ww2_s7Zx :: Int#)
    (ww3_s7Zy :: Int#)
    (w_s7ZA :: State# RealWorld) ->
    let {
      $wa5_s83N
        :: State# RealWorld -> (# State# RealWorld, PartialNums Word #)
      [LclId, Arity=1, Str=DmdType L]
      $wa5_s83N =
        \ (w1_s7Zp :: State# RealWorld) ->
          case <=# ww3_s7Zy 0 of _ {
            False ->
              case readWord8OffAddr#
                     @ RealWorld (plusAddr# ww_s7Zv ww2_s7Zx) 0 realWorld#
              of _ { (# ipv_a47V, ipv1_a47W #) ->
              case touch# @ ForeignPtrContents ww1_s7Zw ipv_a47V
              of _ { __DEFAULT ->
              let {
                x1_s951 :: Int#
                [LclId, Str=DmdType]
                x1_s951 = +# (quotInt# ww3_s7Zy 2) 1 } in
              case >=# x1_s951 0 of _ {
                False -> case lvl49_rbbp x1_s951 of wild_00 { };
                True ->
                  case newByteArray#
                         @ (PrimState IO)
                         (*# x1_s951 8)
                         (w1_s7Zp
                          `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                  :: State# RealWorld ~# State# (PrimState IO)))
                  of _ { (# ipv2_a4AI, ipv3_a4AJ #) ->
                  let {
                    ww4_s7Y8 :: Int#
                    [LclId]
                    ww4_s7Y8 = +# ww2_s7Zx 1 } in
                  let {
                    $j_saGo
                      :: State# RealWorld
                         -> (IOVector Word, Maybe (LeftFrag Word), Int)
                         -> (# State# RealWorld, PartialNums Word #)
                    [LclId, Arity=2]
                    $j_saGo =
                      \ (ipv4_X4km :: State# RealWorld)
                        (ipv5_X4ko :: (IOVector Word, Maybe (LeftFrag Word), Int)) ->
                        case ipv5_X4ko of _ { (v_a1hu, w2_a1hv, ind_a1hw) ->
                        case v_a1hu
                             `cast` (<TFCo:R:MVectorsWord
                                        (Sym <(TFCo:R:PrimStateIO)>)> ; <NTCo:R:MVectorsWord
                                                                           <PrimState IO>>
                                     :: MVector RealWorld Word ~# MVector (PrimState IO) Word)
                        of _ { MVector rb_a4zl rb1_a4zm rb2_a4zn ->
                        case unsafeFreezeByteArray#
                               @ (PrimState IO)
                               rb2_a4zn
                               (ipv4_X4km
                                `cast` (State# (Sym <(TFCo:R:PrimStateIO)>)
                                        :: State# RealWorld ~# State# (PrimState IO)))
                        of _ { (# ipv6_a4zs, ipv7_a4zt #) ->
                        let {
                          pref_s3n7 [Dmd=Just D(LLL)] :: Vector Word
                          [LclId, Str=DmdType]
                          pref_s3n7 =
                            case ind_a1hw of _ { I# x2_a4o1 ->
                            case <=# x2_a4o1 0 of _ {
                              False ->
                                case <=# x2_a4o1 rb1_a4zm of _ {
                                  False ->
                                    (Vector @ Word rb_a4zl rb1_a4zm ipv7_a4zt)
                                    `cast` (Sym <(NTCo:R:VectorWord)> ; Sym <(TFCo:R:VectorWord)>
                                            :: Vector Word ~# Vector Word);
                                  True ->
                                    (Vector @ Word rb_a4zl x2_a4o1 ipv7_a4zt)
                                    `cast` (Sym <(NTCo:R:VectorWord)> ; Sym <(TFCo:R:VectorWord)>
                                            :: Vector Word ~# Vector Word)
                                };
                              True ->
                                case <=# 0 rb1_a4zm of _ {
                                  False ->
                                    (Vector @ Word rb_a4zl rb1_a4zm ipv7_a4zt)
                                    `cast` (Sym <(NTCo:R:VectorWord)> ; Sym <(TFCo:R:VectorWord)>
                                            :: Vector Word ~# Vector Word);
                                  True ->
                                    (Vector @ Word rb_a4zl 0 ipv7_a4zt)
                                    `cast` (Sym <(NTCo:R:VectorWord)> ; Sym <(TFCo:R:VectorWord)>
                                            :: Vector Word ~# Vector Word)
                                }
                            }
                            } } in
                        case geWord# ipv1_a47W (__word 48) of _ {
                          False ->
                            (# ipv6_a4zs
                               `cast` (State# <(TFCo:R:PrimStateIO)>
                                       :: State# (PrimState IO) ~# State# RealWorld),
                               case pref_s3n7
                                    `cast` (<TFCo:R:VectorWord> ; <NTCo:R:VectorWord>
                                            :: Vector Word ~# Vector Word)
                               of nt_s4zT { Vector ipv8_s4zU ipv9_s4zV ipv10_s4zW ->
                               case w2_a1hv of tpl_Xa { __DEFAULT ->
                               Compound
                                 @ Word
                                 (Nothing @ (RightFrag Word))
                                 (nt_s4zT
                                  `cast` (Sym <(NTCo:R:VectorWord)> ; Sym <(TFCo:R:VectorWord)>
                                          :: Vector Word ~# Vector Word))
                                 tpl_Xa
                               }
                               } #);
                          True ->
                            case leWord# ipv1_a47W (__word 57) of _ {
                              False ->
                                (# ipv6_a4zs
                                   `cast` (State# <(TFCo:R:PrimStateIO)>
                                           :: State# (PrimState IO) ~# State# RealWorld),
                                   case pref_s3n7
                                        `cast` (<TFCo:R:VectorWord> ; <NTCo:R:VectorWord>
                                                :: Vector Word ~# Vector Word)
                                   of nt_s4zT { Vector ipv8_s4zU ipv9_s4zV ipv10_s4zW ->
                                   case w2_a1hv of tpl_Xa { __DEFAULT ->
                                   Compound
                                     @ Word
                                     (Nothing @ (RightFrag Word))
                                     (nt_s4zT
                                      `cast` (Sym <(NTCo:R:VectorWord)> ; Sym <(TFCo:R:VectorWord)>
                                              :: Vector Word ~# Vector Word))
                                     tpl_Xa
                                   }
                                   } #);
                              True ->
                                case pref_s3n7
                                     `cast` (<TFCo:R:VectorWord> ; <NTCo:R:VectorWord>
                                             :: Vector Word ~# Vector Word)
                                of _ { Vector ipv8_s6l1 ipv9_s6l2 ipv10_s6l3 ->
                                case lvl45_rbbl
                                     `cast` (<TFCo:R:VectorWord> ; <NTCo:R:VectorWord>
                                             :: Vector Word ~# Vector Word)
                                of _ { Vector ipv11_s6lv ipv12_s6lw ipv13_s6lx ->
                                let {
                                  lvl62_s94Z :: Int
                                  [LclId, Str=DmdType]
                                  lvl62_s94Z =
                                    letrec {
                                      $wa6_s83O [Occ=LoopBreaker]
                                        :: Addr#
                                           -> Int#
                                           -> State# RealWorld
                                           -> (# State# RealWorld, Maybe Int #)
                                      [LclId, Arity=3, Str=DmdType LLL]
                                      $wa6_s83O =
                                        \ (ww5_s7YV :: Addr#)
                                          (ww6_s7YZ :: Int#)
                                          (w3_s7Z1 :: State# RealWorld) ->
                                          case >=# ww6_s7YZ ww3_s7Zy of _ {
                                            False ->
                                              case readWord8OffAddr# @ RealWorld ww5_s7YV 0 w3_s7Z1
                                              of _ { (# ipv14_a4iQ, ipv15_a4iR #) ->
                                              case geWord# ipv15_a4iR (__word 48) of _ {
                                                False -> (# ipv14_a4iQ, Just @ Int (I# ww6_s7YZ) #);
                                                True ->
                                                  case leWord# ipv15_a4iR (__word 57) of _ {
                                                    False ->
                                                      (# ipv14_a4iQ, Just @ Int (I# ww6_s7YZ) #);
                                                    True ->
                                                      $wa6_s83O
                                                        (plusAddr# ww5_s7YV 1)
                                                        (+# ww6_s7YZ 1)
                                                        ipv14_a4iQ
                                                  }
                                              }
                                              };
                                            True -> (# w3_s7Z1, Nothing @ Int #)
                                          }; } in
                                    case $wa6_s83O (plusAddr# ww_s7Zv ww2_s7Zx) 0 realWorld#
                                    of _ { (# ipv14_a47w, ipv15_a47x #) ->
                                    case touch# @ ForeignPtrContents ww1_s7Zw ipv14_a47w
                                    of _ { __DEFAULT ->
                                    case ipv15_a47x of _ {
                                      Nothing -> fromJust1 @ Int;
                                      Just x_a31m -> x_a31m
                                    }
                                    }
                                    } } in
                                letrec {
                                  $s$weq_loop0_sadp [Occ=LoopBreaker] :: Int# -> Int# -> Bool
                                  [LclId, Arity=2, Str=DmdType LL]
                                  $s$weq_loop0_sadp =
                                    \ (sc_sa6l :: Int#) (sc1_sa6m :: Int#) ->
                                      case >=# sc_sa6l ipv9_s6l2 of _ {
                                        False ->
                                          case >=# sc1_sa6m ipv12_s6lw of _ {
                                            False ->
                                              case indexWordArray#
                                                     ipv13_s6lx (+# ipv11_s6lv sc1_sa6m)
                                              of wild8_X6s7 { __DEFAULT ->
                                              case indexWordArray# ipv10_s6l3 (+# ipv8_s6l1 sc_sa6l)
                                              of wild9_a6ln { __DEFAULT ->
                                              case eqWord# wild9_a6ln wild8_X6s7 of _ {
                                                False -> False;
                                                True ->
                                                  $s$weq_loop0_sadp (+# sc_sa6l 1) (+# sc1_sa6m 1)
                                              }
                                              }
                                              };
                                            True -> False
                                          };
                                        True -> >=# sc1_sa6m ipv12_s6lw
                                      }; } in
                                case $s$weq_loop0_sadp 0 0 of _ {
                                  False ->
                                    (# ipv6_a4zs
                                       `cast` (State# <(TFCo:R:PrimStateIO)>
                                               :: State# (PrimState IO) ~# State# RealWorld),
                                       let {
                                         a_s6AC [Dmd=Just L] :: Int#
                                         [LclId, Str=DmdType]
                                         a_s6AC = -# ipv9_s6l2 1 } in
                                       case >=# a_s6AC 0 of _ {
                                         False ->
                                           case poly_$w$j4_rbbq ipv9_s6l2 a_s6AC of wild8_00 { };
                                         True ->
                                           case <=# (+# 1 a_s6AC) ipv9_s6l2 of _ {
                                             False ->
                                               case poly_$w$j4_rbbq ipv9_s6l2 a_s6AC of wild9_00 {
                                               };
                                             True ->
                                               case w2_a1hv of tpl_Xa { __DEFAULT ->
                                               Compound
                                                 @ Word
                                                 (Just
                                                    @ (RightFrag Word)
                                                    (case lvl62_s94Z of _ { I# tpl2_B4 ->
                                                     case <# 0 ipv9_s6l2 of _ {
                                                       False ->
                                                         case lvl50_rbbr ipv9_s6l2 of wild10_00 { };
                                                       True ->
                                                         case indexWordArray# ipv10_s6l3 ipv8_s6l1
                                                         of wild10_a6ln { __DEFAULT ->
                                                         RightFrag @ Word tpl2_B4 (W# wild10_a6ln)
                                                         }
                                                     }
                                                     }))
                                                 ((Vector @ Word (+# ipv8_s6l1 1) a_s6AC ipv10_s6l3)
                                                  `cast` (Sym <(NTCo:R:VectorWord)> ; Sym
                                                                                        <(TFCo:R:VectorWord)>
                                                          :: Vector Word ~# Vector Word))
                                                 tpl_Xa
                                               }
                                           }
                                       } #);
                                  True ->
                                    case w2_a1hv of _ {
                                      Nothing ->
                                        (# ipv6_a4zs
                                           `cast` (State# <(TFCo:R:PrimStateIO)>
                                                   :: State# (PrimState IO) ~# State# RealWorld),
                                           let {
                                             a_s6AM [Dmd=Just L] :: Int#
                                             [LclId, Str=DmdType]
                                             a_s6AM = -# ipv9_s6l2 1 } in
                                           case >=# a_s6AM 0 of _ {
                                             False ->
                                               case poly_$w$j5_rbbs ipv9_s6l2 a_s6AM of wild9_00 {
                                               };
                                             True ->
                                               case <=# (+# 1 a_s6AM) ipv9_s6l2 of _ {
                                                 False ->
                                                   case poly_$w$j5_rbbs ipv9_s6l2 a_s6AM
                                                   of wild10_00 {
                                                   };
                                                 True ->
                                                   Compound
                                                     @ Word
                                                     (Just
                                                        @ (RightFrag Word)
                                                        (case lvl62_s94Z of _ { I# tpl1_B4 ->
                                                         case <# 0 ipv9_s6l2 of _ {
                                                           False ->
                                                             case lvl51_rbbt ipv9_s6l2
                                                             of wild11_00 {
                                                             };
                                                           True ->
                                                             case indexWordArray#
                                                                    ipv10_s6l3 ipv8_s6l1
                                                             of wild11_a6ln { __DEFAULT ->
                                                             RightFrag
                                                               @ Word tpl1_B4 (W# wild11_a6ln)
                                                             }
                                                         }
                                                         }))
                                                     ((Vector
                                                         @ Word (+# ipv8_s6l1 1) a_s6AM ipv10_s6l3)
                                                      `cast` (Sym <(NTCo:R:VectorWord)> ; Sym
                                                                                            <(TFCo:R:VectorWord)>
                                                              :: Vector Word ~# Vector Word))
                                                     (Nothing @ (LeftFrag Word))
                                               }
                                           } #);
                                      Just ds_d2m1 ->
                                        case ds_d2m1 of _ { LeftFrag w3_a1hA ->
                                        (# ipv6_a4zs
                                           `cast` (State# <(TFCo:R:PrimStateIO)>
                                                   :: State# (PrimState IO) ~# State# RealWorld),
                                           Single @ Word (MiddleFrag @ Word ww3_s7Zy w3_a1hA) #)
                                        }
                                    }
                                }
                                }
                                }
                            }
                        }
                        }
                        }
                        } } in
                  case geWord# ipv1_a47W (__word 48) of _ {
                    False ->
                      case ww3_s7Zy of wild3_XdF {
                        __DEFAULT ->
                          case readWord8OffAddr#
                                 @ RealWorld (plusAddr# ww_s7Zv ww4_s7Y8) 0 realWorld#
                          of _ { (# ipv4_X4fC, ipv5_X4fE #) ->
                          case touch# @ ForeignPtrContents ww1_s7Zw ipv4_X4fC
                          of _ { __DEFAULT ->
                          case $s$wa4_rbbi
                                 (-# wild3_XdF 1)
                                 0
                                 0
                                 x1_s951
                                 (ipv3_a4AJ
                                  `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                          :: MutableByteArray# (PrimState IO)
                                               ~#
                                             MutableByteArray# RealWorld))
                                 @~ (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                                 <(TFCo:R:MVectorsWord
                                                                                     <RealWorld>)>)
                                 ipv5_X4fE
                                 ww_s7Zv
                                 ww1_s7Zw
                                 (+# ww4_s7Y8 1)
                                 (-# (-# wild3_XdF 1) 1)
                                 (ipv2_a4AI
                                  `cast` (State# <(TFCo:R:PrimStateIO)>
                                          :: State# (PrimState IO) ~# State# RealWorld))
                          of _ { (# ipv6_X4km, ipv7_X4ko #) ->
                          $j_saGo ipv6_X4km ipv7_X4ko
                          }
                          }
                          };
                        1 ->
                          $j_saGo
                            (ipv2_a4AI
                             `cast` (State# <(TFCo:R:PrimStateIO)>
                                     :: State# (PrimState IO) ~# State# RealWorld))
                            ((MVector
                                @ RealWorld
                                @ Word
                                0
                                x1_s951
                                (ipv3_a4AJ
                                 `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                         :: MutableByteArray# (PrimState IO)
                                              ~#
                                            MutableByteArray# RealWorld)))
                             `cast` (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                                 <(TFCo:R:MVectorsWord
                                                                                     <RealWorld>)>
                                     :: MVector RealWorld Word ~# MVector RealWorld Word),
                             Nothing @ (LeftFrag Word),
                             $fShowPartialNums7)
                      };
                    True ->
                      case leWord# ipv1_a47W (__word 57) of _ {
                        False ->
                          case ww3_s7Zy of wild4_XdF {
                            __DEFAULT ->
                              case readWord8OffAddr#
                                     @ RealWorld (plusAddr# ww_s7Zv ww4_s7Y8) 0 realWorld#
                              of _ { (# ipv4_X4fC, ipv5_X4fE #) ->
                              case touch# @ ForeignPtrContents ww1_s7Zw ipv4_X4fC
                              of _ { __DEFAULT ->
                              case $s$wa4_rbbi
                                     (-# wild4_XdF 1)
                                     0
                                     0
                                     x1_s951
                                     (ipv3_a4AJ
                                      `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                              :: MutableByteArray# (PrimState IO)
                                                   ~#
                                                 MutableByteArray# RealWorld))
                                     @~ (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                                     <(TFCo:R:MVectorsWord
                                                                                         <RealWorld>)>)
                                     ipv5_X4fE
                                     ww_s7Zv
                                     ww1_s7Zw
                                     (+# ww4_s7Y8 1)
                                     (-# (-# wild4_XdF 1) 1)
                                     (ipv2_a4AI
                                      `cast` (State# <(TFCo:R:PrimStateIO)>
                                              :: State# (PrimState IO) ~# State# RealWorld))
                              of _ { (# ipv6_X4km, ipv7_X4ko #) ->
                              $j_saGo ipv6_X4km ipv7_X4ko
                              }
                              }
                              };
                            1 ->
                              $j_saGo
                                (ipv2_a4AI
                                 `cast` (State# <(TFCo:R:PrimStateIO)>
                                         :: State# (PrimState IO) ~# State# RealWorld))
                                ((MVector
                                    @ RealWorld
                                    @ Word
                                    0
                                    x1_s951
                                    (ipv3_a4AJ
                                     `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                             :: MutableByteArray# (PrimState IO)
                                                  ~#
                                                MutableByteArray# RealWorld)))
                                 `cast` (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                                     <(TFCo:R:MVectorsWord
                                                                                         <RealWorld>)>
                                         :: MVector RealWorld Word ~# MVector RealWorld Word),
                                 Nothing @ (LeftFrag Word),
                                 $fShowPartialNums7)
                          };
                        True ->
                          case $s$wa5_rbbj
                                 ww3_s7Zy
                                 0
                                 (__word 0)
                                 0
                                 x1_s951
                                 (ipv3_a4AJ
                                  `cast` (MutableByteArray# <(TFCo:R:PrimStateIO)>
                                          :: MutableByteArray# (PrimState IO)
                                               ~#
                                             MutableByteArray# RealWorld))
                                 @~ (Sym <(NTCo:R:MVectorsWord <RealWorld>)> ; Sym
                                                                                 <(TFCo:R:MVectorsWord
                                                                                     <RealWorld>)>)
                                 ipv1_a47W
                                 ww_s7Zv
                                 ww1_s7Zw
                                 ww4_s7Y8
                                 (-# ww3_s7Zy 1)
                                 (ipv2_a4AI
                                  `cast` (State# <(TFCo:R:PrimStateIO)>
                                          :: State# (PrimState IO) ~# State# RealWorld))
                          of _ { (# ipv4_X4km, ipv5_X4ko #) ->
                          $j_saGo ipv4_X4km ipv5_X4ko
                          }
                      }
                  }
                  }
              }
              }
              };
            True -> case lvl52_rbbu of wild_00 { }
          } } in
    case ww3_s7Zy of _ {
      __DEFAULT -> $wa5_s83N w_s7ZA;
      0 ->
        case eqAddr# ww_s7Zv __NULL of _ {
          False ->
            case $wcompareBytes
                   ww_s7Zv ww1_s7Zw ww2_s7Zx 0 __NULL $fMonoidByteString1 0 0
            of _ {
              __DEFAULT -> $wa5_s83N w_s7ZA;
              EQ -> (# w_s7ZA, lvl48_rbbo #)
            };
          True ->
            case ww2_s7Zx of wild2_Xdr {
              __DEFAULT ->
                case $wcompareBytes
                       ww_s7Zv ww1_s7Zw wild2_Xdr 0 __NULL $fMonoidByteString1 0 0
                of _ {
                  __DEFAULT -> $wa5_s83N w_s7ZA;
                  EQ -> (# w_s7ZA, lvl48_rbbo #)
                };
              0 -> (# w_s7ZA, lvl48_rbbo #)
            }
        }
    }

readNatsPartial3 [InlPrag=INLINE[0]]
  :: ByteString
     -> State# RealWorld -> (# State# RealWorld, PartialNums Word #)
[GblId,
 Arity=2,
 Str=DmdType U(LLLL)L,
 Unf=Unf{Src=Worker=$wa, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (w_s7Zt [Occ=Once!] :: ByteString)
                 (w1_s7ZA [Occ=Once] :: State# RealWorld) ->
                 case w_s7Zt
                 of _
                 { PS ww_s7Zv [Occ=Once]
                      ww1_s7Zw [Occ=Once]
                      ww2_s7Zx [Occ=Once]
                      ww3_s7Zy [Occ=Once] ->
                 $wa ww_s7Zv ww1_s7Zw ww2_s7Zx ww3_s7Zy w1_s7ZA
                 }}]
readNatsPartial3 =
  \ (w_s7Zt :: ByteString) (w1_s7ZA :: State# RealWorld) ->
    case w_s7Zt of _ { PS ww_s7Zv ww1_s7Zw ww2_s7Zx ww3_s7Zy ->
    $wa ww_s7Zv ww1_s7Zw ww2_s7Zx ww3_s7Zy w1_s7ZA
    }

readNatsPartial_readNatsPartial2
  :: ByteString -> IO (PartialNums Word)
[GblId,
 Arity=2,
 Str=DmdType U(LLLL)L,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= readNatsPartial3
               `cast` (<ByteString> -> Sym <(NTCo:IO <PartialNums Word>)>
                       :: (ByteString
                           -> State# RealWorld -> (# State# RealWorld, PartialNums Word #))
                            ~#
                          (ByteString -> IO (PartialNums Word)))}]
readNatsPartial_readNatsPartial2 =
  readNatsPartial3
  `cast` (<ByteString> -> Sym <(NTCo:IO <PartialNums Word>)>
          :: (ByteString
              -> State# RealWorld -> (# State# RealWorld, PartialNums Word #))
               ~#
             (ByteString -> IO (PartialNums Word)))

lvl53_rbbv :: Integer
[GblId, Str=DmdType]
lvl53_rbbv = __integer 0

lvl54_rbbw :: Integer
[GblId, Str=DmdType]
lvl54_rbbw = __integer 10

lvl55_rbbx :: Integer
[GblId, Str=DmdType]
lvl55_rbbx = __integer 48

lvl56_rbby :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl56_rbby =
  \ (n#_a493 :: Int#) (ipv_s367 :: Int#) ->
    checkError
      @ (IO ())
      file_rbaD
      lvl11_rbaC
      Bounds
      lvl10_rbaB
      (checkIndex_msg# ipv_s367 n#_a493)

lvl57_rbbz :: Int# -> Int# -> IO ()
[GblId, Arity=2, Str=DmdType TTb]
lvl57_rbbz =
  \ (y_a49a :: Int#) (ipv_s367 :: Int#) ->
    checkError
      @ (IO ())
      file_rbaD
      lvl11_rbaC
      Bounds
      lvl10_rbaB
      (checkIndex_msg# ipv_s367 y_a49a)

lvl58_rbbA
  :: forall nty_tZ. Int# -> IO (MVector (PrimState IO) nty_tZ)
[GblId, Arity=1, Str=DmdType Tb]
lvl58_rbbA =
  \ (@ nty_tZ) (x1_s95V :: Int#) ->
    checkError
      @ (IO (MVector (PrimState IO) nty_tZ))
      file_rbaD
      lvl19_rbaN
      Bounds
      lvl20_rbaO
      (checkLength_msg# x1_s95V)

lvl59_rbbB :: forall nty_tZ. Int# -> nty_tZ
[GblId, Arity=1, Str=DmdType Tb]
lvl59_rbbB =
  \ (@ nty_tZ) (y_a4ow :: Int#) ->
    checkError
      @ nty_tZ
      lvl22_rbaQ
      lvl25_rbaU
      Bounds
      lvl26_rbaV
      (checkIndex_msg# 0 y_a4ow)

poly_$w$j6_rbbC :: forall nty_tZ. Int# -> Int# -> Vector nty_tZ
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j6_rbbC =
  \ (@ nty_tZ) (ww_s81E :: Int#) (a_s8lp :: Int#) ->
    checkError
      @ (Vector nty_tZ)
      lvl22_rbaQ
      lvl23_rbaR
      Bounds
      lvl24_rbaS
      (checkSlice_msg# 1 a_s8lp ww_s81E)

lvl60_rbbD :: Int
[GblId, Caf=NoCafRefs]
lvl60_rbbD = I# 1

poly_$w$j7_rbbE :: forall nty_tZ. Int# -> Int# -> Vector nty_tZ
[GblId, Arity=2, Str=DmdType TTb]
poly_$w$j7_rbbE =
  \ (@ nty_tZ) (ww_s81U :: Int#) (a_s8lL :: Int#) ->
    checkError
      @ (Vector nty_tZ)
      lvl22_rbaQ
      lvl23_rbaR
      Bounds
      lvl24_rbaS
      (checkSlice_msg# 1 a_s8lL ww_s81U)

lvl61_rbbF :: Word8
[GblId, Str=DmdType b]
lvl61_rbbF = errorEmptyList @ Word8 lvl29_rbaZ

$wa2
  :: forall nty_tZ.
     (Unbox nty_tZ, Num nty_tZ) =>
     Addr#
     -> ForeignPtrContents
     -> Int#
     -> Int#
     -> State# RealWorld
     -> (# State# RealWorld, PartialNums nty_tZ #)
[GblId, Arity=7, Str=DmdType LLLLLLL]
$wa2 =
  \ (@ nty_tZ)
    (w_s82e :: Unbox nty_tZ)
    (w1_s82f :: Num nty_tZ)
    (ww_s82j :: Addr#)
    (ww1_s82k :: ForeignPtrContents)
    (ww2_s82l :: Int#)
    (ww3_s82m :: Int#)
    (w2_s82o :: State# RealWorld) ->
    let {
      $wa5_s83S
        :: State# RealWorld -> (# State# RealWorld, PartialNums nty_tZ #)
      [LclId, Arity=1, Str=DmdType L]
      $wa5_s83S =
        \ (w3_s822 :: State# RealWorld) ->
          let {
            x1_s95V :: Int#
            [LclId, Str=DmdType]
            x1_s95V = +# (quotInt# ww3_s82m 2) 1 } in
          case >=# x1_s95V 0 of _ {
            False -> case lvl58_rbbA @ nty_tZ x1_s95V of wild_00 { };
            True ->
              let {
                lvl62_s95z :: nty_tZ
                [LclId, Str=DmdType]
                lvl62_s95z = fromInteger @ nty_tZ w1_s82f lvl53_rbbv } in
              let {
                lvl63_s95x :: nty_tZ
                [LclId, Str=DmdType]
                lvl63_s95x = fromInteger @ nty_tZ w1_s82f lvl54_rbbw } in
              let {
                lvl64_s95v :: nty_tZ
                [LclId, Str=DmdType]
                lvl64_s95v = fromInteger @ nty_tZ w1_s82f lvl55_rbbx } in
              let {
                lvl65_s99L :: MVector MVector nty_tZ
                [LclId]
                lvl65_s99L = $p2Unbox @ nty_tZ w_s82e } in
              let {
                lvl66_s99K :: nty_tZ -> nty_tZ -> nty_tZ
                [LclId]
                lvl66_s99K = + @ nty_tZ w1_s82f } in
              let {
                lvl67_s99J :: nty_tZ -> nty_tZ -> nty_tZ
                [LclId]
                lvl67_s99J = * @ nty_tZ w1_s82f } in
              let {
                lvl68_s99I :: nty_tZ -> nty_tZ -> nty_tZ
                [LclId]
                lvl68_s99I = - @ nty_tZ w1_s82f } in
              let {
                lvl69_s99H :: Integer -> nty_tZ
                [LclId]
                lvl69_s99H = fromInteger @ nty_tZ w1_s82f } in
              letrec {
                $s$wa6_sadq [Occ=LoopBreaker]
                  :: Int#
                     -> Int#
                     -> nty_tZ
                     -> MVector RealWorld nty_tZ
                     -> Word#
                     -> Addr#
                     -> ForeignPtrContents
                     -> Int#
                     -> Int#
                     -> State# RealWorld
                     -> (# State# RealWorld,
                           (IOVector nty_tZ, Maybe (LeftFrag nty_tZ), Int) #)
                [LclId, Arity=10, Str=DmdType LLSSLLLLLL]
                $s$wa6_sadq =
                  \ (sc_saaa :: Int#)
                    (sc1_saak :: Int#)
                    (sc2_saal :: nty_tZ)
                    (sc3_saam :: MVector RealWorld nty_tZ)
                    (sc4_saan :: Word#)
                    (sc5_saao :: Addr#)
                    (sc6_saap :: ForeignPtrContents)
                    (sc7_saaq :: Int#)
                    (sc8_saar :: Int#)
                    (sc9_saas :: State# RealWorld) ->
                    case sc2_saal of acc_X1j4 { __DEFAULT ->
                    case sc3_saam of vec_X1j6 { __DEFAULT ->
                    let {
                      $w$j_s83W
                        :: State# RealWorld
                           -> (# State# RealWorld,
                                 (IOVector nty_tZ, Maybe (LeftFrag nty_tZ), Int) #)
                      [LclId, Arity=1, Str=DmdType T]
                      $w$j_s83W =
                        \ _ ->
                          case lvl65_s99L
                          of _
                          { D:MVector ww4_s805
                                      ww5_s806
                                      ww6_s807
                                      ww7_s808
                                      ww8_s809
                                      ww9_s80a
                                      ww10_s80b
                                      ww11_s80c
                                      ww12_s80d
                                      ww13_s80e
                                      ww14_s80f
                                      ww15_s80g ->
                          case >=# sc1_saak 0 of _ {
                            False ->
                              case ww4_s805
                                     @ (PrimState IO)
                                     (vec_X1j6
                                      `cast` (MVector (Sym <(TFCo:R:PrimStateIO)>) <nty_tZ>
                                              :: MVector RealWorld nty_tZ
                                                   ~#
                                                 MVector (PrimState IO) nty_tZ))
                              of _ { I# n#_a493 ->
                              case lvl56_rbby n#_a493 sc1_saak of wild_00 { }
                              };
                            True ->
                              case ww4_s805
                                     @ (PrimState IO)
                                     (vec_X1j6
                                      `cast` (MVector (Sym <(TFCo:R:PrimStateIO)>) <nty_tZ>
                                              :: MVector RealWorld nty_tZ
                                                   ~#
                                                 MVector (PrimState IO) nty_tZ))
                              of _ { I# y_a49a ->
                              case <# sc1_saak y_a49a of _ {
                                False -> case lvl57_rbbz y_a49a sc1_saak of wild_00 { };
                                True ->
                                  case ((ww10_s80b
                                           @ IO
                                           $fPrimMonadIO
                                           (vec_X1j6
                                            `cast` (MVector (Sym <(TFCo:R:PrimStateIO)>) <nty_tZ>
                                                    :: MVector RealWorld nty_tZ
                                                         ~#
                                                       MVector (PrimState IO) nty_tZ))
                                           (I# sc1_saak)
                                           acc_X1j4)
                                        `cast` (<NTCo:IO <()>>
                                                :: IO ()
                                                     ~#
                                                   (State# RealWorld
                                                    -> (# State# RealWorld, () #))))
                                         sc9_saas
                                  of _ { (# ipv_a46r, _ #) ->
                                  case sc_saaa of wild_XeX {
                                    __DEFAULT ->
                                      case readWord8OffAddr#
                                             @ RealWorld (plusAddr# sc5_saao sc7_saaq) 0 realWorld#
                                      of _ { (# ipv2_a47V, ipv3_a47W #) ->
                                      case touch# @ ForeignPtrContents sc6_saap ipv2_a47V
                                      of _ { __DEFAULT ->
                                      letrec {
                                        $s$wa7_sadr [Occ=LoopBreaker]
                                          :: Int#
                                             -> MVector RealWorld nty_tZ
                                             -> Word#
                                             -> Addr#
                                             -> ForeignPtrContents
                                             -> Int#
                                             -> Int#
                                             -> State# RealWorld
                                             -> Int#
                                             -> (# State# RealWorld,
                                                   (IOVector nty_tZ,
                                                    Maybe (LeftFrag nty_tZ),
                                                    Int) #)
                                        [LclId, Arity=9, Str=DmdType LSLLLLLLA]
                                        $s$wa7_sadr =
                                          \ (sc10_saaI :: Int#)
                                            (sc11_saaJ :: MVector RealWorld nty_tZ)
                                            (sc12_saaK :: Word#)
                                            (sc13_saaL :: Addr#)
                                            (sc14_saaM :: ForeignPtrContents)
                                            (sc15_saaN :: Int#)
                                            (sc16_saaO :: Int#)
                                            (sc17_saaP :: State# RealWorld)
                                            (sc18_saaQ :: Int#) ->
                                            case sc11_saaJ of vec1_X1jb { __DEFAULT ->
                                            let {
                                              $w$j1_s83V
                                                :: State# RealWorld
                                                   -> (# State# RealWorld,
                                                         (IOVector nty_tZ,
                                                          Maybe (LeftFrag nty_tZ),
                                                          Int) #)
                                              [LclId, Arity=1, Str=DmdType T]
                                              $w$j1_s83V =
                                                \ _ ->
                                                  case sc10_saaI of wild5_XeS {
                                                    __DEFAULT ->
                                                      case readWord8OffAddr#
                                                             @ RealWorld
                                                             (plusAddr# sc13_saaL sc15_saaN)
                                                             0
                                                             realWorld#
                                                      of _ { (# ipv4_X4kl, ipv5_X4kn #) ->
                                                      case touch#
                                                             @ ForeignPtrContents
                                                             sc14_saaM
                                                             ipv4_X4kl
                                                      of _ { __DEFAULT ->
                                                      $s$wa7_sadr
                                                        (-# wild5_XeS 1)
                                                        vec1_X1jb
                                                        ipv5_X4kn
                                                        sc13_saaL
                                                        sc14_saaM
                                                        (+# sc15_saaN 1)
                                                        (-# sc16_saaO 1)
                                                        sc17_saaP
                                                        sc18_saaQ
                                                      }
                                                      };
                                                    1 ->
                                                      (# sc17_saaP,
                                                         (vec1_X1jb,
                                                          Nothing @ (LeftFrag nty_tZ),
                                                          I# sc18_saaQ) #)
                                                  } } in
                                            case geWord# sc12_saaK (__word 48) of _ {
                                              False -> $w$j1_s83V realWorld#;
                                              True ->
                                                case leWord# sc12_saaK (__word 57) of _ {
                                                  False -> $w$j1_s83V realWorld#;
                                                  True ->
                                                    $s$wa8_sads
                                                      sc10_saaI
                                                      lvl62_s95z
                                                      vec1_X1jb
                                                      sc12_saaK
                                                      sc13_saaL
                                                      sc14_saaM
                                                      sc15_saaN
                                                      sc16_saaO
                                                      sc17_saaP
                                                      sc18_saaQ
                                                }
                                            }
                                            };
                                        $s$wa8_sads [Occ=LoopBreaker]
                                          :: Int#
                                             -> nty_tZ
                                             -> MVector RealWorld nty_tZ
                                             -> Word#
                                             -> Addr#
                                             -> ForeignPtrContents
                                             -> Int#
                                             -> Int#
                                             -> State# RealWorld
                                             -> Int#
                                             -> (# State# RealWorld,
                                                   (IOVector nty_tZ,
                                                    Maybe (LeftFrag nty_tZ),
                                                    Int) #)
                                        [LclId, Arity=10, Str=DmdType LSSLLLLLLL]
                                        $s$wa8_sads =
                                          \ (sc10_sabE :: Int#)
                                            (sc11_sabF :: nty_tZ)
                                            (sc12_sabG :: MVector RealWorld nty_tZ)
                                            (sc13_sabH :: Word#)
                                            (sc14_sabI :: Addr#)
                                            (sc15_sabJ :: ForeignPtrContents)
                                            (sc16_sabK :: Int#)
                                            (sc17_sabL :: Int#)
                                            (sc18_sabM :: State# RealWorld)
                                            (sc19_sabN :: Int#) ->
                                            case sc11_sabF of acc1_X1vk { __DEFAULT ->
                                            case sc12_sabG of vec1_X1vq { __DEFAULT ->
                                            let {
                                              $w$j1_X8gk
                                                :: State# RealWorld
                                                   -> (# State# RealWorld,
                                                         (IOVector nty_tZ,
                                                          Maybe (LeftFrag nty_tZ),
                                                          Int) #)
                                              [LclId, Arity=1, Str=DmdType T]
                                              $w$j1_X8gk =
                                                \ _ ->
                                                  case >=# sc19_sabN 0 of _ {
                                                    False ->
                                                      case ww4_s805
                                                             @ (PrimState IO)
                                                             (vec1_X1vq
                                                              `cast` (MVector
                                                                        (Sym <(TFCo:R:PrimStateIO)>)
                                                                        <nty_tZ>
                                                                      :: MVector RealWorld nty_tZ
                                                                           ~#
                                                                         MVector
                                                                           (PrimState IO) nty_tZ))
                                                      of _ { I# n#_a493 ->
                                                      case lvl56_rbby n#_a493 sc19_sabN
                                                      of wild7_00 {
                                                      }
                                                      };
                                                    True ->
                                                      case ww4_s805
                                                             @ (PrimState IO)
                                                             (vec1_X1vq
                                                              `cast` (MVector
                                                                        (Sym <(TFCo:R:PrimStateIO)>)
                                                                        <nty_tZ>
                                                                      :: MVector RealWorld nty_tZ
                                                                           ~#
                                                                         MVector
                                                                           (PrimState IO) nty_tZ))
                                                      of _ { I# y1_X4lF ->
                                                      case <# sc19_sabN y1_X4lF of _ {
                                                        False ->
                                                          case lvl57_rbbz y1_X4lF sc19_sabN
                                                          of wild8_00 {
                                                          };
                                                        True ->
                                                          case ((ww10_s80b
                                                                   @ IO
                                                                   $fPrimMonadIO
                                                                   (vec1_X1vq
                                                                    `cast` (MVector
                                                                              (Sym
                                                                                 <(TFCo:R:PrimStateIO)>)
                                                                              <nty_tZ>
                                                                            :: MVector
                                                                                 RealWorld nty_tZ
                                                                                 ~#
                                                                               MVector
                                                                                 (PrimState IO)
                                                                                 nty_tZ))
                                                                   (I# sc19_sabN)
                                                                   acc1_X1vk)
                                                                `cast` (<NTCo:IO <()>>
                                                                        :: IO ()
                                                                             ~#
                                                                           (State# RealWorld
                                                                            -> (# State# RealWorld,
                                                                                  () #))))
                                                                 sc18_sabM
                                                          of _ { (# ipv4_X4j1, _ #) ->
                                                          case sc10_sabE of wild8_XrC {
                                                            __DEFAULT ->
                                                              case readWord8OffAddr#
                                                                     @ RealWorld
                                                                     (plusAddr# sc14_sabI sc16_sabK)
                                                                     0
                                                                     realWorld#
                                                              of _ { (# ipv6_X4kE, ipv7_X4kG #) ->
                                                              case touch#
                                                                     @ ForeignPtrContents
                                                                     sc15_sabJ
                                                                     ipv6_X4kE
                                                              of _ { __DEFAULT ->
                                                              $s$wa7_sadr
                                                                (-# wild8_XrC 1)
                                                                vec1_X1vq
                                                                ipv7_X4kG
                                                                sc14_sabI
                                                                sc15_sabJ
                                                                (+# sc16_sabK 1)
                                                                (-# sc17_sabL 1)
                                                                ipv4_X4j1
                                                                (+# sc19_sabN 1)
                                                              }
                                                              };
                                                            1 ->
                                                              (# ipv4_X4j1,
                                                                 (vec1_X1vq,
                                                                  Nothing @ (LeftFrag nty_tZ),
                                                                  I# (+# sc19_sabN 1)) #)
                                                          }
                                                          }
                                                      }
                                                      }
                                                  } } in
                                            case geWord# sc13_sabH (__word 48) of _ {
                                              False -> $w$j1_X8gk realWorld#;
                                              True ->
                                                case leWord# sc13_sabH (__word 57) of _ {
                                                  False -> $w$j1_X8gk realWorld#;
                                                  True ->
                                                    let {
                                                      acc'_s3mL [Dmd=Just L] :: nty_tZ
                                                      [LclId, Str=DmdType]
                                                      acc'_s3mL =
                                                        lvl66_s99K
                                                          (lvl67_s99J lvl63_s95x acc1_X1vk)
                                                          (lvl68_s99I
                                                             (lvl69_s99H
                                                                (let {
                                                                   i#_a4Cs [Dmd=Just L] :: Int#
                                                                   [LclId, Str=DmdType]
                                                                   i#_a4Cs =
                                                                     word2Int# sc13_sabH } in
                                                                 case >=# i#_a4Cs 0 of _ {
                                                                   False -> wordToInteger sc13_sabH;
                                                                   True -> smallInteger i#_a4Cs
                                                                 }))
                                                             lvl64_s95v) } in
                                                    case sc10_sabE of wild7_Xrt {
                                                      __DEFAULT ->
                                                        case readWord8OffAddr#
                                                               @ RealWorld
                                                               (plusAddr# sc14_sabI sc16_sabK)
                                                               0
                                                               realWorld#
                                                        of _ { (# ipv4_X4kv, ipv5_X4kx #) ->
                                                        case touch#
                                                               @ ForeignPtrContents
                                                               sc15_sabJ
                                                               ipv4_X4kv
                                                        of _ { __DEFAULT ->
                                                        $s$wa8_sads
                                                          (-# wild7_Xrt 1)
                                                          acc'_s3mL
                                                          vec1_X1vq
                                                          ipv5_X4kx
                                                          sc14_sabI
                                                          sc15_sabJ
                                                          (+# sc16_sabK 1)
                                                          (-# sc17_sabL 1)
                                                          sc18_sabM
                                                          sc19_sabN
                                                        }
                                                        };
                                                      1 ->
                                                        (# sc18_sabM,
                                                           (vec1_X1vq,
                                                            Just
                                                              @ (LeftFrag nty_tZ)
                                                              ($WLeftFrag @ nty_tZ acc'_s3mL),
                                                            I# sc19_sabN) #)
                                                    }
                                                }
                                            }
                                            }
                                            }; } in
                                      $s$wa7_sadr
                                        (-# wild_XeX 1)
                                        vec_X1j6
                                        ipv3_a47W
                                        sc5_saao
                                        sc6_saap
                                        (+# sc7_saaq 1)
                                        (-# sc8_saar 1)
                                        ipv_a46r
                                        (+# sc1_saak 1)
                                      }
                                      };
                                    1 ->
                                      (# ipv_a46r,
                                         (vec_X1j6,
                                          Nothing @ (LeftFrag nty_tZ),
                                          I# (+# sc1_saak 1)) #)
                                  }
                                  }
                              }
                              }
                          }
                          } } in
                    case geWord# sc4_saan (__word 48) of _ {
                      False -> $w$j_s83W realWorld#;
                      True ->
                        case leWord# sc4_saan (__word 57) of _ {
                          False -> $w$j_s83W realWorld#;
                          True ->
                            let {
                              acc'_s3mL [Dmd=Just L] :: nty_tZ
                              [LclId, Str=DmdType]
                              acc'_s3mL =
                                lvl66_s99K
                                  (lvl67_s99J lvl63_s95x acc_X1j4)
                                  (lvl68_s99I
                                     (lvl69_s99H
                                        (let {
                                           i#_a4Cs [Dmd=Just L] :: Int#
                                           [LclId, Str=DmdType]
                                           i#_a4Cs = word2Int# sc4_saan } in
                                         case >=# i#_a4Cs 0 of _ {
                                           False -> wordToInteger sc4_saan;
                                           True -> smallInteger i#_a4Cs
                                         }))
                                     lvl64_s95v) } in
                            case sc_saaa of wild3_XeX {
                              __DEFAULT ->
                                case readWord8OffAddr#
                                       @ RealWorld (plusAddr# sc5_saao sc7_saaq) 0 realWorld#
                                of _ { (# ipv_a47V, ipv1_a47W #) ->
                                case touch# @ ForeignPtrContents sc6_saap ipv_a47V
                                of _ { __DEFAULT ->
                                $s$wa6_sadq
                                  (-# wild3_XeX 1)
                                  sc1_saak
                                  acc'_s3mL
                                  vec_X1j6
                                  ipv1_a47W
                                  sc5_saao
                                  sc6_saap
                                  (+# sc7_saaq 1)
                                  (-# sc8_saar 1)
                                  sc9_saas
                                }
                                };
                              1 ->
                                (# sc9_saas,
                                   (vec_X1j6,
                                    Just @ (LeftFrag nty_tZ) ($WLeftFrag @ nty_tZ acc'_s3mL),
                                    I# sc1_saak) #)
                            }
                        }
                    }
                    }
                    }; } in
              letrec {
                $s$wa7_sadv [Occ=LoopBreaker]
                  :: Int#
                     -> MVector RealWorld nty_tZ
                     -> Word#
                     -> Addr#
                     -> ForeignPtrContents
                     -> Int#
                     -> Int#
                     -> State# RealWorld
                     -> Int#
                     -> (# State# RealWorld,
                           (IOVector nty_tZ, Maybe (LeftFrag nty_tZ), Int) #)
                [LclId, Arity=9, Str=DmdType LSLLLLLLA]
                $s$wa7_sadv =
                  \ (sc_sa94 :: Int#)
                    (sc1_sa95 :: MVector RealWorld nty_tZ)
                    (sc2_sa96 :: Word#)
                    (sc3_sa97 :: Addr#)
                    (sc4_sa98 :: ForeignPtrContents)
                    (sc5_sa99 :: Int#)
                    (sc6_sa9a :: Int#)
                    (sc7_sa9b :: State# RealWorld)
                    (sc8_sa9c :: Int#) ->
                    case sc1_sa95 of vec_X1jb { __DEFAULT ->
                    let {
                      $w$j_s83V
                        :: State# RealWorld
                           -> (# State# RealWorld,
                                 (IOVector nty_tZ, Maybe (LeftFrag nty_tZ), Int) #)
                      [LclId, Arity=1, Str=DmdType T]
                      $w$j_s83V =
                        \ _ ->
                          case sc_sa94 of wild_XeS {
                            __DEFAULT ->
                              case readWord8OffAddr#
                                     @ RealWorld (plusAddr# sc3_sa97 sc5_sa99) 0 realWorld#
                              of _ { (# ipv_a47V, ipv1_a47W #) ->
                              case touch# @ ForeignPtrContents sc4_sa98 ipv_a47V
                              of _ { __DEFAULT ->
                              $s$wa7_sadv
                                (-# wild_XeS 1)
                                vec_X1jb
                                ipv1_a47W
                                sc3_sa97
                                sc4_sa98
                                (+# sc5_sa99 1)
                                (-# sc6_sa9a 1)
                                sc7_sa9b
                                sc8_sa9c
                              }
                              };
                            1 ->
                              (# sc7_sa9b,
                                 (vec_X1jb, Nothing @ (LeftFrag nty_tZ), I# sc8_sa9c) #)
                          } } in
                    case geWord# sc2_sa96 (__word 48) of _ {
                      False -> $w$j_s83V realWorld#;
                      True ->
                        case leWord# sc2_sa96 (__word 57) of _ {
                          False -> $w$j_s83V realWorld#;
                          True ->
                            $s$wa6_sadq
                              sc_sa94
                              sc8_sa9c
                              lvl62_s95z
                              vec_X1jb
                              sc2_sa96
                              sc3_sa97
                              sc4_sa98
                              sc5_sa99
                              sc6_sa9a
                              sc7_sa9b
                        }
                    }
                    }; } in
              case ((basicUnsafeNew
                       @ MVector @ nty_tZ lvl65_s99L @ IO $fPrimMonadIO (I# x1_s95V))
                    `cast` (<NTCo:IO (MVector <(TFCo:R:PrimStateIO)> <nty_tZ>)>
                            :: IO (MVector (PrimState IO) nty_tZ)
                                 ~#
                               (State# RealWorld
                                -> (# State# RealWorld, MVector RealWorld nty_tZ #))))
                     w3_s822
              of _ { (# ipv_a46r, ipv1_a46s #) ->
              case <=# ww3_s82m 0 of _ {
                False ->
                  case readWord8OffAddr#
                         @ RealWorld (plusAddr# ww_s82j ww2_s82l) 0 realWorld#
                  of _ { (# ipv2_a47V, ipv3_a47W #) ->
                  case touch# @ ForeignPtrContents ww1_s82k ipv2_a47V
                  of _ { __DEFAULT ->
                  case $s$wa7_sadv
                         ww3_s82m
                         ipv1_a46s
                         ipv3_a47W
                         ww_s82j
                         ww1_s82k
                         (+# ww2_s82l 1)
                         (-# ww3_s82m 1)
                         ipv_a46r
                         0
                  of _ { (# ipv4_X4kV, ipv5_X4kX #) ->
                  case ipv5_X4kX of _ { (v_a1hu, w4_a1hv, ind_a1hw) ->
                  let {
                    lvl70_s99Q :: Vector Vector nty_tZ
                    [LclId]
                    lvl70_s99Q = $p1Unbox @ nty_tZ w_s82e } in
                  case ((basicUnsafeFreeze
                           @ Vector
                           @ nty_tZ
                           lvl70_s99Q
                           @ IO
                           $fPrimMonadIO
                           (v_a1hu
                            `cast` (MVector (Sym <(TFCo:R:PrimStateIO)>) <nty_tZ> ; Sym
                                                                                      <(TFCo:R:MutableVector)> <PrimState
                                                                                                                  IO> <nty_tZ>
                                    :: MVector RealWorld nty_tZ
                                         ~#
                                       Mutable Vector (PrimState IO) nty_tZ)))
                        `cast` (<NTCo:IO <Vector nty_tZ>>
                                :: IO (Vector nty_tZ)
                                     ~#
                                   (State# RealWorld -> (# State# RealWorld, Vector nty_tZ #))))
                         ipv4_X4kV
                  of _ { (# ipv6_X4ez, ipv7_X4eB #) ->
                  let {
                    pref_s3mJ [Dmd=Just L] :: Vector nty_tZ
                    [LclId, Str=DmdType]
                    pref_s3mJ =
                      case lvl70_s99Q
                      of _
                      { D:Vector ww4_s80N
                                 ww5_s80O
                                 ww6_s80P
                                 ww7_s80Q
                                 ww8_s80R
                                 ww9_s80S
                                 ww10_s80T
                                 ww11_s80U ->
                      ww8_s80R
                        $fShowPartialNums7
                        (case ind_a1hw of wild3_a4nZ { I# x2_a4o1 ->
                         case <=# x2_a4o1 0 of _ {
                           False ->
                             case ww7_s80Q ipv7_X4eB of wild5_a6cv { I# y1_a6cx ->
                             case <=# x2_a4o1 y1_a6cx of _ {
                               False -> wild5_a6cv;
                               True -> wild3_a4nZ
                             }
                             };
                           True ->
                             case ww7_s80Q ipv7_X4eB of wild5_a6cv { I# y1_a6cx ->
                             case <=# 0 y1_a6cx of _ {
                               False -> wild5_a6cv;
                               True -> $fShowPartialNums7
                             }
                             }
                         }
                         })
                        ipv7_X4eB
                      } } in
                  case geWord# ipv3_a47W (__word 48) of _ {
                    False ->
                      (# ipv6_X4ez,
                         case pref_s3mJ of tpl_X8 { __DEFAULT ->
                         case w4_a1hv of tpl1_Xa { __DEFAULT ->
                         Compound @ nty_tZ (Nothing @ (RightFrag nty_tZ)) tpl_X8 tpl1_Xa
                         }
                         } #);
                    True ->
                      case leWord# ipv3_a47W (__word 57) of _ {
                        False ->
                          (# ipv6_X4ez,
                             case pref_s3mJ of tpl_X8 { __DEFAULT ->
                             case w4_a1hv of tpl1_Xa { __DEFAULT ->
                             Compound @ nty_tZ (Nothing @ (RightFrag nty_tZ)) tpl_X8 tpl1_Xa
                             }
                             } #);
                        True ->
                          case lvl70_s99Q
                          of _
                          { D:Vector ww4_s81k
                                     ww5_s81l
                                     ww6_s81m
                                     ww7_s81n
                                     ww8_s81o
                                     ww9_s81p
                                     ww10_s81q
                                     ww11_s81r ->
                          case pref_s3mJ of v1_a3Qs { __DEFAULT ->
                          case ww7_s81n v1_a3Qs of _ { I# ipv8_a3Qx ->
                          let {
                            a_s3mI :: RightFrag nty_tZ
                            [LclId, Str=DmdType]
                            a_s3mI =
                              letrec {
                                $wa6_s96a [Occ=LoopBreaker]
                                  :: Addr#
                                     -> Int#
                                     -> State# RealWorld
                                     -> (# State# RealWorld, Maybe Int #)
                                [LclId, Arity=3, Str=DmdType LLL]
                                $wa6_s96a =
                                  \ (ww12_s811 :: Addr#)
                                    (ww13_s815 :: Int#)
                                    (w5_s817 :: State# RealWorld) ->
                                    case >=# ww13_s815 ww3_s82m of _ {
                                      False ->
                                        case readWord8OffAddr# @ RealWorld ww12_s811 0 w5_s817
                                        of _ { (# ipv9_a4iQ, ipv10_a4iR #) ->
                                        case geWord# ipv10_a4iR (__word 48) of _ {
                                          False -> (# ipv9_a4iQ, Just @ Int (I# ww13_s815) #);
                                          True ->
                                            case leWord# ipv10_a4iR (__word 57) of _ {
                                              False -> (# ipv9_a4iQ, Just @ Int (I# ww13_s815) #);
                                              True ->
                                                $wa6_s96a
                                                  (plusAddr# ww12_s811 1) (+# ww13_s815 1) ipv9_a4iQ
                                            }
                                        }
                                        };
                                      True -> (# w5_s817, Nothing @ Int #)
                                    }; } in
                              case $wa6_s96a (plusAddr# ww_s82j ww2_s82l) 0 realWorld#
                              of _ { (# ipv9_a47w, ipv10_a47x #) ->
                              case touch# @ ForeignPtrContents ww1_s82k ipv9_a47w
                              of _ { __DEFAULT ->
                              case ipv10_a47x of _ {
                                Nothing -> case fromJust1 of wild6_00 { };
                                Just x_a31m ->
                                  case x_a31m of _ { I# tpl1_B4 ->
                                  case ww7_s81n v1_a3Qs of _ { I# y_a4ow ->
                                  case <# 0 y_a4ow of _ {
                                    False -> case lvl59_rbbB @ nty_tZ y_a4ow of wild8_00 { };
                                    True ->
                                      case (ww9_s81p @ Id $fMonadId v1_a3Qs $fShowPartialNums7)
                                           `cast` (<NTCo:Id <nty_tZ>> :: Id nty_tZ ~# nty_tZ)
                                      of tpl2_X8 { __DEFAULT ->
                                      RightFrag @ nty_tZ tpl1_B4 tpl2_X8
                                      }
                                  }
                                  }
                                  }
                              }
                              }
                              } } in
                          case >=# 0 ipv8_a3Qx of _ {
                            False ->
                              case ww9_s81p @ Box $fMonadBox v1_a3Qs $fShowPartialNums7
                              of _ { Box _ ->
                              (# ipv6_X4ez,
                                 case ww7_s81n v1_a3Qs of _ { I# x_a4oZ ->
                                 let {
                                   a1_s8lp :: Int#
                                   [LclId]
                                   a1_s8lp = -# x_a4oZ 1 } in
                                 case >=# a1_s8lp 0 of _ {
                                   False ->
                                     case poly_$w$j6_rbbC @ nty_tZ x_a4oZ a1_s8lp of wild9_00 { };
                                   True ->
                                     case <=# (+# 1 a1_s8lp) x_a4oZ of _ {
                                       False ->
                                         case poly_$w$j6_rbbC @ nty_tZ x_a4oZ a1_s8lp of wild10_00 {
                                         };
                                       True ->
                                         case ww8_s81o lvl60_rbbD (I# a1_s8lp) v1_a3Qs
                                         of tpl_X8 { __DEFAULT ->
                                         case w4_a1hv of tpl1_Xa { __DEFAULT ->
                                         Compound
                                           @ nty_tZ
                                           (Just @ (RightFrag nty_tZ) a_s3mI)
                                           tpl_X8
                                           tpl1_Xa
                                         }
                                         }
                                     }
                                 }
                                 } #)
                              };
                            True ->
                              case w4_a1hv of _ {
                                Nothing ->
                                  (# ipv6_X4ez,
                                     case ww7_s81n v1_a3Qs of _ { I# x_a4oZ ->
                                     let {
                                       a1_s8lL :: Int#
                                       [LclId]
                                       a1_s8lL = -# x_a4oZ 1 } in
                                     case >=# a1_s8lL 0 of _ {
                                       False ->
                                         case poly_$w$j7_rbbE @ nty_tZ x_a4oZ a1_s8lL of wild9_00 {
                                         };
                                       True ->
                                         case <=# (+# 1 a1_s8lL) x_a4oZ of _ {
                                           False ->
                                             case poly_$w$j7_rbbE @ nty_tZ x_a4oZ a1_s8lL
                                             of wild10_00 {
                                             };
                                           True ->
                                             case ww8_s81o lvl60_rbbD (I# a1_s8lL) v1_a3Qs
                                             of tpl_X8 { __DEFAULT ->
                                             Compound
                                               @ nty_tZ
                                               (Just @ (RightFrag nty_tZ) a_s3mI)
                                               tpl_X8
                                               (Nothing @ (LeftFrag nty_tZ))
                                             }
                                         }
                                     }
                                     } #);
                                Just ds_d2m1 ->
                                  case ds_d2m1 of _ { LeftFrag w5_a1hA ->
                                  (# ipv6_X4ez,
                                     Single @ nty_tZ (MiddleFrag @ nty_tZ ww3_s82m w5_a1hA) #)
                                  }
                              }
                          }
                          }
                          }
                          }
                      }
                  }
                  }
                  }
                  }
                  }
                  };
                True -> case lvl61_rbbF of wild_00 { }
              }
              }
          } } in
    case ww3_s82m of _ {
      __DEFAULT -> $wa5_s83S w2_s82o;
      0 ->
        let {
          lvl62_s9a1 :: PartialNums nty_tZ
          [LclId]
          lvl62_s9a1 =
            case fromInteger @ nty_tZ w1_s82f lvl53_rbbv
            of tpl_X8 { __DEFAULT ->
            Single @ nty_tZ (MiddleFrag @ nty_tZ 0 tpl_X8)
            } } in
        let {
          $wa6_s840
            :: State# RealWorld -> (# State# RealWorld, PartialNums nty_tZ #)
          [LclId, Arity=1, Str=DmdType L]
          $wa6_s840 =
            \ (w3_s827 :: State# RealWorld) ->
              case $wcompareBytes
                     ww_s82j ww1_s82k ww2_s82l 0 __NULL $fMonoidByteString1 0 0
              of _ {
                __DEFAULT -> $wa5_s83S w3_s827;
                EQ -> (# w3_s827, lvl62_s9a1 #)
              } } in
        case eqAddr# ww_s82j __NULL of _ {
          False -> $wa6_s840 w2_s82o;
          True ->
            case ww2_s82l of _ {
              __DEFAULT -> $wa6_s840 w2_s82o;
              0 -> (# w2_s82o, lvl62_s9a1 #)
            }
        }
    }

readNatsPartial4 [InlPrag=INLINE[0]]
  :: forall nty_tZ.
     (Unbox nty_tZ, Num nty_tZ, Eq nty_tZ) =>
     ByteString
     -> State# RealWorld -> (# State# RealWorld, PartialNums nty_tZ #)
[GblId,
 Arity=5,
 Str=DmdType LLAU(LLLL)L,
 Unf=Unf{Src=Worker=$wa2, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
         Tmpl= \ (@ nty_tZ)
                 (w_s82e [Occ=Once] :: Unbox nty_tZ)
                 (w1_s82f [Occ=Once] :: Num nty_tZ)
                 _
                 (w3_s82h [Occ=Once!] :: ByteString)
                 (w4_s82o [Occ=Once] :: State# RealWorld) ->
                 case w3_s82h
                 of _
                 { PS ww_s82j [Occ=Once]
                      ww1_s82k [Occ=Once]
                      ww2_s82l [Occ=Once]
                      ww3_s82m [Occ=Once] ->
                 $wa2
                   @ nty_tZ w_s82e w1_s82f ww_s82j ww1_s82k ww2_s82l ww3_s82m w4_s82o
                 }}]
readNatsPartial4 =
  \ (@ nty_tZ)
    (w_s82e :: Unbox nty_tZ)
    (w1_s82f :: Num nty_tZ)
    _
    (w3_s82h :: ByteString)
    (w4_s82o :: State# RealWorld) ->
    case w3_s82h of _ { PS ww_s82j ww1_s82k ww2_s82l ww3_s82m ->
    $wa2
      @ nty_tZ w_s82e w1_s82f ww_s82j ww1_s82k ww2_s82l ww3_s82m w4_s82o
    }

readNatsPartial
  :: forall nty_a166.
     (Unbox nty_a166, Num nty_a166, Eq nty_a166) =>
     ByteString -> IO (PartialNums nty_a166)
[GblId,
 Arity=5,
 Str=DmdType LLAU(LLLL)L,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= readNatsPartial4
               `cast` (forall nty_tZ.
                       <Unbox nty_tZ>
                       -> <Num nty_tZ>
                       -> <Eq nty_tZ>
                       -> <ByteString>
                       -> Sym <(NTCo:IO <PartialNums nty_tZ>)>
                       :: (forall nty_tZ.
                           (Unbox nty_tZ, Num nty_tZ, Eq nty_tZ) =>
                           ByteString
                           -> State# RealWorld -> (# State# RealWorld, PartialNums nty_tZ #))
                            ~#
                          (forall nty_tZ.
                           (Unbox nty_tZ, Num nty_tZ, Eq nty_tZ) =>
                           ByteString -> IO (PartialNums nty_tZ)))}]
readNatsPartial =
  readNatsPartial4
  `cast` (forall nty_tZ.
          <Unbox nty_tZ>
          -> <Num nty_tZ>
          -> <Eq nty_tZ>
          -> <ByteString>
          -> Sym <(NTCo:IO <PartialNums nty_tZ>)>
          :: (forall nty_tZ.
              (Unbox nty_tZ, Num nty_tZ, Eq nty_tZ) =>
              ByteString
              -> State# RealWorld -> (# State# RealWorld, PartialNums nty_tZ #))
               ~#
             (forall nty_tZ.
              (Unbox nty_tZ, Num nty_tZ, Eq nty_tZ) =>
              ByteString -> IO (PartialNums nty_tZ)))

main3 :: [Char]
[GblId,
 Str=DmdType,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 120 0}]
main3 = unpackCString# "Now this is getting ridiculous..."

main4 :: [Char]
[GblId,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 120 0}]
main4 = unpackCString# "SKIPPING read of num capabilities..."

main2
  :: ByteString
     -> State# RealWorld -> (# State# RealWorld, [PartialNums Word] #)
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [20 0] 210 30}]
main2 =
  \ (bs_a1eH :: ByteString) (eta_B1 :: State# RealWorld) ->
    case hPutStr2 stdout main4 True eta_B1 of _ { (# ipv_a46r, _ #) ->
    case hPutStr2 stdout main3 True ipv_a46r
    of _ { (# ipv2_X4km, _ #) ->
    case bs_a1eH of _ { PS ww_s7Zv ww1_s7Zw ww2_s7Zx ww3_s7Zy ->
    case $wa ww_s7Zv ww1_s7Zw ww2_s7Zx ww3_s7Zy ipv2_X4km
    of _ { (# ipv4_X4dR, ipv5_X4dT #) ->
    (# ipv4_X4dR,
       : @ (PartialNums Word) ipv5_X4dT ([] @ (PartialNums Word)) #)
    }
    }
    }
    }

parReadNats_$sparReadNats :: ByteString -> IO [PartialNums Word]
[GblId,
 Arity=2,
 Str=DmdType LL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
parReadNats_$sparReadNats =
  main2
  `cast` (<ByteString> -> Sym <(NTCo:IO <[PartialNums Word]>)>
          :: (ByteString
              -> State# RealWorld -> (# State# RealWorld, [PartialNums Word] #))
               ~#
             (ByteString -> IO [PartialNums Word]))

$wa1
  :: forall nty_Xf0.
     (Unbox nty_Xf0, Num nty_Xf0) =>
     ByteString
     -> State# RealWorld
     -> (# State# RealWorld, [PartialNums nty_Xf0] #)
[GblId,
 Arity=4,
 Str=DmdType LLLL,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=4, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0 0 20 0] 230 30}]
$wa1 =
  \ (@ nty_Xf0)
    (w_s82v :: Unbox nty_Xf0)
    (w1_s82w :: Num nty_Xf0)
    (w2_s82y :: ByteString)
    (w3_s82z :: State# RealWorld) ->
    case hPutStr2 stdout main4 True w3_s82z of _ { (# ipv_a46r, _ #) ->
    case hPutStr2 stdout main3 True ipv_a46r
    of _ { (# ipv2_X4kC, _ #) ->
    case w2_s82y of _ { PS ww_s82j ww1_s82k ww2_s82l ww3_s82m ->
    case $wa2
           @ nty_Xf0
           w_s82v
           w1_s82w
           ww_s82j
           ww1_s82k
           ww2_s82l
           ww3_s82m
           ipv2_X4kC
    of _ { (# ipv4_X4e0, ipv5_X4e2 #) ->
    (# ipv4_X4e0,
       : @ (PartialNums nty_Xf0) ipv5_X4e2 ([] @ (PartialNums nty_Xf0)) #)
    }
    }
    }
    }

parReadNats1 [InlPrag=INLINE[0]]
  :: forall nty_Xf0.
     (Unbox nty_Xf0, Num nty_Xf0, Eq nty_Xf0) =>
     ByteString
     -> State# RealWorld
     -> (# State# RealWorld, [PartialNums nty_Xf0] #)
[GblId,
 Arity=5,
 Str=DmdType LLALL,
 Unf=Unf{Src=Worker=$wa1, TopLvl=True, Arity=5, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= \ (@ nty_Xf0)
                 (w_s82v [Occ=Once] :: Unbox nty_Xf0)
                 (w1_s82w [Occ=Once] :: Num nty_Xf0)
                 _
                 (w3_s82y [Occ=Once] :: ByteString)
                 (w4_s82z [Occ=Once] :: State# RealWorld) ->
                 $wa1 @ nty_Xf0 w_s82v w1_s82w w3_s82y w4_s82z}]
parReadNats1 =
  \ (@ nty_Xf0)
    (w_s82v :: Unbox nty_Xf0)
    (w1_s82w :: Num nty_Xf0)
    _
    (w3_s82y :: ByteString)
    (w4_s82z :: State# RealWorld) ->
    $wa1 @ nty_Xf0 w_s82v w1_s82w w3_s82y w4_s82z

parReadNats
  :: forall nty_a1eG.
     (Unbox nty_a1eG, Num nty_a1eG, Eq nty_a1eG) =>
     ByteString -> IO [PartialNums nty_a1eG]
[GblId,
 Arity=5,
 Str=DmdType LLALL,
 Unf=Unf{Src=InlineStable, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)
         Tmpl= parReadNats1
               `cast` (forall nty_Xf0.
                       <Unbox nty_Xf0>
                       -> <Num nty_Xf0>
                       -> <Eq nty_Xf0>
                       -> <ByteString>
                       -> Sym <(NTCo:IO <[PartialNums nty_Xf0]>)>
                       :: (forall nty_Xf0.
                           (Unbox nty_Xf0, Num nty_Xf0, Eq nty_Xf0) =>
                           ByteString
                           -> State# RealWorld
                           -> (# State# RealWorld, [PartialNums nty_Xf0] #))
                            ~#
                          (forall nty_Xf0.
                           (Unbox nty_Xf0, Num nty_Xf0, Eq nty_Xf0) =>
                           ByteString -> IO [PartialNums nty_Xf0]))}]
parReadNats =
  parReadNats1
  `cast` (forall nty_Xf0.
          <Unbox nty_Xf0>
          -> <Num nty_Xf0>
          -> <Eq nty_Xf0>
          -> <ByteString>
          -> Sym <(NTCo:IO <[PartialNums nty_Xf0]>)>
          :: (forall nty_Xf0.
              (Unbox nty_Xf0, Num nty_Xf0, Eq nty_Xf0) =>
              ByteString
              -> State# RealWorld
              -> (# State# RealWorld, [PartialNums nty_Xf0] #))
               ~#
             (forall nty_Xf0.
              (Unbox nty_Xf0, Num nty_Xf0, Eq nty_Xf0) =>
              ByteString -> IO [PartialNums nty_Xf0]))

main5 :: [Char]
[GblId,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 190 0}]
main5 =
  unpackCString#
    "../../pbbs/breadthFirstSearch/graphData/data/3Dgrid_J_10000000"

main6 :: [Char]
[GblId,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=False,
         ConLike=False, WorkFree=False, Expandable=False,
         Guidance=IF_ARGS [] 100 0}]
main6 = unpackCString# "Using parReadNats + readFile"

main1
  :: State# RealWorld -> (# State# RealWorld, [PartialNums Word] #)
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0] 640 30}]
main1 =
  \ (eta_X3t :: State# RealWorld) ->
    case hPutStr2 stdout main6 True eta_X3t of _ { (# ipv_a46r, _ #) ->
    case getPOSIXTime1 ipv_a46r of _ { (# ipv2_a4JD, ipv3_a4JE #) ->
    case readFile1 main5 ipv2_a4JD of _ { (# ipv4_X4kD, ipv5_X4kF #) ->
    case getPOSIXTime1 ipv4_X4kD of _ { (# ipv6_X4XX, ipv7_X4XZ #) ->
    case hPutStr2
           stdout
           (unpackAppendCString#
              "Time to read file sequentially: "
              (case $wposixSecondsToUTCTime ipv7_X4XZ
               of _ { (# ww1_a7bm, ww2_a7bn #) ->
               case $wposixSecondsToUTCTime ipv3_a4JE
               of _ { (# ww4_X7hD, ww5_X7hF #) ->
               ++
                 @ Char
                 (showFixed
                    @ E12
                    ($fHasResolutionE12_$cresolution
                     `cast` (Sym <(NTCo:HasResolution <E12>)>
                             :: (forall (p_a3b4 :: * -> *). p_a3b4 E12 -> Integer)
                                  ~#
                                HasResolution E12))
                    True
                    ((minusInteger
                        ($wutcTimeToPOSIXSeconds ww1_a7bm ww2_a7bn)
                        ($wutcTimeToPOSIXSeconds ww4_X7hD ww5_X7hF))
                     `cast` (Sym <(NTCo:Fixed <E12>)> :: Integer ~# Fixed E12)))
                 $fShowNominalDiffTime3
               }
               }))
           True
           ipv6_X4XX
    of _ { (# ipv8_X4kS, _ #) ->
    case main2 ipv5_X4kF ipv8_X4kS
    of _ { (# ipv10_X4kK, ipv11_X4kM #) ->
    case consume1 ipv11_X4kM ipv10_X4kK of _ { (# ipv12_X4zo, _ #) ->
    (# ipv12_X4zo, ipv11_X4kM #)
    }
    }
    }
    }
    }
    }
    }

t4 :: IO [PartialNums Word]
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
t4 =
  main1
  `cast` (Sym <(NTCo:IO <[PartialNums Word]>)>
          :: (State# RealWorld -> (# State# RealWorld, [PartialNums Word] #))
               ~#
             IO [PartialNums Word])

main :: IO [PartialNums Word]
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
main =
  main1
  `cast` (Sym <(NTCo:IO <[PartialNums Word]>)>
          :: (State# RealWorld -> (# State# RealWorld, [PartialNums Word] #))
               ~#
             IO [PartialNums Word])

main7
  :: State# RealWorld -> (# State# RealWorld, [PartialNums Word] #)
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=1, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=IF_ARGS [0] 30 0}]
main7 =
  \ (eta_X3x :: State# RealWorld) ->
    runMainIO1
      @ [PartialNums Word]
      (main1
       `cast` (Sym <(NTCo:IO <[PartialNums Word]>)>
               :: (State# RealWorld -> (# State# RealWorld, [PartialNums Word] #))
                    ~#
                  IO [PartialNums Word]))
      eta_X3x

main :: IO [PartialNums Word]
[GblId,
 Arity=1,
 Str=DmdType L,
 Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
         ConLike=True, WorkFree=True, Expandable=True,
         Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
main =
  main7
  `cast` (Sym <(NTCo:IO <[PartialNums Word]>)>
          :: (State# RealWorld -> (# State# RealWorld, [PartialNums Word] #))
               ~#
             IO [PartialNums Word])


------ Local rules for imported ids --------
"SPEC consume [Word]" [ALWAYS]
    forall ($dShow_s3q8 :: Show Word) ($dUnbox_s3q9 :: Unbox Word).
      consume @ Word $dShow_s3q8 $dUnbox_s3q9
      = consume_$sconsume
"SPEC readNatsPartial" [ALWAYS]
    forall ($dUnbox_a1XP :: Unbox Word)
           ($dNum_a1XQ :: Num Word)
           ($dEq_a1XR :: Eq Word).
      readNatsPartial @ Word $dUnbox_a1XP $dNum_a1XQ $dEq_a1XR
      = readNatsPartial_readNatsPartial2
"SPEC readNatsPartial" [ALWAYS]
    forall ($dUnbox_a1XT :: Unbox Word32)
           ($dNum_a1XU :: Num Word32)
           ($dEq_a1XV :: Eq Word32).
      readNatsPartial @ Word32 $dUnbox_a1XT $dNum_a1XU $dEq_a1XV
      = readNatsPartial_readNatsPartial1
"SPEC readNatsPartial" [ALWAYS]
    forall ($dUnbox_a1XX :: Unbox Word64)
           ($dNum_a1XY :: Num Word64)
           ($dEq_a1XZ :: Eq Word64).
      readNatsPartial @ Word64 $dUnbox_a1XX $dNum_a1XY $dEq_a1XZ
      = readNatsPartial_readNatsPartial
"SPEC parReadNats [Word]" [ALWAYS]
    forall ($dUnbox_s3qm :: Unbox Word)
           ($dNum_s3qn :: Num Word)
           ($dEq_s3qo :: Eq Word).
      parReadNats @ Word $dUnbox_s3qm $dNum_s3qn $dEq_s3qo
      = parReadNats_$sparReadNats