\(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 name_24 = \(!ok_25) (!inp_26) (!koByLabel_27) ->
                    let _ = "catchException lbl=fail"
                     in let catchHandler_28 (!failInp_29) (!farInp_30) (!farExp_31) =
                              let _ = "catchException.ko lbl=fail"
                               in if ( \( Data.Text.Internal.Text
                                            _
                                            i_32
                                            _
                                          )
                                        ( Data.Text.Internal.Text
                                            _
                                            j_33
                                            _
                                          ) -> i_32 GHC.Classes.== j_33
                                     )
                                    inp_26
                                    failInp_29
                                    then
                                      let _ = "choicesBranch.then"
                                       in let _ = "resume"
                                           in ok_25
                                                farInp_30
                                                farExp_31
                                                ( let _ = "resume.genCode"
                                                   in \x_34 -> x_34
                                                )
                                                failInp_29
                                    else
                                      let _ = "choicesBranch.else"
                                       in let (#
                                                farInp_35,
                                                farExp_36
                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_30 failInp_29 of
                                                  GHC.Types.LT ->
                                                    (#
                                                      failInp_29,
                                                      []
                                                    #)
                                                  GHC.Types.EQ ->
                                                    (#
                                                      farInp_30,
                                                      farExp_31 GHC.Base.<> []
                                                    #)
                                                  GHC.Types.GT ->
                                                    (#
                                                      farInp_30,
                                                      farExp_31
                                                    #)
                                           in finalRaise_18 failInp_29 farInp_35 farExp_36
                         in let readFail_37 = catchHandler_28
                             in if readMore_2 inp_26
                                  then
                                    let !(#
                                           c_38,
                                           cs_39
                                           #) = readNext_3 inp_26
                                     in if ('a' GHC.Classes.==) c_38
                                          then
                                            name_24
                                              ( let _ = "suspend"
                                                 in \farInp_40 farExp_41 v_42 (!inp_43) ->
                                                      let _ = "resume"
                                                       in ok_25
                                                            farInp_40
                                                            farExp_41
                                                            ( let _ = "resume.genCode"
                                                               in \x_44 -> 'a' GHC.Types.: v_42 x_44
                                                            )
                                                            inp_43
                                              )
                                              cs_39
                                              Data.Map.Internal.Tip
                                          else
                                            let _ = "checkToken.else"
                                             in let (#
                                                      farInp_45,
                                                      farExp_46
                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_26 of
                                                        GHC.Types.LT ->
                                                          (#
                                                            inp_26,
                                                            [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 readFail_37 inp_26 farInp_45 farExp_46
                                  else
                                    let _ = "checkHorizon.else"
                                     in let (#
                                              farInp_47,
                                              farExp_48
                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_26 of
                                                GHC.Types.LT ->
                                                  (#
                                                    inp_26,
                                                    [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 readFail_37 inp_26 farInp_47 farExp_48
               in name_24
                    ( let _ = "suspend"
                       in \farInp_49 farExp_50 v_51 (!inp_52) ->
                            let _ = "resume"
                             in finalRet_13
                                  farInp_49
                                  farExp_50
                                  ( let _ = "resume.genCode"
                                     in v_51 GHC.Types . []
                                  )
                                  inp_52
                    )
                    init_1
                    Data.Map.Internal.Tip