\(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 name_34
                                            ( let _ = "suspend"
                                               in \farInp_35 farExp_36 v_37 (!inp_38) ->
                                                    let join_39 = \farInp_40 farExp_41 v_42 (!inp_43) ->
                                                          let _ = "resume"
                                                           in ok_25
                                                                farInp_40
                                                                farExp_41
                                                                ( let _ = "resume.genCode"
                                                                   in v_42
                                                                )
                                                                inp_43
                                                     in let _ = "catchException lbl=fail"
                                                         in let catchHandler_44 (!failInp_45) (!farInp_46) (!farExp_47) =
                                                                  let _ = "catchException.ko lbl=fail"
                                                                   in if ( \( Data.Text.Internal.Text
                                                                                _
                                                                                i_48
                                                                                _
                                                                              )
                                                                            ( Data.Text.Internal.Text
                                                                                _
                                                                                j_49
                                                                                _
                                                                              ) -> i_48 GHC.Classes.== j_49
                                                                         )
                                                                        inp_38
                                                                        failInp_45
                                                                        then
                                                                          let _ = "choicesBranch.then"
                                                                           in name_50
                                                                                ( let _ = "suspend"
                                                                                   in \farInp_51 farExp_52 v_53 (!inp_54) ->
                                                                                        let _ = "resume"
                                                                                         in join_39
                                                                                              farInp_51
                                                                                              farExp_52
                                                                                              ( let _ = "resume.genCode"
                                                                                                 in v_53
                                                                                              )
                                                                                              inp_54
                                                                                )
                                                                                failInp_45
                                                                                Data.Map.Internal.Tip
                                                                        else
                                                                          let _ = "choicesBranch.else"
                                                                           in let (#
                                                                                    farInp_55,
                                                                                    farExp_56
                                                                                    #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_46 failInp_45 of
                                                                                      GHC.Types.LT ->
                                                                                        (#
                                                                                          failInp_45,
                                                                                          []
                                                                                        #)
                                                                                      GHC.Types.EQ ->
                                                                                        (#
                                                                                          farInp_46,
                                                                                          farExp_47 GHC.Base.<> []
                                                                                        #)
                                                                                      GHC.Types.GT ->
                                                                                        (#
                                                                                          farInp_46,
                                                                                          farExp_47
                                                                                        #)
                                                                               in finalRaise_18 failInp_45 farInp_55 farExp_56
                                                             in let join_57 = \farInp_58 farExp_59 v_60 (!inp_61) ->
                                                                      let _ = "resume"
                                                                       in join_39
                                                                            farInp_58
                                                                            farExp_59
                                                                            ( let _ = "resume.genCode"
                                                                               in GHC.Tuple . ()
                                                                            )
                                                                            inp_61
                                                                 in let _ = "catchException lbl=fail"
                                                                     in let catchHandler_62 (!failInp_63) (!farInp_64) (!farExp_65) =
                                                                              let _ = "catchException.ko lbl=fail"
                                                                               in if ( \( Data.Text.Internal.Text
                                                                                            _
                                                                                            i_66
                                                                                            _
                                                                                          )
                                                                                        ( Data.Text.Internal.Text
                                                                                            _
                                                                                            j_67
                                                                                            _
                                                                                          ) -> i_66 GHC.Classes.== j_67
                                                                                     )
                                                                                    inp_38
                                                                                    failInp_63
                                                                                    then
                                                                                      let _ = "choicesBranch.then"
                                                                                       in name_68
                                                                                            ( let _ = "suspend"
                                                                                               in \farInp_69 farExp_70 v_71 (!inp_72) ->
                                                                                                    let _ = "resume"
                                                                                                     in join_57
                                                                                                          farInp_69
                                                                                                          farExp_70
                                                                                                          ( let _ = "resume.genCode"
                                                                                                             in v_71
                                                                                                          )
                                                                                                          inp_72
                                                                                            )
                                                                                            failInp_63
                                                                                            (Data.Map.Internal.Bin 1 "fail" catchHandler_44 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                                                                    else
                                                                                      let _ = "choicesBranch.else"
                                                                                       in let (#
                                                                                                farInp_73,
                                                                                                farExp_74
                                                                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_64 failInp_63 of
                                                                                                  GHC.Types.LT ->
                                                                                                    (#
                                                                                                      failInp_63,
                                                                                                      []
                                                                                                    #)
                                                                                                  GHC.Types.EQ ->
                                                                                                    (#
                                                                                                      farInp_64,
                                                                                                      farExp_65 GHC.Base.<> []
                                                                                                    #)
                                                                                                  GHC.Types.GT ->
                                                                                                    (#
                                                                                                      farInp_64,
                                                                                                      farExp_65
                                                                                                    #)
                                                                                           in catchHandler_44 failInp_63 farInp_73 farExp_74
                                                                         in name_75
                                                                              ( let _ = "suspend"
                                                                                 in \farInp_76 farExp_77 v_78 (!inp_79) ->
                                                                                      let join_80 = \farInp_81 farExp_82 v_83 (!inp_84) ->
                                                                                            name_85
                                                                                              ( let _ = "suspend"
                                                                                                 in \farInp_86 farExp_87 v_88 (!inp_89) ->
                                                                                                      let _ = "resume"
                                                                                                       in join_57
                                                                                                            farInp_86
                                                                                                            farExp_87
                                                                                                            ( let _ = "resume.genCode"
                                                                                                               in v_83
                                                                                                            )
                                                                                                            inp_89
                                                                                              )
                                                                                              inp_84
                                                                                              (Data.Map.Internal.Bin 1 "fail" catchHandler_62 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                                                                       in let _ = "catchException lbl=fail"
                                                                                           in let catchHandler_90 (!failInp_91) (!farInp_92) (!farExp_93) =
                                                                                                    let _ = "catchException.ko lbl=fail"
                                                                                                     in if ( \( Data.Text.Internal.Text
                                                                                                                  _
                                                                                                                  i_94
                                                                                                                  _
                                                                                                                )
                                                                                                              ( Data.Text.Internal.Text
                                                                                                                  _
                                                                                                                  j_95
                                                                                                                  _
                                                                                                                ) -> i_94 GHC.Classes.== j_95
                                                                                                           )
                                                                                                          inp_79
                                                                                                          failInp_91
                                                                                                          then
                                                                                                            let _ = "choicesBranch.then"
                                                                                                             in name_50
                                                                                                                  ( let _ = "suspend"
                                                                                                                     in \farInp_96 farExp_97 v_98 (!inp_99) ->
                                                                                                                          let _ = "resume"
                                                                                                                           in join_80
                                                                                                                                farInp_96
                                                                                                                                farExp_97
                                                                                                                                ( let _ = "resume.genCode"
                                                                                                                                   in v_98
                                                                                                                                )
                                                                                                                                inp_99
                                                                                                                  )
                                                                                                                  failInp_91
                                                                                                                  Data.Map.Internal.Tip
                                                                                                          else
                                                                                                            let _ = "choicesBranch.else"
                                                                                                             in let (#
                                                                                                                      farInp_100,
                                                                                                                      farExp_101
                                                                                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_92 failInp_91 of
                                                                                                                        GHC.Types.LT ->
                                                                                                                          (#
                                                                                                                            failInp_91,
                                                                                                                            []
                                                                                                                          #)
                                                                                                                        GHC.Types.EQ ->
                                                                                                                          (#
                                                                                                                            farInp_92,
                                                                                                                            farExp_93 GHC.Base.<> []
                                                                                                                          #)
                                                                                                                        GHC.Types.GT ->
                                                                                                                          (#
                                                                                                                            farInp_92,
                                                                                                                            farExp_93
                                                                                                                          #)
                                                                                                                 in catchHandler_62 failInp_91 farInp_100 farExp_101
                                                                                               in name_102
                                                                                                    ( let _ = "suspend"
                                                                                                       in \farInp_103 farExp_104 v_105 (!inp_106) ->
                                                                                                            name_50
                                                                                                              ( let _ = "suspend"
                                                                                                                 in \farInp_107 farExp_108 v_109 (!inp_110) ->
                                                                                                                      name_111
                                                                                                                        ( let _ = "suspend"
                                                                                                                           in \farInp_112 farExp_113 v_114 (!inp_115) ->
                                                                                                                                name_50
                                                                                                                                  ( let _ = "suspend"
                                                                                                                                     in \farInp_116 farExp_117 v_118 (!inp_119) ->
                                                                                                                                          let _ = "resume"
                                                                                                                                           in join_80
                                                                                                                                                farInp_116
                                                                                                                                                farExp_117
                                                                                                                                                ( let _ = "resume.genCode"
                                                                                                                                                   in GHC.Tuple . ()
                                                                                                                                                )
                                                                                                                                                inp_119
                                                                                                                                  )
                                                                                                                                  inp_115
                                                                                                                                  Data.Map.Internal.Tip
                                                                                                                        )
                                                                                                                        inp_110
                                                                                                                        Data.Map.Internal.Tip
                                                                                                              )
                                                                                                              inp_106
                                                                                                              Data.Map.Internal.Tip
                                                                                                    )
                                                                                                    inp_79
                                                                                                    Data.Map.Internal.Tip
                                                                              )
                                                                              inp_38
                                                                              (Data.Map.Internal.Bin 1 "fail" catchHandler_62 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                            )
                                            failInp_29
                                            Data.Map.Internal.Tip
                                    else
                                      let _ = "choicesBranch.else"
                                       in let (#
                                                farInp_120,
                                                farExp_121
                                                #) = 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_120 farExp_121
                         in let join_122 = \farInp_123 farExp_124 v_125 (!inp_126) ->
                                  let _ = "resume"
                                   in ok_25
                                        farInp_123
                                        farExp_124
                                        ( let _ = "resume.genCode"
                                           in v_125
                                        )
                                        inp_126
                             in let _ = "catchException lbl=fail"
                                 in let catchHandler_127 (!failInp_128) (!farInp_129) (!farExp_130) =
                                          let _ = "catchException.ko lbl=fail"
                                           in if ( \( Data.Text.Internal.Text
                                                        _
                                                        i_131
                                                        _
                                                      )
                                                    ( Data.Text.Internal.Text
                                                        _
                                                        j_132
                                                        _
                                                      ) -> i_131 GHC.Classes.== j_132
                                                 )
                                                inp_26
                                                failInp_128
                                                then
                                                  let _ = "choicesBranch.then"
                                                   in let readFail_133 = catchHandler_28
                                                       in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 3 failInp_128)
                                                            then
                                                              let !(#
                                                                     c_134,
                                                                     cs_135
                                                                     #) = readNext_3 failInp_128
                                                               in if ('\'' GHC.Classes.==) c_134
                                                                    then
                                                                      let join_136 = \farInp_137 farExp_138 v_139 (!inp_140) ->
                                                                            let readFail_141 = readFail_133
                                                                             in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_140)
                                                                                  then
                                                                                    let !(#
                                                                                           c_142,
                                                                                           cs_143
                                                                                           #) = readNext_3 inp_140
                                                                                     in if ('\'' GHC.Classes.==) c_142
                                                                                          then
                                                                                            name_144
                                                                                              ( let _ = "suspend"
                                                                                                 in \farInp_145 farExp_146 v_147 (!inp_148) ->
                                                                                                      let _ = "resume"
                                                                                                       in join_122
                                                                                                            farInp_145
                                                                                                            farExp_146
                                                                                                            ( let _ = "resume.genCode"
                                                                                                               in v_139
                                                                                                            )
                                                                                                            inp_148
                                                                                              )
                                                                                              cs_143
                                                                                              (Data.Map.Internal.Bin 1 "fail" readFail_141 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                                                                          else
                                                                                            let _ = "checkToken.else"
                                                                                             in let (#
                                                                                                      farInp_149,
                                                                                                      farExp_150
                                                                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_137 inp_140 of
                                                                                                        GHC.Types.LT ->
                                                                                                          (#
                                                                                                            inp_140,
                                                                                                            [Symantic.Parser.Grammar.Combinators.ErrorItemToken '\'']
                                                                                                          #)
                                                                                                        GHC.Types.EQ ->
                                                                                                          (#
                                                                                                            farInp_137,
                                                                                                            farExp_138 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '\'']
                                                                                                          #)
                                                                                                        GHC.Types.GT ->
                                                                                                          (#
                                                                                                            farInp_137,
                                                                                                            farExp_138
                                                                                                          #)
                                                                                                 in readFail_141 inp_140 farInp_149 farExp_150
                                                                                  else
                                                                                    let _ = "checkHorizon.else"
                                                                                     in let (#
                                                                                              farInp_151,
                                                                                              farExp_152
                                                                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_137 inp_140 of
                                                                                                GHC.Types.LT ->
                                                                                                  (#
                                                                                                    inp_140,
                                                                                                    [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
                                                                                                  #)
                                                                                                GHC.Types.EQ ->
                                                                                                  (#
                                                                                                    farInp_137,
                                                                                                    farExp_138 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
                                                                                                  #)
                                                                                                GHC.Types.GT ->
                                                                                                  (#
                                                                                                    farInp_137,
                                                                                                    farExp_138
                                                                                                  #)
                                                                                         in readFail_141 inp_140 farInp_151 farExp_152
                                                                       in let _ = "catchException lbl=fail"
                                                                           in let catchHandler_153 (!failInp_154) (!farInp_155) (!farExp_156) =
                                                                                    let _ = "catchException.ko lbl=fail"
                                                                                     in if ( \( Data.Text.Internal.Text
                                                                                                  _
                                                                                                  i_157
                                                                                                  _
                                                                                                )
                                                                                              ( Data.Text.Internal.Text
                                                                                                  _
                                                                                                  j_158
                                                                                                  _
                                                                                                ) -> i_157 GHC.Classes.== j_158
                                                                                           )
                                                                                          cs_135
                                                                                          failInp_154
                                                                                          then
                                                                                            let _ = "choicesBranch.then"
                                                                                             in let readFail_159 = readFail_133
                                                                                                 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 3 failInp_154)
                                                                                                      then
                                                                                                        let !(#
                                                                                                               c_160,
                                                                                                               cs_161
                                                                                                               #) = readNext_3 failInp_154
                                                                                                         in if ('\\' GHC.Classes.==) c_160
                                                                                                              then
                                                                                                                let readFail_162 = readFail_159
                                                                                                                 in let !(#
                                                                                                                           c_163,
                                                                                                                           cs_164
                                                                                                                           #) = readNext_3 cs_161
                                                                                                                     in if (\t_165 -> ('0' GHC.Classes.== t_165) GHC.Classes.|| (('t' GHC.Classes.== t_165) GHC.Classes.|| (('n' GHC.Classes.== t_165) GHC.Classes.|| (('v' GHC.Classes.== t_165) GHC.Classes.|| (('f' GHC.Classes.== t_165) GHC.Classes.|| (('r' GHC.Classes.== t_165) GHC.Classes.|| GHC.Types.False)))))) c_163
                                                                                                                          then
                                                                                                                            name_50
                                                                                                                              ( let _ = "suspend"
                                                                                                                                 in \farInp_166 farExp_167 v_168 (!inp_169) ->
                                                                                                                                      let _ = "resume"
                                                                                                                                       in join_136
                                                                                                                                            farInp_166
                                                                                                                                            farExp_167
                                                                                                                                            ( let _ = "resume.genCode"
                                                                                                                                               in v_168
                                                                                                                                            )
                                                                                                                                            inp_169
                                                                                                                              )
                                                                                                                              cs_164
                                                                                                                              Data.Map.Internal.Tip
                                                                                                                          else
                                                                                                                            let _ = "checkToken.else"
                                                                                                                             in let (#
                                                                                                                                      farInp_170,
                                                                                                                                      farExp_171
                                                                                                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_155 cs_161 of
                                                                                                                                        GHC.Types.LT ->
                                                                                                                                          (#
                                                                                                                                            cs_161,
                                                                                                                                            [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "oneOf"]
                                                                                                                                          #)
                                                                                                                                        GHC.Types.EQ ->
                                                                                                                                          (#
                                                                                                                                            farInp_155,
                                                                                                                                            farExp_156 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "oneOf"]
                                                                                                                                          #)
                                                                                                                                        GHC.Types.GT ->
                                                                                                                                          (#
                                                                                                                                            farInp_155,
                                                                                                                                            farExp_156
                                                                                                                                          #)
                                                                                                                                 in readFail_159 cs_161 farInp_170 farExp_171
                                                                                                              else
                                                                                                                let _ = "checkToken.else"
                                                                                                                 in let (#
                                                                                                                          farInp_172,
                                                                                                                          farExp_173
                                                                                                                          #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_155 failInp_154 of
                                                                                                                            GHC.Types.LT ->
                                                                                                                              (#
                                                                                                                                failInp_154,
                                                                                                                                [Symantic.Parser.Grammar.Combinators.ErrorItemToken '\\']
                                                                                                                              #)
                                                                                                                            GHC.Types.EQ ->
                                                                                                                              (#
                                                                                                                                farInp_155,
                                                                                                                                farExp_156 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '\\']
                                                                                                                              #)
                                                                                                                            GHC.Types.GT ->
                                                                                                                              (#
                                                                                                                                farInp_155,
                                                                                                                                farExp_156
                                                                                                                              #)
                                                                                                                     in readFail_159 failInp_154 farInp_172 farExp_173
                                                                                                      else
                                                                                                        let _ = "checkHorizon.else"
                                                                                                         in let (#
                                                                                                                  farInp_174,
                                                                                                                  farExp_175
                                                                                                                  #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_155 failInp_154 of
                                                                                                                    GHC.Types.LT ->
                                                                                                                      (#
                                                                                                                        failInp_154,
                                                                                                                        [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
                                                                                                                      #)
                                                                                                                    GHC.Types.EQ ->
                                                                                                                      (#
                                                                                                                        farInp_155,
                                                                                                                        farExp_156 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
                                                                                                                      #)
                                                                                                                    GHC.Types.GT ->
                                                                                                                      (#
                                                                                                                        farInp_155,
                                                                                                                        farExp_156
                                                                                                                      #)
                                                                                                             in readFail_159 failInp_154 farInp_174 farExp_175
                                                                                          else
                                                                                            let _ = "choicesBranch.else"
                                                                                             in let (#
                                                                                                      farInp_176,
                                                                                                      farExp_177
                                                                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_155 failInp_154 of
                                                                                                        GHC.Types.LT ->
                                                                                                          (#
                                                                                                            failInp_154,
                                                                                                            []
                                                                                                          #)
                                                                                                        GHC.Types.EQ ->
                                                                                                          (#
                                                                                                            farInp_155,
                                                                                                            farExp_156 GHC.Base.<> []
                                                                                                          #)
                                                                                                        GHC.Types.GT ->
                                                                                                          (#
                                                                                                            farInp_155,
                                                                                                            farExp_156
                                                                                                          #)
                                                                                                 in readFail_133 failInp_154 farInp_176 farExp_177
                                                                               in let readFail_178 = catchHandler_153
                                                                                   in let !(#
                                                                                             c_179,
                                                                                             cs_180
                                                                                             #) = readNext_3 cs_135
                                                                                       in if Grammar.Nandlang.nandStringLetter c_179
                                                                                            then
                                                                                              name_50
                                                                                                ( let _ = "suspend"
                                                                                                   in \farInp_181 farExp_182 v_183 (!inp_184) ->
                                                                                                        let _ = "resume"
                                                                                                         in join_136
                                                                                                              farInp_181
                                                                                                              farExp_182
                                                                                                              ( let _ = "resume.genCode"
                                                                                                                 in v_183
                                                                                                              )
                                                                                                              inp_184
                                                                                                )
                                                                                                cs_180
                                                                                                Data.Map.Internal.Tip
                                                                                            else
                                                                                              let _ = "checkToken.else"
                                                                                               in let (#
                                                                                                        farInp_185,
                                                                                                        farExp_186
                                                                                                        #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_129 cs_135 of
                                                                                                          GHC.Types.LT ->
                                                                                                            (#
                                                                                                              cs_135,
                                                                                                              [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "Char"]
                                                                                                            #)
                                                                                                          GHC.Types.EQ ->
                                                                                                            (#
                                                                                                              farInp_129,
                                                                                                              farExp_130 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "Char"]
                                                                                                            #)
                                                                                                          GHC.Types.GT ->
                                                                                                            (#
                                                                                                              farInp_129,
                                                                                                              farExp_130
                                                                                                            #)
                                                                                                   in catchHandler_153 cs_135 farInp_185 farExp_186
                                                                    else
                                                                      let _ = "checkToken.else"
                                                                       in let (#
                                                                                farInp_187,
                                                                                farExp_188
                                                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_129 failInp_128 of
                                                                                  GHC.Types.LT ->
                                                                                    (#
                                                                                      failInp_128,
                                                                                      [Symantic.Parser.Grammar.Combinators.ErrorItemToken '\'']
                                                                                    #)
                                                                                  GHC.Types.EQ ->
                                                                                    (#
                                                                                      farInp_129,
                                                                                      farExp_130 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '\'']
                                                                                    #)
                                                                                  GHC.Types.GT ->
                                                                                    (#
                                                                                      farInp_129,
                                                                                      farExp_130
                                                                                    #)
                                                                           in readFail_133 failInp_128 farInp_187 farExp_188
                                                            else
                                                              let _ = "checkHorizon.else"
                                                               in let (#
                                                                        farInp_189,
                                                                        farExp_190
                                                                        #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_129 failInp_128 of
                                                                          GHC.Types.LT ->
                                                                            (#
                                                                              failInp_128,
                                                                              [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
                                                                            #)
                                                                          GHC.Types.EQ ->
                                                                            (#
                                                                              farInp_129,
                                                                              farExp_130 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
                                                                            #)
                                                                          GHC.Types.GT ->
                                                                            (#
                                                                              farInp_129,
                                                                              farExp_130
                                                                            #)
                                                                   in readFail_133 failInp_128 farInp_189 farExp_190
                                                else
                                                  let _ = "choicesBranch.else"
                                                   in let (#
                                                            farInp_191,
                                                            farExp_192
                                                            #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_129 failInp_128 of
                                                              GHC.Types.LT ->
                                                                (#
                                                                  failInp_128,
                                                                  []
                                                                #)
                                                              GHC.Types.EQ ->
                                                                (#
                                                                  farInp_129,
                                                                  farExp_130 GHC.Base.<> []
                                                                #)
                                                              GHC.Types.GT ->
                                                                (#
                                                                  farInp_129,
                                                                  farExp_130
                                                                #)
                                                       in catchHandler_28 failInp_128 farInp_191 farExp_192
                                     in let join_193 = \farInp_194 farExp_195 v_196 (!inp_197) ->
                                              name_144
                                                ( let _ = "suspend"
                                                   in \farInp_198 farExp_199 v_200 (!inp_201) ->
                                                        let _ = "resume"
                                                         in join_122
                                                              farInp_198
                                                              farExp_199
                                                              ( let _ = "resume.genCode"
                                                                 in v_200
                                                              )
                                                              inp_201
                                                )
                                                inp_197
                                                (Data.Map.Internal.Bin 1 "fail" catchHandler_127 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                         in let _ = "catchException lbl=fail"
                                             in let catchHandler_202 (!failInp_203) (!farInp_204) (!farExp_205) =
                                                      let _ = "catchException.ko lbl=fail"
                                                       in if ( \( Data.Text.Internal.Text
                                                                    _
                                                                    i_206
                                                                    _
                                                                  )
                                                                ( Data.Text.Internal.Text
                                                                    _
                                                                    j_207
                                                                    _
                                                                  ) -> i_206 GHC.Classes.== j_207
                                                             )
                                                            inp_26
                                                            failInp_203
                                                            then
                                                              let _ = "choicesBranch.then"
                                                               in let readFail_208 = catchHandler_127
                                                                   in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 failInp_203)
                                                                        then
                                                                          let !(#
                                                                                 c_209,
                                                                                 cs_210
                                                                                 #) = readNext_3 failInp_203
                                                                           in if ('1' GHC.Classes.==) c_209
                                                                                then
                                                                                  let _ = "resume"
                                                                                   in join_193
                                                                                        farInp_204
                                                                                        farExp_205
                                                                                        ( let _ = "resume.genCode"
                                                                                           in '1'
                                                                                        )
                                                                                        cs_210
                                                                                else
                                                                                  let _ = "checkToken.else"
                                                                                   in let (#
                                                                                            farInp_211,
                                                                                            farExp_212
                                                                                            #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_204 failInp_203 of
                                                                                              GHC.Types.LT ->
                                                                                                (#
                                                                                                  failInp_203,
                                                                                                  [Symantic.Parser.Grammar.Combinators.ErrorItemToken '1']
                                                                                                #)
                                                                                              GHC.Types.EQ ->
                                                                                                (#
                                                                                                  farInp_204,
                                                                                                  farExp_205 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '1']
                                                                                                #)
                                                                                              GHC.Types.GT ->
                                                                                                (#
                                                                                                  farInp_204,
                                                                                                  farExp_205
                                                                                                #)
                                                                                       in readFail_208 failInp_203 farInp_211 farExp_212
                                                                        else
                                                                          let _ = "checkHorizon.else"
                                                                           in let (#
                                                                                    farInp_213,
                                                                                    farExp_214
                                                                                    #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_204 failInp_203 of
                                                                                      GHC.Types.LT ->
                                                                                        (#
                                                                                          failInp_203,
                                                                                          [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
                                                                                        #)
                                                                                      GHC.Types.EQ ->
                                                                                        (#
                                                                                          farInp_204,
                                                                                          farExp_205 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
                                                                                        #)
                                                                                      GHC.Types.GT ->
                                                                                        (#
                                                                                          farInp_204,
                                                                                          farExp_205
                                                                                        #)
                                                                               in readFail_208 failInp_203 farInp_213 farExp_214
                                                            else
                                                              let _ = "choicesBranch.else"
                                                               in let (#
                                                                        farInp_215,
                                                                        farExp_216
                                                                        #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_204 failInp_203 of
                                                                          GHC.Types.LT ->
                                                                            (#
                                                                              failInp_203,
                                                                              []
                                                                            #)
                                                                          GHC.Types.EQ ->
                                                                            (#
                                                                              farInp_204,
                                                                              farExp_205 GHC.Base.<> []
                                                                            #)
                                                                          GHC.Types.GT ->
                                                                            (#
                                                                              farInp_204,
                                                                              farExp_205
                                                                            #)
                                                                   in catchHandler_127 failInp_203 farInp_215 farExp_216
                                                 in let readFail_217 = catchHandler_202
                                                     in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_26)
                                                          then
                                                            let !(#
                                                                   c_218,
                                                                   cs_219
                                                                   #) = readNext_3 inp_26
                                                             in if ('0' GHC.Classes.==) c_218
                                                                  then
                                                                    let _ = "resume"
                                                                     in join_193 init_1 GHC.Types
                                                                          . []
                                                                            ( let _ = "resume.genCode"
                                                                               in '0'
                                                                            )
                                                                            cs_219
                                                                  else
                                                                    let _ = "checkToken.else"
                                                                     in let (#
                                                                              farInp_220,
                                                                              farExp_221
                                                                              #) = 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 '0']
                                                                                  #)
                                                                                GHC.Types.EQ ->
                                                                                  (#
                                                                                    init_1,
                                                                                    GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '0']
                                                                                  #)
                                                                                GHC.Types.GT ->
                                                                                  (#
                                                                                    init_1,
                                                                                    GHC.Types . []
                                                                                  #)
                                                                         in readFail_217 inp_26 farInp_220 farExp_221
                                                          else
                                                            let _ = "checkHorizon.else"
                                                             in let (#
                                                                      farInp_222,
                                                                      farExp_223
                                                                      #) = 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 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_217 inp_26 farInp_222 farExp_223
                  name_224 = \(!ok_225) (!inp_226) (!koByLabel_227) ->
                    let _ = "catchException lbl=fail"
                     in let catchHandler_228 (!failInp_229) (!farInp_230) (!farExp_231) =
                              let _ = "catchException.ko lbl=fail"
                               in if ( \( Data.Text.Internal.Text
                                            _
                                            i_232
                                            _
                                          )
                                        ( Data.Text.Internal.Text
                                            _
                                            j_233
                                            _
                                          ) -> i_232 GHC.Classes.== j_233
                                     )
                                    inp_226
                                    failInp_229
                                    then
                                      let _ = "choicesBranch.then"
                                       in let _ = "resume"
                                           in ok_225
                                                farInp_230
                                                farExp_231
                                                ( let _ = "resume.genCode"
                                                   in \x_234 -> x_234
                                                )
                                                failInp_229
                                    else
                                      let _ = "choicesBranch.else"
                                       in let (#
                                                farInp_235,
                                                farExp_236
                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_230 failInp_229 of
                                                  GHC.Types.LT ->
                                                    (#
                                                      failInp_229,
                                                      []
                                                    #)
                                                  GHC.Types.EQ ->
                                                    (#
                                                      farInp_230,
                                                      farExp_231 GHC.Base.<> []
                                                    #)
                                                  GHC.Types.GT ->
                                                    (#
                                                      farInp_230,
                                                      farExp_231
                                                    #)
                                           in finalRaise_18 failInp_229 farInp_235 farExp_236
                         in name_237
                              ( let _ = "suspend"
                                 in \farInp_238 farExp_239 v_240 (!inp_241) ->
                                      name_242
                                        ( let _ = "suspend"
                                           in \farInp_243 farExp_244 v_245 (!inp_246) ->
                                                name_102
                                                  ( let _ = "suspend"
                                                     in \farInp_247 farExp_248 v_249 (!inp_250) ->
                                                          name_224
                                                            ( let _ = "suspend"
                                                               in \farInp_251 farExp_252 v_253 (!inp_254) ->
                                                                    let _ = "resume"
                                                                     in ok_225
                                                                          farInp_251
                                                                          farExp_252
                                                                          ( let _ = "resume.genCode"
                                                                             in \x_255 -> v_240 v_249 (v_253 x_255)
                                                                          )
                                                                          inp_254
                                                            )
                                                            inp_250
                                                            Data.Map.Internal.Tip
                                                  )
                                                  inp_246
                                                  Data.Map.Internal.Tip
                                        )
                                        inp_241
                                        (Data.Map.Internal.Bin 1 "fail" catchHandler_228 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                              )
                              inp_226
                              Data.Map.Internal.Tip
                  name_256 = \(!ok_257) (!inp_258) (!koByLabel_259) ->
                    let _ = "catchException lbl=fail"
                     in let catchHandler_260 (!failInp_261) (!farInp_262) (!farExp_263) =
                              let _ = "catchException.ko lbl=fail"
                               in if ( \( Data.Text.Internal.Text
                                            _
                                            i_264
                                            _
                                          )
                                        ( Data.Text.Internal.Text
                                            _
                                            j_265
                                            _
                                          ) -> i_264 GHC.Classes.== j_265
                                     )
                                    inp_258
                                    failInp_261
                                    then
                                      let _ = "choicesBranch.then"
                                       in let _ = "resume"
                                           in ok_257
                                                farInp_262
                                                farExp_263
                                                ( let _ = "resume.genCode"
                                                   in \x_266 -> x_266
                                                )
                                                failInp_261
                                    else
                                      let _ = "choicesBranch.else"
                                       in let (#
                                                farInp_267,
                                                farExp_268
                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_262 failInp_261 of
                                                  GHC.Types.LT ->
                                                    (#
                                                      failInp_261,
                                                      []
                                                    #)
                                                  GHC.Types.EQ ->
                                                    (#
                                                      farInp_262,
                                                      farExp_263 GHC.Base.<> []
                                                    #)
                                                  GHC.Types.GT ->
                                                    (#
                                                      farInp_262,
                                                      farExp_263
                                                    #)
                                           in finalRaise_18 failInp_261 farInp_267 farExp_268
                         in name_237
                              ( let _ = "suspend"
                                 in \farInp_269 farExp_270 v_271 (!inp_272) ->
                                      name_242
                                        ( let _ = "suspend"
                                           in \farInp_273 farExp_274 v_275 (!inp_276) ->
                                                name_277
                                                  ( let _ = "suspend"
                                                     in \farInp_278 farExp_279 v_280 (!inp_281) ->
                                                          name_256
                                                            ( let _ = "suspend"
                                                               in \farInp_282 farExp_283 v_284 (!inp_285) ->
                                                                    let _ = "resume"
                                                                     in ok_257
                                                                          farInp_282
                                                                          farExp_283
                                                                          ( let _ = "resume.genCode"
                                                                             in \x_286 -> v_271 v_280 (v_284 x_286)
                                                                          )
                                                                          inp_285
                                                            )
                                                            inp_281
                                                            Data.Map.Internal.Tip
                                                  )
                                                  inp_276
                                                  Data.Map.Internal.Tip
                                        )
                                        inp_272
                                        (Data.Map.Internal.Bin 1 "fail" catchHandler_260 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                              )
                              inp_258
                              Data.Map.Internal.Tip
                  name_287 = \(!ok_288) (!inp_289) (!koByLabel_290) ->
                    let _ = "catchException lbl=fail"
                     in let catchHandler_291 (!failInp_292) (!farInp_293) (!farExp_294) =
                              let _ = "catchException.ko lbl=fail"
                               in if ( \( Data.Text.Internal.Text
                                            _
                                            i_295
                                            _
                                          )
                                        ( Data.Text.Internal.Text
                                            _
                                            j_296
                                            _
                                          ) -> i_295 GHC.Classes.== j_296
                                     )
                                    inp_289
                                    failInp_292
                                    then
                                      let _ = "choicesBranch.then"
                                       in let _ = "resume"
                                           in ok_288
                                                farInp_293
                                                farExp_294
                                                ( let _ = "resume.genCode"
                                                   in \x_297 -> x_297
                                                )
                                                failInp_292
                                    else
                                      let _ = "choicesBranch.else"
                                       in let (#
                                                farInp_298,
                                                farExp_299
                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_293 failInp_292 of
                                                  GHC.Types.LT ->
                                                    (#
                                                      failInp_292,
                                                      []
                                                    #)
                                                  GHC.Types.EQ ->
                                                    (#
                                                      farInp_293,
                                                      farExp_294 GHC.Base.<> []
                                                    #)
                                                  GHC.Types.GT ->
                                                    (#
                                                      farInp_293,
                                                      farExp_294
                                                    #)
                                           in finalRaise_18 failInp_292 farInp_298 farExp_299
                         in let join_300 = \farInp_301 farExp_302 v_303 (!inp_304) ->
                                  name_287
                                    ( let _ = "suspend"
                                       in \farInp_305 farExp_306 v_307 (!inp_308) ->
                                            let _ = "resume"
                                             in ok_288
                                                  farInp_305
                                                  farExp_306
                                                  ( let _ = "resume.genCode"
                                                     in \x_309 -> v_307 x_309
                                                  )
                                                  inp_308
                                    )
                                    inp_304
                                    Data.Map.Internal.Tip
                             in let _ = "catchException lbl=fail"
                                 in let catchHandler_310 (!failInp_311) (!farInp_312) (!farExp_313) =
                                          let _ = "catchException.ko lbl=fail"
                                           in if ( \( Data.Text.Internal.Text
                                                        _
                                                        i_314
                                                        _
                                                      )
                                                    ( Data.Text.Internal.Text
                                                        _
                                                        j_315
                                                        _
                                                      ) -> i_314 GHC.Classes.== j_315
                                                 )
                                                inp_289
                                                failInp_311
                                                then
                                                  let _ = "choicesBranch.then"
                                                   in name_102
                                                        ( let _ = "suspend"
                                                           in \farInp_316 farExp_317 v_318 (!inp_319) ->
                                                                name_320
                                                                  ( let _ = "suspend"
                                                                     in \farInp_321 farExp_322 v_323 (!inp_324) ->
                                                                          let _ = "resume"
                                                                           in join_300
                                                                                farInp_321
                                                                                farExp_322
                                                                                ( let _ = "resume.genCode"
                                                                                   in v_318
                                                                                )
                                                                                inp_324
                                                                  )
                                                                  inp_319
                                                                  (Data.Map.Internal.Bin 1 "fail" catchHandler_291 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                                        )
                                                        failInp_311
                                                        Data.Map.Internal.Tip
                                                else
                                                  let _ = "choicesBranch.else"
                                                   in let (#
                                                            farInp_325,
                                                            farExp_326
                                                            #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_312 failInp_311 of
                                                              GHC.Types.LT ->
                                                                (#
                                                                  failInp_311,
                                                                  []
                                                                #)
                                                              GHC.Types.EQ ->
                                                                (#
                                                                  farInp_312,
                                                                  farExp_313 GHC.Base.<> []
                                                                #)
                                                              GHC.Types.GT ->
                                                                (#
                                                                  farInp_312,
                                                                  farExp_313
                                                                #)
                                                       in catchHandler_291 failInp_311 farInp_325 farExp_326
                                     in let join_327 = \farInp_328 farExp_329 v_330 (!inp_331) ->
                                              let _ = "resume"
                                               in join_300
                                                    farInp_328
                                                    farExp_329
                                                    ( let _ = "resume.genCode"
                                                       in v_330
                                                    )
                                                    inp_331
                                         in let _ = "catchException lbl=fail"
                                             in let catchHandler_332 (!failInp_333) (!farInp_334) (!farExp_335) =
                                                      let _ = "catchException.ko lbl=fail"
                                                       in if ( \( Data.Text.Internal.Text
                                                                    _
                                                                    i_336
                                                                    _
                                                                  )
                                                                ( Data.Text.Internal.Text
                                                                    _
                                                                    j_337
                                                                    _
                                                                  ) -> i_336 GHC.Classes.== j_337
                                                             )
                                                            inp_289
                                                            failInp_333
                                                            then
                                                              let _ = "choicesBranch.then"
                                                               in let _ = "catchException lbl=fail"
                                                                   in let catchHandler_338 (!failInp_339) (!farInp_340) (!farExp_341) =
                                                                            let _ = "catchException.ko lbl=fail"
                                                                             in let (#
                                                                                      farInp_342,
                                                                                      farExp_343
                                                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_340 failInp_333 of
                                                                                        GHC.Types.LT ->
                                                                                          (#
                                                                                            failInp_333,
                                                                                            []
                                                                                          #)
                                                                                        GHC.Types.EQ ->
                                                                                          (#
                                                                                            farInp_340,
                                                                                            farExp_341 GHC.Base.<> []
                                                                                          #)
                                                                                        GHC.Types.GT ->
                                                                                          (#
                                                                                            farInp_340,
                                                                                            farExp_341
                                                                                          #)
                                                                                 in catchHandler_310 failInp_333 farInp_342 farExp_343
                                                                       in let join_344 = \farInp_345 farExp_346 v_347 (!inp_348) ->
                                                                                name_277
                                                                                  ( let _ = "suspend"
                                                                                     in \farInp_349 farExp_350 v_351 (!inp_352) ->
                                                                                          name_50
                                                                                            ( let _ = "suspend"
                                                                                               in \farInp_353 farExp_354 v_355 (!inp_356) ->
                                                                                                    name_256
                                                                                                      ( let _ = "suspend"
                                                                                                         in \farInp_357 farExp_358 v_359 (!inp_360) ->
                                                                                                              name_50
                                                                                                                ( let _ = "suspend"
                                                                                                                   in \farInp_361 farExp_362 v_363 (!inp_364) ->
                                                                                                                        let readFail_365 = catchHandler_338
                                                                                                                         in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 3 inp_364)
                                                                                                                              then
                                                                                                                                let !(#
                                                                                                                                       c_366,
                                                                                                                                       cs_367
                                                                                                                                       #) = readNext_3 inp_364
                                                                                                                                 in if ('=' GHC.Classes.==) c_366
                                                                                                                                      then
                                                                                                                                        name_144
                                                                                                                                          ( let _ = "suspend"
                                                                                                                                             in \farInp_368 farExp_369 v_370 (!inp_371) ->
                                                                                                                                                  name_102
                                                                                                                                                    ( let _ = "suspend"
                                                                                                                                                       in \farInp_372 farExp_373 v_374 (!inp_375) ->
                                                                                                                                                            name_50
                                                                                                                                                              ( let _ = "suspend"
                                                                                                                                                                 in \farInp_376 farExp_377 v_378 (!inp_379) ->
                                                                                                                                                                      name_224
                                                                                                                                                                        ( let _ = "suspend"
                                                                                                                                                                           in \farInp_380 farExp_381 v_382 (!inp_383) ->
                                                                                                                                                                                name_50
                                                                                                                                                                                  ( let _ = "suspend"
                                                                                                                                                                                     in \farInp_384 farExp_385 v_386 (!inp_387) ->
                                                                                                                                                                                          name_320
                                                                                                                                                                                            ( let _ = "suspend"
                                                                                                                                                                                               in \farInp_388 farExp_389 v_390 (!inp_391) ->
                                                                                                                                                                                                    let _ = "resume"
                                                                                                                                                                                                     in join_327
                                                                                                                                                                                                          farInp_388
                                                                                                                                                                                                          farExp_389
                                                                                                                                                                                                          ( let _ = "resume.genCode"
                                                                                                                                                                                                             in v_386
                                                                                                                                                                                                          )
                                                                                                                                                                                                          inp_391
                                                                                                                                                                                            )
                                                                                                                                                                                            inp_387
                                                                                                                                                                                            (Data.Map.Internal.Bin 1 "fail" readFail_365 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                                                                                                                                                                  )
                                                                                                                                                                                  inp_383
                                                                                                                                                                                  Data.Map.Internal.Tip
                                                                                                                                                                        )
                                                                                                                                                                        inp_379
                                                                                                                                                                        Data.Map.Internal.Tip
                                                                                                                                                              )
                                                                                                                                                              inp_375
                                                                                                                                                              Data.Map.Internal.Tip
                                                                                                                                                    )
                                                                                                                                                    inp_371
                                                                                                                                                    Data.Map.Internal.Tip
                                                                                                                                          )
                                                                                                                                          cs_367
                                                                                                                                          (Data.Map.Internal.Bin 1 "fail" readFail_365 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                                                                                                                      else
                                                                                                                                        let _ = "checkToken.else"
                                                                                                                                         in let (#
                                                                                                                                                  farInp_392,
                                                                                                                                                  farExp_393
                                                                                                                                                  #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_361 inp_364 of
                                                                                                                                                    GHC.Types.LT ->
                                                                                                                                                      (#
                                                                                                                                                        inp_364,
                                                                                                                                                        [Symantic.Parser.Grammar.Combinators.ErrorItemToken '=']
                                                                                                                                                      #)
                                                                                                                                                    GHC.Types.EQ ->
                                                                                                                                                      (#
                                                                                                                                                        farInp_361,
                                                                                                                                                        farExp_362 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '=']
                                                                                                                                                      #)
                                                                                                                                                    GHC.Types.GT ->
                                                                                                                                                      (#
                                                                                                                                                        farInp_361,
                                                                                                                                                        farExp_362
                                                                                                                                                      #)
                                                                                                                                             in readFail_365 inp_364 farInp_392 farExp_393
                                                                                                                              else
                                                                                                                                let _ = "checkHorizon.else"
                                                                                                                                 in let (#
                                                                                                                                          farInp_394,
                                                                                                                                          farExp_395
                                                                                                                                          #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_361 inp_364 of
                                                                                                                                            GHC.Types.LT ->
                                                                                                                                              (#
                                                                                                                                                inp_364,
                                                                                                                                                [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
                                                                                                                                              #)
                                                                                                                                            GHC.Types.EQ ->
                                                                                                                                              (#
                                                                                                                                                farInp_361,
                                                                                                                                                farExp_362 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
                                                                                                                                              #)
                                                                                                                                            GHC.Types.GT ->
                                                                                                                                              (#
                                                                                                                                                farInp_361,
                                                                                                                                                farExp_362
                                                                                                                                              #)
                                                                                                                                     in readFail_365 inp_364 farInp_394 farExp_395
                                                                                                                )
                                                                                                                inp_360
                                                                                                                Data.Map.Internal.Tip
                                                                                                      )
                                                                                                      inp_356
                                                                                                      Data.Map.Internal.Tip
                                                                                            )
                                                                                            inp_352
                                                                                            Data.Map.Internal.Tip
                                                                                  )
                                                                                  inp_348
                                                                                  Data.Map.Internal.Tip
                                                                           in let _ = "catchException lbl=fail"
                                                                               in let catchHandler_396 (!failInp_397) (!farInp_398) (!farExp_399) =
                                                                                        let _ = "catchException.ko lbl=fail"
                                                                                         in if ( \( Data.Text.Internal.Text
                                                                                                      _
                                                                                                      i_400
                                                                                                      _
                                                                                                    )
                                                                                                  ( Data.Text.Internal.Text
                                                                                                      _
                                                                                                      j_401
                                                                                                      _
                                                                                                    ) -> i_400 GHC.Classes.== j_401
                                                                                               )
                                                                                              failInp_333
                                                                                              failInp_397
                                                                                              then
                                                                                                let _ = "choicesBranch.then"
                                                                                                 in name_50
                                                                                                      ( let _ = "suspend"
                                                                                                         in \farInp_402 farExp_403 v_404 (!inp_405) ->
                                                                                                              let _ = "resume"
                                                                                                               in join_344
                                                                                                                    farInp_402
                                                                                                                    farExp_403
                                                                                                                    ( let _ = "resume.genCode"
                                                                                                                       in v_404
                                                                                                                    )
                                                                                                                    inp_405
                                                                                                      )
                                                                                                      failInp_397
                                                                                                      Data.Map.Internal.Tip
                                                                                              else
                                                                                                let _ = "choicesBranch.else"
                                                                                                 in let (#
                                                                                                          farInp_406,
                                                                                                          farExp_407
                                                                                                          #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_398 failInp_397 of
                                                                                                            GHC.Types.LT ->
                                                                                                              (#
                                                                                                                failInp_397,
                                                                                                                []
                                                                                                              #)
                                                                                                            GHC.Types.EQ ->
                                                                                                              (#
                                                                                                                farInp_398,
                                                                                                                farExp_399 GHC.Base.<> []
                                                                                                              #)
                                                                                                            GHC.Types.GT ->
                                                                                                              (#
                                                                                                                farInp_398,
                                                                                                                farExp_399
                                                                                                              #)
                                                                                                     in catchHandler_338 failInp_397 farInp_406 farExp_407
                                                                                   in let _ = "catchException lbl=fail"
                                                                                       in let catchHandler_408 (!failInp_409) (!farInp_410) (!farExp_411) =
                                                                                                let _ = "catchException.ko lbl=fail"
                                                                                                 in let (#
                                                                                                          farInp_412,
                                                                                                          farExp_413
                                                                                                          #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_410 failInp_333 of
                                                                                                            GHC.Types.LT ->
                                                                                                              (#
                                                                                                                failInp_333,
                                                                                                                []
                                                                                                              #)
                                                                                                            GHC.Types.EQ ->
                                                                                                              (#
                                                                                                                farInp_410,
                                                                                                                farExp_411 GHC.Base.<> []
                                                                                                              #)
                                                                                                            GHC.Types.GT ->
                                                                                                              (#
                                                                                                                farInp_410,
                                                                                                                farExp_411
                                                                                                              #)
                                                                                                     in catchHandler_396 failInp_333 farInp_412 farExp_413
                                                                                           in let readFail_414 = catchHandler_408
                                                                                               in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 10 failInp_333)
                                                                                                    then
                                                                                                      let !(#
                                                                                                             c_415,
                                                                                                             cs_416
                                                                                                             #) = readNext_3 failInp_333
                                                                                                       in if ('v' GHC.Classes.==) c_415
                                                                                                            then
                                                                                                              let readFail_417 = readFail_414
                                                                                                               in let !(#
                                                                                                                         c_418,
                                                                                                                         cs_419
                                                                                                                         #) = readNext_3 cs_416
                                                                                                                   in if ('a' GHC.Classes.==) c_418
                                                                                                                        then
                                                                                                                          let readFail_420 = readFail_414
                                                                                                                           in let !(#
                                                                                                                                     c_421,
                                                                                                                                     cs_422
                                                                                                                                     #) = readNext_3 cs_419
                                                                                                                               in if ('r' GHC.Classes.==) c_421
                                                                                                                                    then
                                                                                                                                      name_423
                                                                                                                                        ( let _ = "suspend"
                                                                                                                                           in \farInp_424 farExp_425 v_426 (!inp_427) ->
                                                                                                                                                let _ = "resume"
                                                                                                                                                 in join_344
                                                                                                                                                      farInp_424
                                                                                                                                                      farExp_425
                                                                                                                                                      ( let _ = "resume.genCode"
                                                                                                                                                         in GHC.Tuple . ()
                                                                                                                                                      )
                                                                                                                                                      inp_427
                                                                                                                                        )
                                                                                                                                        cs_422
                                                                                                                                        Data.Map.Internal.Tip
                                                                                                                                    else
                                                                                                                                      let _ = "checkToken.else"
                                                                                                                                       in let (#
                                                                                                                                                farInp_428,
                                                                                                                                                farExp_429
                                                                                                                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_334 cs_419 of
                                                                                                                                                  GHC.Types.LT ->
                                                                                                                                                    (#
                                                                                                                                                      cs_419,
                                                                                                                                                      [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'r']
                                                                                                                                                    #)
                                                                                                                                                  GHC.Types.EQ ->
                                                                                                                                                    (#
                                                                                                                                                      farInp_334,
                                                                                                                                                      farExp_335 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'r']
                                                                                                                                                    #)
                                                                                                                                                  GHC.Types.GT ->
                                                                                                                                                    (#
                                                                                                                                                      farInp_334,
                                                                                                                                                      farExp_335
                                                                                                                                                    #)
                                                                                                                                           in readFail_414 cs_419 farInp_428 farExp_429
                                                                                                                        else
                                                                                                                          let _ = "checkToken.else"
                                                                                                                           in let (#
                                                                                                                                    farInp_430,
                                                                                                                                    farExp_431
                                                                                                                                    #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_334 cs_416 of
                                                                                                                                      GHC.Types.LT ->
                                                                                                                                        (#
                                                                                                                                          cs_416,
                                                                                                                                          [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
                                                                                                                                        #)
                                                                                                                                      GHC.Types.EQ ->
                                                                                                                                        (#
                                                                                                                                          farInp_334,
                                                                                                                                          farExp_335 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
                                                                                                                                        #)
                                                                                                                                      GHC.Types.GT ->
                                                                                                                                        (#
                                                                                                                                          farInp_334,
                                                                                                                                          farExp_335
                                                                                                                                        #)
                                                                                                                               in readFail_414 cs_416 farInp_430 farExp_431
                                                                                                            else
                                                                                                              let _ = "checkToken.else"
                                                                                                               in let (#
                                                                                                                        farInp_432,
                                                                                                                        farExp_433
                                                                                                                        #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_334 failInp_333 of
                                                                                                                          GHC.Types.LT ->
                                                                                                                            (#
                                                                                                                              failInp_333,
                                                                                                                              [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'v']
                                                                                                                            #)
                                                                                                                          GHC.Types.EQ ->
                                                                                                                            (#
                                                                                                                              farInp_334,
                                                                                                                              farExp_335 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'v']
                                                                                                                            #)
                                                                                                                          GHC.Types.GT ->
                                                                                                                            (#
                                                                                                                              farInp_334,
                                                                                                                              farExp_335
                                                                                                                            #)
                                                                                                                   in readFail_414 failInp_333 farInp_432 farExp_433
                                                                                                    else
                                                                                                      let _ = "checkHorizon.else"
                                                                                                       in let (#
                                                                                                                farInp_434,
                                                                                                                farExp_435
                                                                                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_334 failInp_333 of
                                                                                                                  GHC.Types.LT ->
                                                                                                                    (#
                                                                                                                      failInp_333,
                                                                                                                      [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 11]
                                                                                                                    #)
                                                                                                                  GHC.Types.EQ ->
                                                                                                                    (#
                                                                                                                      farInp_334,
                                                                                                                      farExp_335 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 11]
                                                                                                                    #)
                                                                                                                  GHC.Types.GT ->
                                                                                                                    (#
                                                                                                                      farInp_334,
                                                                                                                      farExp_335
                                                                                                                    #)
                                                                                                           in readFail_414 failInp_333 farInp_434 farExp_435
                                                            else
                                                              let _ = "choicesBranch.else"
                                                               in let (#
                                                                        farInp_436,
                                                                        farExp_437
                                                                        #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_334 failInp_333 of
                                                                          GHC.Types.LT ->
                                                                            (#
                                                                              failInp_333,
                                                                              []
                                                                            #)
                                                                          GHC.Types.EQ ->
                                                                            (#
                                                                              farInp_334,
                                                                              farExp_335 GHC.Base.<> []
                                                                            #)
                                                                          GHC.Types.GT ->
                                                                            (#
                                                                              farInp_334,
                                                                              farExp_335
                                                                            #)
                                                                   in catchHandler_310 failInp_333 farInp_436 farExp_437
                                                 in let join_438 = \farInp_439 farExp_440 v_441 (!inp_442) ->
                                                          let _ = "resume"
                                                           in join_327
                                                                farInp_439
                                                                farExp_440
                                                                ( let _ = "resume.genCode"
                                                                   in v_441
                                                                )
                                                                inp_442
                                                     in let _ = "catchException lbl=fail"
                                                         in let catchHandler_443 (!failInp_444) (!farInp_445) (!farExp_446) =
                                                                  let _ = "catchException.ko lbl=fail"
                                                                   in if ( \( Data.Text.Internal.Text
                                                                                _
                                                                                i_447
                                                                                _
                                                                              )
                                                                            ( Data.Text.Internal.Text
                                                                                _
                                                                                j_448
                                                                                _
                                                                              ) -> i_447 GHC.Classes.== j_448
                                                                         )
                                                                        inp_289
                                                                        failInp_444
                                                                        then
                                                                          let _ = "choicesBranch.then"
                                                                           in let _ = "catchException lbl=fail"
                                                                               in let catchHandler_449 (!failInp_450) (!farInp_451) (!farExp_452) =
                                                                                        let _ = "catchException.ko lbl=fail"
                                                                                         in let (#
                                                                                                  farInp_453,
                                                                                                  farExp_454
                                                                                                  #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_451 failInp_444 of
                                                                                                    GHC.Types.LT ->
                                                                                                      (#
                                                                                                        failInp_444,
                                                                                                        []
                                                                                                      #)
                                                                                                    GHC.Types.EQ ->
                                                                                                      (#
                                                                                                        farInp_451,
                                                                                                        farExp_452 GHC.Base.<> []
                                                                                                      #)
                                                                                                    GHC.Types.GT ->
                                                                                                      (#
                                                                                                        farInp_451,
                                                                                                        farExp_452
                                                                                                      #)
                                                                                             in catchHandler_332 failInp_444 farInp_453 farExp_454
                                                                                   in let readFail_455 = catchHandler_449
                                                                                       in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 10 failInp_444)
                                                                                            then
                                                                                              let !(#
                                                                                                     c_456,
                                                                                                     cs_457
                                                                                                     #) = readNext_3 failInp_444
                                                                                               in if ('w' GHC.Classes.==) c_456
                                                                                                    then
                                                                                                      let readFail_458 = readFail_455
                                                                                                       in let !(#
                                                                                                                 c_459,
                                                                                                                 cs_460
                                                                                                                 #) = readNext_3 cs_457
                                                                                                           in if ('h' GHC.Classes.==) c_459
                                                                                                                then
                                                                                                                  let readFail_461 = readFail_455
                                                                                                                   in let !(#
                                                                                                                             c_462,
                                                                                                                             cs_463
                                                                                                                             #) = readNext_3 cs_460
                                                                                                                       in if ('i' GHC.Classes.==) c_462
                                                                                                                            then
                                                                                                                              let readFail_464 = readFail_455
                                                                                                                               in let !(#
                                                                                                                                         c_465,
                                                                                                                                         cs_466
                                                                                                                                         #) = readNext_3 cs_463
                                                                                                                                   in if ('l' GHC.Classes.==) c_465
                                                                                                                                        then
                                                                                                                                          let readFail_467 = readFail_455
                                                                                                                                           in let !(#
                                                                                                                                                     c_468,
                                                                                                                                                     cs_469
                                                                                                                                                     #) = readNext_3 cs_466
                                                                                                                                               in if ('e' GHC.Classes.==) c_468
                                                                                                                                                    then
                                                                                                                                                      name_423
                                                                                                                                                        ( let _ = "suspend"
                                                                                                                                                           in \farInp_470 farExp_471 v_472 (!inp_473) ->
                                                                                                                                                                name_102
                                                                                                                                                                  ( let _ = "suspend"
                                                                                                                                                                     in \farInp_474 farExp_475 v_476 (!inp_477) ->
                                                                                                                                                                          name_478
                                                                                                                                                                            ( let _ = "suspend"
                                                                                                                                                                               in \farInp_479 farExp_480 v_481 (!inp_482) ->
                                                                                                                                                                                    let _ = "resume"
                                                                                                                                                                                     in join_438
                                                                                                                                                                                          farInp_479
                                                                                                                                                                                          farExp_480
                                                                                                                                                                                          ( let _ = "resume.genCode"
                                                                                                                                                                                             in v_481
                                                                                                                                                                                          )
                                                                                                                                                                                          inp_482
                                                                                                                                                                            )
                                                                                                                                                                            inp_477
                                                                                                                                                                            (Data.Map.Internal.Bin 1 "fail" catchHandler_332 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                                                                                                                                                  )
                                                                                                                                                                  inp_473
                                                                                                                                                                  Data.Map.Internal.Tip
                                                                                                                                                        )
                                                                                                                                                        cs_469
                                                                                                                                                        Data.Map.Internal.Tip
                                                                                                                                                    else
                                                                                                                                                      let _ = "checkToken.else"
                                                                                                                                                       in let (#
                                                                                                                                                                farInp_483,
                                                                                                                                                                farExp_484
                                                                                                                                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_445 cs_466 of
                                                                                                                                                                  GHC.Types.LT ->
                                                                                                                                                                    (#
                                                                                                                                                                      cs_466,
                                                                                                                                                                      [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'e']
                                                                                                                                                                    #)
                                                                                                                                                                  GHC.Types.EQ ->
                                                                                                                                                                    (#
                                                                                                                                                                      farInp_445,
                                                                                                                                                                      farExp_446 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'e']
                                                                                                                                                                    #)
                                                                                                                                                                  GHC.Types.GT ->
                                                                                                                                                                    (#
                                                                                                                                                                      farInp_445,
                                                                                                                                                                      farExp_446
                                                                                                                                                                    #)
                                                                                                                                                           in readFail_455 cs_466 farInp_483 farExp_484
                                                                                                                                        else
                                                                                                                                          let _ = "checkToken.else"
                                                                                                                                           in let (#
                                                                                                                                                    farInp_485,
                                                                                                                                                    farExp_486
                                                                                                                                                    #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_445 cs_463 of
                                                                                                                                                      GHC.Types.LT ->
                                                                                                                                                        (#
                                                                                                                                                          cs_463,
                                                                                                                                                          [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'l']
                                                                                                                                                        #)
                                                                                                                                                      GHC.Types.EQ ->
                                                                                                                                                        (#
                                                                                                                                                          farInp_445,
                                                                                                                                                          farExp_446 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'l']
                                                                                                                                                        #)
                                                                                                                                                      GHC.Types.GT ->
                                                                                                                                                        (#
                                                                                                                                                          farInp_445,
                                                                                                                                                          farExp_446
                                                                                                                                                        #)
                                                                                                                                               in readFail_455 cs_463 farInp_485 farExp_486
                                                                                                                            else
                                                                                                                              let _ = "checkToken.else"
                                                                                                                               in let (#
                                                                                                                                        farInp_487,
                                                                                                                                        farExp_488
                                                                                                                                        #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_445 cs_460 of
                                                                                                                                          GHC.Types.LT ->
                                                                                                                                            (#
                                                                                                                                              cs_460,
                                                                                                                                              [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'i']
                                                                                                                                            #)
                                                                                                                                          GHC.Types.EQ ->
                                                                                                                                            (#
                                                                                                                                              farInp_445,
                                                                                                                                              farExp_446 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'i']
                                                                                                                                            #)
                                                                                                                                          GHC.Types.GT ->
                                                                                                                                            (#
                                                                                                                                              farInp_445,
                                                                                                                                              farExp_446
                                                                                                                                            #)
                                                                                                                                   in readFail_455 cs_460 farInp_487 farExp_488
                                                                                                                else
                                                                                                                  let _ = "checkToken.else"
                                                                                                                   in let (#
                                                                                                                            farInp_489,
                                                                                                                            farExp_490
                                                                                                                            #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_445 cs_457 of
                                                                                                                              GHC.Types.LT ->
                                                                                                                                (#
                                                                                                                                  cs_457,
                                                                                                                                  [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'h']
                                                                                                                                #)
                                                                                                                              GHC.Types.EQ ->
                                                                                                                                (#
                                                                                                                                  farInp_445,
                                                                                                                                  farExp_446 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'h']
                                                                                                                                #)
                                                                                                                              GHC.Types.GT ->
                                                                                                                                (#
                                                                                                                                  farInp_445,
                                                                                                                                  farExp_446
                                                                                                                                #)
                                                                                                                       in readFail_455 cs_457 farInp_489 farExp_490
                                                                                                    else
                                                                                                      let _ = "checkToken.else"
                                                                                                       in let (#
                                                                                                                farInp_491,
                                                                                                                farExp_492
                                                                                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_445 failInp_444 of
                                                                                                                  GHC.Types.LT ->
                                                                                                                    (#
                                                                                                                      failInp_444,
                                                                                                                      [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'w']
                                                                                                                    #)
                                                                                                                  GHC.Types.EQ ->
                                                                                                                    (#
                                                                                                                      farInp_445,
                                                                                                                      farExp_446 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'w']
                                                                                                                    #)
                                                                                                                  GHC.Types.GT ->
                                                                                                                    (#
                                                                                                                      farInp_445,
                                                                                                                      farExp_446
                                                                                                                    #)
                                                                                                           in readFail_455 failInp_444 farInp_491 farExp_492
                                                                                            else
                                                                                              let _ = "checkHorizon.else"
                                                                                               in let (#
                                                                                                        farInp_493,
                                                                                                        farExp_494
                                                                                                        #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_445 failInp_444 of
                                                                                                          GHC.Types.LT ->
                                                                                                            (#
                                                                                                              failInp_444,
                                                                                                              [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 11]
                                                                                                            #)
                                                                                                          GHC.Types.EQ ->
                                                                                                            (#
                                                                                                              farInp_445,
                                                                                                              farExp_446 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 11]
                                                                                                            #)
                                                                                                          GHC.Types.GT ->
                                                                                                            (#
                                                                                                              farInp_445,
                                                                                                              farExp_446
                                                                                                            #)
                                                                                                   in readFail_455 failInp_444 farInp_493 farExp_494
                                                                        else
                                                                          let _ = "choicesBranch.else"
                                                                           in let (#
                                                                                    farInp_495,
                                                                                    farExp_496
                                                                                    #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_445 failInp_444 of
                                                                                      GHC.Types.LT ->
                                                                                        (#
                                                                                          failInp_444,
                                                                                          []
                                                                                        #)
                                                                                      GHC.Types.EQ ->
                                                                                        (#
                                                                                          farInp_445,
                                                                                          farExp_446 GHC.Base.<> []
                                                                                        #)
                                                                                      GHC.Types.GT ->
                                                                                        (#
                                                                                          farInp_445,
                                                                                          farExp_446
                                                                                        #)
                                                                               in catchHandler_332 failInp_444 farInp_495 farExp_496
                                                             in let _ = "catchException lbl=fail"
                                                                 in let catchHandler_497 (!failInp_498) (!farInp_499) (!farExp_500) =
                                                                          let _ = "catchException.ko lbl=fail"
                                                                           in let (#
                                                                                    farInp_501,
                                                                                    farExp_502
                                                                                    #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_499 inp_289 of
                                                                                      GHC.Types.LT ->
                                                                                        (#
                                                                                          inp_289,
                                                                                          []
                                                                                        #)
                                                                                      GHC.Types.EQ ->
                                                                                        (#
                                                                                          farInp_499,
                                                                                          farExp_500 GHC.Base.<> []
                                                                                        #)
                                                                                      GHC.Types.GT ->
                                                                                        (#
                                                                                          farInp_499,
                                                                                          farExp_500
                                                                                        #)
                                                                               in catchHandler_443 inp_289 farInp_501 farExp_502
                                                                     in let readFail_503 = catchHandler_497
                                                                         in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_289)
                                                                              then
                                                                                let !(#
                                                                                       c_504,
                                                                                       cs_505
                                                                                       #) = readNext_3 inp_289
                                                                                 in if ('i' GHC.Classes.==) c_504
                                                                                      then
                                                                                        let readFail_506 = readFail_503
                                                                                         in let !(#
                                                                                                   c_507,
                                                                                                   cs_508
                                                                                                   #) = readNext_3 cs_505
                                                                                             in if ('f' GHC.Classes.==) c_507
                                                                                                  then
                                                                                                    name_423
                                                                                                      ( let _ = "suspend"
                                                                                                         in \farInp_509 farExp_510 v_511 (!inp_512) ->
                                                                                                              let _ = "resume"
                                                                                                               in join_438
                                                                                                                    farInp_509
                                                                                                                    farExp_510
                                                                                                                    ( let _ = "resume.genCode"
                                                                                                                       in v_511
                                                                                                                    )
                                                                                                                    inp_512
                                                                                                      )
                                                                                                      cs_508
                                                                                                      Data.Map.Internal.Tip
                                                                                                  else
                                                                                                    let _ = "checkToken.else"
                                                                                                     in let (#
                                                                                                              farInp_513,
                                                                                                              farExp_514
                                                                                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_505 of
                                                                                                                GHC.Types.LT ->
                                                                                                                  (#
                                                                                                                    cs_505,
                                                                                                                    [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'f']
                                                                                                                  #)
                                                                                                                GHC.Types.EQ ->
                                                                                                                  (#
                                                                                                                    init_1,
                                                                                                                    GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'f']
                                                                                                                  #)
                                                                                                                GHC.Types.GT ->
                                                                                                                  (#
                                                                                                                    init_1,
                                                                                                                    GHC.Types . []
                                                                                                                  #)
                                                                                                         in readFail_503 cs_505 farInp_513 farExp_514
                                                                                      else
                                                                                        let _ = "checkToken.else"
                                                                                         in let (#
                                                                                                  farInp_515,
                                                                                                  farExp_516
                                                                                                  #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_289 of
                                                                                                    GHC.Types.LT ->
                                                                                                      (#
                                                                                                        inp_289,
                                                                                                        [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'i']
                                                                                                      #)
                                                                                                    GHC.Types.EQ ->
                                                                                                      (#
                                                                                                        init_1,
                                                                                                        GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'i']
                                                                                                      #)
                                                                                                    GHC.Types.GT ->
                                                                                                      (#
                                                                                                        init_1,
                                                                                                        GHC.Types . []
                                                                                                      #)
                                                                                             in readFail_503 inp_289 farInp_515 farExp_516
                                                                              else
                                                                                let _ = "checkHorizon.else"
                                                                                 in let (#
                                                                                          farInp_517,
                                                                                          farExp_518
                                                                                          #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_289 of
                                                                                            GHC.Types.LT ->
                                                                                              (#
                                                                                                inp_289,
                                                                                                [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_503 inp_289 farInp_517 farExp_518
                  name_85 = \(!ok_519) (!inp_520) (!koByLabel_521) ->
                    let readFail_522 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_521
                     in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_520)
                          then
                            let !(#
                                   c_523,
                                   cs_524
                                   #) = readNext_3 inp_520
                             in if (')' GHC.Classes.==) c_523
                                  then
                                    name_144
                                      ( let _ = "suspend"
                                         in \farInp_525 farExp_526 v_527 (!inp_528) ->
                                              let _ = "resume"
                                               in ok_519
                                                    farInp_525
                                                    farExp_526
                                                    ( let _ = "resume.genCode"
                                                       in ')'
                                                    )
                                                    inp_528
                                      )
                                      cs_524
                                      (Data.Map.Internal.Bin 1 "fail" readFail_522 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                  else
                                    let _ = "checkToken.else"
                                     in let (#
                                              farInp_529,
                                              farExp_530
                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_520 of
                                                GHC.Types.LT ->
                                                  (#
                                                    inp_520,
                                                    [Symantic.Parser.Grammar.Combinators.ErrorItemToken ')']
                                                  #)
                                                GHC.Types.EQ ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken ')']
                                                  #)
                                                GHC.Types.GT ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . []
                                                  #)
                                         in readFail_522 inp_520 farInp_529 farExp_530
                          else
                            let _ = "checkHorizon.else"
                             in let (#
                                      farInp_531,
                                      farExp_532
                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_520 of
                                        GHC.Types.LT ->
                                          (#
                                            inp_520,
                                            [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_522 inp_520 farInp_531 farExp_532
                  name_68 = \(!ok_533) (!inp_534) (!koByLabel_535) ->
                    let readFail_536 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_535
                     in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 4 inp_534)
                          then
                            let !(#
                                   c_537,
                                   cs_538
                                   #) = readNext_3 inp_534
                             in if ('[' GHC.Classes.==) c_537
                                  then
                                    name_144
                                      ( let _ = "suspend"
                                         in \farInp_539 farExp_540 v_541 (!inp_542) ->
                                              name_543
                                                ( let _ = "suspend"
                                                   in \farInp_544 farExp_545 v_546 (!inp_547) ->
                                                        name_548
                                                          ( let _ = "suspend"
                                                             in \farInp_549 farExp_550 v_551 (!inp_552) ->
                                                                  let readFail_553 = readFail_536
                                                                   in if readMore_2 inp_552
                                                                        then
                                                                          let !(#
                                                                                 c_554,
                                                                                 cs_555
                                                                                 #) = readNext_3 inp_552
                                                                           in if (']' GHC.Classes.==) c_554
                                                                                then
                                                                                  name_144
                                                                                    ( let _ = "suspend"
                                                                                       in \farInp_556 farExp_557 v_558 (!inp_559) ->
                                                                                            let _ = "resume"
                                                                                             in ok_533
                                                                                                  farInp_556
                                                                                                  farExp_557
                                                                                                  ( let _ = "resume.genCode"
                                                                                                     in GHC.Tuple . ()
                                                                                                  )
                                                                                                  inp_559
                                                                                    )
                                                                                    cs_555
                                                                                    (Data.Map.Internal.Bin 1 "fail" readFail_553 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                                                                else
                                                                                  let _ = "checkToken.else"
                                                                                   in let (#
                                                                                            farInp_560,
                                                                                            farExp_561
                                                                                            #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_549 inp_552 of
                                                                                              GHC.Types.LT ->
                                                                                                (#
                                                                                                  inp_552,
                                                                                                  [Symantic.Parser.Grammar.Combinators.ErrorItemToken ']']
                                                                                                #)
                                                                                              GHC.Types.EQ ->
                                                                                                (#
                                                                                                  farInp_549,
                                                                                                  farExp_550 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken ']']
                                                                                                #)
                                                                                              GHC.Types.GT ->
                                                                                                (#
                                                                                                  farInp_549,
                                                                                                  farExp_550
                                                                                                #)
                                                                                       in readFail_553 inp_552 farInp_560 farExp_561
                                                                        else
                                                                          let _ = "checkHorizon.else"
                                                                           in let (#
                                                                                    farInp_562,
                                                                                    farExp_563
                                                                                    #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_549 inp_552 of
                                                                                      GHC.Types.LT ->
                                                                                        (#
                                                                                          inp_552,
                                                                                          [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
                                                                                        #)
                                                                                      GHC.Types.EQ ->
                                                                                        (#
                                                                                          farInp_549,
                                                                                          farExp_550 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
                                                                                        #)
                                                                                      GHC.Types.GT ->
                                                                                        (#
                                                                                          farInp_549,
                                                                                          farExp_550
                                                                                        #)
                                                                               in readFail_553 inp_552 farInp_562 farExp_563
                                                          )
                                                          inp_547
                                                          Data.Map.Internal.Tip
                                                )
                                                inp_542
                                                (Data.Map.Internal.Bin 1 "fail" readFail_536 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                      )
                                      cs_538
                                      (Data.Map.Internal.Bin 1 "fail" readFail_536 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                  else
                                    let _ = "checkToken.else"
                                     in let (#
                                              farInp_564,
                                              farExp_565
                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_534 of
                                                GHC.Types.LT ->
                                                  (#
                                                    inp_534,
                                                    [Symantic.Parser.Grammar.Combinators.ErrorItemToken '[']
                                                  #)
                                                GHC.Types.EQ ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '[']
                                                  #)
                                                GHC.Types.GT ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . []
                                                  #)
                                         in readFail_536 inp_534 farInp_564 farExp_565
                          else
                            let _ = "checkHorizon.else"
                             in let (#
                                      farInp_566,
                                      farExp_567
                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_534 of
                                        GHC.Types.LT ->
                                          (#
                                            inp_534,
                                            [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 5]
                                          #)
                                        GHC.Types.EQ ->
                                          (#
                                            init_1,
                                            GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 5]
                                          #)
                                        GHC.Types.GT ->
                                          (#
                                            init_1,
                                            GHC.Types . []
                                          #)
                                 in readFail_536 inp_534 farInp_566 farExp_567
                  name_75 = \(!ok_568) (!inp_569) (!koByLabel_570) ->
                    let readFail_571 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_570
                     in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_569)
                          then
                            let !(#
                                   c_572,
                                   cs_573
                                   #) = readNext_3 inp_569
                             in if ('(' GHC.Classes.==) c_572
                                  then
                                    name_144
                                      ( let _ = "suspend"
                                         in \farInp_574 farExp_575 v_576 (!inp_577) ->
                                              let _ = "resume"
                                               in ok_568
                                                    farInp_574
                                                    farExp_575
                                                    ( let _ = "resume.genCode"
                                                       in '('
                                                    )
                                                    inp_577
                                      )
                                      cs_573
                                      (Data.Map.Internal.Bin 1 "fail" readFail_571 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                  else
                                    let _ = "checkToken.else"
                                     in let (#
                                              farInp_578,
                                              farExp_579
                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_569 of
                                                GHC.Types.LT ->
                                                  (#
                                                    inp_569,
                                                    [Symantic.Parser.Grammar.Combinators.ErrorItemToken '(']
                                                  #)
                                                GHC.Types.EQ ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '(']
                                                  #)
                                                GHC.Types.GT ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . []
                                                  #)
                                         in readFail_571 inp_569 farInp_578 farExp_579
                          else
                            let _ = "checkHorizon.else"
                             in let (#
                                      farInp_580,
                                      farExp_581
                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_569 of
                                        GHC.Types.LT ->
                                          (#
                                            inp_569,
                                            [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_571 inp_569 farInp_580 farExp_581
                  name_548 = \(!ok_582) (!inp_583) (!koByLabel_584) ->
                    let _ = "catchException lbl=fail"
                     in let catchHandler_585 (!failInp_586) (!farInp_587) (!farExp_588) =
                              let _ = "catchException.ko lbl=fail"
                               in if ( \( Data.Text.Internal.Text
                                            _
                                            i_589
                                            _
                                          )
                                        ( Data.Text.Internal.Text
                                            _
                                            j_590
                                            _
                                          ) -> i_589 GHC.Classes.== j_590
                                     )
                                    inp_583
                                    failInp_586
                                    then
                                      let _ = "choicesBranch.then"
                                       in let _ = "resume"
                                           in ok_582
                                                farInp_587
                                                farExp_588
                                                ( let _ = "resume.genCode"
                                                   in \x_591 -> x_591
                                                )
                                                failInp_586
                                    else
                                      let _ = "choicesBranch.else"
                                       in let (#
                                                farInp_592,
                                                farExp_593
                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_587 failInp_586 of
                                                  GHC.Types.LT ->
                                                    (#
                                                      failInp_586,
                                                      []
                                                    #)
                                                  GHC.Types.EQ ->
                                                    (#
                                                      farInp_587,
                                                      farExp_588 GHC.Base.<> []
                                                    #)
                                                  GHC.Types.GT ->
                                                    (#
                                                      farInp_587,
                                                      farExp_588
                                                    #)
                                           in finalRaise_18 failInp_586 farInp_592 farExp_593
                         in name_543
                              ( let _ = "suspend"
                                 in \farInp_594 farExp_595 v_596 (!inp_597) ->
                                      name_548
                                        ( let _ = "suspend"
                                           in \farInp_598 farExp_599 v_600 (!inp_601) ->
                                                let _ = "resume"
                                                 in ok_582
                                                      farInp_598
                                                      farExp_599
                                                      ( let _ = "resume.genCode"
                                                         in \x_602 -> v_600 x_602
                                                      )
                                                      inp_601
                                        )
                                        inp_597
                                        Data.Map.Internal.Tip
                              )
                              inp_583
                              (Data.Map.Internal.Bin 1 "fail" catchHandler_585 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                  name_237 = \(!ok_603) (!inp_604) (!koByLabel_605) ->
                    let _ = "resume"
                     in ok_603 init_1 GHC.Types
                          . []
                            ( let _ = "resume.genCode"
                               in \x_606 -> \x_607 -> x_607
                            )
                            inp_604
                  name_50 = \(!ok_608) (!inp_609) (!koByLabel_610) ->
                    let _ = "resume"
                     in ok_608 init_1 GHC.Types
                          . []
                            ( let _ = "resume.genCode"
                               in GHC.Tuple . ()
                            )
                            inp_609
                  name_611 = \(!ok_612) (!inp_613) (!koByLabel_614) ->
                    let _ = "catchException lbl=fail"
                     in let catchHandler_615 (!failInp_616) (!farInp_617) (!farExp_618) =
                              let _ = "catchException.ko lbl=fail"
                               in if ( \( Data.Text.Internal.Text
                                            _
                                            i_619
                                            _
                                          )
                                        ( Data.Text.Internal.Text
                                            _
                                            j_620
                                            _
                                          ) -> i_619 GHC.Classes.== j_620
                                     )
                                    inp_613
                                    failInp_616
                                    then
                                      let _ = "choicesBranch.then"
                                       in let _ = "resume"
                                           in ok_612
                                                farInp_617
                                                farExp_618
                                                ( let _ = "resume.genCode"
                                                   in \x_621 -> x_621
                                                )
                                                failInp_616
                                    else
                                      let _ = "choicesBranch.else"
                                       in let (#
                                                farInp_622,
                                                farExp_623
                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_617 failInp_616 of
                                                  GHC.Types.LT ->
                                                    (#
                                                      failInp_616,
                                                      []
                                                    #)
                                                  GHC.Types.EQ ->
                                                    (#
                                                      farInp_617,
                                                      farExp_618 GHC.Base.<> []
                                                    #)
                                                  GHC.Types.GT ->
                                                    (#
                                                      farInp_617,
                                                      farExp_618
                                                    #)
                                           in finalRaise_18 failInp_616 farInp_622 farExp_623
                         in let readFail_624 = catchHandler_615
                             in if readMore_2 inp_613
                                  then
                                    let !(#
                                           c_625,
                                           cs_626
                                           #) = readNext_3 inp_613
                                     in if Grammar.Nandlang.nandIdentLetter c_625
                                          then
                                            name_611
                                              ( let _ = "suspend"
                                                 in \farInp_627 farExp_628 v_629 (!inp_630) ->
                                                      let _ = "resume"
                                                       in ok_612
                                                            farInp_627
                                                            farExp_628
                                                            ( let _ = "resume.genCode"
                                                               in \x_631 -> v_629 x_631
                                                            )
                                                            inp_630
                                              )
                                              cs_626
                                              Data.Map.Internal.Tip
                                          else
                                            let _ = "checkToken.else"
                                             in let (#
                                                      farInp_632,
                                                      farExp_633
                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_613 of
                                                        GHC.Types.LT ->
                                                          (#
                                                            inp_613,
                                                            [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "identLetter"]
                                                          #)
                                                        GHC.Types.EQ ->
                                                          (#
                                                            init_1,
                                                            GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "identLetter"]
                                                          #)
                                                        GHC.Types.GT ->
                                                          (#
                                                            init_1,
                                                            GHC.Types . []
                                                          #)
                                                 in readFail_624 inp_613 farInp_632 farExp_633
                                  else
                                    let _ = "checkHorizon.else"
                                     in let (#
                                              farInp_634,
                                              farExp_635
                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_613 of
                                                GHC.Types.LT ->
                                                  (#
                                                    inp_613,
                                                    [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_624 inp_613 farInp_634 farExp_635
                  name_636 = \(!ok_637) (!inp_638) (!koByLabel_639) ->
                    let _ = "catchException lbl=fail"
                     in let catchHandler_640 (!failInp_641) (!farInp_642) (!farExp_643) =
                              let _ = "catchException.ko lbl=fail"
                               in if ( \( Data.Text.Internal.Text
                                            _
                                            i_644
                                            _
                                          )
                                        ( Data.Text.Internal.Text
                                            _
                                            j_645
                                            _
                                          ) -> i_644 GHC.Classes.== j_645
                                     )
                                    inp_638
                                    failInp_641
                                    then
                                      let _ = "choicesBranch.then"
                                       in let _ = "jump"
                                           in name_50 ok_637 failInp_641 Data.Map.Internal.Tip
                                    else
                                      let _ = "choicesBranch.else"
                                       in let (#
                                                farInp_646,
                                                farExp_647
                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_642 failInp_641 of
                                                  GHC.Types.LT ->
                                                    (#
                                                      failInp_641,
                                                      []
                                                    #)
                                                  GHC.Types.EQ ->
                                                    (#
                                                      farInp_642,
                                                      farExp_643 GHC.Base.<> []
                                                    #)
                                                  GHC.Types.GT ->
                                                    (#
                                                      farInp_642,
                                                      farExp_643
                                                    #)
                                           in finalRaise_18 failInp_641 farInp_646 farExp_647
                         in name_277
                              ( let _ = "suspend"
                                 in \farInp_648 farExp_649 v_650 (!inp_651) ->
                                      name_50
                                        ( let _ = "suspend"
                                           in \farInp_652 farExp_653 v_654 (!inp_655) ->
                                                name_656
                                                  ( let _ = "suspend"
                                                     in \farInp_657 farExp_658 v_659 (!inp_660) ->
                                                          name_50
                                                            ( let _ = "suspend"
                                                               in \farInp_661 farExp_662 v_663 (!inp_664) ->
                                                                    let _ = "resume"
                                                                     in ok_637
                                                                          farInp_661
                                                                          farExp_662
                                                                          ( let _ = "resume.genCode"
                                                                             in GHC.Tuple . ()
                                                                          )
                                                                          inp_664
                                                            )
                                                            inp_660
                                                            Data.Map.Internal.Tip
                                                  )
                                                  inp_655
                                                  Data.Map.Internal.Tip
                                        )
                                        inp_651
                                        Data.Map.Internal.Tip
                              )
                              inp_638
                              Data.Map.Internal.Tip
                  name_320 = \(!ok_665) (!inp_666) (!koByLabel_667) ->
                    let readFail_668 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_667
                     in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_666)
                          then
                            let !(#
                                   c_669,
                                   cs_670
                                   #) = readNext_3 inp_666
                             in if (';' GHC.Classes.==) c_669
                                  then
                                    name_144
                                      ( let _ = "suspend"
                                         in \farInp_671 farExp_672 v_673 (!inp_674) ->
                                              let _ = "resume"
                                               in ok_665
                                                    farInp_671
                                                    farExp_672
                                                    ( let _ = "resume.genCode"
                                                       in ';'
                                                    )
                                                    inp_674
                                      )
                                      cs_670
                                      (Data.Map.Internal.Bin 1 "fail" readFail_668 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                  else
                                    let _ = "checkToken.else"
                                     in let (#
                                              farInp_675,
                                              farExp_676
                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_666 of
                                                GHC.Types.LT ->
                                                  (#
                                                    inp_666,
                                                    [Symantic.Parser.Grammar.Combinators.ErrorItemToken ';']
                                                  #)
                                                GHC.Types.EQ ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken ';']
                                                  #)
                                                GHC.Types.GT ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . []
                                                  #)
                                         in readFail_668 inp_666 farInp_675 farExp_676
                          else
                            let _ = "checkHorizon.else"
                             in let (#
                                      farInp_677,
                                      farExp_678
                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_666 of
                                        GHC.Types.LT ->
                                          (#
                                            inp_666,
                                            [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_668 inp_666 farInp_677 farExp_678
                  name_102 = \(!ok_679) (!inp_680) (!koByLabel_681) ->
                    name_24
                      ( let _ = "suspend"
                         in \farInp_682 farExp_683 v_684 (!inp_685) ->
                              name_50
                                ( let _ = "suspend"
                                   in \farInp_686 farExp_687 v_688 (!inp_689) ->
                                        name_690
                                          ( let _ = "suspend"
                                             in \farInp_691 farExp_692 v_693 (!inp_694) ->
                                                  name_50
                                                    ( let _ = "suspend"
                                                       in \farInp_695 farExp_696 v_697 (!inp_698) ->
                                                            let _ = "resume"
                                                             in ok_679
                                                                  farInp_695
                                                                  farExp_696
                                                                  ( let _ = "resume.genCode"
                                                                     in v_697
                                                                  )
                                                                  inp_698
                                                    )
                                                    inp_694
                                                    Data.Map.Internal.Tip
                                          )
                                          inp_689
                                          Data.Map.Internal.Tip
                                )
                                inp_685
                                Data.Map.Internal.Tip
                      )
                      inp_680
                      Data.Map.Internal.Tip
                  name_699 = \(!ok_700) (!inp_701) (!koByLabel_702) ->
                    let _ = "catchException lbl=fail"
                     in let catchHandler_703 (!failInp_704) (!farInp_705) (!farExp_706) =
                              let _ = "catchException.ko lbl=fail"
                               in if ( \( Data.Text.Internal.Text
                                            _
                                            i_707
                                            _
                                          )
                                        ( Data.Text.Internal.Text
                                            _
                                            j_708
                                            _
                                          ) -> i_707 GHC.Classes.== j_708
                                     )
                                    inp_701
                                    failInp_704
                                    then
                                      let _ = "choicesBranch.then"
                                       in let _ = "resume"
                                           in ok_700
                                                farInp_705
                                                farExp_706
                                                ( let _ = "resume.genCode"
                                                   in \x_709 -> x_709
                                                )
                                                failInp_704
                                    else
                                      let _ = "choicesBranch.else"
                                       in let (#
                                                farInp_710,
                                                farExp_711
                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_705 failInp_704 of
                                                  GHC.Types.LT ->
                                                    (#
                                                      failInp_704,
                                                      []
                                                    #)
                                                  GHC.Types.EQ ->
                                                    (#
                                                      farInp_705,
                                                      farExp_706 GHC.Base.<> []
                                                    #)
                                                  GHC.Types.GT ->
                                                    (#
                                                      farInp_705,
                                                      farExp_706
                                                    #)
                                           in finalRaise_18 failInp_704 farInp_710 farExp_711
                         in let _ = "catchException lbl=fail"
                             in let catchHandler_712 (!failInp_713) (!farInp_714) (!farExp_715) =
                                      let _ = "catchException.ko lbl=fail"
                                       in let (#
                                                farInp_716,
                                                farExp_717
                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_714 inp_701 of
                                                  GHC.Types.LT ->
                                                    (#
                                                      inp_701,
                                                      []
                                                    #)
                                                  GHC.Types.EQ ->
                                                    (#
                                                      farInp_714,
                                                      farExp_715 GHC.Base.<> []
                                                    #)
                                                  GHC.Types.GT ->
                                                    (#
                                                      farInp_714,
                                                      farExp_715
                                                    #)
                                           in catchHandler_703 inp_701 farInp_716 farExp_717
                                 in let readFail_718 = catchHandler_712
                                     in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 17 inp_701)
                                          then
                                            let !(#
                                                   c_719,
                                                   cs_720
                                                   #) = readNext_3 inp_701
                                             in if ('f' GHC.Classes.==) c_719
                                                  then
                                                    let readFail_721 = readFail_718
                                                     in let !(#
                                                               c_722,
                                                               cs_723
                                                               #) = readNext_3 cs_720
                                                         in if ('u' GHC.Classes.==) c_722
                                                              then
                                                                let readFail_724 = readFail_718
                                                                 in let !(#
                                                                           c_725,
                                                                           cs_726
                                                                           #) = readNext_3 cs_723
                                                                     in if ('n' GHC.Classes.==) c_725
                                                                          then
                                                                            let readFail_727 = readFail_718
                                                                             in let !(#
                                                                                       c_728,
                                                                                       cs_729
                                                                                       #) = readNext_3 cs_726
                                                                                 in if ('c' GHC.Classes.==) c_728
                                                                                      then
                                                                                        let readFail_730 = readFail_718
                                                                                         in let !(#
                                                                                                   c_731,
                                                                                                   cs_732
                                                                                                   #) = readNext_3 cs_729
                                                                                             in if ('t' GHC.Classes.==) c_731
                                                                                                  then
                                                                                                    let readFail_733 = readFail_718
                                                                                                     in let !(#
                                                                                                               c_734,
                                                                                                               cs_735
                                                                                                               #) = readNext_3 cs_732
                                                                                                         in if ('i' GHC.Classes.==) c_734
                                                                                                              then
                                                                                                                let readFail_736 = readFail_718
                                                                                                                 in let !(#
                                                                                                                           c_737,
                                                                                                                           cs_738
                                                                                                                           #) = readNext_3 cs_735
                                                                                                                     in if ('o' GHC.Classes.==) c_737
                                                                                                                          then
                                                                                                                            let readFail_739 = readFail_718
                                                                                                                             in let !(#
                                                                                                                                       c_740,
                                                                                                                                       cs_741
                                                                                                                                       #) = readNext_3 cs_738
                                                                                                                                 in if ('n' GHC.Classes.==) c_740
                                                                                                                                      then
                                                                                                                                        name_423
                                                                                                                                          ( let _ = "suspend"
                                                                                                                                             in \farInp_742 farExp_743 v_744 (!inp_745) ->
                                                                                                                                                  name_34
                                                                                                                                                    ( let _ = "suspend"
                                                                                                                                                       in \farInp_746 farExp_747 v_748 (!inp_749) ->
                                                                                                                                                            name_75
                                                                                                                                                              ( let _ = "suspend"
                                                                                                                                                                 in \farInp_750 farExp_751 v_752 (!inp_753) ->
                                                                                                                                                                      name_636
                                                                                                                                                                        ( let _ = "suspend"
                                                                                                                                                                           in \farInp_754 farExp_755 v_756 (!inp_757) ->
                                                                                                                                                                                let join_758 = \farInp_759 farExp_760 v_761 (!inp_762) ->
                                                                                                                                                                                      name_85
                                                                                                                                                                                        ( let _ = "suspend"
                                                                                                                                                                                           in \farInp_763 farExp_764 v_765 (!inp_766) ->
                                                                                                                                                                                                name_478
                                                                                                                                                                                                  ( let _ = "suspend"
                                                                                                                                                                                                     in \farInp_767 farExp_768 v_769 (!inp_770) ->
                                                                                                                                                                                                          name_699
                                                                                                                                                                                                            ( let _ = "suspend"
                                                                                                                                                                                                               in \farInp_771 farExp_772 v_773 (!inp_774) ->
                                                                                                                                                                                                                    let _ = "resume"
                                                                                                                                                                                                                     in ok_700
                                                                                                                                                                                                                          farInp_771
                                                                                                                                                                                                                          farExp_772
                                                                                                                                                                                                                          ( let _ = "resume.genCode"
                                                                                                                                                                                                                             in \x_775 -> v_773 x_775
                                                                                                                                                                                                                          )
                                                                                                                                                                                                                          inp_774
                                                                                                                                                                                                            )
                                                                                                                                                                                                            inp_770
                                                                                                                                                                                                            Data.Map.Internal.Tip
                                                                                                                                                                                                  )
                                                                                                                                                                                                  inp_766
                                                                                                                                                                                                  (Data.Map.Internal.Bin 1 "fail" catchHandler_703 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                                                                                                                                                                        )
                                                                                                                                                                                        inp_762
                                                                                                                                                                                        (Data.Map.Internal.Bin 1 "fail" catchHandler_703 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                                                                                                                                                                 in let _ = "catchException lbl=fail"
                                                                                                                                                                                     in let catchHandler_776 (!failInp_777) (!farInp_778) (!farExp_779) =
                                                                                                                                                                                              let _ = "catchException.ko lbl=fail"
                                                                                                                                                                                               in if ( \( Data.Text.Internal.Text
                                                                                                                                                                                                            _
                                                                                                                                                                                                            i_780
                                                                                                                                                                                                            _
                                                                                                                                                                                                          )
                                                                                                                                                                                                        ( Data.Text.Internal.Text
                                                                                                                                                                                                            _
                                                                                                                                                                                                            j_781
                                                                                                                                                                                                            _
                                                                                                                                                                                                          ) -> i_780 GHC.Classes.== j_781
                                                                                                                                                                                                     )
                                                                                                                                                                                                    inp_757
                                                                                                                                                                                                    failInp_777
                                                                                                                                                                                                    then
                                                                                                                                                                                                      let _ = "choicesBranch.then"
                                                                                                                                                                                                       in name_50
                                                                                                                                                                                                            ( let _ = "suspend"
                                                                                                                                                                                                               in \farInp_782 farExp_783 v_784 (!inp_785) ->
                                                                                                                                                                                                                    let _ = "resume"
                                                                                                                                                                                                                     in join_758
                                                                                                                                                                                                                          farInp_782
                                                                                                                                                                                                                          farExp_783
                                                                                                                                                                                                                          ( let _ = "resume.genCode"
                                                                                                                                                                                                                             in v_784
                                                                                                                                                                                                                          )
                                                                                                                                                                                                                          inp_785
                                                                                                                                                                                                            )
                                                                                                                                                                                                            failInp_777
                                                                                                                                                                                                            Data.Map.Internal.Tip
                                                                                                                                                                                                    else
                                                                                                                                                                                                      let _ = "choicesBranch.else"
                                                                                                                                                                                                       in let (#
                                                                                                                                                                                                                farInp_786,
                                                                                                                                                                                                                farExp_787
                                                                                                                                                                                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_778 failInp_777 of
                                                                                                                                                                                                                  GHC.Types.LT ->
                                                                                                                                                                                                                    (#
                                                                                                                                                                                                                      failInp_777,
                                                                                                                                                                                                                      []
                                                                                                                                                                                                                    #)
                                                                                                                                                                                                                  GHC.Types.EQ ->
                                                                                                                                                                                                                    (#
                                                                                                                                                                                                                      farInp_778,
                                                                                                                                                                                                                      farExp_779 GHC.Base.<> []
                                                                                                                                                                                                                    #)
                                                                                                                                                                                                                  GHC.Types.GT ->
                                                                                                                                                                                                                    (#
                                                                                                                                                                                                                      farInp_778,
                                                                                                                                                                                                                      farExp_779
                                                                                                                                                                                                                    #)
                                                                                                                                                                                                           in catchHandler_703 failInp_777 farInp_786 farExp_787
                                                                                                                                                                                         in let readFail_788 = catchHandler_776
                                                                                                                                                                                             in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_757)
                                                                                                                                                                                                  then
                                                                                                                                                                                                    let !(#
                                                                                                                                                                                                           c_789,
                                                                                                                                                                                                           cs_790
                                                                                                                                                                                                           #) = readNext_3 inp_757
                                                                                                                                                                                                     in if (':' GHC.Classes.==) c_789
                                                                                                                                                                                                          then
                                                                                                                                                                                                            name_144
                                                                                                                                                                                                              ( let _ = "suspend"
                                                                                                                                                                                                                 in \farInp_791 farExp_792 v_793 (!inp_794) ->
                                                                                                                                                                                                                      name_636
                                                                                                                                                                                                                        ( let _ = "suspend"
                                                                                                                                                                                                                           in \farInp_795 farExp_796 v_797 (!inp_798) ->
                                                                                                                                                                                                                                let _ = "resume"
                                                                                                                                                                                                                                 in join_758
                                                                                                                                                                                                                                      farInp_795
                                                                                                                                                                                                                                      farExp_796
                                                                                                                                                                                                                                      ( let _ = "resume.genCode"
                                                                                                                                                                                                                                         in GHC.Tuple . ()
                                                                                                                                                                                                                                      )
                                                                                                                                                                                                                                      inp_798
                                                                                                                                                                                                                        )
                                                                                                                                                                                                                        inp_794
                                                                                                                                                                                                                        Data.Map.Internal.Tip
                                                                                                                                                                                                              )
                                                                                                                                                                                                              cs_790
                                                                                                                                                                                                              (Data.Map.Internal.Bin 1 "fail" readFail_788 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                                                                                                                                                                                          else
                                                                                                                                                                                                            let _ = "checkToken.else"
                                                                                                                                                                                                             in let (#
                                                                                                                                                                                                                      farInp_799,
                                                                                                                                                                                                                      farExp_800
                                                                                                                                                                                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_754 inp_757 of
                                                                                                                                                                                                                        GHC.Types.LT ->
                                                                                                                                                                                                                          (#
                                                                                                                                                                                                                            inp_757,
                                                                                                                                                                                                                            [Symantic.Parser.Grammar.Combinators.ErrorItemToken ':']
                                                                                                                                                                                                                          #)
                                                                                                                                                                                                                        GHC.Types.EQ ->
                                                                                                                                                                                                                          (#
                                                                                                                                                                                                                            farInp_754,
                                                                                                                                                                                                                            farExp_755 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken ':']
                                                                                                                                                                                                                          #)
                                                                                                                                                                                                                        GHC.Types.GT ->
                                                                                                                                                                                                                          (#
                                                                                                                                                                                                                            farInp_754,
                                                                                                                                                                                                                            farExp_755
                                                                                                                                                                                                                          #)
                                                                                                                                                                                                                 in readFail_788 inp_757 farInp_799 farExp_800
                                                                                                                                                                                                  else
                                                                                                                                                                                                    let _ = "checkHorizon.else"
                                                                                                                                                                                                     in let (#
                                                                                                                                                                                                              farInp_801,
                                                                                                                                                                                                              farExp_802
                                                                                                                                                                                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_754 inp_757 of
                                                                                                                                                                                                                GHC.Types.LT ->
                                                                                                                                                                                                                  (#
                                                                                                                                                                                                                    inp_757,
                                                                                                                                                                                                                    [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
                                                                                                                                                                                                                  #)
                                                                                                                                                                                                                GHC.Types.EQ ->
                                                                                                                                                                                                                  (#
                                                                                                                                                                                                                    farInp_754,
                                                                                                                                                                                                                    farExp_755 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
                                                                                                                                                                                                                  #)
                                                                                                                                                                                                                GHC.Types.GT ->
                                                                                                                                                                                                                  (#
                                                                                                                                                                                                                    farInp_754,
                                                                                                                                                                                                                    farExp_755
                                                                                                                                                                                                                  #)
                                                                                                                                                                                                         in readFail_788 inp_757 farInp_801 farExp_802
                                                                                                                                                                        )
                                                                                                                                                                        inp_753
                                                                                                                                                                        Data.Map.Internal.Tip
                                                                                                                                                              )
                                                                                                                                                              inp_749
                                                                                                                                                              (Data.Map.Internal.Bin 1 "fail" catchHandler_703 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                                                                                                                                    )
                                                                                                                                                    inp_745
                                                                                                                                                    Data.Map.Internal.Tip
                                                                                                                                          )
                                                                                                                                          cs_741
                                                                                                                                          Data.Map.Internal.Tip
                                                                                                                                      else
                                                                                                                                        let _ = "checkToken.else"
                                                                                                                                         in let (#
                                                                                                                                                  farInp_803,
                                                                                                                                                  farExp_804
                                                                                                                                                  #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_738 of
                                                                                                                                                    GHC.Types.LT ->
                                                                                                                                                      (#
                                                                                                                                                        cs_738,
                                                                                                                                                        [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'n']
                                                                                                                                                      #)
                                                                                                                                                    GHC.Types.EQ ->
                                                                                                                                                      (#
                                                                                                                                                        init_1,
                                                                                                                                                        GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'n']
                                                                                                                                                      #)
                                                                                                                                                    GHC.Types.GT ->
                                                                                                                                                      (#
                                                                                                                                                        init_1,
                                                                                                                                                        GHC.Types . []
                                                                                                                                                      #)
                                                                                                                                             in readFail_718 cs_738 farInp_803 farExp_804
                                                                                                                          else
                                                                                                                            let _ = "checkToken.else"
                                                                                                                             in let (#
                                                                                                                                      farInp_805,
                                                                                                                                      farExp_806
                                                                                                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_735 of
                                                                                                                                        GHC.Types.LT ->
                                                                                                                                          (#
                                                                                                                                            cs_735,
                                                                                                                                            [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'o']
                                                                                                                                          #)
                                                                                                                                        GHC.Types.EQ ->
                                                                                                                                          (#
                                                                                                                                            init_1,
                                                                                                                                            GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'o']
                                                                                                                                          #)
                                                                                                                                        GHC.Types.GT ->
                                                                                                                                          (#
                                                                                                                                            init_1,
                                                                                                                                            GHC.Types . []
                                                                                                                                          #)
                                                                                                                                 in readFail_718 cs_735 farInp_805 farExp_806
                                                                                                              else
                                                                                                                let _ = "checkToken.else"
                                                                                                                 in let (#
                                                                                                                          farInp_807,
                                                                                                                          farExp_808
                                                                                                                          #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_732 of
                                                                                                                            GHC.Types.LT ->
                                                                                                                              (#
                                                                                                                                cs_732,
                                                                                                                                [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'i']
                                                                                                                              #)
                                                                                                                            GHC.Types.EQ ->
                                                                                                                              (#
                                                                                                                                init_1,
                                                                                                                                GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'i']
                                                                                                                              #)
                                                                                                                            GHC.Types.GT ->
                                                                                                                              (#
                                                                                                                                init_1,
                                                                                                                                GHC.Types . []
                                                                                                                              #)
                                                                                                                     in readFail_718 cs_732 farInp_807 farExp_808
                                                                                                  else
                                                                                                    let _ = "checkToken.else"
                                                                                                     in let (#
                                                                                                              farInp_809,
                                                                                                              farExp_810
                                                                                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_729 of
                                                                                                                GHC.Types.LT ->
                                                                                                                  (#
                                                                                                                    cs_729,
                                                                                                                    [Symantic.Parser.Grammar.Combinators.ErrorItemToken 't']
                                                                                                                  #)
                                                                                                                GHC.Types.EQ ->
                                                                                                                  (#
                                                                                                                    init_1,
                                                                                                                    GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 't']
                                                                                                                  #)
                                                                                                                GHC.Types.GT ->
                                                                                                                  (#
                                                                                                                    init_1,
                                                                                                                    GHC.Types . []
                                                                                                                  #)
                                                                                                         in readFail_718 cs_729 farInp_809 farExp_810
                                                                                      else
                                                                                        let _ = "checkToken.else"
                                                                                         in let (#
                                                                                                  farInp_811,
                                                                                                  farExp_812
                                                                                                  #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_726 of
                                                                                                    GHC.Types.LT ->
                                                                                                      (#
                                                                                                        cs_726,
                                                                                                        [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_718 cs_726 farInp_811 farExp_812
                                                                          else
                                                                            let _ = "checkToken.else"
                                                                             in let (#
                                                                                      farInp_813,
                                                                                      farExp_814
                                                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_723 of
                                                                                        GHC.Types.LT ->
                                                                                          (#
                                                                                            cs_723,
                                                                                            [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'n']
                                                                                          #)
                                                                                        GHC.Types.EQ ->
                                                                                          (#
                                                                                            init_1,
                                                                                            GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'n']
                                                                                          #)
                                                                                        GHC.Types.GT ->
                                                                                          (#
                                                                                            init_1,
                                                                                            GHC.Types . []
                                                                                          #)
                                                                                 in readFail_718 cs_723 farInp_813 farExp_814
                                                              else
                                                                let _ = "checkToken.else"
                                                                 in let (#
                                                                          farInp_815,
                                                                          farExp_816
                                                                          #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_720 of
                                                                            GHC.Types.LT ->
                                                                              (#
                                                                                cs_720,
                                                                                [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'u']
                                                                              #)
                                                                            GHC.Types.EQ ->
                                                                              (#
                                                                                init_1,
                                                                                GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'u']
                                                                              #)
                                                                            GHC.Types.GT ->
                                                                              (#
                                                                                init_1,
                                                                                GHC.Types . []
                                                                              #)
                                                                     in readFail_718 cs_720 farInp_815 farExp_816
                                                  else
                                                    let _ = "checkToken.else"
                                                     in let (#
                                                              farInp_817,
                                                              farExp_818
                                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_701 of
                                                                GHC.Types.LT ->
                                                                  (#
                                                                    inp_701,
                                                                    [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'f']
                                                                  #)
                                                                GHC.Types.EQ ->
                                                                  (#
                                                                    init_1,
                                                                    GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'f']
                                                                  #)
                                                                GHC.Types.GT ->
                                                                  (#
                                                                    init_1,
                                                                    GHC.Types . []
                                                                  #)
                                                         in readFail_718 inp_701 farInp_817 farExp_818
                                          else
                                            let _ = "checkHorizon.else"
                                             in let (#
                                                      farInp_819,
                                                      farExp_820
                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_701 of
                                                        GHC.Types.LT ->
                                                          (#
                                                            inp_701,
                                                            [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 18]
                                                          #)
                                                        GHC.Types.EQ ->
                                                          (#
                                                            init_1,
                                                            GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 18]
                                                          #)
                                                        GHC.Types.GT ->
                                                          (#
                                                            init_1,
                                                            GHC.Types . []
                                                          #)
                                                 in readFail_718 inp_701 farInp_819 farExp_820
                  name_34 = \(!ok_821) (!inp_822) (!koByLabel_823) ->
                    let _ = "catchException lbl=fail"
                     in let catchHandler_824 (!failInp_825) (!farInp_826) (!farExp_827) =
                              let _ = "catchException.ko lbl=fail"
                               in let (#
                                        farInp_828,
                                        farExp_829
                                        #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_826 inp_822 of
                                          GHC.Types.LT ->
                                            (#
                                              inp_822,
                                              []
                                            #)
                                          GHC.Types.EQ ->
                                            (#
                                              farInp_826,
                                              farExp_827 GHC.Base.<> []
                                            #)
                                          GHC.Types.GT ->
                                            (#
                                              farInp_826,
                                              farExp_827
                                            #)
                                   in finalRaise_18 inp_822 farInp_828 farExp_829
                         in let readFail_830 = catchHandler_824
                             in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_822)
                                  then
                                    let !(#
                                           c_831,
                                           cs_832
                                           #) = readNext_3 inp_822
                                     in if Grammar.Nandlang.nandIdentStart c_831
                                          then
                                            name_50
                                              ( let _ = "suspend"
                                                 in \farInp_833 farExp_834 v_835 (!inp_836) ->
                                                      name_611
                                                        ( let _ = "suspend"
                                                           in \farInp_837 farExp_838 v_839 (!inp_840) ->
                                                                name_50
                                                                  ( let _ = "suspend"
                                                                     in \farInp_841 farExp_842 v_843 (!inp_844) ->
                                                                          name_144
                                                                            ( let _ = "suspend"
                                                                               in \farInp_845 farExp_846 v_847 (!inp_848) ->
                                                                                    let _ = "resume"
                                                                                     in ok_821
                                                                                          farInp_845
                                                                                          farExp_846
                                                                                          ( let _ = "resume.genCode"
                                                                                             in v_847
                                                                                          )
                                                                                          inp_848
                                                                            )
                                                                            inp_844
                                                                            Data.Map.Internal.Tip
                                                                  )
                                                                  inp_840
                                                                  Data.Map.Internal.Tip
                                                        )
                                                        inp_836
                                                        Data.Map.Internal.Tip
                                              )
                                              cs_832
                                              Data.Map.Internal.Tip
                                          else
                                            let _ = "checkToken.else"
                                             in let (#
                                                      farInp_849,
                                                      farExp_850
                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_822 of
                                                        GHC.Types.LT ->
                                                          (#
                                                            inp_822,
                                                            [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "identStart"]
                                                          #)
                                                        GHC.Types.EQ ->
                                                          (#
                                                            init_1,
                                                            GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "identStart"]
                                                          #)
                                                        GHC.Types.GT ->
                                                          (#
                                                            init_1,
                                                            GHC.Types . []
                                                          #)
                                                 in readFail_830 inp_822 farInp_849 farExp_850
                                  else
                                    let _ = "checkHorizon.else"
                                     in let (#
                                              farInp_851,
                                              farExp_852
                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_822 of
                                                GHC.Types.LT ->
                                                  (#
                                                    inp_822,
                                                    [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_830 inp_822 farInp_851 farExp_852
                  name_478 = \(!ok_853) (!inp_854) (!koByLabel_855) ->
                    let readFail_856 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_855
                     in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 3 inp_854)
                          then
                            let !(#
                                   c_857,
                                   cs_858
                                   #) = readNext_3 inp_854
                             in if ('{' GHC.Classes.==) c_857
                                  then
                                    name_144
                                      ( let _ = "suspend"
                                         in \farInp_859 farExp_860 v_861 (!inp_862) ->
                                              name_50
                                                ( let _ = "suspend"
                                                   in \farInp_863 farExp_864 v_865 (!inp_866) ->
                                                        name_287
                                                          ( let _ = "suspend"
                                                             in \farInp_867 farExp_868 v_869 (!inp_870) ->
                                                                  name_50
                                                                    ( let _ = "suspend"
                                                                       in \farInp_871 farExp_872 v_873 (!inp_874) ->
                                                                            let readFail_875 = readFail_856
                                                                             in if readMore_2 inp_874
                                                                                  then
                                                                                    let !(#
                                                                                           c_876,
                                                                                           cs_877
                                                                                           #) = readNext_3 inp_874
                                                                                     in if ('}' GHC.Classes.==) c_876
                                                                                          then
                                                                                            name_144
                                                                                              ( let _ = "suspend"
                                                                                                 in \farInp_878 farExp_879 v_880 (!inp_881) ->
                                                                                                      let _ = "resume"
                                                                                                       in ok_853
                                                                                                            farInp_878
                                                                                                            farExp_879
                                                                                                            ( let _ = "resume.genCode"
                                                                                                               in v_873
                                                                                                            )
                                                                                                            inp_881
                                                                                              )
                                                                                              cs_877
                                                                                              (Data.Map.Internal.Bin 1 "fail" readFail_875 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                                                                          else
                                                                                            let _ = "checkToken.else"
                                                                                             in let (#
                                                                                                      farInp_882,
                                                                                                      farExp_883
                                                                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_871 inp_874 of
                                                                                                        GHC.Types.LT ->
                                                                                                          (#
                                                                                                            inp_874,
                                                                                                            [Symantic.Parser.Grammar.Combinators.ErrorItemToken '}']
                                                                                                          #)
                                                                                                        GHC.Types.EQ ->
                                                                                                          (#
                                                                                                            farInp_871,
                                                                                                            farExp_872 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '}']
                                                                                                          #)
                                                                                                        GHC.Types.GT ->
                                                                                                          (#
                                                                                                            farInp_871,
                                                                                                            farExp_872
                                                                                                          #)
                                                                                                 in readFail_875 inp_874 farInp_882 farExp_883
                                                                                  else
                                                                                    let _ = "checkHorizon.else"
                                                                                     in let (#
                                                                                              farInp_884,
                                                                                              farExp_885
                                                                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_871 inp_874 of
                                                                                                GHC.Types.LT ->
                                                                                                  (#
                                                                                                    inp_874,
                                                                                                    [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
                                                                                                  #)
                                                                                                GHC.Types.EQ ->
                                                                                                  (#
                                                                                                    farInp_871,
                                                                                                    farExp_872 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
                                                                                                  #)
                                                                                                GHC.Types.GT ->
                                                                                                  (#
                                                                                                    farInp_871,
                                                                                                    farExp_872
                                                                                                  #)
                                                                                         in readFail_875 inp_874 farInp_884 farExp_885
                                                                    )
                                                                    inp_870
                                                                    Data.Map.Internal.Tip
                                                          )
                                                          inp_866
                                                          Data.Map.Internal.Tip
                                                )
                                                inp_862
                                                Data.Map.Internal.Tip
                                      )
                                      cs_858
                                      (Data.Map.Internal.Bin 1 "fail" readFail_856 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                  else
                                    let _ = "checkToken.else"
                                     in let (#
                                              farInp_886,
                                              farExp_887
                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_854 of
                                                GHC.Types.LT ->
                                                  (#
                                                    inp_854,
                                                    [Symantic.Parser.Grammar.Combinators.ErrorItemToken '{']
                                                  #)
                                                GHC.Types.EQ ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '{']
                                                  #)
                                                GHC.Types.GT ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . []
                                                  #)
                                         in readFail_856 inp_854 farInp_886 farExp_887
                          else
                            let _ = "checkHorizon.else"
                             in let (#
                                      farInp_888,
                                      farExp_889
                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_854 of
                                        GHC.Types.LT ->
                                          (#
                                            inp_854,
                                            [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_856 inp_854 farInp_888 farExp_889
                  name_656 = \(!ok_890) (!inp_891) (!koByLabel_892) ->
                    let _ = "catchException lbl=fail"
                     in let catchHandler_893 (!failInp_894) (!farInp_895) (!farExp_896) =
                              let _ = "catchException.ko lbl=fail"
                               in if ( \( Data.Text.Internal.Text
                                            _
                                            i_897
                                            _
                                          )
                                        ( Data.Text.Internal.Text
                                            _
                                            j_898
                                            _
                                          ) -> i_897 GHC.Classes.== j_898
                                     )
                                    inp_891
                                    failInp_894
                                    then
                                      let _ = "choicesBranch.then"
                                       in let _ = "resume"
                                           in ok_890
                                                farInp_895
                                                farExp_896
                                                ( let _ = "resume.genCode"
                                                   in \x_899 -> x_899
                                                )
                                                failInp_894
                                    else
                                      let _ = "choicesBranch.else"
                                       in let (#
                                                farInp_900,
                                                farExp_901
                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_895 failInp_894 of
                                                  GHC.Types.LT ->
                                                    (#
                                                      failInp_894,
                                                      []
                                                    #)
                                                  GHC.Types.EQ ->
                                                    (#
                                                      farInp_895,
                                                      farExp_896 GHC.Base.<> []
                                                    #)
                                                  GHC.Types.GT ->
                                                    (#
                                                      farInp_895,
                                                      farExp_896
                                                    #)
                                           in finalRaise_18 failInp_894 farInp_900 farExp_901
                         in name_237
                              ( let _ = "suspend"
                                 in \farInp_902 farExp_903 v_904 (!inp_905) ->
                                      name_242
                                        ( let _ = "suspend"
                                           in \farInp_906 farExp_907 v_908 (!inp_909) ->
                                                name_277
                                                  ( let _ = "suspend"
                                                     in \farInp_910 farExp_911 v_912 (!inp_913) ->
                                                          name_656
                                                            ( let _ = "suspend"
                                                               in \farInp_914 farExp_915 v_916 (!inp_917) ->
                                                                    let _ = "resume"
                                                                     in ok_890
                                                                          farInp_914
                                                                          farExp_915
                                                                          ( let _ = "resume.genCode"
                                                                             in \x_918 -> v_904 v_912 (v_916 x_918)
                                                                          )
                                                                          inp_917
                                                            )
                                                            inp_913
                                                            Data.Map.Internal.Tip
                                                  )
                                                  inp_909
                                                  Data.Map.Internal.Tip
                                        )
                                        inp_905
                                        (Data.Map.Internal.Bin 1 "fail" catchHandler_893 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                              )
                              inp_891
                              Data.Map.Internal.Tip
                  name_423 = \(!ok_919) (!inp_920) (!koByLabel_921) ->
                    let _ = "resume"
                     in ok_919 init_1 GHC.Types
                          . []
                            ( let _ = "resume.genCode"
                               in GHC.Tuple . ()
                            )
                            inp_920
                  name_922 = \(!ok_923) (!inp_924) (!koByLabel_925) ->
                    let _ = "catchException lbl=fail"
                     in let catchHandler_926 (!failInp_927) (!farInp_928) (!farExp_929) =
                              let _ = "catchException.ko lbl=fail"
                               in if ( \( Data.Text.Internal.Text
                                            _
                                            i_930
                                            _
                                          )
                                        ( Data.Text.Internal.Text
                                            _
                                            j_931
                                            _
                                          ) -> i_930 GHC.Classes.== j_931
                                     )
                                    inp_924
                                    failInp_927
                                    then
                                      let _ = "choicesBranch.then"
                                       in let _ = "resume"
                                           in ok_923
                                                farInp_928
                                                farExp_929
                                                ( let _ = "resume.genCode"
                                                   in \x_932 -> x_932
                                                )
                                                failInp_927
                                    else
                                      let _ = "choicesBranch.else"
                                       in let (#
                                                farInp_933,
                                                farExp_934
                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_928 failInp_927 of
                                                  GHC.Types.LT ->
                                                    (#
                                                      failInp_927,
                                                      []
                                                    #)
                                                  GHC.Types.EQ ->
                                                    (#
                                                      farInp_928,
                                                      farExp_929 GHC.Base.<> []
                                                    #)
                                                  GHC.Types.GT ->
                                                    (#
                                                      farInp_928,
                                                      farExp_929
                                                    #)
                                           in finalRaise_18 failInp_927 farInp_933 farExp_934
                         in name_935
                              ( let _ = "suspend"
                                 in \farInp_936 farExp_937 v_938 (!inp_939) ->
                                      name_922
                                        ( let _ = "suspend"
                                           in \farInp_940 farExp_941 v_942 (!inp_943) ->
                                                let _ = "resume"
                                                 in ok_923
                                                      farInp_940
                                                      farExp_941
                                                      ( let _ = "resume.genCode"
                                                         in \x_944 -> v_942 x_944
                                                      )
                                                      inp_943
                                        )
                                        inp_939
                                        Data.Map.Internal.Tip
                              )
                              inp_924
                              (Data.Map.Internal.Bin 1 "fail" catchHandler_926 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                  name_935 = \(!ok_945) (!inp_946) (!koByLabel_947) ->
                    let readFail_948 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_947
                     in if readMore_2 inp_946
                          then
                            let !(#
                                   c_949,
                                   cs_950
                                   #) = readNext_3 inp_946
                             in if GHC.Unicode.isSpace c_949
                                  then
                                    name_50
                                      ( let _ = "suspend"
                                         in \farInp_951 farExp_952 v_953 (!inp_954) ->
                                              let _ = "resume"
                                               in ok_945
                                                    farInp_951
                                                    farExp_952
                                                    ( let _ = "resume.genCode"
                                                       in v_953
                                                    )
                                                    inp_954
                                      )
                                      cs_950
                                      Data.Map.Internal.Tip
                                  else
                                    let _ = "checkToken.else"
                                     in let (#
                                              farInp_955,
                                              farExp_956
                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_946 of
                                                GHC.Types.LT ->
                                                  (#
                                                    inp_946,
                                                    [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "space"]
                                                  #)
                                                GHC.Types.EQ ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "space"]
                                                  #)
                                                GHC.Types.GT ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . []
                                                  #)
                                         in readFail_948 inp_946 farInp_955 farExp_956
                          else
                            let _ = "checkHorizon.else"
                             in let (#
                                      farInp_957,
                                      farExp_958
                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_946 of
                                        GHC.Types.LT ->
                                          (#
                                            inp_946,
                                            [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_948 inp_946 farInp_957 farExp_958
                  name_690 = \(!ok_959) (!inp_960) (!koByLabel_961) ->
                    let _ = "catchException lbl=fail"
                     in let catchHandler_962 (!failInp_963) (!farInp_964) (!farExp_965) =
                              let _ = "catchException.ko lbl=fail"
                               in if ( \( Data.Text.Internal.Text
                                            _
                                            i_966
                                            _
                                          )
                                        ( Data.Text.Internal.Text
                                            _
                                            j_967
                                            _
                                          ) -> i_966 GHC.Classes.== j_967
                                     )
                                    inp_960
                                    failInp_963
                                    then
                                      let _ = "choicesBranch.then"
                                       in let _ = "resume"
                                           in ok_959
                                                farInp_964
                                                farExp_965
                                                ( let _ = "resume.genCode"
                                                   in \x_968 -> x_968
                                                )
                                                failInp_963
                                    else
                                      let _ = "choicesBranch.else"
                                       in let (#
                                                farInp_969,
                                                farExp_970
                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_964 failInp_963 of
                                                  GHC.Types.LT ->
                                                    (#
                                                      failInp_963,
                                                      []
                                                    #)
                                                  GHC.Types.EQ ->
                                                    (#
                                                      farInp_964,
                                                      farExp_965 GHC.Base.<> []
                                                    #)
                                                  GHC.Types.GT ->
                                                    (#
                                                      farInp_964,
                                                      farExp_965
                                                    #)
                                           in finalRaise_18 failInp_963 farInp_969 farExp_970
                         in let readFail_971 = catchHandler_962
                             in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 3 inp_960)
                                  then
                                    let !(#
                                           c_972,
                                           cs_973
                                           #) = readNext_3 inp_960
                                     in if ('!' GHC.Classes.==) c_972
                                          then
                                            name_144
                                              ( let _ = "suspend"
                                                 in \farInp_974 farExp_975 v_976 (!inp_977) ->
                                                      name_24
                                                        ( let _ = "suspend"
                                                           in \farInp_978 farExp_979 v_980 (!inp_981) ->
                                                                name_690
                                                                  ( let _ = "suspend"
                                                                     in \farInp_982 farExp_983 v_984 (!inp_985) ->
                                                                          let _ = "resume"
                                                                           in ok_959
                                                                                farInp_982
                                                                                farExp_983
                                                                                ( let _ = "resume.genCode"
                                                                                   in \x_986 -> v_984 x_986
                                                                                )
                                                                                inp_985
                                                                  )
                                                                  inp_981
                                                                  Data.Map.Internal.Tip
                                                        )
                                                        inp_977
                                                        Data.Map.Internal.Tip
                                              )
                                              cs_973
                                              (Data.Map.Internal.Bin 1 "fail" readFail_971 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                          else
                                            let _ = "checkToken.else"
                                             in let (#
                                                      farInp_987,
                                                      farExp_988
                                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_960 of
                                                        GHC.Types.LT ->
                                                          (#
                                                            inp_960,
                                                            [Symantic.Parser.Grammar.Combinators.ErrorItemToken '!']
                                                          #)
                                                        GHC.Types.EQ ->
                                                          (#
                                                            init_1,
                                                            GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '!']
                                                          #)
                                                        GHC.Types.GT ->
                                                          (#
                                                            init_1,
                                                            GHC.Types . []
                                                          #)
                                                 in readFail_971 inp_960 farInp_987 farExp_988
                                  else
                                    let _ = "checkHorizon.else"
                                     in let (#
                                              farInp_989,
                                              farExp_990
                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_960 of
                                                GHC.Types.LT ->
                                                  (#
                                                    inp_960,
                                                    [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_971 inp_960 farInp_989 farExp_990
                  name_242 = \(!ok_991) (!inp_992) (!koByLabel_993) ->
                    let readFail_994 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_993
                     in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_992)
                          then
                            let !(#
                                   c_995,
                                   cs_996
                                   #) = readNext_3 inp_992
                             in if (',' GHC.Classes.==) c_995
                                  then
                                    name_144
                                      ( let _ = "suspend"
                                         in \farInp_997 farExp_998 v_999 (!inp_1000) ->
                                              let _ = "resume"
                                               in ok_991
                                                    farInp_997
                                                    farExp_998
                                                    ( let _ = "resume.genCode"
                                                       in ','
                                                    )
                                                    inp_1000
                                      )
                                      cs_996
                                      (Data.Map.Internal.Bin 1 "fail" readFail_994 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                                  else
                                    let _ = "checkToken.else"
                                     in let (#
                                              farInp_1001,
                                              farExp_1002
                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_992 of
                                                GHC.Types.LT ->
                                                  (#
                                                    inp_992,
                                                    [Symantic.Parser.Grammar.Combinators.ErrorItemToken ',']
                                                  #)
                                                GHC.Types.EQ ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken ',']
                                                  #)
                                                GHC.Types.GT ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . []
                                                  #)
                                         in readFail_994 inp_992 farInp_1001 farExp_1002
                          else
                            let _ = "checkHorizon.else"
                             in let (#
                                      farInp_1003,
                                      farExp_1004
                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_992 of
                                        GHC.Types.LT ->
                                          (#
                                            inp_992,
                                            [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_994 inp_992 farInp_1003 farExp_1004
                  name_277 = \(!ok_1005) (!inp_1006) (!koByLabel_1007) ->
                    name_34
                      ( let _ = "suspend"
                         in \farInp_1008 farExp_1009 v_1010 (!inp_1011) ->
                              let join_1012 = \farInp_1013 farExp_1014 v_1015 (!inp_1016) ->
                                    let _ = "resume"
                                     in ok_1005
                                          farInp_1013
                                          farExp_1014
                                          ( let _ = "resume.genCode"
                                             in v_1015
                                          )
                                          inp_1016
                               in let _ = "catchException lbl=fail"
                                   in let catchHandler_1017 (!failInp_1018) (!farInp_1019) (!farExp_1020) =
                                            let _ = "catchException.ko lbl=fail"
                                             in if ( \( Data.Text.Internal.Text
                                                          _
                                                          i_1021
                                                          _
                                                        )
                                                      ( Data.Text.Internal.Text
                                                          _
                                                          j_1022
                                                          _
                                                        ) -> i_1021 GHC.Classes.== j_1022
                                                   )
                                                  inp_1011
                                                  failInp_1018
                                                  then
                                                    let _ = "choicesBranch.then"
                                                     in name_50
                                                          ( let _ = "suspend"
                                                             in \farInp_1023 farExp_1024 v_1025 (!inp_1026) ->
                                                                  let _ = "resume"
                                                                   in join_1012
                                                                        farInp_1023
                                                                        farExp_1024
                                                                        ( let _ = "resume.genCode"
                                                                           in v_1025
                                                                        )
                                                                        inp_1026
                                                          )
                                                          failInp_1018
                                                          Data.Map.Internal.Tip
                                                  else
                                                    let _ = "choicesBranch.else"
                                                     in let (#
                                                              farInp_1027,
                                                              farExp_1028
                                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_1019 failInp_1018 of
                                                                GHC.Types.LT ->
                                                                  (#
                                                                    failInp_1018,
                                                                    []
                                                                  #)
                                                                GHC.Types.EQ ->
                                                                  (#
                                                                    farInp_1019,
                                                                    farExp_1020 GHC.Base.<> []
                                                                  #)
                                                                GHC.Types.GT ->
                                                                  (#
                                                                    farInp_1019,
                                                                    farExp_1020
                                                                  #)
                                                         in finalRaise_18 failInp_1018 farInp_1027 farExp_1028
                                       in name_68
                                            ( let _ = "suspend"
                                               in \farInp_1029 farExp_1030 v_1031 (!inp_1032) ->
                                                    let _ = "resume"
                                                     in join_1012
                                                          farInp_1029
                                                          farExp_1030
                                                          ( let _ = "resume.genCode"
                                                             in GHC.Tuple . ()
                                                          )
                                                          inp_1032
                                            )
                                            inp_1011
                                            (Data.Map.Internal.Bin 1 "fail" catchHandler_1017 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                      )
                      inp_1006
                      Data.Map.Internal.Tip
                  name_543 = \(!ok_1033) (!inp_1034) (!koByLabel_1035) ->
                    let readFail_1036 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_1035
                     in if readMore_2 inp_1034
                          then
                            let !(#
                                   c_1037,
                                   cs_1038
                                   #) = readNext_3 inp_1034
                             in if (\t_1039 -> ('0' GHC.Classes.== t_1039) GHC.Classes.|| (('1' GHC.Classes.== t_1039) GHC.Classes.|| (('2' GHC.Classes.== t_1039) GHC.Classes.|| (('3' GHC.Classes.== t_1039) GHC.Classes.|| (('4' GHC.Classes.== t_1039) GHC.Classes.|| (('5' GHC.Classes.== t_1039) GHC.Classes.|| (('6' GHC.Classes.== t_1039) GHC.Classes.|| (('7' GHC.Classes.== t_1039) GHC.Classes.|| (('8' GHC.Classes.== t_1039) GHC.Classes.|| (('9' GHC.Classes.== t_1039) GHC.Classes.|| GHC.Types.False)))))))))) c_1037
                                  then
                                    let _ = "resume"
                                     in ok_1033 init_1 GHC.Types
                                          . []
                                            ( let _ = "resume.genCode"
                                               in c_1037
                                            )
                                            cs_1038
                                  else
                                    let _ = "checkToken.else"
                                     in let (#
                                              farInp_1040,
                                              farExp_1041
                                              #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_1034 of
                                                GHC.Types.LT ->
                                                  (#
                                                    inp_1034,
                                                    [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "oneOf"]
                                                  #)
                                                GHC.Types.EQ ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "oneOf"]
                                                  #)
                                                GHC.Types.GT ->
                                                  (#
                                                    init_1,
                                                    GHC.Types . []
                                                  #)
                                         in readFail_1036 inp_1034 farInp_1040 farExp_1041
                          else
                            let _ = "checkHorizon.else"
                             in let (#
                                      farInp_1042,
                                      farExp_1043
                                      #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_1034 of
                                        GHC.Types.LT ->
                                          (#
                                            inp_1034,
                                            [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_1036 inp_1034 farInp_1042 farExp_1043
                  name_111 = \(!ok_1044) (!inp_1045) (!koByLabel_1046) ->
                    let _ = "catchException lbl=fail"
                     in let catchHandler_1047 (!failInp_1048) (!farInp_1049) (!farExp_1050) =
                              let _ = "catchException.ko lbl=fail"
                               in if ( \( Data.Text.Internal.Text
                                            _
                                            i_1051
                                            _
                                          )
                                        ( Data.Text.Internal.Text
                                            _
                                            j_1052
                                            _
                                          ) -> i_1051 GHC.Classes.== j_1052
                                     )
                                    inp_1045
                                    failInp_1048
                                    then
                                      let _ = "choicesBranch.then"
                                       in let _ = "resume"
                                           in ok_1044
                                                farInp_1049
                                                farExp_1050
                                                ( let _ = "resume.genCode"
                                                   in \x_1053 -> x_1053
                                                )
                                                failInp_1048
                                    else
                                      let _ = "choicesBranch.else"
                                       in let (#
                                                farInp_1054,
                                                farExp_1055
                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_1049 failInp_1048 of
                                                  GHC.Types.LT ->
                                                    (#
                                                      failInp_1048,
                                                      []
                                                    #)
                                                  GHC.Types.EQ ->
                                                    (#
                                                      farInp_1049,
                                                      farExp_1050 GHC.Base.<> []
                                                    #)
                                                  GHC.Types.GT ->
                                                    (#
                                                      farInp_1049,
                                                      farExp_1050
                                                    #)
                                           in finalRaise_18 failInp_1048 farInp_1054 farExp_1055
                         in name_237
                              ( let _ = "suspend"
                                 in \farInp_1056 farExp_1057 v_1058 (!inp_1059) ->
                                      name_242
                                        ( let _ = "suspend"
                                           in \farInp_1060 farExp_1061 v_1062 (!inp_1063) ->
                                                name_102
                                                  ( let _ = "suspend"
                                                     in \farInp_1064 farExp_1065 v_1066 (!inp_1067) ->
                                                          name_111
                                                            ( let _ = "suspend"
                                                               in \farInp_1068 farExp_1069 v_1070 (!inp_1071) ->
                                                                    let _ = "resume"
                                                                     in ok_1044
                                                                          farInp_1068
                                                                          farExp_1069
                                                                          ( let _ = "resume.genCode"
                                                                             in \x_1072 -> v_1058 v_1066 (v_1070 x_1072)
                                                                          )
                                                                          inp_1071
                                                            )
                                                            inp_1067
                                                            Data.Map.Internal.Tip
                                                  )
                                                  inp_1063
                                                  Data.Map.Internal.Tip
                                        )
                                        inp_1059
                                        (Data.Map.Internal.Bin 1 "fail" catchHandler_1047 Data.Map.Internal.Tip Data.Map.Internal.Tip)
                              )
                              inp_1045
                              Data.Map.Internal.Tip
                  name_144 = \(!ok_1073) (!inp_1074) (!koByLabel_1075) ->
                    name_935
                      ( let _ = "suspend"
                         in \farInp_1076 farExp_1077 v_1078 (!inp_1079) ->
                              name_922
                                ( let _ = "suspend"
                                   in \farInp_1080 farExp_1081 v_1082 (!inp_1083) ->
                                        let _ = "resume"
                                         in ok_1073
                                              farInp_1080
                                              farExp_1081
                                              ( let _ = "resume.genCode"
                                                 in GHC.Tuple . ()
                                              )
                                              inp_1083
                                )
                                inp_1079
                                Data.Map.Internal.Tip
                      )
                      inp_1074
                      (Data.Map.Internal.Bin 1 "fail" (Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_1075) Data.Map.Internal.Tip Data.Map.Internal.Tip)
               in name_144
                    ( let _ = "suspend"
                       in \farInp_1084 farExp_1085 v_1086 (!inp_1087) ->
                            name_50
                              ( let _ = "suspend"
                                 in \farInp_1088 farExp_1089 v_1090 (!inp_1091) ->
                                      name_699
                                        ( let _ = "suspend"
                                           in \farInp_1092 farExp_1093 v_1094 (!inp_1095) ->
                                                name_50
                                                  ( let _ = "suspend"
                                                     in \farInp_1096 farExp_1097 v_1098 (!inp_1099) ->
                                                          let join_1100 = \farInp_1101 farExp_1102 v_1103 (!inp_1104) ->
                                                                let _ = "resume"
                                                                 in finalRet_13
                                                                      farInp_1101
                                                                      farExp_1102
                                                                      ( let _ = "resume.genCode"
                                                                         in v_1098
                                                                      )
                                                                      inp_1104
                                                           in let _ = "catchException lbl=fail"
                                                               in let catchHandler_1105 (!failInp_1106) (!farInp_1107) (!farExp_1108) =
                                                                        let _ = "catchException.ko lbl=fail"
                                                                         in if ( \( Data.Text.Internal.Text
                                                                                      _
                                                                                      i_1109
                                                                                      _
                                                                                    )
                                                                                  ( Data.Text.Internal.Text
                                                                                      _
                                                                                      j_1110
                                                                                      _
                                                                                    ) -> i_1109 GHC.Classes.== j_1110
                                                                               )
                                                                              inp_1099
                                                                              failInp_1106
                                                                              then
                                                                                let _ = "choicesBranch.then"
                                                                                 in let (#
                                                                                          farInp_1111,
                                                                                          farExp_1112
                                                                                          #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_1107 failInp_1106 of
                                                                                            GHC.Types.LT ->
                                                                                              (#
                                                                                                failInp_1106,
                                                                                                [Symantic.Parser.Grammar.Combinators.ErrorItemEnd]
                                                                                              #)
                                                                                            GHC.Types.EQ ->
                                                                                              (#
                                                                                                farInp_1107,
                                                                                                farExp_1108 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemEnd]
                                                                                              #)
                                                                                            GHC.Types.GT ->
                                                                                              (#
                                                                                                farInp_1107,
                                                                                                farExp_1108
                                                                                              #)
                                                                                     in finalRaise_18 failInp_1106 farInp_1111 farExp_1112
                                                                              else
                                                                                let _ = "choicesBranch.else"
                                                                                 in let (#
                                                                                          farInp_1113,
                                                                                          farExp_1114
                                                                                          #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_1107 failInp_1106 of
                                                                                            GHC.Types.LT ->
                                                                                              (#
                                                                                                failInp_1106,
                                                                                                []
                                                                                              #)
                                                                                            GHC.Types.EQ ->
                                                                                              (#
                                                                                                farInp_1107,
                                                                                                farExp_1108 GHC.Base.<> []
                                                                                              #)
                                                                                            GHC.Types.GT ->
                                                                                              (#
                                                                                                farInp_1107,
                                                                                                farExp_1108
                                                                                              #)
                                                                                     in finalRaise_18 failInp_1106 farInp_1113 farExp_1114
                                                                   in let _ = "catchException lbl=fail"
                                                                       in let catchHandler_1115 (!failInp_1116) (!farInp_1117) (!farExp_1118) =
                                                                                let _ = "catchException.ko lbl=fail"
                                                                                 in let _ = "resume"
                                                                                     in join_1100
                                                                                          farInp_1117
                                                                                          farExp_1118
                                                                                          ( let _ = "resume.genCode"
                                                                                             in GHC.Tuple . ()
                                                                                          )
                                                                                          inp_1099
                                                                           in let readFail_1119 = catchHandler_1115
                                                                               in if readMore_2 inp_1099
                                                                                    then
                                                                                      let !(#
                                                                                             c_1120,
                                                                                             cs_1121
                                                                                             #) = readNext_3 inp_1099
                                                                                       in if (\x_1122 -> GHC.Types.True) c_1120
                                                                                            then
                                                                                              let (#
                                                                                                    farInp_1123,
                                                                                                    farExp_1124
                                                                                                    #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_1096 inp_1099 of
                                                                                                      GHC.Types.LT ->
                                                                                                        (#
                                                                                                          inp_1099,
                                                                                                          []
                                                                                                        #)
                                                                                                      GHC.Types.EQ ->
                                                                                                        (#
                                                                                                          farInp_1096,
                                                                                                          farExp_1097 GHC.Base.<> []
                                                                                                        #)
                                                                                                      GHC.Types.GT ->
                                                                                                        (#
                                                                                                          farInp_1096,
                                                                                                          farExp_1097
                                                                                                        #)
                                                                                               in catchHandler_1105 inp_1099 farInp_1123 farExp_1124
                                                                                            else
                                                                                              let _ = "checkToken.else"
                                                                                               in let (#
                                                                                                        farInp_1125,
                                                                                                        farExp_1126
                                                                                                        #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_1096 inp_1099 of
                                                                                                          GHC.Types.LT ->
                                                                                                            (#
                                                                                                              inp_1099,
                                                                                                              []
                                                                                                            #)
                                                                                                          GHC.Types.EQ ->
                                                                                                            (#
                                                                                                              farInp_1096,
                                                                                                              farExp_1097 GHC.Base.<> []
                                                                                                            #)
                                                                                                          GHC.Types.GT ->
                                                                                                            (#
                                                                                                              farInp_1096,
                                                                                                              farExp_1097
                                                                                                            #)
                                                                                                   in readFail_1119 inp_1099 farInp_1125 farExp_1126
                                                                                    else
                                                                                      let _ = "checkHorizon.else"
                                                                                       in let (#
                                                                                                farInp_1127,
                                                                                                farExp_1128
                                                                                                #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_1096 inp_1099 of
                                                                                                  GHC.Types.LT ->
                                                                                                    (#
                                                                                                      inp_1099,
                                                                                                      [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
                                                                                                    #)
                                                                                                  GHC.Types.EQ ->
                                                                                                    (#
                                                                                                      farInp_1096,
                                                                                                      farExp_1097 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
                                                                                                    #)
                                                                                                  GHC.Types.GT ->
                                                                                                    (#
                                                                                                      farInp_1096,
                                                                                                      farExp_1097
                                                                                                    #)
                                                                                           in readFail_1119 inp_1099 farInp_1127 farExp_1128
                                                  )
                                                  inp_1095
                                                  Data.Map.Internal.Tip
                                        )
                                        inp_1091
                                        Data.Map.Internal.Tip
                              )
                              inp_1087
                              Data.Map.Internal.Tip
                    )
                    init_1
                    Data.Map.Internal.Tip