\(input_0 :: inp_6989586621679059048) ->
  let !(#
         init_1,
         readMore_2,
         readNext_3
         #) =
          let _ = "cursorOf"
           in let next_4
                    ( t_5@( Data.Text.Internal.Text
                              arr_6
                              off_7
                              unconsumed_8
                            )
                      ) =
                      let !( Data.Text.Unsafe.Iter
                               c_9
                               d_10
                             ) = Data.Text.Unsafe.iter t_5 0
                       in (#
                            c_9,
                            Data.Text.Internal.Text arr_6 (off_7 GHC.Num.+ d_10) (unconsumed_8 GHC.Num.- d_10)
                          #)
                  more_11
                    ( Data.Text.Internal.Text
                        _
                        _
                        unconsumed_12
                      ) = unconsumed_12 GHC.Classes.> 0
               in (#
                    input_0,
                    more_11,
                    next_4
                  #)
   in let finalRet_13 = \_farInp_14 _farExp_15 v_16 _inp_17 -> Data.Either.Right v_16
       in let finalRaise_18 ::
                forall b_19.
                Symantic.Parser.Machine.Generate.Catcher
                  inp_6989586621679059048
                  b_19 = \_failInp_20 (!farInp_21) (!farExp_22) ->
                  Data.Either.Left
                    Symantic.Parser.Machine.Generate.ParsingErrorStandard
                      { Symantic.Parser.Machine.Generate.parsingErrorOffset = Symantic.Parser.Machine.Input.offset farInp_21,
                        Symantic.Parser.Machine.Generate.parsingErrorUnexpected =
                          if readMore_2 farInp_21
                            then
                              GHC.Maybe.Just
                                ( let (#
                                        c_23,
                                        _
                                        #) = readNext_3 farInp_21
                                   in c_23
                                )
                            else GHC.Maybe.Nothing,
                        Symantic.Parser.Machine.Generate.parsingErrorExpecting = Data.Set.Internal.fromList farExp_22
                      }
           in let
               in let readFail_24 = finalRaise_18
                   in if readMore_2 init_1
                        then
                          let !(#
                                 c_25,
                                 cs_26
                                 #) = readNext_3 init_1
                           in if ('a' GHC.Classes.==) c_25
                                then
                                  let _ = "resume"
                                   in finalRet_13 init_1 GHC.Types
                                        . []
                                          ( let _ = "resume.genCode"
                                             in 'a'
                                          )
                                          cs_26
                                else
                                  let _ = "checkToken.else"
                                   in let (#
                                            farInp_27,
                                            farExp_28
                                            #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 init_1 of
                                              GHC.Types.LT ->
                                                (#
                                                  init_1,
                                                  [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
                                                #)
                                              GHC.Types.EQ ->
                                                (#
                                                  init_1,
                                                  GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
                                                #)
                                              GHC.Types.GT ->
                                                (#
                                                  init_1,
                                                  GHC.Types . []
                                                #)
                                       in finalRaise_18 init_1 farInp_27 farExp_28
                        else
                          let _ = "checkHorizon.else"
                           in let (#
                                    farInp_29,
                                    farExp_30
                                    #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 init_1 of
                                      GHC.Types.LT ->
                                        (#
                                          init_1,
                                          [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
                                        #)
                                      GHC.Types.EQ ->
                                        (#
                                          init_1,
                                          GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
                                        #)
                                      GHC.Types.GT ->
                                        (#
                                          init_1,
                                          GHC.Types . []
                                        #)
                               in finalRaise_18 init_1 farInp_29 farExp_30