\(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 let (#
                                        farInp_32,
                                        farExp_33
                                        #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_30 inp_26 of
                                          GHC.Types.LT ->
                                            (#
                                              inp_26,
                                              []
                                            #)
                                          GHC.Types.EQ ->
                                            (#
                                              farInp_30,
                                              farExp_31 GHC.Base.<> []
                                            #)
                                          GHC.Types.GT ->
                                            (#
                                              farInp_30,
                                              farExp_31
                                            #)
                                   in finalRaise_18 inp_26 farInp_32 farExp_33
                         in let readFail_34 = catchHandler_28
                             in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 3 inp_26)
                                  then
                                    let !(#
                                           c_35,
                                           cs_36
                                           #) = readNext_3 inp_26
                                     in if ('a' GHC.Classes.==) c_35
                                          then
                                            let readFail_37 = readFail_34
                                             in let !(#
                                                       c_38,
                                                       cs_39
                                                       #) = readNext_3 cs_36
                                                 in if ('b' GHC.Classes.==) c_38
                                                      then
                                                        let readFail_40 = readFail_34
                                                         in let !(#
                                                                   c_41,
                                                                   cs_42
                                                                   #) = readNext_3 cs_39
                                                             in if ('c' GHC.Classes.==) c_41
                                                                  then
                                                                    let readFail_43 = readFail_34
                                                                     in let !(#
                                                                               c_44,
                                                                               cs_45
                                                                               #) = readNext_3 cs_42
                                                                         in if ('d' GHC.Classes.==) c_44
                                                                              then
                                                                                let _ = "resume"
                                                                                 in ok_25 init_1 GHC.Types
                                                                                      . []
                                                                                        ( let _ = "resume.genCode"
                                                                                           in 'a' GHC.Types.: ('b' GHC.Types.: ('c' GHC.Types.: ('d' GHC.Types.: GHC.Types . [])))
                                                                                        )
                                                                                        cs_45
                                                                              else
                                                                                let _ = "checkToken.else"
                                                                                 in let (#
                                                                                          farInp_46,
                                                                                          farExp_47
                                                                                          #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_42 of
                                                                                            GHC.Types.LT ->
                                                                                              (#
                                                                                                cs_42,
                                                                                                [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'd']
                                                                                              #)
                                                                                            GHC.Types.EQ ->
                                                                                              (#
                                                                                                init_1,
                                                                                                GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'd']
                                                                                              #)
                                                                                            GHC.Types.GT ->
                                                                                              (#
                                                                                                init_1,
                                                                                                GHC.Types . []
                                                                                              #)
                                                                                     in readFail_34 cs_42 farInp_46 farExp_47
                                                                  else
                                                                    let _ = "checkToken.else"
                                                                     in let (#
                                                                              farInp_48,
                                                                              farExp_49
                                                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_39 of
                                                                                GHC.Types.LT ->
                                                                                  (#
                                                                                    cs_39,
                                                                                    [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'c']
                                                                                  #)
                                                                                GHC.Types.EQ ->
                                                                                  (#
                                                                                    init_1,
                                                                                    GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'c']
                                                                                  #)
                                                                                GHC.Types.GT ->
                                                                                  (#
                                                                                    init_1,
                                                                                    GHC.Types . []
                                                                                  #)
                                                                         in readFail_34 cs_39 farInp_48 farExp_49
                                                      else
                                                        let _ = "checkToken.else"
                                                         in let (#
                                                                  farInp_50,
                                                                  farExp_51
                                                                  #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_36 of
                                                                    GHC.Types.LT ->
                                                                      (#
                                                                        cs_36,
                                                                        [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'b']
                                                                      #)
                                                                    GHC.Types.EQ ->
                                                                      (#
                                                                        init_1,
                                                                        GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'b']
                                                                      #)
                                                                    GHC.Types.GT ->
                                                                      (#
                                                                        init_1,
                                                                        GHC.Types . []
                                                                      #)
                                                             in readFail_34 cs_36 farInp_50 farExp_51
                                          else
                                            let _ = "checkToken.else"
                                             in let (#
                                                      farInp_52,
                                                      farExp_53
                                                      #) = 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_34 inp_26 farInp_52 farExp_53
                                  else
                                    let _ = "checkHorizon.else"
                                     in let (#
                                              farInp_54,
                                              farExp_55
                                              #) = 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 4]
                                                  #)
                                                GHC.Types.EQ ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
                                                  #)
                                                GHC.Types.GT ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . []
                                                  #)
                                         in readFail_34 inp_26 farInp_54 farExp_55
                  name_56 = \(!ok_57) (!inp_58) (!koByLabel_59) ->
                    let _ = "catchException lbl=fail"
                     in let catchHandler_60 (!failInp_61) (!farInp_62) (!farExp_63) =
                              let _ = "catchException.ko lbl=fail"
                               in if ( \( Data.Text.Internal.Text
                                            _
                                            i_64
                                            _
                                          )
                                        ( Data.Text.Internal.Text
                                            _
                                            j_65
                                            _
                                          ) -> i_64 GHC.Classes.== j_65
                                     )
                                    inp_58
                                    failInp_61
                                    then
                                      let _ = "choicesBranch.then"
                                       in let _ = "resume"
                                           in ok_57
                                                farInp_62
                                                farExp_63
                                                ( let _ = "resume.genCode"
                                                   in \x_66 -> x_66
                                                )
                                                failInp_61
                                    else
                                      let _ = "choicesBranch.else"
                                       in let (#
                                                farInp_67,
                                                farExp_68
                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_62 failInp_61 of
                                                  GHC.Types.LT ->
                                                    (#
                                                      failInp_61,
                                                      []
                                                    #)
                                                  GHC.Types.EQ ->
                                                    (#
                                                      farInp_62,
                                                      farExp_63 GHC.Base.<> []
                                                    #)
                                                  GHC.Types.GT ->
                                                    (#
                                                      farInp_62,
                                                      farExp_63
                                                    #)
                                           in finalRaise_18 failInp_61 farInp_67 farExp_68
                         in name_24
                              ( let _ = "suspend"
                                 in \farInp_69 farExp_70 v_71 (!inp_72) ->
                                      name_56
                                        ( let _ = "suspend"
                                           in \farInp_73 farExp_74 v_75 (!inp_76) ->
                                                let _ = "resume"
                                                 in ok_57
                                                      farInp_73
                                                      farExp_74
                                                      ( let _ = "resume.genCode"
                                                         in \x_77 -> v_71 GHC.Types.: v_75 x_77
                                                      )
                                                      inp_76
                                        )
                                        inp_72
                                        Data.Map.Internal.Tip
                              )
                              inp_58
                              Data.Map.Internal.Tip
               in name_24
                    ( let _ = "suspend"
                       in \farInp_78 farExp_79 v_80 (!inp_81) ->
                            name_56
                              ( let _ = "suspend"
                                 in \farInp_82 farExp_83 v_84 (!inp_85) ->
                                      let join_86 = \farInp_87 farExp_88 v_89 (!inp_90) ->
                                            let _ = "resume"
                                             in finalRet_13
                                                  farInp_87
                                                  farExp_88
                                                  ( let _ = "resume.genCode"
                                                     in v_80 GHC.Types.: v_84 GHC.Types . []
                                                  )
                                                  inp_90
                                       in let _ = "catchException lbl=fail"
                                           in let catchHandler_91 (!failInp_92) (!farInp_93) (!farExp_94) =
                                                    let _ = "catchException.ko lbl=fail"
                                                     in if ( \( Data.Text.Internal.Text
                                                                  _
                                                                  i_95
                                                                  _
                                                                )
                                                              ( Data.Text.Internal.Text
                                                                  _
                                                                  j_96
                                                                  _
                                                                ) -> i_95 GHC.Classes.== j_96
                                                           )
                                                          inp_85
                                                          failInp_92
                                                          then
                                                            let _ = "choicesBranch.then"
                                                             in let (#
                                                                      farInp_97,
                                                                      farExp_98
                                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_93 failInp_92 of
                                                                        GHC.Types.LT ->
                                                                          (#
                                                                            failInp_92,
                                                                            [Symantic.Parser.Grammar.Combinators.ErrorItemEnd]
                                                                          #)
                                                                        GHC.Types.EQ ->
                                                                          (#
                                                                            farInp_93,
                                                                            farExp_94 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemEnd]
                                                                          #)
                                                                        GHC.Types.GT ->
                                                                          (#
                                                                            farInp_93,
                                                                            farExp_94
                                                                          #)
                                                                 in finalRaise_18 failInp_92 farInp_97 farExp_98
                                                          else
                                                            let _ = "choicesBranch.else"
                                                             in let (#
                                                                      farInp_99,
                                                                      farExp_100
                                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_93 failInp_92 of
                                                                        GHC.Types.LT ->
                                                                          (#
                                                                            failInp_92,
                                                                            []
                                                                          #)
                                                                        GHC.Types.EQ ->
                                                                          (#
                                                                            farInp_93,
                                                                            farExp_94 GHC.Base.<> []
                                                                          #)
                                                                        GHC.Types.GT ->
                                                                          (#
                                                                            farInp_93,
                                                                            farExp_94
                                                                          #)
                                                                 in finalRaise_18 failInp_92 farInp_99 farExp_100
                                               in let _ = "catchException lbl=fail"
                                                   in let catchHandler_101 (!failInp_102) (!farInp_103) (!farExp_104) =
                                                            let _ = "catchException.ko lbl=fail"
                                                             in let _ = "resume"
                                                                 in join_86
                                                                      farInp_103
                                                                      farExp_104
                                                                      ( let _ = "resume.genCode"
                                                                         in GHC.Tuple . ()
                                                                      )
                                                                      inp_85
                                                       in let readFail_105 = catchHandler_101
                                                           in if readMore_2 inp_85
                                                                then
                                                                  let !(#
                                                                         c_106,
                                                                         cs_107
                                                                         #) = readNext_3 inp_85
                                                                   in if (\x_108 -> GHC.Types.True) c_106
                                                                        then
                                                                          let (#
                                                                                farInp_109,
                                                                                farExp_110
                                                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_82 inp_85 of
                                                                                  GHC.Types.LT ->
                                                                                    (#
                                                                                      inp_85,
                                                                                      []
                                                                                    #)
                                                                                  GHC.Types.EQ ->
                                                                                    (#
                                                                                      farInp_82,
                                                                                      farExp_83 GHC.Base.<> []
                                                                                    #)
                                                                                  GHC.Types.GT ->
                                                                                    (#
                                                                                      farInp_82,
                                                                                      farExp_83
                                                                                    #)
                                                                           in catchHandler_91 inp_85 farInp_109 farExp_110
                                                                        else
                                                                          let _ = "checkToken.else"
                                                                           in let (#
                                                                                    farInp_111,
                                                                                    farExp_112
                                                                                    #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_82 inp_85 of
                                                                                      GHC.Types.LT ->
                                                                                        (#
                                                                                          inp_85,
                                                                                          []
                                                                                        #)
                                                                                      GHC.Types.EQ ->
                                                                                        (#
                                                                                          farInp_82,
                                                                                          farExp_83 GHC.Base.<> []
                                                                                        #)
                                                                                      GHC.Types.GT ->
                                                                                        (#
                                                                                          farInp_82,
                                                                                          farExp_83
                                                                                        #)
                                                                               in readFail_105 inp_85 farInp_111 farExp_112
                                                                else
                                                                  let _ = "checkHorizon.else"
                                                                   in let (#
                                                                            farInp_113,
                                                                            farExp_114
                                                                            #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_82 inp_85 of
                                                                              GHC.Types.LT ->
                                                                                (#
                                                                                  inp_85,
                                                                                  [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
                                                                                #)
                                                                              GHC.Types.EQ ->
                                                                                (#
                                                                                  farInp_82,
                                                                                  farExp_83 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
                                                                                #)
                                                                              GHC.Types.GT ->
                                                                                (#
                                                                                  farInp_82,
                                                                                  farExp_83
                                                                                #)
                                                                       in readFail_105 inp_85 farInp_113 farExp_114
                              )
                              inp_81
                              Data.Map.Internal.Tip
                    )
                    init_1
                    Data.Map.Internal.Tip