\(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) -> name_28 ( let _ = "suspend" in \farInp_29 farExp_30 v_31 (!inp_32) -> let _ = "resume" in ok_25 farInp_29 farExp_30 ( let _ = "resume.genCode" in GHC.Tuple . () ) inp_32 ) inp_26 Data.Map.Internal.Tip name_28 = \(!ok_33) (!inp_34) (!koByLabel_35) -> let _ = "catchException lbl=fail" in let catchHandler_36 (!failInp_37) (!farInp_38) (!farExp_39) = let _ = "catchException.ko lbl=fail" in if ( \( Data.Text.Internal.Text _ i_40 _ ) ( Data.Text.Internal.Text _ j_41 _ ) -> i_40 GHC.Classes.== j_41 ) inp_34 failInp_37 then let _ = "choicesBranch.then" in let _ = "resume" in ok_33 farInp_38 farExp_39 ( let _ = "resume.genCode" in \x_42 -> x_42 ) failInp_37 else let _ = "choicesBranch.else" in let (# farInp_43, farExp_44 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_38 failInp_37 of GHC.Types.LT -> (# failInp_37, [] #) GHC.Types.EQ -> (# farInp_38, farExp_39 GHC.Base.<> [] #) GHC.Types.GT -> (# farInp_38, farExp_39 #) in finalRaise_18 failInp_37 farInp_43 farExp_44 in let readFail_45 = catchHandler_36 in if readMore_2 inp_34 then let !(# c_46, cs_47 #) = readNext_3 inp_34 in if (\c_48 -> GHC.Classes.not (('<' GHC.Classes.== c_48) GHC.Classes.|| (('>' GHC.Classes.== c_48) GHC.Classes.|| (('+' GHC.Classes.== c_48) GHC.Classes.|| (('-' GHC.Classes.== c_48) GHC.Classes.|| (('[' GHC.Classes.== c_48) GHC.Classes.|| ((']' GHC.Classes.== c_48) GHC.Classes.|| ((',' GHC.Classes.== c_48) GHC.Classes.|| (('.' GHC.Classes.== c_48) GHC.Classes.|| (('$' GHC.Classes.== c_48) GHC.Classes.|| GHC.Types.False)))))))))) c_46 then name_28 ( let _ = "suspend" in \farInp_49 farExp_50 v_51 (!inp_52) -> let _ = "resume" in ok_33 farInp_49 farExp_50 ( let _ = "resume.genCode" in \x_53 -> v_51 x_53 ) inp_52 ) cs_47 Data.Map.Internal.Tip else let _ = "checkToken.else" in let (# farInp_54, farExp_55 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_34 of GHC.Types.LT -> (# inp_34, [ Symantic.Parser.Grammar.Combinators.ErrorItemToken '<', Symantic.Parser.Grammar.Combinators.ErrorItemToken '>', Symantic.Parser.Grammar.Combinators.ErrorItemToken '+', Symantic.Parser.Grammar.Combinators.ErrorItemToken '-', Symantic.Parser.Grammar.Combinators.ErrorItemToken '[', Symantic.Parser.Grammar.Combinators.ErrorItemToken ']', Symantic.Parser.Grammar.Combinators.ErrorItemToken ',', Symantic.Parser.Grammar.Combinators.ErrorItemToken '.', Symantic.Parser.Grammar.Combinators.ErrorItemToken '$' ] #) GHC.Types.EQ -> (# init_1, GHC.Types . [] GHC.Base.<> [ Symantic.Parser.Grammar.Combinators.ErrorItemToken '<', Symantic.Parser.Grammar.Combinators.ErrorItemToken '>', Symantic.Parser.Grammar.Combinators.ErrorItemToken '+', Symantic.Parser.Grammar.Combinators.ErrorItemToken '-', Symantic.Parser.Grammar.Combinators.ErrorItemToken '[', Symantic.Parser.Grammar.Combinators.ErrorItemToken ']', Symantic.Parser.Grammar.Combinators.ErrorItemToken ',', Symantic.Parser.Grammar.Combinators.ErrorItemToken '.', Symantic.Parser.Grammar.Combinators.ErrorItemToken '$' ] #) GHC.Types.GT -> (# init_1, GHC.Types . [] #) in readFail_45 inp_34 farInp_54 farExp_55 else let _ = "checkHorizon.else" in let (# farInp_56, farExp_57 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_34 of GHC.Types.LT -> (# inp_34, [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_45 inp_34 farInp_56 farExp_57 name_58 = \(!ok_59) (!inp_60) (!koByLabel_61) -> 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_60 failInp_63 then let _ = "choicesBranch.then" in let _ = "resume" in ok_59 farInp_64 farExp_65 ( let _ = "resume.genCode" in \x_68 -> x_68 ) failInp_63 else let _ = "choicesBranch.else" in let (# farInp_69, farExp_70 #) = 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 finalRaise_18 failInp_63 farInp_69 farExp_70 in let join_71 = \farInp_72 farExp_73 v_74 (!inp_75) -> name_24 ( let _ = "suspend" in \farInp_76 farExp_77 v_78 (!inp_79) -> name_58 ( let _ = "suspend" in \farInp_80 farExp_81 v_82 (!inp_83) -> let _ = "resume" in ok_59 farInp_80 farExp_81 ( let _ = "resume.genCode" in \x_84 -> v_74 GHC.Types.: v_82 x_84 ) inp_83 ) inp_79 Data.Map.Internal.Tip ) inp_75 Data.Map.Internal.Tip in let readFail_85 = catchHandler_62 in if readMore_2 inp_60 then let !(# c_86, cs_87 #) = readNext_3 inp_60 in if (\x_88 -> \x_89 -> x_88) GHC.Types.True c_86 then if '>' GHC.Classes.== c_86 then let _ = "choicesBranch.then" in let readFail_90 = readFail_85 in if readMore_2 inp_60 then let !(# c_91, cs_92 #) = readNext_3 inp_60 in if (\x_93 -> \x_94 -> x_93) GHC.Types.True c_91 then let _ = "resume" in join_71 init_1 GHC.Types . [] ( let _ = "resume.genCode" in Grammar.Brainfuck.RightPointer ) cs_92 else let _ = "checkToken.else" in let (# farInp_95, farExp_96 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [] #) GHC.Types.EQ -> (# init_1, GHC.Types . [] GHC.Base.<> [] #) GHC.Types.GT -> (# init_1, GHC.Types . [] #) in readFail_90 inp_60 farInp_95 farExp_96 else let _ = "checkHorizon.else" in let (# farInp_97, farExp_98 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [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_90 inp_60 farInp_97 farExp_98 else let _ = "choicesBranch.else" in if '<' GHC.Classes.== c_86 then let _ = "choicesBranch.then" in let readFail_99 = readFail_85 in if readMore_2 inp_60 then let !(# c_100, cs_101 #) = readNext_3 inp_60 in if (\x_102 -> \x_103 -> x_102) GHC.Types.True c_100 then let _ = "resume" in join_71 init_1 GHC.Types . [] ( let _ = "resume.genCode" in Grammar.Brainfuck.LeftPointer ) cs_101 else let _ = "checkToken.else" in let (# farInp_104, farExp_105 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [] #) GHC.Types.EQ -> (# init_1, GHC.Types . [] GHC.Base.<> [] #) GHC.Types.GT -> (# init_1, GHC.Types . [] #) in readFail_99 inp_60 farInp_104 farExp_105 else let _ = "checkHorizon.else" in let (# farInp_106, farExp_107 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [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_99 inp_60 farInp_106 farExp_107 else let _ = "choicesBranch.else" in if '+' GHC.Classes.== c_86 then let _ = "choicesBranch.then" in let readFail_108 = readFail_85 in if readMore_2 inp_60 then let !(# c_109, cs_110 #) = readNext_3 inp_60 in if (\x_111 -> \x_112 -> x_111) GHC.Types.True c_109 then let _ = "resume" in join_71 init_1 GHC.Types . [] ( let _ = "resume.genCode" in Grammar.Brainfuck.Increment ) cs_110 else let _ = "checkToken.else" in let (# farInp_113, farExp_114 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [] #) GHC.Types.EQ -> (# init_1, GHC.Types . [] GHC.Base.<> [] #) GHC.Types.GT -> (# init_1, GHC.Types . [] #) in readFail_108 inp_60 farInp_113 farExp_114 else let _ = "checkHorizon.else" in let (# farInp_115, farExp_116 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [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_108 inp_60 farInp_115 farExp_116 else let _ = "choicesBranch.else" in if '-' GHC.Classes.== c_86 then let _ = "choicesBranch.then" in let readFail_117 = readFail_85 in if readMore_2 inp_60 then let !(# c_118, cs_119 #) = readNext_3 inp_60 in if (\x_120 -> \x_121 -> x_120) GHC.Types.True c_118 then let _ = "resume" in join_71 init_1 GHC.Types . [] ( let _ = "resume.genCode" in Grammar.Brainfuck.Decrement ) cs_119 else let _ = "checkToken.else" in let (# farInp_122, farExp_123 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [] #) GHC.Types.EQ -> (# init_1, GHC.Types . [] GHC.Base.<> [] #) GHC.Types.GT -> (# init_1, GHC.Types . [] #) in readFail_117 inp_60 farInp_122 farExp_123 else let _ = "checkHorizon.else" in let (# farInp_124, farExp_125 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [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_117 inp_60 farInp_124 farExp_125 else let _ = "choicesBranch.else" in if '.' GHC.Classes.== c_86 then let _ = "choicesBranch.then" in let readFail_126 = readFail_85 in if readMore_2 inp_60 then let !(# c_127, cs_128 #) = readNext_3 inp_60 in if (\x_129 -> \x_130 -> x_129) GHC.Types.True c_127 then let _ = "resume" in join_71 init_1 GHC.Types . [] ( let _ = "resume.genCode" in Grammar.Brainfuck.Output ) cs_128 else let _ = "checkToken.else" in let (# farInp_131, farExp_132 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [] #) GHC.Types.EQ -> (# init_1, GHC.Types . [] GHC.Base.<> [] #) GHC.Types.GT -> (# init_1, GHC.Types . [] #) in readFail_126 inp_60 farInp_131 farExp_132 else let _ = "checkHorizon.else" in let (# farInp_133, farExp_134 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [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_126 inp_60 farInp_133 farExp_134 else let _ = "choicesBranch.else" in if ',' GHC.Classes.== c_86 then let _ = "choicesBranch.then" in let readFail_135 = readFail_85 in if readMore_2 inp_60 then let !(# c_136, cs_137 #) = readNext_3 inp_60 in if (\x_138 -> \x_139 -> x_138) GHC.Types.True c_136 then let _ = "resume" in join_71 init_1 GHC.Types . [] ( let _ = "resume.genCode" in Grammar.Brainfuck.Input ) cs_137 else let _ = "checkToken.else" in let (# farInp_140, farExp_141 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [] #) GHC.Types.EQ -> (# init_1, GHC.Types . [] GHC.Base.<> [] #) GHC.Types.GT -> (# init_1, GHC.Types . [] #) in readFail_135 inp_60 farInp_140 farExp_141 else let _ = "checkHorizon.else" in let (# farInp_142, farExp_143 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [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_135 inp_60 farInp_142 farExp_143 else let _ = "choicesBranch.else" in if '[' GHC.Classes.== c_86 then let _ = "choicesBranch.then" in let readFail_144 = readFail_85 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_60) then let !(# c_145, cs_146 #) = readNext_3 inp_60 in if (\x_147 -> \x_148 -> x_147) GHC.Types.True c_145 then name_24 ( let _ = "suspend" in \farInp_149 farExp_150 v_151 (!inp_152) -> name_153 ( let _ = "suspend" in \farInp_154 farExp_155 v_156 (!inp_157) -> let readFail_158 = readFail_144 in if readMore_2 inp_157 then let !(# c_159, cs_160 #) = readNext_3 inp_157 in if (']' GHC.Classes.==) c_159 then let _ = "resume" in join_71 farInp_154 farExp_155 ( let _ = "resume.genCode" in Grammar.Brainfuck.Loop v_156 ) cs_160 else let _ = "checkToken.else" in let (# farInp_161, farExp_162 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_154 inp_157 of GHC.Types.LT -> (# inp_157, [Symantic.Parser.Grammar.Combinators.ErrorItemToken ']'] #) GHC.Types.EQ -> (# farInp_154, farExp_155 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken ']'] #) GHC.Types.GT -> (# farInp_154, farExp_155 #) in readFail_158 inp_157 farInp_161 farExp_162 else let _ = "checkHorizon.else" in let (# farInp_163, farExp_164 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_154 inp_157 of GHC.Types.LT -> (# inp_157, [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1] #) GHC.Types.EQ -> (# farInp_154, farExp_155 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1] #) GHC.Types.GT -> (# farInp_154, farExp_155 #) in readFail_158 inp_157 farInp_163 farExp_164 ) inp_152 Data.Map.Internal.Tip ) cs_146 Data.Map.Internal.Tip else let _ = "checkToken.else" in let (# farInp_165, farExp_166 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [] #) GHC.Types.EQ -> (# init_1, GHC.Types . [] GHC.Base.<> [] #) GHC.Types.GT -> (# init_1, GHC.Types . [] #) in readFail_144 inp_60 farInp_165 farExp_166 else let _ = "checkHorizon.else" in let (# farInp_167, farExp_168 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [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_144 inp_60 farInp_167 farExp_168 else let _ = "choicesBranch.else" in let (# farInp_169, farExp_170 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [] #) GHC.Types.EQ -> (# init_1, GHC.Types . [] GHC.Base.<> [] #) GHC.Types.GT -> (# init_1, GHC.Types . [] #) in readFail_85 inp_60 farInp_169 farExp_170 else let _ = "checkToken.else" in let (# farInp_171, farExp_172 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [] #) GHC.Types.EQ -> (# init_1, GHC.Types . [] GHC.Base.<> [] #) GHC.Types.GT -> (# init_1, GHC.Types . [] #) in readFail_85 inp_60 farInp_171 farExp_172 else let _ = "checkHorizon.else" in let (# farInp_173, farExp_174 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_60 of GHC.Types.LT -> (# inp_60, [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_85 inp_60 farInp_173 farExp_174 name_153 = \(!ok_175) (!inp_176) (!koByLabel_177) -> name_58 ( let _ = "suspend" in \farInp_178 farExp_179 v_180 (!inp_181) -> let _ = "resume" in ok_175 farInp_178 farExp_179 ( let _ = "resume.genCode" in v_180 GHC.Types . [] ) inp_181 ) inp_176 Data.Map.Internal.Tip in name_24 ( let _ = "suspend" in \farInp_182 farExp_183 v_184 (!inp_185) -> name_153 ( let _ = "suspend" in \farInp_186 farExp_187 v_188 (!inp_189) -> let _ = "resume" in finalRet_13 farInp_186 farExp_187 ( let _ = "resume.genCode" in v_188 ) inp_189 ) inp_185 Data.Map.Internal.Tip ) init_1 Data.Map.Internal.Tip