\(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 _ = "catchException lbl=fail"
                   in let catchHandler_24 (!failInp_25) (!farInp_26) (!farExp_27) =
                            let _ = "catchException.ko lbl=fail"
                             in if ( \( Data.Text.Internal.Text
                                          _
                                          i_28
                                          _
                                        )
                                      ( Data.Text.Internal.Text
                                          _
                                          j_29
                                          _
                                        ) -> i_28 GHC.Classes.== j_29
                                   )
                                  init_1
                                  failInp_25
                                  then
                                    let _ = "choicesBranch.then"
                                     in let _ = "catchException lbl=fail"
                                         in let catchHandler_30 (!failInp_31) (!farInp_32) (!farExp_33) =
                                                  let _ = "catchException.ko lbl=fail"
                                                   in let (#
                                                            farInp_34,
                                                            farExp_35
                                                            #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_32 failInp_25 of
                                                              GHC.Types.LT ->
                                                                (#
                                                                  failInp_25,
                                                                  []
                                                                #)
                                                              GHC.Types.EQ ->
                                                                (#
                                                                  farInp_32,
                                                                  farExp_33 GHC.Base.<> []
                                                                #)
                                                              GHC.Types.GT ->
                                                                (#
                                                                  farInp_32,
                                                                  farExp_33
                                                                #)
                                                       in finalRaise_18 failInp_25 farInp_34 farExp_35
                                             in let readFail_36 = catchHandler_30
                                                 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 failInp_25)
                                                      then
                                                        let !(#
                                                               c_37,
                                                               cs_38
                                                               #) = readNext_3 failInp_25
                                                         in if ('a' GHC.Classes.==) c_37
                                                              then
                                                                let readFail_39 = readFail_36
                                                                 in let !(#
                                                                           c_40,
                                                                           cs_41
                                                                           #) = readNext_3 cs_38
                                                                     in if ('b' GHC.Classes.==) c_40
                                                                          then
                                                                            let _ = "resume"
                                                                             in finalRet_13
                                                                                  farInp_26
                                                                                  farExp_27
                                                                                  ( let _ = "resume.genCode"
                                                                                     in 'a' GHC.Types.: ('b' GHC.Types.: GHC.Types . [])
                                                                                  )
                                                                                  cs_41
                                                                          else
                                                                            let _ = "checkToken.else"
                                                                             in let (#
                                                                                      farInp_42,
                                                                                      farExp_43
                                                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_26 cs_38 of
                                                                                        GHC.Types.LT ->
                                                                                          (#
                                                                                            cs_38,
                                                                                            [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'b']
                                                                                          #)
                                                                                        GHC.Types.EQ ->
                                                                                          (#
                                                                                            farInp_26,
                                                                                            farExp_27 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'b']
                                                                                          #)
                                                                                        GHC.Types.GT ->
                                                                                          (#
                                                                                            farInp_26,
                                                                                            farExp_27
                                                                                          #)
                                                                                 in readFail_36 cs_38 farInp_42 farExp_43
                                                              else
                                                                let _ = "checkToken.else"
                                                                 in let (#
                                                                          farInp_44,
                                                                          farExp_45
                                                                          #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_26 failInp_25 of
                                                                            GHC.Types.LT ->
                                                                              (#
                                                                                failInp_25,
                                                                                [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
                                                                              #)
                                                                            GHC.Types.EQ ->
                                                                              (#
                                                                                farInp_26,
                                                                                farExp_27 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
                                                                              #)
                                                                            GHC.Types.GT ->
                                                                              (#
                                                                                farInp_26,
                                                                                farExp_27
                                                                              #)
                                                                     in readFail_36 failInp_25 farInp_44 farExp_45
                                                      else
                                                        let _ = "checkHorizon.else"
                                                         in let (#
                                                                  farInp_46,
                                                                  farExp_47
                                                                  #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_26 failInp_25 of
                                                                    GHC.Types.LT ->
                                                                      (#
                                                                        failInp_25,
                                                                        [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
                                                                      #)
                                                                    GHC.Types.EQ ->
                                                                      (#
                                                                        farInp_26,
                                                                        farExp_27 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
                                                                      #)
                                                                    GHC.Types.GT ->
                                                                      (#
                                                                        farInp_26,
                                                                        farExp_27
                                                                      #)
                                                             in readFail_36 failInp_25 farInp_46 farExp_47
                                  else
                                    let _ = "choicesBranch.else"
                                     in let (#
                                              farInp_48,
                                              farExp_49
                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_26 failInp_25 of
                                                GHC.Types.LT ->
                                                  (#
                                                    failInp_25,
                                                    []
                                                  #)
                                                GHC.Types.EQ ->
                                                  (#
                                                    farInp_26,
                                                    farExp_27 GHC.Base.<> []
                                                  #)
                                                GHC.Types.GT ->
                                                  (#
                                                    farInp_26,
                                                    farExp_27
                                                  #)
                                         in finalRaise_18 failInp_25 farInp_48 farExp_49
                       in let _ = "catchException lbl=fail"
                           in let catchHandler_50 (!failInp_51) (!farInp_52) (!farExp_53) =
                                    let _ = "catchException.ko lbl=fail"
                                     in let (#
                                              farInp_54,
                                              farExp_55
                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_52 init_1 of
                                                GHC.Types.LT ->
                                                  (#
                                                    init_1,
                                                    []
                                                  #)
                                                GHC.Types.EQ ->
                                                  (#
                                                    farInp_52,
                                                    farExp_53 GHC.Base.<> []
                                                  #)
                                                GHC.Types.GT ->
                                                  (#
                                                    farInp_52,
                                                    farExp_53
                                                  #)
                                         in catchHandler_24 init_1 farInp_54 farExp_55
                               in let readFail_56 = catchHandler_50
                                   in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 init_1)
                                        then
                                          let !(#
                                                 c_57,
                                                 cs_58
                                                 #) = readNext_3 init_1
                                           in if ('a' GHC.Classes.==) c_57
                                                then
                                                  let readFail_59 = readFail_56
                                                   in let !(#
                                                             c_60,
                                                             cs_61
                                                             #) = readNext_3 cs_58
                                                       in if ('a' GHC.Classes.==) c_60
                                                            then
                                                              let _ = "resume"
                                                               in finalRet_13 init_1 GHC.Types
                                                                    . []
                                                                      ( let _ = "resume.genCode"
                                                                         in 'a' GHC.Types.: ('a' GHC.Types.: GHC.Types . [])
                                                                      )
                                                                      cs_61
                                                            else
                                                              let _ = "checkToken.else"
                                                               in let (#
                                                                        farInp_62,
                                                                        farExp_63
                                                                        #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_58 of
                                                                          GHC.Types.LT ->
                                                                            (#
                                                                              cs_58,
                                                                              [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_56 cs_58 farInp_62 farExp_63
                                                else
                                                  let _ = "checkToken.else"
                                                   in let (#
                                                            farInp_64,
                                                            farExp_65
                                                            #) = 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 readFail_56 init_1 farInp_64 farExp_65
                                        else
                                          let _ = "checkHorizon.else"
                                           in let (#
                                                    farInp_66,
                                                    farExp_67
                                                    #) = 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 2]
                                                        #)
                                                      GHC.Types.EQ ->
                                                        (#
                                                          init_1,
                                                          GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
                                                        #)
                                                      GHC.Types.GT ->
                                                        (#
                                                          init_1,
                                                          GHC.Types . []
                                                        #)
                                               in readFail_56 init_1 farInp_66 farExp_67