diff options
Diffstat (limited to 'testsuite/tests/arityanal/Main.stderr')
| -rw-r--r-- | testsuite/tests/arityanal/Main.stderr | 1874 |
1 files changed, 0 insertions, 1874 deletions
diff --git a/testsuite/tests/arityanal/Main.stderr b/testsuite/tests/arityanal/Main.stderr deleted file mode 100644 index 5a816d67a6..0000000000 --- a/testsuite/tests/arityanal/Main.stderr +++ /dev/null @@ -1,1874 +0,0 @@ -
-==================== Arity analysis ====================
-$w==_s4mH :: GHC.Prim.Int#
- -> GHC.Base.Int
- -> GHC.Base.Int
- -> GHC.Prim.Int#
- -> GHC.Base.Int
- -> GHC.Base.Int
- -> GHC.Base.Bool
-[Arity 6
- 0 -> 0 -> 0 -> 0 -> 0 -> 0 -> *
- Str: DmdType LLLLLL]
-$w==_s4mH = \ (ww_s4lF :: GHC.Prim.Int#)
- (ww_s4lH :: GHC.Base.Int)
- (ww_s4lI :: GHC.Base.Int)
- (ww_s4lO :: GHC.Prim.Int#)
- (ww_s4lQ :: GHC.Base.Int)
- (ww_s4lR :: GHC.Base.Int) ->
- case GHC.Base.Bool GHC.Prim.==# ww_s4lF ww_s4lO of wild_X45N {
- GHC.Base.False -> GHC.Base.False;
- GHC.Base.True ->
- case GHC.Base.Bool ww_s4lH of wild_X45G { GHC.Base.I# x_X45H ->
- case GHC.Base.Bool ww_s4lQ of wild1_X45M { GHC.Base.I# y_X45Q ->
- case GHC.Base.Bool GHC.Prim.==# x_X45H y_X45Q of wild_X45X {
- GHC.Base.False -> GHC.Base.False;
- GHC.Base.True ->
- case GHC.Base.Bool ww_s4lI of wild_X47o { GHC.Base.I# x_X47r ->
- case GHC.Base.Bool ww_s4lR of wild1_X47y { GHC.Base.I# y_X47E ->
- GHC.Prim.==# x_X47r y_X47E
- }
- }
- }
- }
- }
- }
-
-a_s40I :: [GHC.Base.Char]
-[*
- Str: DmdType]
-a_s40I = GHC.Base.unpackCString# "AlexPn "
-
-$wshowsPrec_s4mG :: GHC.Prim.Int#
- -> GHC.Base.Int
- -> GHC.Base.Int
- -> GHC.Base.Int
- -> GHC.Base.String
- -> GHC.Base.String
-[Arity 5
- 0 -> 0 -> 0 -> 0 -> 0 -> *
- Str: DmdType LLLLL]
-$wshowsPrec_s4mG = \ (ww_s4lp :: GHC.Prim.Int#)
- (ww_s4lt :: GHC.Base.Int)
- (ww_s4lu :: GHC.Base.Int)
- (ww_s4lv :: GHC.Base.Int)
- (w_s4lx :: GHC.Base.String) ->
- let {
- p_s4p5 :: GHC.Show.ShowS
- [Arity 1
- *
- Str: DmdType L]
- p_s4p5 = \ (x_a41d :: GHC.Base.String) ->
- GHC.Base.++
- @ GHC.Base.Char
- a_s40I
- (case [GHC.Base.Char] ww_s4lt of w_X42m { GHC.Base.I# ww_a40t ->
- GHC.Show.$wshowSignedInt
- 11
- ww_a40t
- (GHC.Base.:
- @ GHC.Base.Char
- GHC.Show.lvl1
- (case [GHC.Base.Char] ww_s4lu of w_X44A { GHC.Base.I# ww_X42J ->
- GHC.Show.$wshowSignedInt
- 11
- ww_X42J
- (GHC.Base.:
- @ GHC.Base.Char
- GHC.Show.lvl1
- (case [GHC.Base.Char] ww_s4lv of w_X44r { GHC.Base.I# ww_X42A ->
- GHC.Show.$wshowSignedInt 11 ww_X42A x_a41d
- }))
- }))
- })
- } in
- case GHC.Base.String GHC.Prim.>=# ww_s4lp 11 of wild_a42t {
- GHC.Base.False -> p_s4p5 w_s4lx;
- GHC.Base.True ->
- GHC.Base.:
- @ GHC.Base.Char
- GHC.Show.a2
- (p_s4p5 (GHC.Base.: @ GHC.Base.Char GHC.Show.a w_s4lx))
- }
-
-lvl_s3Z7 :: [GHC.Base.Char]
-[*
- Str: DmdType]
-lvl_s3Z7 = GHC.Base.unpackCString# "error."
-
-lvl_s3Z6 :: [GHC.Base.Char]
-[*
- Str: DmdType]
-lvl_s3Z6 = GHC.Base.unpackCString# "stopped."
-
-lit_s3Yy :: GHC.Num.Integer
-[*
- Str: DmdType]
-lit_s3Yy = GHC.Num.S# 1
-
-lit_a3m9 :: GHC.Base.Int
-[*
- Str: DmdType m]
-lit_a3m9 = GHC.Base.I# 0
-
-return_a3fW :: forall a_a2mR. a_a2mR -> Main.Alex a_a2mR
-[Arity 2
- 0 -> T
- Str: DmdType LA]
-return_a3fW = \ (@ a_a3g1)
- (a_X2cH :: a_a3g1)
- (@ s_a3g7)
- (s_a2bU :: Main.AlexState s_a3g7) ->
- GHC.ST.poly_return @ s_a3g7 @ a_a3g1 a_X2cH
-
->>_a3fv :: forall a_a2kH b_a2kJ.
- Main.Alex a_a2kH -> Main.Alex b_a2kJ -> Main.Alex b_a2kJ
-[Arity 4
- 3 -> 3 -> 0 -> 0 -> *
- Str: DmdType C(C(U(LA)))C(C(S))LL]
->>_a3fv = \ (@ a_a3fM)
- (@ b_a3fN)
- (eta_a3Ts :: Main.Alex a_a3fM)
- (eta1_a3Tr :: Main.Alex b_a3fN)
- (@ s_a3eY)
- (eta_s40h :: Main.AlexState s_a3eY)
- (eta_s40i :: GHC.Prim.State# s_a3eY) ->
- case (# GHC.Prim.State# s_a3eY, b_a3fN #) eta_a3Ts @ s_a3eY eta_s40h eta_s40i
- of wild_a3ZB { (# new_s_a3Zz, r_a3ZA #) ->
- eta1_a3Tr @ s_a3eY eta_s40h new_s_a3Zz
- }
-
->>=_a3eM :: forall a_a2n6 b_a2n8.
- Main.Alex a_a2n6 -> (a_a2n6 -> Main.Alex b_a2n8) -> Main.Alex b_a2n8
-[Arity 4
- 3 -> 4 -> 0 -> 0 -> *
- Str: DmdType C(C(U(LL)))C(C(C(S)))LL]
->>=_a3eM = \ (@ a_a3eR)
- (@ b_a3eS)
- (ds_d3nC :: Main.Alex a_a3eR)
- (k_X2cv :: a_a3eR -> Main.Alex b_a3eS)
- (@ s_a3eY)
- (s_a2bI :: Main.AlexState s_a3eY)
- (s_a3Zr :: GHC.Prim.State# s_a3eY) ->
- case (# GHC.Prim.State# s_a3eY, b_a3eS #) ds_d3nC @ s_a3eY s_a2bI s_a3Zr
- of wild_a3ZB { (# new_s_a3Zz, r_a3ZA #) ->
- k_X2cv r_a3ZA @ s_a3eY s_a2bI new_s_a3Zz
- }
-
-showsPrec_a3cJ :: GHC.Base.Int -> Main.AlexPosn -> GHC.Show.ShowS
-[T
- Worker $wshowsPrec_s4mG
- Str: DmdType U(L)U(LLL)L]
-showsPrec_a3cJ = __inline_me (\ (w_s4ln :: GHC.Base.Int)
- (w_s4lr :: Main.AlexPosn)
- (w_s4lx :: GHC.Base.String) ->
- case GHC.Base.String w_s4ln of w_X4mv { GHC.Base.I# ww_s4lp ->
- case GHC.Base.String w_s4lr of w_X4mD { Main.AlexPn ww_s4lt ww_s4lu ww_s4lv ->
- $wshowsPrec_s4mG ww_s4lp ww_s4lt ww_s4lu ww_s4lv w_s4lx
- }
- })
-
-showList_a3eh :: [Main.AlexPosn] -> GHC.Show.ShowS
-[Arity 2
- 0 -> 0 -> *
- Str: DmdType SL]
-showList_a3eh = \ (ds1_a3Hj :: [Main.AlexPosn]) (s_a3Hi :: GHC.Base.String) ->
- case GHC.Base.String ds1_a3Hj of wild_a3Hu {
- [] -> GHC.Base.++ @ GHC.Base.Char GHC.Show.lvl16 s_a3Hi;
- : x_a3Hs xs_a3Ht ->
- GHC.Base.:
- @ GHC.Base.Char
- GHC.Show.lvl14
- (case [GHC.Base.Char] x_a3Hs of w_X4mD { Main.AlexPn ww_s4lt ww_s4lu ww_s4lv ->
- $wshowsPrec_s4mG
- 0
- ww_s4lt
- ww_s4lu
- ww_s4lv
- (__letrec {
- showl1_s4p9 :: [Main.AlexPosn] -> [GHC.Base.Char]
- [Arity 1
- 0 -> *
- Str: DmdType S]
- showl1_s4p9 = \ (ds2_a3Hq :: [Main.AlexPosn]) ->
- case [GHC.Base.Char] ds2_a3Hq of wild1_a42z {
- [] -> GHC.Base.: @ GHC.Base.Char GHC.Show.lvl15 s_a3Hi;
- : y_a42x ys_a42y ->
- GHC.Base.:
- @ GHC.Base.Char
- GHC.Show.a1
- (case [GHC.Base.Char] y_a42x
- of w_X4o5 { Main.AlexPn ww_X4mX ww_X4mZ ww_X4n1 ->
- $wshowsPrec_s4mG 0 ww_X4mX ww_X4mZ ww_X4n1 (showl1_s4p9 ys_a42y)
- })
- };
- } in showl1_s4p9 xs_a3Ht)
- })
- }
-
-$dmshow_a3m7 :: Main.AlexPosn -> GHC.Base.String
-[Arity 1
- 0 -> *
- Str: DmdType U(LLL)]
-$dmshow_a3m7 = \ (x_a42G :: Main.AlexPosn) ->
- case GHC.Base.String x_a42G of w_X4mD { Main.AlexPn ww_s4lt ww_s4lu ww_s4lv ->
- $wshowsPrec_s4mG 0 ww_s4lt ww_s4lu ww_s4lv (GHC.Base.[] @ GHC.Base.Char)
- }
-
-==_a3c8 :: Main.AlexPosn -> Main.AlexPosn -> GHC.Base.Bool
-[T
- Worker $w==_s4mH
- Str: DmdType U(U(L)LL)U(U(L)LL)]
-==_a3c8 = __inline_me (\ (w_s4lB :: Main.AlexPosn) (w_s4lK :: Main.AlexPosn) ->
- case GHC.Base.Bool w_s4lB of w_X4mO { Main.AlexPn ww_s4lD ww_s4lH ww_s4lI ->
- case GHC.Base.Bool ww_s4lD of ww_X4mW { GHC.Base.I# ww_s4lF ->
- case GHC.Base.Bool w_s4lK of w_X4n7 { Main.AlexPn ww_s4lM ww_s4lQ ww_s4lR ->
- case GHC.Base.Bool ww_s4lM of ww_X4nf { GHC.Base.I# ww_s4lO ->
- $w==_s4mH ww_s4lF ww_s4lH ww_s4lI ww_s4lO ww_s4lQ ww_s4lR
- }
- }
- }
- })
-
-/=_a3cr :: Main.AlexPosn -> Main.AlexPosn -> GHC.Base.Bool
-[Arity 2
- 0 -> 0 -> *
- Str: DmdType U(U(L)LL)U(U(L)LL)]
-/=_a3cr = \ (a_a2jh :: Main.AlexPosn) (b_a2ji :: Main.AlexPosn) ->
- case GHC.Base.Bool a_a2jh of w_X4mO { Main.AlexPn ww_s4lD ww_s4lH ww_s4lI ->
- case GHC.Base.Bool ww_s4lD of ww_X4mW { GHC.Base.I# ww_s4lF ->
- case GHC.Base.Bool b_a2ji of w_X4n7 { Main.AlexPn ww_s4lM ww_s4lQ ww_s4lR ->
- case GHC.Base.Bool ww_s4lM of ww_X4nf { GHC.Base.I# ww_s4lO ->
- case GHC.Base.Bool GHC.Prim.==# ww_s4lF ww_s4lO of wild_X45N {
- GHC.Base.False -> GHC.Base.True;
- GHC.Base.True ->
- case GHC.Base.Bool ww_s4lH of wild_X45G { GHC.Base.I# x_X45H ->
- case GHC.Base.Bool ww_s4lQ of wild1_X45M { GHC.Base.I# y_X45Q ->
- case GHC.Base.Bool GHC.Prim.==# x_X45H y_X45Q of wild_X45X {
- GHC.Base.False -> GHC.Base.True;
- GHC.Base.True ->
- case GHC.Base.Bool ww_s4lI of wild_X47o { GHC.Base.I# x_X47r ->
- case GHC.Base.Bool ww_s4lR of wild1_X47y { GHC.Base.I# y_X47E ->
- case GHC.Base.Bool GHC.Prim.==# x_X47r y_X47E of wild_a43s {
- GHC.Base.False -> GHC.Base.True; GHC.Base.True -> GHC.Base.False
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
-
-$fShowAlexPosn_a2iT :: {GHC.Show.Show Main.AlexPosn}
-[Exported]
-[*
- Str: DmdType m]
-$fShowAlexPosn_a2iT = GHC.Show.:DShow
- @ Main.AlexPosn showsPrec_a3cJ $dmshow_a3m7 showList_a3eh
-
-$fEqAlexPosn_a2iS :: {GHC.Base.Eq Main.AlexPosn}
-[Exported]
-[*
- Str: DmdType m]
-$fEqAlexPosn_a2iS = GHC.Base.:DEq @ Main.AlexPosn ==_a3c8 /=_a3cr
-
-Rec {
-$fMonadAlex_a2dQ :: {GHC.Base.Monad Main.Alex}
-[Exported]
-[*
- Str: DmdType m]
-$fMonadAlex_a2dQ = GHC.Base.:DMonad
- @ Main.Alex >>=_a3eM >>_a3fv return_a3fW fail_a3gq
-fail_a3gq :: forall a_a3eL. GHC.Base.String -> Main.Alex a_a3eL
-[Arity 1
- *
- Str: DmdType Sb]
-fail_a3gq = \ (@ a_a3gE) (eta_x1 :: GHC.Base.String) ->
- GHC.Base.$dmfail @ Main.Alex $fMonadAlex_a2dQ @ a_a3gE eta_x1
-end Rec }
-
-lvl_s4pX :: GHC.Base.Int
-[*]
-lvl_s4pX = GHC.Base.I# 3
-
-lvl_s4pU :: (Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]
-[Arity 2
- 0 -> 0 -> T]
-lvl_s4pU = \ (ds_d3nZ :: (Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char]))
- (len_a1Rn :: GHC.Base.Int) ->
- case (Main.Alex [GHC.Base.Char]) ds_d3nZ
- of wild_X3c { (ds_d3o0, ds_d3o1, input_a1Rm) ->
- let {
- a_s4pV :: [GHC.Base.Char]
- [*
- Str: DmdType]
- a_s4pV = GHC.List.take @ GHC.Base.Char len_a1Rn input_a1Rm
- } in
- \ (@ s_X3jq)
- (s_X2fe :: Main.AlexState s_X3jq)
- (s_a3ZV :: GHC.Prim.State# s_X3jq) ->
- (# s_a3ZV, a_s4pV #)
- }
-
-lvl_s4pT :: GHC.Base.Int
-[*]
-lvl_s4pT = GHC.Base.I# 1
-
-lvl_s4pS :: Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])
-[*]
-lvl_s4pS = Main.AlexAcc
- @ ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])
- lvl_s4pT
- lvl_s4pU
- (Data.Maybe.Nothing @ (GHC.Arr.Array GHC.Base.Char GHC.Base.Bool))
- (Data.Maybe.Nothing @ GHC.Base.Int)
-
-lvl_s4pR :: [Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]
-[*]
-lvl_s4pR = GHC.Base.:
- @ (Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))
- lvl_s4pS
- (GHC.Base.[]
- @ (Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])))
-
-lvl_s4pQ :: [[Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]]
-[*]
-lvl_s4pQ = GHC.Base.:
- @ [Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]
- lvl_s4pR
- (GHC.Base.[]
- @ [Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])])
-
-Rec {
-$wk_s4mM :: GHC.Prim.Int#
- -> forall s_a2bs.
- Main.AlexState s_a2bs
- -> GHC.Prim.State# s_a2bs
- -> (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #)
-[Arity 3
- 0 -> 0 -> 0 -> *
- Str: DmdType LS(U(L)U(L)U(L)L)L]
-$wk_s4mM = \ (ww_s4mz :: GHC.Prim.Int#)
- (@ s_a2bs)
- (w_s4mC :: Main.AlexState s_a2bs)
- (w_s4mD :: GHC.Prim.State# s_a2bs) ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) w_s4mC
- of wild_X2B { Main.AlexState pos_r_a21Q inp_r_a21S chr_r_a21R ds_d3od ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) inp_r_a21S
- of wild_a43y { GHC.STRef.STRef var#_a43z ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) GHC.Prim.readMutVar#
- @ s_a2bs @ GHC.Base.String var#_a43z w_s4mD
- of wild_a3ZB { (# new_s_a3Zz, r_a3ZA #) ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) chr_r_a21R
- of wild_X46u { GHC.STRef.STRef var#_X46x ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) GHC.Prim.readMutVar#
- @ s_a2bs @ GHC.Base.Char var#_X46x new_s_a3Zz
- of wild_X42B { (# new_s_X42A, r_X42C #) ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) pos_r_a21Q
- of wild_X46v { GHC.STRef.STRef var#_X46y ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) GHC.Prim.readMutVar#
- @ s_a2bs @ Main.AlexPosn var#_X46y new_s_X42A
- of wild_X45K { (# new_s_X48T, r_X42D #) ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) r_X42C
- of tpl_X4U { GHC.Base.C# a_s3Wm ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) alex_scan_tkn_a2zF
- tpl_X4U
- 0
- ww_s4mz
- (Main.AlexNone
- @ (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))
- @ s_a2bs
- wild_X2B
- new_s_X48T
- of wild_X42t { (# new_s_X42s, r_X42u #) ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) r_X42u of wild_X4V {
- Main.AlexNone ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) r_a3ZA of wild_X4y {
- [] -> (# new_s_X42s, lvl_s3Z6 #); : a_s3Tv a_s3Tw -> (# new_s_X42s, lvl_s3Z7 #)
- };
- Main.AlexLastAcc k_a23z input_a23A len_a23B ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) input_a23A
- of wild_X2D { (pos_a225, chr_a226, inp_a227) ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) GHC.Prim.writeMutVar#
- @ s_a2bs
- @ GHC.Base.String
- var#_a43z
- inp_a227
- new_s_X42s
- of s2#_a43F { __DEFAULT ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) GHC.Prim.writeMutVar#
- @ s_a2bs
- @ Main.AlexPosn
- var#_X46y
- pos_a225
- s2#_a43F
- of s2#_X46S { __DEFAULT ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) GHC.Prim.writeMutVar#
- @ s_a2bs
- @ GHC.Base.Char
- var#_X46x
- chr_a226
- s2#_X46S
- of s2#_X46O { __DEFAULT ->
- k_a23z (r_X42D, tpl_X4U, r_a3ZA) len_a23B @ s_a2bs wild_X2B s2#_X46O
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
-lvl_s4pP :: (Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> forall s_a2bs.
- Main.AlexState s_a2bs
- -> GHC.Prim.State# s_a2bs
- -> (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #)
-[Arity 4
- T]
-lvl_s4pP = \ (input_a22z :: (Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char]))
- (len_a22A :: GHC.Base.Int)
- (@ s_a2bs)
- (eta_s47H :: Main.AlexState s_a2bs)
- (eta_s47I :: GHC.Prim.State# s_a2bs) ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) eta_s47H
- of wild_X34 { Main.AlexState ds_d3og ds_d3oh ds_d3oi scd_r_a22m ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) scd_r_a22m
- of wild_a43y { GHC.STRef.STRef var#_a43z ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) GHC.Prim.readMutVar#
- @ s_a2bs @ GHC.Base.Int var#_a43z eta_s47I
- of wild_a3ZB { (# new_s_a3Zz, r_a3ZA #) ->
- case (# GHC.Prim.State# s_a2bs, [GHC.Base.Char] #) r_a3ZA
- of w_X4o2 { GHC.Base.I# ww_s4mz ->
- $wk_s4mM ww_s4mz @ s_a2bs wild_X34 new_s_a3Zz
- }
- }
- }
- }
-lvl_s4pN :: Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])
-[*]
-lvl_s4pN = Main.AlexAcc
- @ ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])
- lit_a3m9
- lvl_s4pP
- (Data.Maybe.Nothing @ (GHC.Arr.Array GHC.Base.Char GHC.Base.Bool))
- (Data.Maybe.Nothing @ GHC.Base.Int)
-lvl_s4pM :: [Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]
-[*]
-lvl_s4pM = GHC.Base.:
- @ (Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))
- lvl_s4pN
- (GHC.Base.[]
- @ (Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])))
-lvl_s4pL :: [[Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]]
-[*]
-lvl_s4pL = GHC.Base.:
- @ [Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]
- lvl_s4pM
- lvl_s4pQ
-lvl_s4pK :: [[Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]]
-[*]
-lvl_s4pK = GHC.Base.:
- @ [Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]
- (GHC.Base.[]
- @ (Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])))
- lvl_s4pL
-lvl_s4pJ :: [[Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]]
-[*]
-lvl_s4pJ = GHC.Base.:
- @ [Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]
- (GHC.Base.[]
- @ (Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])))
- lvl_s4pK
-alex_accept_a2Bg :: GHC.Arr.Array GHC.Base.Int
- [Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]
-[*
- Str: DmdType]
-alex_accept_a2Bg = case (GHC.Arr.Array GHC.Base.Int
- [Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]) GHC.Prim.newArray#
- @ [Main.AlexAcc ((Main.AlexPosn,
- GHC.Base.Char,
- [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]
- @ GHC.Prim.RealWorld
- 4
- (GHC.Arr.arrEleBottom
- @ [Main.AlexAcc ((Main.AlexPosn,
- GHC.Base.Char,
- [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])])
- GHC.Prim.realWorld#
- of wild2_a3Up { (# s2#_a3Un, marr#_a3Uo #) ->
- __letrec {
- fillFromList_s4pc :: GHC.Prim.Int#
- -> [[Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]]
- -> GHC.Prim.State# GHC.Prim.RealWorld
- -> GHC.Prim.State# GHC.Prim.RealWorld
- [Arity 3
- 0 -> 0 -> 0 -> *
- Str: DmdType LLL]
- fillFromList_s4pc = \ (i#_a3Ul :: GHC.Prim.Int#)
- (xs_a3Uk :: [[Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]])
- (s3#_a3Uj :: GHC.Prim.State# GHC.Prim.RealWorld) ->
- case (GHC.Prim.State# GHC.Prim.RealWorld) i#_a3Ul of wild_X3y {
- __DEFAULT ->
- case (GHC.Prim.State# GHC.Prim.RealWorld) xs_a3Uk of wild4_a47j {
- [] -> s3#_a3Uj;
- : y_a47h ys_a47i ->
- case (GHC.Prim.State# GHC.Prim.RealWorld) GHC.Prim.writeArray#
- @ GHC.Prim.RealWorld
- @ [Main.AlexAcc ((Main.AlexPosn,
- GHC.Base.Char,
- [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]
- marr#_a3Uo
- wild_X3y
- y_a47h
- s3#_a3Uj
- of s4#_a47g { __DEFAULT ->
- fillFromList_s4pc (GHC.Prim.+# wild_X3y 1) ys_a47i s4#_a47g
- }
- };
- 4 -> s3#_a3Uj
- };
- } in
- case (GHC.Arr.Array GHC.Base.Int
- [Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]) fillFromList_s4pc
- 0 lvl_s4pJ s2#_a3Un
- of s3#_a47k { __DEFAULT ->
- case (GHC.Arr.Array GHC.Base.Int
- [Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]) GHC.Prim.unsafeFreezeArray#
- @ GHC.Prim.RealWorld
- @ [Main.AlexAcc ((Main.AlexPosn,
- GHC.Base.Char,
- [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]
- marr#_a3Uo
- s3#_a47k
- of wild_a488 { (# s2#_a48a, arr#_a48b #) ->
- GHC.Arr.Array
- @ GHC.Base.Int
- @ [Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]
- lit_a3m9
- lvl_s4pX
- arr#_a48b
- }
- }
- }
-check_rctx_a2B6 :: ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])
- -> Data.Maybe.Maybe GHC.Base.Int
- -> [Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]
- -> GHC.Base.Char
- -> GHC.Prim.Int#
- -> Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])
- -> Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))
-[Arity 8
- 0 -> 0 -> 0 -> 0 -> 0 -> 0 -> 0 -> 0 -> *
- Str: DmdType LSLLLL]
-check_rctx_a2B6 = \ (a_a2aL :: (Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])
- (rctx_a2aM :: Data.Maybe.Maybe GHC.Base.Int)
- (rest_a2aN :: [Main.AlexAcc ((Main.AlexPosn, GHC.Base.Char, [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])])
- (lc_a2aO :: GHC.Base.Char)
- (len_a2aP :: GHC.Prim.Int#)
- (last_acc_a2aQ :: Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))
- (@ s_a2bs)
- (eta_x1 :: Main.AlexState s_a2bs)
- (eta_x2 :: GHC.Prim.State# s_a2bs) ->
- (case (Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))) rctx_a2aM
- of wild_X3t {
- Data.Maybe.Nothing ->
- \ (@ s_a2bs)
- (w_s4m0 :: Main.AlexState s_a2bs)
- (w_s4mg :: GHC.Prim.State# s_a2bs) ->
- case (# GHC.Prim.State# s_a2bs,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) w_s4m0
- of w_X4n1 { Main.AlexState ww_s4m2 ww_s4m6 ww_s4ma ww_s4me ->
- case (# GHC.Prim.State# s_a2bs,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) ww_s4m2
- of ww_X4na { GHC.STRef.STRef ww_s4m4 ->
- case (# GHC.Prim.State# s_a2bs,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) ww_s4m6
- of ww_X4ni { GHC.STRef.STRef ww_s4m8 ->
- case (# GHC.Prim.State# s_a2bs,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) ww_s4ma
- of ww_X4nq { GHC.STRef.STRef ww_s4mc ->
- case (# GHC.Prim.State# s_a2bs,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.readMutVar#
- @ s_a2bs
- @ GHC.Base.String
- ww_s4m8
- w_s4mg
- of wild_a3ZB { (# new_s_a3Zz, r_a3ZA #) ->
- case (# GHC.Prim.State# s_a2bs,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.readMutVar#
- @ s_a2bs
- @ GHC.Base.Char
- ww_s4mc
- new_s_a3Zz
- of wild_X42B { (# new_s_X42A, r_X42C #) ->
- case (# GHC.Prim.State# s_a2bs,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.readMutVar#
- @ s_a2bs
- @ Main.AlexPosn
- ww_s4m4
- new_s_X42A
- of wild_X45K { (# new_s_X48T, r_X42D #) ->
- (# new_s_X48T,
- (Main.AlexLastAcc
- @ (Main.AlexInput -> GHC.Base.Int -> Main.Alex [GHC.Base.Char])
- a_a2aL
- (r_X42D, r_X42C, r_a3ZA)
- (GHC.Base.I# len_a2aP)) #)
- }
- }
- }
- }
- }
- }
- };
- Data.Maybe.Just ds_d3nH ->
- case (Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))) ds_d3nH
- of wild_X4X { GHC.Base.I# ds_d3nI ->
- let {
- lvl_s4pt :: Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))
- [*
- Str: DmdType]
- lvl_s4pt = check_accs1_a2B8 rest_a2aN lc_a2aO len_a2aP last_acc_a2aQ
- } in
- \ (@ s_X3iB)
- (s_X2fm :: Main.AlexState s_X3iB)
- (s_X436 :: GHC.Prim.State# s_X3iB) ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) s_X2fm
- of wild_X2B { Main.AlexState pos_r_a21Q inp_r_a21S chr_r_a21R ds_d3od ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) inp_r_a21S
- of wild_a43y { GHC.STRef.STRef var#_a43z ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.readMutVar#
- @ s_X3iB
- @ GHC.Base.String
- var#_a43z
- s_X436
- of wild_a3ZB { (# new_s_a3Zz, r_a3ZA #) ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) chr_r_a21R
- of wild_X46u { GHC.STRef.STRef var#_X46x ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.readMutVar#
- @ s_X3iB
- @ GHC.Base.Char
- var#_X46x
- new_s_a3Zz
- of wild_X42B { (# new_s_X42A, r_X42C #) ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) pos_r_a21Q
- of wild_X46v { GHC.STRef.STRef var#_X46y ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.readMutVar#
- @ s_X3iB
- @ Main.AlexPosn
- var#_X46y
- new_s_X42A
- of wild_X45K { (# new_s_X48T, r_X42D #) ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) r_X42C
- of tpl_X56 { GHC.Base.C# a_s3Wu ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) alex_scan_tkn_a2zF
- tpl_X56
- 0
- ds_d3nI
- (Main.AlexNone
- @ (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))
- @ s_X3iB
- wild_X2B
- new_s_X48T
- of wild_X42y { (# new_s_X42x, r_X42z #) ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.writeMutVar#
- @ s_X3iB
- @ GHC.Base.String
- var#_a43z
- r_a3ZA
- new_s_X42x
- of s2#_a43F { __DEFAULT ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.writeMutVar#
- @ s_X3iB
- @ Main.AlexPosn
- var#_X46y
- r_X42D
- s2#_a43F
- of s2#_X46S { __DEFAULT ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.writeMutVar#
- @ s_X3iB
- @ GHC.Base.Char
- var#_X46x
- tpl_X56
- s2#_X46S
- of s2#_X46O { __DEFAULT ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) r_X42z
- of wild_X57 {
- Main.AlexNone -> lvl_s4pt @ s_X3iB wild_X2B s2#_X46O;
- Main.AlexLastAcc ds_d3nK ds_d3nL ds_d3nM ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.readMutVar#
- @ s_X3iB
- @ GHC.Base.String
- var#_a43z
- s2#_X46O
- of wild_X42f { (# new_s_X42e, r_X42g #) ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.readMutVar#
- @ s_X3iB
- @ GHC.Base.Char
- var#_X46x
- new_s_X42e
- of wild_X45j { (# new_s_X482, r_X45m #) ->
- case (# GHC.Prim.State# s_X3iB,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.readMutVar#
- @ s_X3iB
- @ Main.AlexPosn
- var#_X46y
- new_s_X482
- of wild_X48w { (# new_s_X4bG, r_X45r #) ->
- (# new_s_X4bG,
- (Main.AlexLastAcc
- @ (Main.AlexInput -> GHC.Base.Int -> Main.Alex [GHC.Base.Char])
- a_a2aL
- (r_X45r, r_X45m, r_X42g)
- (GHC.Base.I# len_a2aP)) #)
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- })
- @ s_a2bs eta_x1 eta_x2
-check_accs1_a2B8 :: [Main.AlexAcc ((Main.AlexPosn,
- GHC.Base.Char,
- [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]
- -> GHC.Base.Char
- -> GHC.Prim.Int#
- -> Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])
- -> Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))
-[Arity 4
- 0 -> 0 -> 0 -> 0 -> *
- Str: DmdType SLLL]
-check_accs1_a2B8 = \ (accs_a24C :: [Main.AlexAcc ((Main.AlexPosn,
- GHC.Base.Char,
- [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])])
- (lc_a24D :: GHC.Base.Char)
- (len_a24E :: GHC.Prim.Int#)
- (last_acc_a24F :: Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])) ->
- case (Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))) accs_a24C
- of wild_X3t {
- [] ->
- return_a3fW
- @ (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))
- last_acc_a24F;
- : ds_d3nO rest_a24P ->
- case (Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))) ds_d3nO
- of wild_X4Y { Main.AlexAcc ds_d3nP a_a24M lctx_a24N rctx_a24O ->
- case (Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))) lctx_a24N
- of wild_X54 {
- Data.Maybe.Nothing ->
- check_rctx_a2B6 a_a24M rctx_a24O rest_a24P lc_a24D len_a24E last_acc_a24F;
- Data.Maybe.Just arr_a24W ->
- case (Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))) arr_a24W
- of wild_a48O { GHC.Arr.Array l_a48P u_a48Q ds_a48R ->
- case (Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))) l_a48P
- of ww_a48V { GHC.Base.C# ww_a48X ->
- case (Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))) u_a48Q
- of ww_a48Z { GHC.Base.C# ww_a491 ->
- case (Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))) lc_a24D
- of w_a494 { GHC.Base.C# ww_a496 ->
- case (Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))) GHC.Arr.$windex2
- ww_a48X
- ww_a491
- ww_a496
- of ww_a49b { __DEFAULT ->
- case (Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))) GHC.Prim.indexArray#
- @ GHC.Base.Bool
- ds_a48R
- ww_a49b
- of wild2_a49K { (# e_a49M #) ->
- case (Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))) e_a49M
- of wild_X57 {
- GHC.Base.False -> check_accs1_a2B8 rest_a24P w_a494 len_a24E last_acc_a24F;
- GHC.Base.True ->
- check_rctx_a2B6 a_a24M rctx_a24O rest_a24P w_a494 len_a24E last_acc_a24F
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
-alex_scan_tkn_a2zF :: GHC.Base.Char
- -> GHC.Prim.Int#
- -> GHC.Prim.Int#
- -> Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])
- -> Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))
-[Arity 4
- 0 -> 0 -> 0 -> 0 -> 0 -> 0 -> *
- Str: DmdType LLLL]
-alex_scan_tkn_a2zF = \ (lc_a23F :: GHC.Base.Char)
- (len_a23G :: GHC.Prim.Int#)
- (ds_d3n1 :: GHC.Prim.Int#)
- (last_acc_a23H :: Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])) ->
- case (Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))) ds_d3n1
- of ds_X3rY {
- __DEFAULT ->
- let {
- ds_s4pv :: Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))
- [*
- Str: DmdType]
- ds_s4pv = case (Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))) alex_accept_a2Bg
- of wild_a4cx { GHC.Arr.Array ds2_a4cu ds3_a4cv arr#_a4cw ->
- case (Main.Alex (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))) GHC.Prim.indexArray#
- @ [Main.AlexAcc ((Main.AlexPosn,
- GHC.Base.Char,
- [GHC.Base.Char])
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char])]
- arr#_a4cw
- ds_X3rY
- of wild2_a4cD { (# e_a4cF #) ->
- check_accs1_a2B8 e_a4cF lc_a23F len_a23G last_acc_a23H
- }
- }
- } in
- \ (@ s_X3iz)
- (s_X2fk :: Main.AlexState s_X3iz)
- (s_X434 :: GHC.Prim.State# s_X3iz) ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) ds_s4pv @ s_X3iz s_X2fk s_X434
- of wild_a3ZB { (# new_s_a3Zz, r_a3ZA #) ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) s_X2fk
- of wild_X2w { Main.AlexState pos_r_a21o inp_r_a21m chr_r_a21n ds_d3o7 ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) inp_r_a21m
- of wild_a43y { GHC.STRef.STRef var#_a43z ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.readMutVar#
- @ s_X3iz
- @ GHC.Base.String
- var#_a43z
- new_s_a3Zz
- of wild_X420 { (# new_s_X41Z, r_X421 #) ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) pos_r_a21o
- of wild_X46p { GHC.STRef.STRef var#_X46s ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.readMutVar#
- @ s_X3iz
- @ Main.AlexPosn
- var#_X46s
- new_s_X41Z
- of wild_X42w { (# new_s_X42v, r_X42x #) ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) r_X421
- of wild_X4j {
- [] -> (# new_s_X42v, r_a3ZA #);
- : c_a21B s_a21C ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.writeMutVar#
- @ s_X3iz
- @ GHC.Base.String
- var#_a43z
- s_a21C
- new_s_X42v
- of s2#_a43F { __DEFAULT ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) chr_r_a21n
- of wild_X46I { GHC.STRef.STRef var#_X46M ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.writeMutVar#
- @ s_X3iz
- @ GHC.Base.Char
- var#_X46M
- c_a21B
- s2#_a43F
- of s2#_X46N { __DEFAULT ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) r_X42x
- of wild_X4p { Main.AlexPn a_a1UD l_a1UE c_a1UF ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) c_a21B
- of wild_X3V { GHC.Base.C# ds_d3my ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) ds_d3my
- of ds_X3qv {
- __DEFAULT ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) a_a1UD
- of wild_a437 { GHC.Base.I# x_a436 ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) c_a1UF
- of wild_X469 { GHC.Base.I# x_X46a ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) l_a1UE
- of tpl_X3b { GHC.Base.I# a_s43O ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.writeMutVar#
- @ s_X3iz
- @ Main.AlexPosn
- var#_X46s
- (Main.AlexPn
- (GHC.Base.I#
- (GHC.Prim.+#
- x_a436 1))
- tpl_X3b
- (GHC.Base.I#
- (GHC.Prim.+#
- x_X46a 1)))
- s2#_X46N
- of s2#_X461 { __DEFAULT ->
- let {
- off'_s3XM :: GHC.Prim.Int#
- [*
- Str: DmdType]
- off'_s3XM = GHC.Prim.*# ds_X3rY 2 } in
- let {
- arr_a22R :: GHC.Prim.Addr#
- [*
- Str: DmdType]
- arr_a22R = "\248\255\253\255\STX\NULL\NUL" } in
- let {
- ds_d3nX :: GHC.Prim.Int#
- [*
- Str: DmdType]
- ds_d3nX = GHC.Prim.ord# ds_X3qv } in
- let {
- offset_s3XK :: GHC.Prim.Int#
- [*
- Str: DmdType]
- offset_s3XK = GHC.Prim.+#
- (GHC.Prim.narrow16Int#
- (GHC.Prim.word2Int#
- (GHC.Prim.or#
- (GHC.Prim.uncheckedShiftL#
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_a22R (GHC.Prim.+# off'_s3XM 1))))
- 8)
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_a22R off'_s3XM))))))
- ds_d3nX } in
- let {
- $w$j_s4px :: GHC.Prim.State# GHC.Prim.RealWorld
- -> (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #)
- [Arity 1
- *
- Str: DmdType A]
- $w$j_s4px = \ (w_s4mk :: GHC.Prim.State# GHC.Prim.RealWorld) ->
- let {
- arr_X26b :: GHC.Prim.Addr#
- [*
- Str: DmdType]
- arr_X26b = "\255\255\255\255\255\255\255\255"
- } in
- alex_scan_tkn_a2zF
- lc_a23F
- (GHC.Prim.+# len_a23G 1)
- (GHC.Prim.narrow16Int#
- (GHC.Prim.word2Int#
- (GHC.Prim.or#
- (GHC.Prim.uncheckedShiftL#
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X26b (GHC.Prim.+# off'_s3XM 1))))
- 8)
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X26b off'_s3XM))))))
- r_a3ZA
- @ s_X3iz
- wild_X2w
- s2#_X461
- } in
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.>=#
- offset_s3XK 0
- of wild_a43m {
- GHC.Base.False -> $w$j_s4px GHC.Prim.realWorld#;
- GHC.Base.True ->
- let {
- off'_X40Z :: GHC.Prim.Int#
- [*
- Str: DmdType]
- off'_X40Z = GHC.Prim.*# offset_s3XK 2 } in
- let {
- arr_X262 :: GHC.Prim.Addr#
- [*
- Str: DmdType]
- arr_X262 = "\255\255\t\NUL\n\NUL\v\NUL\f\NUL\r\NUL\t\NUL\n\NUL\v\NUL\f\NUL\r\NUL\t\NUL\n\NUL\v\NUL\f\NUL\r\NUL\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255 \NUL\255\255\255\255\255\255\255\255 \NUL\255\255'\NUL\255\255\255\255 \NUL\255\255\255\255-\NUL\255\255\255\255\&0\NUL1\NUL2\NUL3\NUL4\NUL5\NUL6\NUL7\NUL8\NUL9\NUL\255\255\255\255\255\255\255\255\255\255\255\255\255\255A\NULB\NULC\NULD\NULE\NULF\NULG\NULH\NULI\NULJ\NULK\NULL\NULM\NULN\NULO\NULP\NULQ\NULR\NULS\NULT\NULU\NULV\NULW\NULX\NULY\NULZ\NUL\255\255\255\255\255\255\255\255\255\255\255\255a\NULb\NULc\NULd\NULe\NULf\NULg\NULh\NULi\NULj\NULk\NULl\NULm\NULn\NULo\NULp\NULq\NULr\NULs\NULt\NULu\NULv\NULw\NULx\NULy\NULz\NUL'\NUL\255\255\255\255\255\255\255\255\255\255-\NUL\255\255\255\255\&0\NUL1\NUL2\NUL3\NUL4\NUL5\NUL6\NUL7\NUL8\NUL9\NUL\255\255\255\255\255\255\255\255\255\255\255\255\255\255A\NULB\NULC\NULD\NULE\NULF\NULG\NULH\NULI\NULJ\NULK\NULL\NULM\NULN\NULO\NULP\NULQ\NULR\NULS\NULT\NULU\NULV\NULW\NULX\NULY\NULZ\NUL\255\255\255\255\255\255\255\255\255\255\255\255a\NULb\NULc\NULd\NULe\NULf\NULg\NULh\NULi\NULj\NULk\NULl\NULm\NULn\NULo\NULp\NULq\NULr\NULs\NULt\NULu\NULv\NULw\NULx\NULy\NULz\NUL\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255"
- } in
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.==#
- (GHC.Prim.narrow16Int#
- (GHC.Prim.word2Int#
- (GHC.Prim.or#
- (GHC.Prim.uncheckedShiftL#
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X262
- (GHC.Prim.+#
- off'_X40Z
- 1))))
- 8)
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X262
- off'_X40Z))))))
- ds_d3nX
- of wild_X8K {
- GHC.Base.False -> $w$j_s4px GHC.Prim.realWorld#;
- GHC.Base.True ->
- let {
- arr_X26c :: GHC.Prim.Addr#
- [*
- Str: DmdType]
- arr_X26c = "\NUL\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\STX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\STX\NUL\NUL\NUL\ETX\NUL\NUL\NUL\NUL\NUL\STX\NUL\NUL\NUL\NUL\NUL\ETX\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ETX\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL"
- } in
- alex_scan_tkn_a2zF
- lc_a23F
- (GHC.Prim.+# len_a23G 1)
- (GHC.Prim.narrow16Int#
- (GHC.Prim.word2Int#
- (GHC.Prim.or#
- (GHC.Prim.uncheckedShiftL#
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X26c (GHC.Prim.+# off'_X40Z 1))))
- 8)
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X26c off'_X40Z))))))
- r_a3ZA
- @ s_X3iz
- wild_X2w
- s2#_X461
- }
- }
- }
- }
- }
- };
- '\t' ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) a_a1UD
- of wild_a437 { GHC.Base.I# x_a436 ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) c_a1UF
- of wild_X469 { GHC.Base.I# x_X46a ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Base.divInt#
- (GHC.Prim.+#
- x_X46a 7)
- 8
- of x_a44T { __DEFAULT ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) l_a1UE
- of tpl_X3c { GHC.Base.I# a_s452 ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.writeMutVar#
- @ s_X3iz
- @ Main.AlexPosn
- var#_X46s
- (Main.AlexPn
- (GHC.Base.I#
- (GHC.Prim.+#
- x_a436 1))
- tpl_X3c
- (GHC.Base.I#
- (GHC.Prim.+#
- (GHC.Prim.*#
- x_a44T
- 8)
- 1)))
- s2#_X46N
- of s2#_X461 { __DEFAULT ->
- let {
- off'_s3XM :: GHC.Prim.Int#
- [*
- Str: DmdType]
- off'_s3XM = GHC.Prim.*# ds_X3rY 2 } in
- let {
- arr_a22R :: GHC.Prim.Addr#
- [*
- Str: DmdType]
- arr_a22R = "\248\255\253\255\STX\NULL\NUL" } in
- let {
- offset_s3XK :: GHC.Prim.Int#
- [*
- Str: DmdType]
- offset_s3XK = GHC.Prim.+#
- (GHC.Prim.narrow16Int#
- (GHC.Prim.word2Int#
- (GHC.Prim.or#
- (GHC.Prim.uncheckedShiftL#
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_a22R (GHC.Prim.+# off'_s3XM 1))))
- 8)
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_a22R off'_s3XM))))))
- 9 } in
- let {
- $w$j_s4pz :: GHC.Prim.State# GHC.Prim.RealWorld
- -> (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #)
- [Arity 1
- *
- Str: DmdType A]
- $w$j_s4pz = \ (w_s4mo :: GHC.Prim.State# GHC.Prim.RealWorld) ->
- let {
- arr_X26c :: GHC.Prim.Addr#
- [*
- Str: DmdType]
- arr_X26c = "\255\255\255\255\255\255\255\255"
- } in
- alex_scan_tkn_a2zF
- lc_a23F
- (GHC.Prim.+# len_a23G 1)
- (GHC.Prim.narrow16Int#
- (GHC.Prim.word2Int#
- (GHC.Prim.or#
- (GHC.Prim.uncheckedShiftL#
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X26c (GHC.Prim.+# off'_s3XM 1))))
- 8)
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X26c off'_s3XM))))))
- r_a3ZA
- @ s_X3iz
- wild_X2w
- s2#_X461
- } in
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.>=#
- offset_s3XK 0
- of wild_a43m {
- GHC.Base.False -> $w$j_s4pz GHC.Prim.realWorld#;
- GHC.Base.True ->
- let {
- off'_X410 :: GHC.Prim.Int#
- [*
- Str: DmdType]
- off'_X410 = GHC.Prim.*# offset_s3XK 2 } in
- let {
- arr_X263 :: GHC.Prim.Addr#
- [*
- Str: DmdType]
- arr_X263 = "\255\255\t\NUL\n\NUL\v\NUL\f\NUL\r\NUL\t\NUL\n\NUL\v\NUL\f\NUL\r\NUL\t\NUL\n\NUL\v\NUL\f\NUL\r\NUL\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255 \NUL\255\255\255\255\255\255\255\255 \NUL\255\255'\NUL\255\255\255\255 \NUL\255\255\255\255-\NUL\255\255\255\255\&0\NUL1\NUL2\NUL3\NUL4\NUL5\NUL6\NUL7\NUL8\NUL9\NUL\255\255\255\255\255\255\255\255\255\255\255\255\255\255A\NULB\NULC\NULD\NULE\NULF\NULG\NULH\NULI\NULJ\NULK\NULL\NULM\NULN\NULO\NULP\NULQ\NULR\NULS\NULT\NULU\NULV\NULW\NULX\NULY\NULZ\NUL\255\255\255\255\255\255\255\255\255\255\255\255a\NULb\NULc\NULd\NULe\NULf\NULg\NULh\NULi\NULj\NULk\NULl\NULm\NULn\NULo\NULp\NULq\NULr\NULs\NULt\NULu\NULv\NULw\NULx\NULy\NULz\NUL'\NUL\255\255\255\255\255\255\255\255\255\255-\NUL\255\255\255\255\&0\NUL1\NUL2\NUL3\NUL4\NUL5\NUL6\NUL7\NUL8\NUL9\NUL\255\255\255\255\255\255\255\255\255\255\255\255\255\255A\NULB\NULC\NULD\NULE\NULF\NULG\NULH\NULI\NULJ\NULK\NULL\NULM\NULN\NULO\NULP\NULQ\NULR\NULS\NULT\NULU\NULV\NULW\NULX\NULY\NULZ\NUL\255\255\255\255\255\255\255\255\255\255\255\255a\NULb\NULc\NULd\NULe\NULf\NULg\NULh\NULi\NULj\NULk\NULl\NULm\NULn\NULo\NULp\NULq\NULr\NULs\NULt\NULu\NULv\NULw\NULx\NULy\NULz\NUL\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255"
- } in
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.narrow16Int#
- (GHC.Prim.word2Int#
- (GHC.Prim.or#
- (GHC.Prim.uncheckedShiftL#
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X263
- (GHC.Prim.+#
- off'_X410
- 1))))
- 8)
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X263
- off'_X410)))))
- of wild_X3k {
- __DEFAULT -> $w$j_s4pz GHC.Prim.realWorld#;
- 9 ->
- let {
- arr_X26d :: GHC.Prim.Addr#
- [*
- Str: DmdType]
- arr_X26d = "\NUL\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\STX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\STX\NUL\NUL\NUL\ETX\NUL\NUL\NUL\NUL\NUL\STX\NUL\NUL\NUL\NUL\NUL\ETX\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ETX\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL"
- } in
- alex_scan_tkn_a2zF
- lc_a23F
- (GHC.Prim.+# len_a23G 1)
- (GHC.Prim.narrow16Int#
- (GHC.Prim.word2Int#
- (GHC.Prim.or#
- (GHC.Prim.uncheckedShiftL#
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X26d (GHC.Prim.+# off'_X410 1))))
- 8)
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X26d off'_X410))))))
- r_a3ZA
- @ s_X3iz
- wild_X2w
- s2#_X461
- }
- }
- }
- }
- }
- }
- };
- '\n' ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) a_a1UD
- of wild_a437 { GHC.Base.I# x_a436 ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) l_a1UE
- of wild_X469 { GHC.Base.I# x_X46a ->
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.writeMutVar#
- @ s_X3iz
- @ Main.AlexPosn
- var#_X46s
- (Main.AlexPn
- (GHC.Base.I#
- (GHC.Prim.+#
- x_a436 1))
- (GHC.Base.I#
- (GHC.Prim.+#
- x_X46a 1))
- lvl_s4pT)
- s2#_X46N
- of s2#_X461 { __DEFAULT ->
- let {
- off'_s3XM :: GHC.Prim.Int#
- [*
- Str: DmdType]
- off'_s3XM = GHC.Prim.*# ds_X3rY 2 } in
- let {
- arr_a22R :: GHC.Prim.Addr#
- [*
- Str: DmdType]
- arr_a22R = "\248\255\253\255\STX\NULL\NUL" } in
- let {
- offset_s3XK :: GHC.Prim.Int#
- [*
- Str: DmdType]
- offset_s3XK = GHC.Prim.+#
- (GHC.Prim.narrow16Int#
- (GHC.Prim.word2Int#
- (GHC.Prim.or#
- (GHC.Prim.uncheckedShiftL#
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_a22R (GHC.Prim.+# off'_s3XM 1))))
- 8)
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_a22R off'_s3XM))))))
- 10 } in
- let {
- $w$j_s4pC :: GHC.Prim.State# GHC.Prim.RealWorld
- -> (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #)
- [Arity 1
- *
- Str: DmdType A]
- $w$j_s4pC = \ (w_s4ms :: GHC.Prim.State# GHC.Prim.RealWorld) ->
- let {
- arr_X266 :: GHC.Prim.Addr#
- [*
- Str: DmdType]
- arr_X266 = "\255\255\255\255\255\255\255\255"
- } in
- alex_scan_tkn_a2zF
- lc_a23F
- (GHC.Prim.+# len_a23G 1)
- (GHC.Prim.narrow16Int#
- (GHC.Prim.word2Int#
- (GHC.Prim.or#
- (GHC.Prim.uncheckedShiftL#
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X266 (GHC.Prim.+# off'_s3XM 1))))
- 8)
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X266 off'_s3XM))))))
- r_a3ZA
- @ s_X3iz
- wild_X2w
- s2#_X461
- } in
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.>=#
- offset_s3XK 0
- of wild_a43m {
- GHC.Base.False -> $w$j_s4pC GHC.Prim.realWorld#;
- GHC.Base.True ->
- let {
- off'_X40U :: GHC.Prim.Int#
- [*
- Str: DmdType]
- off'_X40U = GHC.Prim.*# offset_s3XK 2 } in
- let {
- arr_X25X :: GHC.Prim.Addr#
- [*
- Str: DmdType]
- arr_X25X = "\255\255\t\NUL\n\NUL\v\NUL\f\NUL\r\NUL\t\NUL\n\NUL\v\NUL\f\NUL\r\NUL\t\NUL\n\NUL\v\NUL\f\NUL\r\NUL\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255 \NUL\255\255\255\255\255\255\255\255 \NUL\255\255'\NUL\255\255\255\255 \NUL\255\255\255\255-\NUL\255\255\255\255\&0\NUL1\NUL2\NUL3\NUL4\NUL5\NUL6\NUL7\NUL8\NUL9\NUL\255\255\255\255\255\255\255\255\255\255\255\255\255\255A\NULB\NULC\NULD\NULE\NULF\NULG\NULH\NULI\NULJ\NULK\NULL\NULM\NULN\NULO\NULP\NULQ\NULR\NULS\NULT\NULU\NULV\NULW\NULX\NULY\NULZ\NUL\255\255\255\255\255\255\255\255\255\255\255\255a\NULb\NULc\NULd\NULe\NULf\NULg\NULh\NULi\NULj\NULk\NULl\NULm\NULn\NULo\NULp\NULq\NULr\NULs\NULt\NULu\NULv\NULw\NULx\NULy\NULz\NUL'\NUL\255\255\255\255\255\255\255\255\255\255-\NUL\255\255\255\255\&0\NUL1\NUL2\NUL3\NUL4\NUL5\NUL6\NUL7\NUL8\NUL9\NUL\255\255\255\255\255\255\255\255\255\255\255\255\255\255A\NULB\NULC\NULD\NULE\NULF\NULG\NULH\NULI\NULJ\NULK\NULL\NULM\NULN\NULO\NULP\NULQ\NULR\NULS\NULT\NULU\NULV\NULW\NULX\NULY\NULZ\NUL\255\255\255\255\255\255\255\255\255\255\255\255a\NULb\NULc\NULd\NULe\NULf\NULg\NULh\NULi\NULj\NULk\NULl\NULm\NULn\NULo\NULp\NULq\NULr\NULs\NULt\NULu\NULv\NULw\NULx\NULy\NULz\NUL\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255"
- } in
- case (# GHC.Prim.State# s_X3iz,
- Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]) #) GHC.Prim.narrow16Int#
- (GHC.Prim.word2Int#
- (GHC.Prim.or#
- (GHC.Prim.uncheckedShiftL#
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X25X
- (GHC.Prim.+#
- off'_X40U
- 1))))
- 8)
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X25X
- off'_X40U)))))
- of wild_X3e {
- __DEFAULT -> $w$j_s4pC GHC.Prim.realWorld#;
- 10 ->
- let {
- arr_X267 :: GHC.Prim.Addr#
- [*
- Str: DmdType]
- arr_X267 = "\NUL\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\STX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\STX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\STX\NUL\NUL\NUL\ETX\NUL\NUL\NUL\NUL\NUL\STX\NUL\NUL\NUL\NUL\NUL\ETX\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ETX\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\ETX\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL\NUL"
- } in
- alex_scan_tkn_a2zF
- lc_a23F
- (GHC.Prim.+# len_a23G 1)
- (GHC.Prim.narrow16Int#
- (GHC.Prim.word2Int#
- (GHC.Prim.or#
- (GHC.Prim.uncheckedShiftL#
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X267 (GHC.Prim.+# off'_X40U 1))))
- 8)
- (GHC.Prim.int2Word#
- (GHC.Prim.ord#
- (GHC.Prim.indexCharOffAddr#
- arr_X267 off'_X40U))))))
- r_a3ZA
- @ s_X3iz
- wild_X2w
- s2#_X461
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- };
- (-1) ->
- return_a3fW
- @ (Main.AlexLastAcc (Main.AlexInput
- -> GHC.Base.Int
- -> Main.Alex [GHC.Base.Char]))
- last_acc_a23H
- }
-end Rec }
-
-Rec {
-loop_s3YA :: GHC.Num.Integer -> Main.Alex GHC.Num.Integer
-[Arity 1
- 0 -> 0 -> 0 -> *
- Str: DmdType L]
-loop_s3YA = \ (i_a1Ry :: GHC.Num.Integer) ->
- let {
- lvl_s4pE :: Main.Alex GHC.Num.Integer
- [*
- Str: DmdType]
- lvl_s4pE = case (Main.Alex GHC.Num.Integer) GHC.Num.plusInteger i_a1Ry lit_s3Yy
- of tpl_X5k { __DEFAULT ->
- loop_s3YA tpl_X5k
- }
- } in
- \ (@ s_X3iH)
- (s_X2fs :: Main.AlexState s_X3iH)
- (s_X43c :: GHC.Prim.State# s_X3iH) ->
- case (# GHC.Prim.State# s_X3iH, GHC.Num.Integer #) s_X2fs
- of wild_X34 { Main.AlexState ds_d3og ds_d3oh ds_d3oi scd_r_a22m ->
- case (# GHC.Prim.State# s_X3iH, GHC.Num.Integer #) scd_r_a22m
- of wild_a43y { GHC.STRef.STRef var#_a43z ->
- case (# GHC.Prim.State# s_X3iH, GHC.Num.Integer #) GHC.Prim.readMutVar#
- @ s_X3iH @ GHC.Base.Int var#_a43z s_X43c
- of wild_a3ZB { (# new_s_a3Zz, r_a3ZA #) ->
- case (# GHC.Prim.State# s_X3iH, GHC.Num.Integer #) r_a3ZA
- of w_X4o2 { GHC.Base.I# ww_s4mz ->
- case (# GHC.Prim.State# s_X3iH, GHC.Num.Integer #) $wk_s4mM
- ww_s4mz @ s_X3iH wild_X34 new_s_a3Zz
- of wild_X43C { (# new_s_X43B, r_X43D #) ->
- case (# GHC.Prim.State# s_X3iH, GHC.Num.Integer #) GHC.Base.==1 r_X43D lvl_s3Z6
- of wild_a4d2 {
- GHC.Base.False ->
- case (# GHC.Prim.State# s_X3iH, GHC.Num.Integer #) GHC.Base.==1 r_X43D lvl_s3Z7
- of wild_X3O {
- GHC.Base.False -> lvl_s4pE @ s_X3iH wild_X34 new_s_X43B;
- GHC.Base.True -> (# new_s_X43B, i_a1Ry #)
- };
- GHC.Base.True -> (# new_s_X43B, i_a1Ry #)
- }
- }
- }
- }
- }
- }
-end Rec }
-
-lvl_s4pZ :: GHC.Num.Integer
-[*]
-lvl_s4pZ = GHC.Num.S# 0
-
-lvl_s3Z5 :: Main.Alex GHC.Num.Integer
-[0 -> 0 -> *
- Str: DmdType]
-lvl_s3Z5 = loop_s3YA lvl_s4pZ
-
-Main.alexStartPos :: Main.AlexPosn
-[*
- Str: DmdType m]
-Main.alexStartPos = Main.AlexPn lit_a3m9 lvl_s4pT lvl_s4pT
-
-lvl_s4q0 :: GHC.Base.Char
-[*]
-lvl_s4q0 = GHC.Base.C# '\n'
-
-k_a4es :: GHC.Base.String -> GHC.IOBase.IO ()
-[Arity 2
- 0 -> 0 -> *
- Str: DmdType LL]
-k_a4es = \ (s_a1Uq :: GHC.Base.String)
- (eta_s4ed :: GHC.Prim.State# GHC.Prim.RealWorld) ->
- case (# GHC.Prim.State# GHC.Prim.RealWorld, () #) GHC.IO.hPutStr
- GHC.Handle.stdout
- (case GHC.Base.String GHC.Prim.newMutVar#
- @ GHC.Base.String
- @ GHC.Prim.RealWorld
- s_a1Uq
- GHC.Prim.realWorld#
- of wild_a4cU { (# s2#_a4cV, var#_a4cW #) ->
- case GHC.Base.String GHC.Prim.newMutVar#
- @ GHC.Base.Char
- @ GHC.Prim.RealWorld
- lvl_s4q0
- s2#_a4cV
- of wild_X4fc { (# s2#_X4fe, var#_X4fg #) ->
- case GHC.Base.String GHC.Prim.newMutVar#
- @ Main.AlexPosn
- @ GHC.Prim.RealWorld
- Main.alexStartPos
- s2#_X4fe
- of wild_X4gU { (# s2#_X4gW, var#_X4gY #) ->
- case GHC.Base.String GHC.Prim.newMutVar#
- @ GHC.Base.Int
- @ GHC.Prim.RealWorld
- lit_a3m9
- s2#_X4gW
- of wild_X4gS { (# s2#_X4l2, var#_X4l5 #) ->
- case GHC.Base.String lvl_s3Z5
- @ GHC.Prim.RealWorld
- (Main.AlexState
- @ GHC.Prim.RealWorld
- (GHC.STRef.STRef
- @ GHC.Prim.RealWorld
- @ Main.AlexPosn
- var#_X4gY)
- (GHC.STRef.STRef
- @ GHC.Prim.RealWorld
- @ GHC.Base.String
- var#_a4cW)
- (GHC.STRef.STRef
- @ GHC.Prim.RealWorld
- @ GHC.Base.Char
- var#_X4fg)
- (GHC.STRef.STRef
- @ GHC.Prim.RealWorld
- @ GHC.Base.Int
- var#_X4l5))
- s2#_X4l2
- of wild_a4jy { (# ds_a4jz, r_a4jA #) ->
- GHC.Num.$wshowsPrec
- 0 r_a4jA (GHC.Base.[] @ GHC.Base.Char)
- }
- }
- }
- }
- })
- eta_s4ed
- of wild_a4dA { (# new_s_a4dB, a89_a4dC #) ->
- GHC.IO.$whPutChar GHC.Handle.stdout '\n' new_s_a4dB
- }
-
-Main.main :: GHC.IOBase.IO ()
-[Exported]
-[Arity 1
- 0 -> *
- Str: DmdType L]
-Main.main = \ (s_a4er :: GHC.Prim.State# GHC.Prim.RealWorld) ->
- case (# GHC.Prim.State# GHC.Prim.RealWorld, () #) GHC.IO.hGetContents
- GHC.Handle.stdin s_a4er
- of wild_a4eA { (# new_s_a4ey, a89_a4ez #) ->
- k_a4es a89_a4ez new_s_a4ey
- }
-
-lvl_s4q1 :: GHC.Prim.State# GHC.Prim.RealWorld
- -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
-[Arity 1
- 0 -> *]
-lvl_s4q1 = \ (s_a3VF :: GHC.Prim.State# GHC.Prim.RealWorld) ->
- case (# GHC.Prim.State# GHC.Prim.RealWorld, () #) GHC.IO.hGetContents
- GHC.Handle.stdin s_a3VF
- of wild_a4eA { (# new_s_a4ey, a89_a4ez #) ->
- case (# GHC.Prim.State# GHC.Prim.RealWorld, () #) k_a4es a89_a4ez new_s_a4ey
- of wild_a4eD { (# new_s_a4eK, a89_a4eL #) ->
- case (# GHC.Prim.State# GHC.Prim.RealWorld, () #) GHC.Prim.catch#
- @ ()
- @ GHC.IOBase.Exception
- GHC.TopHandler.ds
- GHC.TopHandler.k
- new_s_a4eK
- of wild1_a4eE { (# new_s1_a4eI, a891_a4eJ #) ->
- case (# GHC.Prim.State# GHC.Prim.RealWorld, () #) GHC.Prim.catch#
- @ ()
- @ GHC.IOBase.Exception
- GHC.TopHandler.ds1
- GHC.TopHandler.k1
- new_s1_a4eI
- of wild2_a4eF { (# new_s2_a4eG, a892_a4eH #) ->
- (# new_s2_a4eG, a89_a4eL #)
- }
- }
- }
- }
-
-:Main.main :: GHC.IOBase.IO ()
-[Exported]
-[Arity 1
- 0 -> *
- Str: DmdType L]
-:Main.main = \ (eta_a3VG :: GHC.Prim.State# GHC.Prim.RealWorld) ->
- GHC.Prim.catch#
- @ () @ GHC.IOBase.Exception lvl_s4q1 (GHC.TopHandler.topHandler @ ()) eta_a3VG
-
-
-
|