\(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 let _ = "resume" in ok_25 farInp_30 farExp_31 ( let _ = "resume.genCode" in \x_34 -> x_34 ) failInp_29 else let _ = "choicesBranch.else" in let (# farInp_35, farExp_36 #) = 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_35 farExp_36 in name_37 ( let _ = "suspend" in \farInp_38 farExp_39 v_40 (!inp_41) -> name_24 ( let _ = "suspend" in \farInp_42 farExp_43 v_44 (!inp_45) -> let _ = "resume" in ok_25 farInp_42 farExp_43 ( let _ = "resume.genCode" in \x_46 -> v_40 GHC.Types.: v_44 x_46 ) inp_45 ) inp_41 Data.Map.Internal.Tip ) inp_26 Data.Map.Internal.Tip name_37 = \(!ok_47) (!inp_48) (!koByLabel_49) -> let _ = "catchException lbl=fail" in let catchHandler_50 (!failInp_51) (!farInp_52) (!farExp_53) = let _ = "catchException.ko lbl=fail" in let (# farInp_54, farExp_55 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_52 inp_48 of GHC.Types.LT -> (# inp_48, [] #) GHC.Types.EQ -> (# farInp_52, farExp_53 GHC.Base.<> [] #) GHC.Types.GT -> (# farInp_52, farExp_53 #) in finalRaise_18 inp_48 farInp_54 farExp_55 in let readFail_56 = catchHandler_50 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 3 inp_48) then let !(# c_57, cs_58 #) = readNext_3 inp_48 in if ('a' GHC.Classes.==) c_57 then let readFail_59 = readFail_56 in let !(# c_60, cs_61 #) = readNext_3 cs_58 in if ('b' GHC.Classes.==) c_60 then let readFail_62 = readFail_56 in let !(# c_63, cs_64 #) = readNext_3 cs_61 in if ('c' GHC.Classes.==) c_63 then let readFail_65 = readFail_56 in let !(# c_66, cs_67 #) = readNext_3 cs_64 in if ('d' GHC.Classes.==) c_66 then let _ = "resume" in ok_47 init_1 GHC.Types . [] ( let _ = "resume.genCode" in 'a' GHC.Types.: ('b' GHC.Types.: ('c' GHC.Types.: ('d' GHC.Types.: GHC.Types . []))) ) cs_67 else let _ = "checkToken.else" in let (# farInp_68, farExp_69 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_64 of GHC.Types.LT -> (# cs_64, [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'd'] #) GHC.Types.EQ -> (# init_1, GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'd'] #) GHC.Types.GT -> (# init_1, GHC.Types . [] #) in readFail_56 cs_64 farInp_68 farExp_69 else let _ = "checkToken.else" in let (# farInp_70, farExp_71 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_61 of GHC.Types.LT -> (# cs_61, [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_56 cs_61 farInp_70 farExp_71 else let _ = "checkToken.else" in let (# farInp_72, farExp_73 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_58 of GHC.Types.LT -> (# cs_58, [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'b'] #) GHC.Types.EQ -> (# init_1, GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'b'] #) GHC.Types.GT -> (# init_1, GHC.Types . [] #) in readFail_56 cs_58 farInp_72 farExp_73 else let _ = "checkToken.else" in let (# farInp_74, farExp_75 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_48 of GHC.Types.LT -> (# inp_48, [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a'] #) GHC.Types.EQ -> (# init_1, GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a'] #) GHC.Types.GT -> (# init_1, GHC.Types . [] #) in readFail_56 inp_48 farInp_74 farExp_75 else let _ = "checkHorizon.else" in let (# farInp_76, farExp_77 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_48 of GHC.Types.LT -> (# inp_48, [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_56 inp_48 farInp_76 farExp_77 in name_37 ( let _ = "suspend" in \farInp_78 farExp_79 v_80 (!inp_81) -> name_24 ( let _ = "suspend" in \farInp_82 farExp_83 v_84 (!inp_85) -> let _ = "resume" in finalRet_13 farInp_82 farExp_83 ( let _ = "resume.genCode" in v_80 GHC.Types.: v_84 GHC.Types . [] ) inp_85 ) inp_81 Data.Map.Internal.Tip ) init_1 Data.Map.Internal.Tip