\(input_0 :: inp_6989586621679040759) -> 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 #) finalRet_13 = \_farInp_14 _farExp_15 v_16 _inp_17 -> Symantic.Parser.Machine.Generate.returnST GHC.Base.$ Data.Either.Right v_16 finalRaise_18 :: forall st_19 b_20. Symantic.Parser.Machine.Generate.Catcher st_19 inp_6989586621679040759 b_20 = \(!exn_21) _failInp_22 (!farInp_23) (!farExp_24) -> Symantic.Parser.Machine.Generate.returnST GHC.Base.$ Data.Either.Left Symantic.Parser.Machine.Generate.ParsingError { Symantic.Parser.Machine.Generate.parsingErrorOffset = Symantic.Parser.Machine.Input.offset farInp_23, Symantic.Parser.Machine.Generate.parsingErrorException = exn_21, Symantic.Parser.Machine.Generate.parsingErrorUnexpected = if readMore_2 farInp_23 then GHC.Maybe.Just ( let (# c_25, _ #) = readNext_3 farInp_23 in c_25 ) else GHC.Maybe.Nothing, Symantic.Parser.Machine.Generate.parsingErrorExpecting = let ( minHoriz_26, res_27 ) = Data.Set.Internal.foldr ( \f_28 ( minH_29, acc_30 ) -> case Symantic.Parser.Grammar.Combinators.unSomeFailure f_28 of GHC.Maybe.Just (Symantic.Parser.Grammar.Combinators.FailureHorizon h_31 :: Symantic.Parser.Grammar.Combinators.Failure (Symantic.Parser.Grammar.Combinators.CombSatisfiable (Symantic.Parser.Machine.Input.InputToken inp_6989586621679040759))) | GHC.Maybe.Just old_32 <- minH_29 -> ( GHC.Maybe.Just (GHC.Classes.min old_32 h_31), acc_30 ) | GHC.Base.otherwise -> ( GHC.Maybe.Just h_31, acc_30 ) _ -> ( minH_29, f_28 GHC.Types.: acc_30 ) ) ( GHC.Maybe.Nothing, GHC.Types . [] ) farExp_24 in Data.Set.Internal.fromList GHC.Base.$ ( case minHoriz_26 of GHC.Maybe.Just h_33 -> Symantic.Parser.Grammar.Combinators.SomeFailure (Symantic.Parser.Grammar.Combinators.FailureHorizon @(Symantic.Parser.Machine.Input.InputToken inp_6989586621679040759) h_33) GHC.Types.: res_27 GHC.Maybe.Nothing -> res_27 ) } in GHC.ST.runST ( let inputToken = Data.Proxy.Proxy :: Data.Proxy.Proxy (Symantic.Parser.Machine.Input.InputToken inp_6989586621679040759) in let _ = "checkHorizon.noCheck" in let name_34 = \(!callReturn_35) (!callInput_36) (!callCatchStackByLabel_37) -> let _ = "pushValue" in let _ = "pushValue" in do let dupv_38 = \x_39 -> x_39 reg_40 <- GHC.STRef.newSTRef dupv_38 let _ = "iter" in let catchHandler_41 loopInput_42 (!_exn_43) (!failInp_44) (!farInp_45) (!farExp_46) = let _ = "pushInput" in if ( \( Data.Text.Internal.Text _ i_47 _ ) ( Data.Text.Internal.Text _ j_48 _ ) -> i_47 GHC.Classes.== j_48 ) loopInput_42 failInp_44 then let _ = "choicesBranch.then" in do sr_49 <- GHC.STRef.readSTRef reg_40 let _ = "pushValue" in let _ = "resume" in callReturn_35 farInp_45 farExp_46 ( let _ = "resume.genCode" in GHC.Tuple . () ) failInp_44 else let _ = "choicesBranch.else" in Data.Map.Strict.Internal.findWithDefault finalRaise_18 Symantic.Parser.Grammar.Combinators.ExceptionFailure callCatchStackByLabel_37 Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp_44 farInp_45 farExp_46 loop_50 = \_callReturn_51 callInput_52 callCatchStackByLabel_53 -> let _ = "pushValue" in let _ = "comment: satisfy" in let inp_54 = callInput_52 in let readFail_55 = catchHandler_41 callInput_52 in let _ = "checkHorizon.newCheck: checkedHorizon=0 minHoriz=1" in if readMore_2 inp_54 then let _ = "checkToken" in let !(# c_56, cs_57 #) = readNext_3 inp_54 in if (\c_58 -> GHC.Classes.not (('<' GHC.Classes.== c_58) GHC.Classes.|| (('>' GHC.Classes.== c_58) GHC.Classes.|| (('+' GHC.Classes.== c_58) GHC.Classes.|| (('-' GHC.Classes.== c_58) GHC.Classes.|| ((',' GHC.Classes.== c_58) GHC.Classes.|| (('.' GHC.Classes.== c_58) GHC.Classes.|| (('[' GHC.Classes.== c_58) GHC.Classes.|| ((']' GHC.Classes.== c_58) GHC.Classes.|| GHC.Types.False))))))))) c_56 then do sr_59 <- GHC.STRef.readSTRef reg_40 do let dupv_60 = sr_59 GHC.STRef.writeSTRef reg_40 dupv_60 let _ = "jump" in loop_50 (GHC.Err.error "invalid return") cs_57 (Data.Map.Internal.Bin 1 Symantic.Parser.Grammar.Combinators.ExceptionFailure readFail_55 Data.Map.Internal.Tip Data.Map.Internal.Tip) else let _ = "checkToken.fail" in readFail_55 Symantic.Parser.Grammar.Combinators.ExceptionFailure inp_54 init_1 Data.Set.Internal.empty else let _ = "checkHorizon.newCheck.fail" in let failExp_61 = Data.Set.Internal.Bin 1 ( Symantic.Parser.Grammar.Combinators.SomeFailure ( case inputToken of (Data.Proxy.Proxy :: Data.Proxy.Proxy tok'_6989586621679080671) -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok'_6989586621679080671 1 ) ) Data.Set.Internal.Tip Data.Set.Internal.Tip in let (# farInp_62, farExp_63 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_54 of GHC.Types.LT -> (# inp_54, failExp_61 #) GHC.Types.EQ -> (# init_1, failExp_61 GHC.Base.<> Data.Set.Internal.empty #) GHC.Types.GT -> (# init_1, Data.Set.Internal.empty #) in readFail_55 Symantic.Parser.Grammar.Combinators.ExceptionFailure inp_54 farInp_62 farExp_63 in let _ = "jump" in loop_50 callReturn_35 callInput_36 (Data.Map.Internal.Bin 1 Symantic.Parser.Grammar.Combinators.ExceptionFailure (Data.Map.Strict.Internal.findWithDefault finalRaise_18 Symantic.Parser.Grammar.Combinators.ExceptionFailure callCatchStackByLabel_37) Data.Map.Internal.Tip Data.Map.Internal.Tip) name_64 = \(!callReturn_65) (!callInput_66) (!callCatchStackByLabel_67) -> let _ = "pushValue" in do let dupv_68 = \x_69 -> x_69 reg_70 <- GHC.STRef.newSTRef dupv_68 let _ = "iter" in let catchHandler_71 loopInput_72 (!_exn_73) (!failInp_74) (!farInp_75) (!farExp_76) = let _ = "pushInput" in if ( \( Data.Text.Internal.Text _ i_77 _ ) ( Data.Text.Internal.Text _ j_78 _ ) -> i_77 GHC.Classes.== j_78 ) loopInput_72 failInp_74 then let _ = "choicesBranch.then" in do sr_79 <- GHC.STRef.readSTRef reg_70 let _ = "pushValue" in let _ = "resume" in callReturn_65 farInp_75 farExp_76 ( let _ = "resume.genCode" in sr_79 GHC.Types . [] ) failInp_74 else let _ = "choicesBranch.else" in Data.Map.Strict.Internal.findWithDefault finalRaise_18 Symantic.Parser.Grammar.Combinators.ExceptionFailure callCatchStackByLabel_67 Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp_74 farInp_75 farExp_76 loop_80 = \_callReturn_81 callInput_82 callCatchStackByLabel_83 -> let _ = "pushValue" in let join_84 = \farInp_85 farExp_86 v_87 (!inp_88) -> name_34 ( let _ = "suspend" in \farInp_89 farExp_90 v_91 (!inp_92) -> let _ = "pushValue" in do sr_93 <- GHC.STRef.readSTRef reg_70 do let dupv_94 = \x_95 -> sr_93 ((GHC.Types.:) v_87 x_95) GHC.STRef.writeSTRef reg_70 dupv_94 let _ = "jump" in loop_80 (GHC.Err.error "invalid return") inp_92 (Data.Map.Internal.Bin 1 Symantic.Parser.Grammar.Combinators.ExceptionFailure (catchHandler_71 callInput_82) Data.Map.Internal.Tip Data.Map.Internal.Tip) ) inp_88 (Data.Map.Internal.Bin 1 Symantic.Parser.Grammar.Combinators.ExceptionFailure (catchHandler_71 callInput_82) Data.Map.Internal.Tip Data.Map.Internal.Tip) in let _ = "comment: look" in let _ = "pushInput" in let _ = "comment: satisfy" in let inp_96 = callInput_82 in let readFail_97 = catchHandler_71 callInput_82 in let _ = "checkHorizon.newCheck: checkedHorizon=0 minHoriz=1" in if readMore_2 inp_96 then let _ = "checkToken" in let !(# c_98, cs_99 #) = readNext_3 inp_96 in let _ = "loadInput" in let _ = "checkHorizon.noCheck" in if (\x_100 -> (\x_101 -> \x_102 -> (GHC.Classes.==) x_101 x_102) '<' x_100) c_98 then let _ = "choicesBranch.then" in let _ = "pushValue" in let _ = "comment: satisfy" in let inp_103 = callInput_82 in let readFail_104 = readFail_97 in let _ = "checkHorizon.newCheck: checkedHorizon=0 minHoriz=1" in if readMore_2 inp_103 then let _ = "checkToken" in let !(# c_105, cs_106 #) = readNext_3 inp_103 in let _ = "resume" in join_84 init_1 Data.Set.Internal.empty ( let _ = "resume.genCode" in Parsers.Brainfuck.Types.Backward ) cs_106 else let _ = "checkHorizon.newCheck.fail" in let failExp_107 = Data.Set.Internal.Bin 1 ( Symantic.Parser.Grammar.Combinators.SomeFailure ( case inputToken of (Data.Proxy.Proxy :: Data.Proxy.Proxy tok'_6989586621679080671) -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok'_6989586621679080671 1 ) ) Data.Set.Internal.Tip Data.Set.Internal.Tip in let (# farInp_108, farExp_109 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_103 of GHC.Types.LT -> (# inp_103, failExp_107 #) GHC.Types.EQ -> (# init_1, failExp_107 GHC.Base.<> Data.Set.Internal.empty #) GHC.Types.GT -> (# init_1, Data.Set.Internal.empty #) in readFail_104 Symantic.Parser.Grammar.Combinators.ExceptionFailure inp_103 farInp_108 farExp_109 else let _ = "choicesBranch.else" in if (\x_110 -> (\x_111 -> \x_112 -> (GHC.Classes.==) x_111 x_112) '>' x_110) c_98 then let _ = "choicesBranch.then" in let _ = "pushValue" in let _ = "comment: satisfy" in let inp_113 = callInput_82 in let readFail_114 = readFail_97 in let _ = "checkHorizon.newCheck: checkedHorizon=0 minHoriz=1" in if readMore_2 inp_113 then let _ = "checkToken" in let !(# c_115, cs_116 #) = readNext_3 inp_113 in let _ = "resume" in join_84 init_1 Data.Set.Internal.empty ( let _ = "resume.genCode" in Parsers.Brainfuck.Types.Forward ) cs_116 else let _ = "checkHorizon.newCheck.fail" in let failExp_117 = Data.Set.Internal.Bin 1 ( Symantic.Parser.Grammar.Combinators.SomeFailure ( case inputToken of (Data.Proxy.Proxy :: Data.Proxy.Proxy tok'_6989586621679080671) -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok'_6989586621679080671 1 ) ) Data.Set.Internal.Tip Data.Set.Internal.Tip in let (# farInp_118, farExp_119 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_113 of GHC.Types.LT -> (# inp_113, failExp_117 #) GHC.Types.EQ -> (# init_1, failExp_117 GHC.Base.<> Data.Set.Internal.empty #) GHC.Types.GT -> (# init_1, Data.Set.Internal.empty #) in readFail_114 Symantic.Parser.Grammar.Combinators.ExceptionFailure inp_113 farInp_118 farExp_119 else let _ = "choicesBranch.else" in if (\x_120 -> (\x_121 -> \x_122 -> (GHC.Classes.==) x_121 x_122) '+' x_120) c_98 then let _ = "choicesBranch.then" in let _ = "pushValue" in let _ = "comment: satisfy" in let inp_123 = callInput_82 in let readFail_124 = readFail_97 in let _ = "checkHorizon.newCheck: checkedHorizon=0 minHoriz=1" in if readMore_2 inp_123 then let _ = "checkToken" in let !(# c_125, cs_126 #) = readNext_3 inp_123 in let _ = "resume" in join_84 init_1 Data.Set.Internal.empty ( let _ = "resume.genCode" in Parsers.Brainfuck.Types.Increment ) cs_126 else let _ = "checkHorizon.newCheck.fail" in let failExp_127 = Data.Set.Internal.Bin 1 ( Symantic.Parser.Grammar.Combinators.SomeFailure ( case inputToken of (Data.Proxy.Proxy :: Data.Proxy.Proxy tok'_6989586621679080671) -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok'_6989586621679080671 1 ) ) Data.Set.Internal.Tip Data.Set.Internal.Tip in let (# farInp_128, farExp_129 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_123 of GHC.Types.LT -> (# inp_123, failExp_127 #) GHC.Types.EQ -> (# init_1, failExp_127 GHC.Base.<> Data.Set.Internal.empty #) GHC.Types.GT -> (# init_1, Data.Set.Internal.empty #) in readFail_124 Symantic.Parser.Grammar.Combinators.ExceptionFailure inp_123 farInp_128 farExp_129 else let _ = "choicesBranch.else" in if (\x_130 -> (\x_131 -> \x_132 -> (GHC.Classes.==) x_131 x_132) '-' x_130) c_98 then let _ = "choicesBranch.then" in let _ = "pushValue" in let _ = "comment: satisfy" in let inp_133 = callInput_82 in let readFail_134 = readFail_97 in let _ = "checkHorizon.newCheck: checkedHorizon=0 minHoriz=1" in if readMore_2 inp_133 then let _ = "checkToken" in let !(# c_135, cs_136 #) = readNext_3 inp_133 in let _ = "resume" in join_84 init_1 Data.Set.Internal.empty ( let _ = "resume.genCode" in Parsers.Brainfuck.Types.Decrement ) cs_136 else let _ = "checkHorizon.newCheck.fail" in let failExp_137 = Data.Set.Internal.Bin 1 ( Symantic.Parser.Grammar.Combinators.SomeFailure ( case inputToken of (Data.Proxy.Proxy :: Data.Proxy.Proxy tok'_6989586621679080671) -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok'_6989586621679080671 1 ) ) Data.Set.Internal.Tip Data.Set.Internal.Tip in let (# farInp_138, farExp_139 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_133 of GHC.Types.LT -> (# inp_133, failExp_137 #) GHC.Types.EQ -> (# init_1, failExp_137 GHC.Base.<> Data.Set.Internal.empty #) GHC.Types.GT -> (# init_1, Data.Set.Internal.empty #) in readFail_134 Symantic.Parser.Grammar.Combinators.ExceptionFailure inp_133 farInp_138 farExp_139 else let _ = "choicesBranch.else" in if (\x_140 -> (\x_141 -> \x_142 -> (GHC.Classes.==) x_141 x_142) ',' x_140) c_98 then let _ = "choicesBranch.then" in let _ = "pushValue" in let _ = "comment: satisfy" in let inp_143 = callInput_82 in let readFail_144 = readFail_97 in let _ = "checkHorizon.newCheck: checkedHorizon=0 minHoriz=1" in if readMore_2 inp_143 then let _ = "checkToken" in let !(# c_145, cs_146 #) = readNext_3 inp_143 in let _ = "resume" in join_84 init_1 Data.Set.Internal.empty ( let _ = "resume.genCode" in Parsers.Brainfuck.Types.Input ) cs_146 else let _ = "checkHorizon.newCheck.fail" in let failExp_147 = Data.Set.Internal.Bin 1 ( Symantic.Parser.Grammar.Combinators.SomeFailure ( case inputToken of (Data.Proxy.Proxy :: Data.Proxy.Proxy tok'_6989586621679080671) -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok'_6989586621679080671 1 ) ) Data.Set.Internal.Tip Data.Set.Internal.Tip in let (# farInp_148, farExp_149 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_143 of GHC.Types.LT -> (# inp_143, failExp_147 #) GHC.Types.EQ -> (# init_1, failExp_147 GHC.Base.<> Data.Set.Internal.empty #) GHC.Types.GT -> (# init_1, Data.Set.Internal.empty #) in readFail_144 Symantic.Parser.Grammar.Combinators.ExceptionFailure inp_143 farInp_148 farExp_149 else let _ = "choicesBranch.else" in if (\x_150 -> (\x_151 -> \x_152 -> (GHC.Classes.==) x_151 x_152) '.' x_150) c_98 then let _ = "choicesBranch.then" in let _ = "pushValue" in let _ = "comment: satisfy" in let inp_153 = callInput_82 in let readFail_154 = readFail_97 in let _ = "checkHorizon.newCheck: checkedHorizon=0 minHoriz=1" in if readMore_2 inp_153 then let _ = "checkToken" in let !(# c_155, cs_156 #) = readNext_3 inp_153 in let _ = "resume" in join_84 init_1 Data.Set.Internal.empty ( let _ = "resume.genCode" in Parsers.Brainfuck.Types.Output ) cs_156 else let _ = "checkHorizon.newCheck.fail" in let failExp_157 = Data.Set.Internal.Bin 1 ( Symantic.Parser.Grammar.Combinators.SomeFailure ( case inputToken of (Data.Proxy.Proxy :: Data.Proxy.Proxy tok'_6989586621679080671) -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok'_6989586621679080671 1 ) ) Data.Set.Internal.Tip Data.Set.Internal.Tip in let (# farInp_158, farExp_159 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_153 of GHC.Types.LT -> (# inp_153, failExp_157 #) GHC.Types.EQ -> (# init_1, failExp_157 GHC.Base.<> Data.Set.Internal.empty #) GHC.Types.GT -> (# init_1, Data.Set.Internal.empty #) in readFail_154 Symantic.Parser.Grammar.Combinators.ExceptionFailure inp_153 farInp_158 farExp_159 else let _ = "choicesBranch.else" in if (\x_160 -> (\x_161 -> \x_162 -> (GHC.Classes.==) x_161 x_162) '[' x_160) c_98 then let _ = "choicesBranch.then" in let _ = "pushValue" in let _ = "comment: satisfy" in let inp_163 = callInput_82 in let readFail_164 = readFail_97 in let _ = "checkHorizon.newCheck: checkedHorizon=0 minHoriz=1" in if readMore_2 inp_163 then let _ = "checkToken" in let !(# c_165, cs_166 #) = readNext_3 inp_163 in name_34 ( let _ = "suspend" in \farInp_167 farExp_168 v_169 (!inp_170) -> name_64 ( let _ = "suspend" in \farInp_171 farExp_172 v_173 (!inp_174) -> let _ = "comment: satisfy" in let inp_175 = inp_174 in let readFail_176 = readFail_164 in let _ = "checkHorizon.newCheck: checkedHorizon=0 minHoriz=1" in if readMore_2 inp_175 then let _ = "checkToken" in let !(# c_177, cs_178 #) = readNext_3 inp_175 in if (GHC.Classes.==) ']' c_177 then let _ = "resume" in join_84 farInp_171 farExp_172 ( let _ = "resume.genCode" in Parsers.Brainfuck.Types.Loop v_173 ) cs_178 else let _ = "checkToken.fail" in readFail_176 Symantic.Parser.Grammar.Combinators.ExceptionFailure inp_175 farInp_171 farExp_172 else let _ = "checkHorizon.newCheck.fail" in let failExp_179 = Data.Set.Internal.Bin 1 ( Symantic.Parser.Grammar.Combinators.SomeFailure ( case inputToken of (Data.Proxy.Proxy :: Data.Proxy.Proxy tok'_6989586621679080671) -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok'_6989586621679080671 1 ) ) Data.Set.Internal.Tip Data.Set.Internal.Tip in let (# farInp_180, farExp_181 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_171 inp_175 of GHC.Types.LT -> (# inp_175, failExp_179 #) GHC.Types.EQ -> (# farInp_171, failExp_179 GHC.Base.<> farExp_172 #) GHC.Types.GT -> (# farInp_171, farExp_172 #) in readFail_176 Symantic.Parser.Grammar.Combinators.ExceptionFailure inp_175 farInp_180 farExp_181 ) inp_170 (Data.Map.Internal.Bin 1 Symantic.Parser.Grammar.Combinators.ExceptionFailure readFail_164 Data.Map.Internal.Tip Data.Map.Internal.Tip) ) cs_166 (Data.Map.Internal.Bin 1 Symantic.Parser.Grammar.Combinators.ExceptionFailure readFail_164 Data.Map.Internal.Tip Data.Map.Internal.Tip) else let _ = "checkHorizon.newCheck.fail" in let failExp_182 = Data.Set.Internal.Bin 1 ( Symantic.Parser.Grammar.Combinators.SomeFailure ( case inputToken of (Data.Proxy.Proxy :: Data.Proxy.Proxy tok'_6989586621679080671) -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok'_6989586621679080671 1 ) ) Data.Set.Internal.Tip Data.Set.Internal.Tip in let (# farInp_183, farExp_184 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_163 of GHC.Types.LT -> (# inp_163, failExp_182 #) GHC.Types.EQ -> (# init_1, failExp_182 GHC.Base.<> Data.Set.Internal.empty #) GHC.Types.GT -> (# init_1, Data.Set.Internal.empty #) in readFail_164 Symantic.Parser.Grammar.Combinators.ExceptionFailure inp_163 farInp_183 farExp_184 else let _ = "choicesBranch.else" in let failExp_185 = Data.Set.Internal.Bin 1 (Symantic.Parser.Grammar.Combinators.SomeFailure Symantic.Parser.Grammar.Combinators.FailureEmpty) Data.Set.Internal.Tip Data.Set.Internal.Tip in let (# farInp_186, farExp_187 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 callInput_82 of GHC.Types.LT -> (# callInput_82, failExp_185 #) GHC.Types.EQ -> (# init_1, failExp_185 GHC.Base.<> Data.Set.Internal.empty #) GHC.Types.GT -> (# init_1, Data.Set.Internal.empty #) in readFail_97 Symantic.Parser.Grammar.Combinators.ExceptionFailure callInput_82 farInp_186 farExp_187 else let _ = "checkHorizon.newCheck.fail" in let failExp_188 = Data.Set.Internal.Bin 1 ( Symantic.Parser.Grammar.Combinators.SomeFailure ( case inputToken of (Data.Proxy.Proxy :: Data.Proxy.Proxy tok'_6989586621679080671) -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok'_6989586621679080671 1 ) ) Data.Set.Internal.Tip Data.Set.Internal.Tip in let (# farInp_189, farExp_190 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_96 of GHC.Types.LT -> (# inp_96, failExp_188 #) GHC.Types.EQ -> (# init_1, failExp_188 GHC.Base.<> Data.Set.Internal.empty #) GHC.Types.GT -> (# init_1, Data.Set.Internal.empty #) in readFail_97 Symantic.Parser.Grammar.Combinators.ExceptionFailure inp_96 farInp_189 farExp_190 in let _ = "jump" in loop_80 callReturn_65 callInput_66 (Data.Map.Internal.Bin 1 Symantic.Parser.Grammar.Combinators.ExceptionFailure (Data.Map.Strict.Internal.findWithDefault finalRaise_18 Symantic.Parser.Grammar.Combinators.ExceptionFailure callCatchStackByLabel_67) Data.Map.Internal.Tip Data.Map.Internal.Tip) in let _ = "pushValue" in name_34 ( let _ = "suspend" in \farInp_191 farExp_192 v_193 (!inp_194) -> name_64 ( let _ = "suspend" in \farInp_195 farExp_196 v_197 (!inp_198) -> let _ = "resume" in finalRet_13 farInp_195 farExp_196 ( let _ = "resume.genCode" in GHC.Show.show v_197 ) inp_198 ) inp_194 Data.Map.Internal.Tip ) init_1 Data.Map.Internal.Tip )