lojbanParser 0.1.2 → 0.1.3
raw patch · 15 files changed
+28113/−28103 lines, 15 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Language.Lojban.Parser: data ParseError
+ Language.Lojban.Parser: type Text = Sentence
Files
- Language/Lojban/Parser.hs +0/−35
- LexerPappy.hs +0/−3327
- Parse.hs +0/−420
- Pos.hs +0/−47
- Preprocess.hs +0/−32
- TestPappy.hs +0/−24233
- lojbanParser.cabal +3/−1
- src/Language/Lojban/Parser.hs +37/−0
- src/LexerPappy.hs +3327/−0
- src/Parse.hs +420/−0
- src/Pos.hs +47/−0
- src/Preprocess.hs +32/−0
- src/TestPappy.hs +24239/−0
- src/testParser.hs +8/−0
- testParser.hs +0/−8
− Language/Lojban/Parser.hs
@@ -1,35 +0,0 @@-module Language.Lojban.Parser (- parse,-- Sentence(..),- Sumti(..),- TermsGikTerms(..),- SumtiTail(..),- Selbri(..),- RelativeClause(..),- Linkargs(..),- Links(..),- MexOperator(..),- Operand(..),- RPExpression(..),- RPExpressionTail(..),- Free(..),- JoikJek(..),- Gek(..),- IntervalProperty(..),- Tag(..),- SpaceInterval(..),- SpaceOffset(..)-) where--import TestPappy-import Parse-import Preprocess-import Data.Maybe--parse :: String -> Either ParseError Text-parse src = case testPappytest $ testPappyParse "test" p of- Parsed v _ _ -> Right v- NoParse e -> Left e- where- p = fromMaybe (error "can't lex") $ preprocess src
− LexerPappy.hs
@@ -1,3327 +0,0 @@--- Parser generated by Pappy - do not edit-module LexerPappy where--import Pos-import Parse---import System.Environment-import Data.Maybe--ml = maybeToList-----type TailTerms = ([Term], Maybe Clause, [Free])-type Term = Sumti--type Text = Sentence-type Paragraphs = Sentence-type Paragraph = Sentence-type Fragment = Sentence-type Statement = Sentence--data Sentence- = SelbriTailTerms Selbri [Term] (Maybe Clause) [Free]- | GihekBO Sentence Gihek (Maybe Tag) Clause [Free] Sentence [Term]- (Maybe Clause) [Free]- | GihekSentence Sentence- [(Gihek, [Free], Sentence, [Term], Maybe Clause, [Free])]- | GihekKE Sentence Gihek (Maybe Tag) Clause [Free] Sentence (Maybe Clause)- [Free] [Term] (Maybe Clause) [Free]- | TermsBridiTail [Term] (Maybe Clause) [Free] Sentence- | TUhE (Maybe Tag) Clause [Free] Text (Maybe Clause) [Free]- | IBO Statement Clause (Maybe JoikJek) (Maybe Tag) Clause [Free] Statement- | IJoikJek Statement [(Clause, JoikJek, [Free], Maybe Statement)]- | Prenex [Term] Clause [Free] Statement- | FPrenex [Term] Clause [Free]- | StatementI Statement [(Clause, [Free], Maybe Statement)]- | NIhO Paragraph [Clause] [Free] Paragraphs- | IText_1 Clause (Maybe JoikJek) (Maybe (Maybe Tag, Clause)) [Free]- (Maybe Text)- | HeadNIhO [Clause] [Free] (Maybe Paragraphs)- | TopText [Clause] (Either [Clause] (Maybe [([String], String)])) [Free]- (Maybe (JoikJek, [Free])) (Maybe Text) (Maybe Pre)- deriving Show--data Sumti- = LOhU [String] String [String] Pre Indicators [Free]- | LerfuString LerfuString (Maybe Clause) [Free]- | LU Clause Text (Maybe Clause) [Free]- | LAhE_NAhE Clause (Maybe Clause) [Free] (Maybe RelativeClauses)- Sumti (Maybe Clause) [Free]- | KOhA Clause [Free]- | LALE Clause [Free] SumtiTail (Maybe Clause) [Free]- | LA Clause [Free] (Maybe RelativeClauses) [Clause] [Free]- | LI Clause [Free] Mex (Maybe Clause) [Free]- | OuterQuantifier (Maybe Quantifier) Sumti (Maybe RelativeClauses)- | SQuantifierSelbri Quantifier Selbri (Maybe Clause) [Free]- (Maybe RelativeClauses)- | GekSumti Gek Sumti Gik Sumti- | JoikEkBOSumti Sumti JoikEk [Free] (Maybe Tag) Clause [Free] Sumti- | JoikEkSumti Sumti [(JoikEk, [Free], Sumti)]- | JoikEkKESumti Sumti JoikEk [Free] (Maybe Tag) Clause [Free] Sumti- (Maybe Clause) [Free]- | VUhO Sumti Clause [Free] RelativeClauses- deriving Show--data SumtiTail- = SumtiSumtiTail Sumti (Maybe RelativeClauses) SumtiTail- | RelativeClausesSumtiTail RelativeClauses SumtiTail- | SelbriRelativeClauses Selbri (Maybe RelativeClauses)- | STQuantifierSelbri Quantifier Selbri (Maybe RelativeClauses)- | QuantifierSumti Quantifier Sumti- deriving Show--data Selbri- = Brivla Clause [Free]- | Linkargs Selbri Linkargs- | CEI Selbri [(Clause, [Free], Selbri)]- | BO Selbri Clause [Free] Selbri- | GuhekGik (Maybe Clause) [Free] Guhek Selbri Gik Selbri- | JekJoikBO Selbri JoikJek (Maybe Tag) Clause [Free] Selbri- | JoikJek Selbri [JoikJekSelbri5]- | Tanru [Selbri]- | CO Selbri Clause [Free] Selbri- | NA Clause [Free] Selbri- | Tag Tag Selbri- deriving Show--type RelativeClauses = String--type JoikJekSelbri5 = Either (JoikJek, [Free], Selbri)- (Joik, (Maybe Tag), Clause, [Free], Selbri, Maybe Clause, [Free])--type Linkargs = String--type Quantifier = String-type Mex = String-type LerfuString = String--data Free- = VocativeSumti [Clause] (Maybe Sumti) (Maybe Clause)- deriving Show--type Clause = ([String], String, Indicators)-type Pre = ([String], String)-type Indicators = [[([String], String)]]--type Ek = JoikJek-type Jek = JoikJek-type Joik = JoikJek-type JoikEk = JoikJek-type Gihek = JoikJek-data JoikJek- = JOI (Maybe Clause) (Clause) (Maybe Clause)- | Jek (Maybe Clause) (Maybe Clause) Clause (Maybe Clause)- | Ek (Maybe Clause) (Maybe Clause) Clause (Maybe Clause)- | Gihek (Maybe Clause) (Maybe Clause) Clause (Maybe Clause)- deriving Show-data Gek- = GA (Maybe Clause) Clause (Maybe Clause) [Free]- | JoikGI Joik Clause [Free]- | STagGik Tag Gik- deriving Show--- type Guhek = ([Clause], [Free])--- type Gik = ([Clause], [Free])-type Guhek = (Maybe Clause, Clause, Maybe Clause, [Free])-type Gik = (Clause, Maybe Clause, [Free])--type Tag = String--{--main = do- [str] <- getArgs- case lexerPappytest_words $ lexerPappyParse "test_words" str of- Parsed v _ _ -> print v- NoParse e -> error (show e)--}--uncurry3 :: (a -> b -> c -> d) -> (a, b, c) -> d-uncurry3 f (x, y, z) = f x y z--isSimpleText :: [Clause] -> (Either [Clause] (Maybe [([String], String)]), [Free]) -> - Maybe (JoikJek, [Free]) -> Maybe Text -> Maybe Pre -> Bool-isSimpleText n tp2 jj t f =- null n && isNothing (fromRight $ fst tp2) && null (snd tp2) &&- isNothing jj && isJust t && isNothing f--fromRight :: Either a b -> b-fromRight = either (const $ error "not Right") id---data LexerPappyDerivs = LexerPappyDerivs {- lexerPappySub0 :: LexerPappyDerivs0,- lexerPappySub1 :: LexerPappyDerivs1,- lexerPappySub2 :: LexerPappyDerivs2,- lexerPappySub3 :: LexerPappyDerivs3,- lexerPappyChar :: Result LexerPappyDerivs Char,- lexerPappyPos :: Pos-}--instance Derivs LexerPappyDerivs where- dvChar d = lexerPappyChar d- dvPos d = lexerPappyPos d--data LexerPappyDerivs0 = LexerPappyDerivs0 {- lexerPappySubStarRule0 :: Result LexerPappyDerivs ([ (String, String) ]),- lexerPappySubPlusRule0 :: Result LexerPappyDerivs ([String]),- lexerPappySubcmene :: Result LexerPappyDerivs (String),- lexerPappySubStarRule1 :: Result LexerPappyDerivs ([Char]),- lexerPappySubcmavo :: Result LexerPappyDerivs (String),- lexerPappySubStarRule3 :: Result LexerPappyDerivs ([String]),- lexerPappySubStarRule4 :: Result LexerPappyDerivs ([String]),- lexerPappySubbrivla_core :: Result LexerPappyDerivs (String),- lexerPappySubstressed_extended_rafsi :: Result LexerPappyDerivs (String),- lexerPappySubextended_rafsi :: Result LexerPappyDerivs (String),- lexerPappySubStarRule6 :: Result LexerPappyDerivs ([String]),- lexerPappySubStarRule7 :: Result LexerPappyDerivs ([String]),- lexerPappySubbrivla_head :: Result LexerPappyDerivs (String),- lexerPappySubStarRule8 :: Result LexerPappyDerivs ([String]),- lexerPappySubrafsi_string :: Result LexerPappyDerivs (String),- lexerPappySubCVV_final_rafsi :: Result LexerPappyDerivs (String)}--data LexerPappyDerivs1 = LexerPappyDerivs1 {- lexerPappySubshort_final_rafsi :: Result LexerPappyDerivs (String),- lexerPappySubstressed_y_rafsi :: Result LexerPappyDerivs (String),- lexerPappySubstressed_y_less_rafsi :: Result LexerPappyDerivs (String),- lexerPappySubstressed_long_rafsi :: Result LexerPappyDerivs (String),- lexerPappySuby_rafsi :: Result LexerPappyDerivs (String),- lexerPappySuby_less_rafsi :: Result LexerPappyDerivs (String),- lexerPappySubr_hyphen :: Result LexerPappyDerivs (Char),- lexerPappySubfinal_syllable :: Result LexerPappyDerivs (String),- lexerPappySubstressed_syllable :: Result LexerPappyDerivs (String),- lexerPappySubstressed_vowel :: Result LexerPappyDerivs (Char),- lexerPappySubunstressed_syllable :: Result LexerPappyDerivs (String),- lexerPappySubStarRule9 :: Result LexerPappyDerivs ([Char]),- lexerPappySubconsonantal_syllable :: Result LexerPappyDerivs (String),- lexerPappySubcoda :: Result LexerPappyDerivs (String),- lexerPappySubonset :: Result LexerPappyDerivs (String),- lexerPappySubglide :: Result LexerPappyDerivs (Char)}--data LexerPappyDerivs2 = LexerPappyDerivs2 {- lexerPappySubdiphthong :: Result LexerPappyDerivs (String),- lexerPappySubvowel :: Result LexerPappyDerivs (Char),- lexerPappySubPlusRule2 :: Result LexerPappyDerivs ([Char]),- lexerPappySubinitial_pair :: Result LexerPappyDerivs (String),- lexerPappySubinitial :: Result LexerPappyDerivs (String),- lexerPappySubl :: Result LexerPappyDerivs (Char),- lexerPappySubm :: Result LexerPappyDerivs (Char),- lexerPappySubn :: Result LexerPappyDerivs (Char),- lexerPappySubr :: Result LexerPappyDerivs (Char),- lexerPappySubb :: Result LexerPappyDerivs (Char),- lexerPappySubd :: Result LexerPappyDerivs (Char),- lexerPappySubg :: Result LexerPappyDerivs (Char),- lexerPappySubv :: Result LexerPappyDerivs (Char),- lexerPappySubj :: Result LexerPappyDerivs (Char),- lexerPappySubz :: Result LexerPappyDerivs (Char),- lexerPappySubs :: Result LexerPappyDerivs (Char)}--data LexerPappyDerivs3 = LexerPappyDerivs3 {- lexerPappySubc :: Result LexerPappyDerivs (Char),- lexerPappySubx :: Result LexerPappyDerivs (Char),- lexerPappySubk :: Result LexerPappyDerivs (Char),- lexerPappySubf :: Result LexerPappyDerivs (Char),- lexerPappySubp :: Result LexerPappyDerivs (Char),- lexerPappySubt :: Result LexerPappyDerivs (Char),- lexerPappySubdigit :: Result LexerPappyDerivs (Char),- lexerPappySubPlusRule3 :: Result LexerPappyDerivs ([Char]),- lexerPappySubspaces :: Result LexerPappyDerivs ( String ),- lexerPappySubPlusRule4 :: Result LexerPappyDerivs ([ String ]),- lexerPappySubStarRule37 :: Result LexerPappyDerivs ([Char]),- lexerPappySubStarRule38 :: Result LexerPappyDerivs ([ Char ]),- lexerPappySubybu :: Result LexerPappyDerivs (String),- lexerPappySubPlusRule5 :: Result LexerPappyDerivs ([Char]),- lexerPappySubdummyTail :: Result LexerPappyDerivs ((() -> ())),- lexerPappySubdummy :: Result LexerPappyDerivs (())}--lexerPappyStarRule0 = lexerPappySubStarRule0 . lexerPappySub0-lexerPappyPlusRule0 = lexerPappySubPlusRule0 . lexerPappySub0-lexerPappycmene = lexerPappySubcmene . lexerPappySub0-lexerPappyStarRule1 = lexerPappySubStarRule1 . lexerPappySub0-lexerPappycmavo = lexerPappySubcmavo . lexerPappySub0-lexerPappyStarRule3 = lexerPappySubStarRule3 . lexerPappySub0-lexerPappyStarRule4 = lexerPappySubStarRule4 . lexerPappySub0-lexerPappybrivla_core = lexerPappySubbrivla_core . lexerPappySub0-lexerPappystressed_extended_rafsi = lexerPappySubstressed_extended_rafsi . lexerPappySub0-lexerPappyextended_rafsi = lexerPappySubextended_rafsi . lexerPappySub0-lexerPappyStarRule6 = lexerPappySubStarRule6 . lexerPappySub0-lexerPappyStarRule7 = lexerPappySubStarRule7 . lexerPappySub0-lexerPappybrivla_head = lexerPappySubbrivla_head . lexerPappySub0-lexerPappyStarRule8 = lexerPappySubStarRule8 . lexerPappySub0-lexerPappyrafsi_string = lexerPappySubrafsi_string . lexerPappySub0-lexerPappyCVV_final_rafsi = lexerPappySubCVV_final_rafsi . lexerPappySub0-lexerPappyshort_final_rafsi = lexerPappySubshort_final_rafsi . lexerPappySub1-lexerPappystressed_y_rafsi = lexerPappySubstressed_y_rafsi . lexerPappySub1-lexerPappystressed_y_less_rafsi = lexerPappySubstressed_y_less_rafsi . lexerPappySub1-lexerPappystressed_long_rafsi = lexerPappySubstressed_long_rafsi . lexerPappySub1-lexerPappyy_rafsi = lexerPappySuby_rafsi . lexerPappySub1-lexerPappyy_less_rafsi = lexerPappySuby_less_rafsi . lexerPappySub1-lexerPappyr_hyphen = lexerPappySubr_hyphen . lexerPappySub1-lexerPappyfinal_syllable = lexerPappySubfinal_syllable . lexerPappySub1-lexerPappystressed_syllable = lexerPappySubstressed_syllable . lexerPappySub1-lexerPappystressed_vowel = lexerPappySubstressed_vowel . lexerPappySub1-lexerPappyunstressed_syllable = lexerPappySubunstressed_syllable . lexerPappySub1-lexerPappyStarRule9 = lexerPappySubStarRule9 . lexerPappySub1-lexerPappyconsonantal_syllable = lexerPappySubconsonantal_syllable . lexerPappySub1-lexerPappycoda = lexerPappySubcoda . lexerPappySub1-lexerPappyonset = lexerPappySubonset . lexerPappySub1-lexerPappyglide = lexerPappySubglide . lexerPappySub1-lexerPappydiphthong = lexerPappySubdiphthong . lexerPappySub2-lexerPappyvowel = lexerPappySubvowel . lexerPappySub2-lexerPappyPlusRule2 = lexerPappySubPlusRule2 . lexerPappySub2-lexerPappyinitial_pair = lexerPappySubinitial_pair . lexerPappySub2-lexerPappyinitial = lexerPappySubinitial . lexerPappySub2-lexerPappyl = lexerPappySubl . lexerPappySub2-lexerPappym = lexerPappySubm . lexerPappySub2-lexerPappyn = lexerPappySubn . lexerPappySub2-lexerPappyr = lexerPappySubr . lexerPappySub2-lexerPappyb = lexerPappySubb . lexerPappySub2-lexerPappyd = lexerPappySubd . lexerPappySub2-lexerPappyg = lexerPappySubg . lexerPappySub2-lexerPappyv = lexerPappySubv . lexerPappySub2-lexerPappyj = lexerPappySubj . lexerPappySub2-lexerPappyz = lexerPappySubz . lexerPappySub2-lexerPappys = lexerPappySubs . lexerPappySub2-lexerPappyc = lexerPappySubc . lexerPappySub3-lexerPappyx = lexerPappySubx . lexerPappySub3-lexerPappyk = lexerPappySubk . lexerPappySub3-lexerPappyf = lexerPappySubf . lexerPappySub3-lexerPappyp = lexerPappySubp . lexerPappySub3-lexerPappyt = lexerPappySubt . lexerPappySub3-lexerPappydigit = lexerPappySubdigit . lexerPappySub3-lexerPappyPlusRule3 = lexerPappySubPlusRule3 . lexerPappySub3-lexerPappyspaces = lexerPappySubspaces . lexerPappySub3-lexerPappyPlusRule4 = lexerPappySubPlusRule4 . lexerPappySub3-lexerPappyStarRule37 = lexerPappySubStarRule37 . lexerPappySub3-lexerPappyStarRule38 = lexerPappySubStarRule38 . lexerPappySub3-lexerPappyybu = lexerPappySubybu . lexerPappySub3-lexerPappyPlusRule5 = lexerPappySubPlusRule5 . lexerPappySub3-lexerPappydummyTail = lexerPappySubdummyTail . lexerPappySub3-lexerPappydummy = lexerPappySubdummy . lexerPappySub3--lexerPappyParse :: String -> String -> LexerPappyDerivs-lexerPappyParse name text = lexerPappyDerivs (Pos name 1 1) text--lexerPappyDerivs :: Pos -> String -> LexerPappyDerivs-lexerPappyDerivs pos text = dvs where- dvs = LexerPappyDerivs- (lexerPappyDerivs0 dvs)- (lexerPappyDerivs1 dvs)- (lexerPappyDerivs2 dvs)- (lexerPappyDerivs3 dvs)- chr pos- chr = case text of- [] -> NoParse (eofError dvs)- (c:cs) -> Parsed c (lexerPappyDerivs (nextPos pos c) cs) (nullError dvs)--lexerPappyDerivs0 dvs = LexerPappyDerivs0- (lexerPappyParseStarRule0 dvs)- (lexerPappyParsePlusRule0 dvs)- (lexerPappyParsecmene dvs)- (lexerPappyParseStarRule1 dvs)- (lexerPappyParsecmavo dvs)- (lexerPappyParseStarRule3 dvs)- (lexerPappyParseStarRule4 dvs)- (lexerPappyParsebrivla_core dvs)- (lexerPappyParsestressed_extended_rafsi dvs)- (lexerPappyParseextended_rafsi dvs)- (lexerPappyParseStarRule6 dvs)- (lexerPappyParseStarRule7 dvs)- (lexerPappyParsebrivla_head dvs)- (lexerPappyParseStarRule8 dvs)- (lexerPappyParserafsi_string dvs)- (lexerPappyParseCVV_final_rafsi dvs)--lexerPappyDerivs1 dvs = LexerPappyDerivs1- (lexerPappyParseshort_final_rafsi dvs)- (lexerPappyParsestressed_y_rafsi dvs)- (lexerPappyParsestressed_y_less_rafsi dvs)- (lexerPappyParsestressed_long_rafsi dvs)- (lexerPappyParsey_rafsi dvs)- (lexerPappyParsey_less_rafsi dvs)- (lexerPappyParser_hyphen dvs)- (lexerPappyParsefinal_syllable dvs)- (lexerPappyParsestressed_syllable dvs)- (lexerPappyParsestressed_vowel dvs)- (lexerPappyParseunstressed_syllable dvs)- (lexerPappyParseStarRule9 dvs)- (lexerPappyParseconsonantal_syllable dvs)- (lexerPappyParsecoda dvs)- (lexerPappyParseonset dvs)- (lexerPappyParseglide dvs)--lexerPappyDerivs2 dvs = LexerPappyDerivs2- (lexerPappyParsediphthong dvs)- (lexerPappyParsevowel dvs)- (lexerPappyParsePlusRule2 dvs)- (lexerPappyParseinitial_pair dvs)- (lexerPappyParseinitial dvs)- (lexerPappyParsel dvs)- (lexerPappyParsem dvs)- (lexerPappyParsen dvs)- (lexerPappyParser dvs)- (lexerPappyParseb dvs)- (lexerPappyParsed dvs)- (lexerPappyParseg dvs)- (lexerPappyParsev dvs)- (lexerPappyParsej dvs)- (lexerPappyParsez dvs)- (lexerPappyParses dvs)--lexerPappyDerivs3 dvs = LexerPappyDerivs3- (lexerPappyParsec dvs)- (lexerPappyParsex dvs)- (lexerPappyParsek dvs)- (lexerPappyParsef dvs)- (lexerPappyParsep dvs)- (lexerPappyParset dvs)- (lexerPappyParsedigit dvs)- (lexerPappyParsePlusRule3 dvs)- (lexerPappyParsespaces dvs)- (lexerPappyParsePlusRule4 dvs)- (lexerPappyParseStarRule37 dvs)- (lexerPappyParseStarRule38 dvs)- (lexerPappyParseybu dvs)- (lexerPappyParsePlusRule5 dvs)- (lexerPappyParsedummyTail dvs)- (lexerPappyParsedummy dvs)--lexerPappytest_words :: LexerPappyDerivs -> Result LexerPappyDerivs ( (String, [(String, String)]) )-lexerPappytest_words d =- case pappyResult1 of- Parsed w d1 e1 ->- case lexerPappyanyChar d1 of- NoParse e3 ->- Parsed ( w ) d1 (max e3 e1)- Parsed _ _ e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- case pappyResult3 of- Parsed p d3 e3 ->- case lexerPappyStarRule0 d3 of- Parsed ws d5 e5 ->- Parsed ( maybe ("", ws) (flip (,) ws) p ) d5 (max e5 e3)- NoParse e5 -> NoParse (max e5 e3)- NoParse e3 -> NoParse e3- where- pappyResult3 =- case lexerPappyspaces d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5--lexerPappyParseStarRule0 :: LexerPappyDerivs -> Result LexerPappyDerivs ([ (String, String) ])-lexerPappyParseStarRule0 d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case lexerPappyStarRule0 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed w d5 e5 ->- case pappyResult7 of- Parsed ps d7 e7 ->- Parsed ( maybe (w, "") ((,) w) ps ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- case lexerPappyspaces d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> NoParse e5- where- pappyResult5 =- pappyAlt7_1 (ParseError (lexerPappyPos d) []) where- pappyAlt7_1 e7 =- case lexerPappylojban_word d of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- case lexerPappylojban_word d of- NoParse e9 ->- case lexerPappyPlusRule3 d of- Parsed ns d11 e11 ->- Parsed ( ns ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_3 (maximum [e11,e9,e7])- Parsed _ _ e9 -> pappyAlt7_3 (max e9 e7)- pappyAlt7_3 e7 = NoParse e7- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--lexerPappylojban_word :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappylojban_word d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappycmene d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappycmavo d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case lexerPappycmavo d of- NoParse e3 ->- case lexerPappyStarRule4 d of- Parsed rs d5 e5 ->- case lexerPappybrivla_core d5 of- Parsed b d7 e7 ->- Parsed ( concat rs ++ b ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- Parsed _ _ e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--lexerPappyParsePlusRule0 :: LexerPappyDerivs -> Result LexerPappyDerivs ([String])-lexerPappyParsePlusRule0 d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case lexerPappyPlusRule0 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d) []) where- pappyAlt5_1 e5 =- case lexerPappyany_syllable d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case lexerPappydigit d of- Parsed d d7 e7 ->- Parsed ( [d] ) d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d) []) where- pappyAlt5_1 e5 =- case lexerPappyany_syllable d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case lexerPappydigit d of- Parsed d d7 e7 ->- Parsed ( [d] ) d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_3 e1 = NoParse e1--lexerPappyParsecmene :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParsecmene d =- case lexerPappyh d of- NoParse e1 ->- case pappyResult3 of- Parsed _ _ e3 ->- case pappyResult5 of- Parsed c d5 e5 ->- case lexerPappyPlusRule0 d5 of- Parsed r d7 e7 ->- case lexerPappypause d7 of- Parsed _ _ e9 ->- Parsed ( fromMaybe "" c ++ concat r ) d7 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case lexerPappycoda d of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d e7- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case lexerPappyStarRule1 d of- Parsed s d5 e5 ->- case lexerPappyconsonant d5 of- Parsed c d7 e7 ->- case lexerPappypause d7 of- Parsed _ _ e9 ->- Parsed ( s ++ [c] ) d7 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- Parsed _ _ e1 -> NoParse e1--lexerPappyParseStarRule1 :: LexerPappyDerivs -> Result LexerPappyDerivs ([Char])-lexerPappyParseStarRule1 d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case lexerPappyStarRule1 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case lexerPappynon_space d of- Parsed n d5 e5 ->- case lexerPappynon_space d5 of- Parsed _ _ e7 ->- Parsed ( n ) d5 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--lexerPappyParsecmavo :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParsecmavo d =- case lexerPappycmene d of- NoParse e1 ->- case pappyResult3 of- NoParse e3 ->- case pappyResult5 of- Parsed c d5 e5 ->- case lexerPappypost_word d5 of- Parsed _ _ e7 ->- Parsed ( c ) d5 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- pappyAlt7_1 (ParseError (lexerPappyPos d) []) where- pappyAlt7_1 e7 =- case lexerPappyh d of- NoParse e9 ->- case lexerPappycluster d of- NoParse e11 ->- case lexerPappyonset d of- Parsed o d13 e13 ->- case lexerPappyStarRule3 d13 of- Parsed nh d15 e15 ->- case pappyResult17 of- Parsed nn d17 e17 ->- Parsed ( o ++ concat nh ++ nn ) d17 (maximum [e17,e15,e13,e11,e9,e7])- NoParse e17 -> pappyAlt7_2 (maximum [e17,e15,e13,e11,e9,e7])- where- pappyResult17 =- pappyAlt19_1 (ParseError (lexerPappyPos d15) []) where- pappyAlt19_1 e19 =- case lexerPappystressed d15 of- NoParse e21 ->- case lexerPappynucleus d15 of- Parsed n d23 e23 ->- Parsed ( n ) d23 (maximum [e23,e21,e19])- NoParse e23 -> pappyAlt19_2 (maximum [e23,e21,e19])- Parsed _ _ e21 -> pappyAlt19_2 (max e21 e19)- pappyAlt19_2 e19 =- case lexerPappynucleus d15 of- Parsed n d21 e21 ->- case lexerPappycluster d21 of- NoParse e23 ->- Parsed ( n ) d21 (maximum [e23,e21,e19])- Parsed _ _ e23 -> pappyAlt19_3 (maximum [e23,e21,e19])- NoParse e21 -> pappyAlt19_3 (max e21 e19)- pappyAlt19_3 e19 = NoParse e19- NoParse e15 -> pappyAlt7_2 (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> pappyAlt7_2 (maximum [e13,e11,e9,e7])- Parsed _ _ e11 -> pappyAlt7_2 (maximum [e11,e9,e7])- Parsed _ _ e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- case lexerPappyPlusRule5 d of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_3 (max e9 e7)- pappyAlt7_3 e7 =- case lexerPappydigit d of- Parsed d d9 e9 ->- Parsed ( [d] ) d9 (max e9 e7)- NoParse e9 -> pappyAlt7_4 (max e9 e7)- pappyAlt7_4 e7 = NoParse e7- Parsed _ _ e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d) []) where- pappyAlt5_1 e5 =- case lexerPappyCVC_rafsi d of- Parsed r d7 e7 ->- case lexerPappyy d7 of- Parsed y d9 e9 ->- case pappyResult11 of- Parsed h d11 e11 ->- case lexerPappyStarRule4 d11 of- Parsed rs d13 e13 ->- case lexerPappybrivla_core d13 of- Parsed b d15 e15 ->- Parsed ( r ++ [y] ++ ml h ++ concat rs ++ b ) d15 (maximum [e15,e13,e11,e9,e7,e5])- NoParse e15 -> pappyAlt5_2 (maximum [e15,e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- where- pappyResult11 =- case lexerPappyh d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case lexerPappystressed_CVC_rafsi d of- Parsed r d7 e7 ->- case lexerPappyy d7 of- Parsed y d9 e9 ->- case lexerPappyshort_final_rafsi d9 of- Parsed f d11 e11 ->- Parsed ( r ++ [y] ++ f ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- Parsed _ _ e1 -> NoParse e1--lexerPappyParseStarRule3 :: LexerPappyDerivs -> Result LexerPappyDerivs ([String])-lexerPappyParseStarRule3 d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case lexerPappyStarRule3 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case lexerPappynucleus d of- Parsed n d5 e5 ->- case lexerPappyh d5 of- Parsed h d7 e7 ->- Parsed ( n ++ [h] ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--lexerPappyParseStarRule4 :: LexerPappyDerivs -> Result LexerPappyDerivs ([String])-lexerPappyParseStarRule4 d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case lexerPappyStarRule4 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d) []) where- pappyAlt5_1 e5 =- case lexerPappyextended_rafsi d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case lexerPappyy_rafsi d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case lexerPappyany_extended_rafsi d of- NoParse e7 ->- case lexerPappyy_less_rafsi d of- Parsed r d9 e9 ->- Parsed ( r ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- Parsed _ _ e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 = NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--lexerPappyParsebrivla_core :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParsebrivla_core d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyfuhivla d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappygismu d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case lexerPappyCVV_final_rafsi d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case pappyResult3 of- Parsed i d3 e3 ->- case lexerPappyshort_final_rafsi d3 of- Parsed f d5 e5 ->- Parsed ( i ++ f ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_5 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d) []) where- pappyAlt5_1 e5 =- case lexerPappystressed_extended_rafsi d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case lexerPappystressed_y_rafsi d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case lexerPappystressed_y_less_rafsi d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 = NoParse e5- pappyAlt1_5 e1 = NoParse e1--lexerPappyany_extended_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyany_extended_rafsi d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyfuhivla d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappyextended_rafsi d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case lexerPappystressed_extended_rafsi d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--lexerPappyfuhivla :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyfuhivla d =- case lexerPappyfuhivla_head d of- Parsed f d1 e1 ->- case lexerPappystressed_syllable d1 of- Parsed s d3 e3 ->- case lexerPappyStarRule6 d3 of- Parsed ss d5 e5 ->- case lexerPappyfinal_syllable d5 of- Parsed t d7 e7 ->- Parsed ( f ++ s ++ concat ss ++ t ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappyParsestressed_extended_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParsestressed_extended_rafsi d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyunstressed_syllable d of- Parsed _ _ e3 ->- case lexerPappybrivla_head d of- Parsed b d5 e5 ->- case lexerPappystressed_syllable d5 of- Parsed s d7 e7 ->- case lexerPappyh d7 of- Parsed h d9 e9 ->- case lexerPappyy d9 of- Parsed y d11 e11 ->- Parsed ( b ++ s ++ [h, y] ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappyfuhivla_head d of- Parsed f d3 e3 ->- case lexerPappystressed_syllable d3 of- Parsed s d5 e5 ->- case lexerPappyconsonant d5 of- Parsed _ _ e7 ->- case lexerPappyonset d5 of- Parsed o d9 e9 ->- case lexerPappyy d9 of- Parsed y d11 e11 ->- Parsed ( f ++ s ++ o ++ [y] ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--lexerPappyParseextended_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParseextended_rafsi d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed _ _ e3 ->- case lexerPappybrivla_head d of- Parsed b d5 e5 ->- case lexerPappyh d5 of- Parsed h d7 e7 ->- case lexerPappyy d7 of- Parsed y d9 e9 ->- case pappyResult11 of- Parsed i d11 e11 ->- Parsed ( b ++ [h, y] ++ ml i ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])- where- pappyResult11 =- case lexerPappyh d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case lexerPappysyllable d of- Parsed _ d5 e5 ->- case lexerPappyStarRule6 d5 of- Parsed _ d7 e7 ->- case lexerPappysyllable d7 of- Parsed _ d9 e9 ->- Parsed ( () ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- case lexerPappyunstressed_syllable d of- Parsed _ _ e3 ->- case lexerPappyfuhivla_head d of- Parsed f d5 e5 ->- case lexerPappyconsonant d5 of- Parsed _ _ e7 ->- case lexerPappyonset d5 of- Parsed o d9 e9 ->- case lexerPappyy d9 of- Parsed y d11 e11 ->- case pappyResult13 of- Parsed h d13 e13 ->- Parsed ( f ++ o ++ [y] ++ ml h ) d13 (maximum [e13,e11,e9,e7,e5,e3,e1])- NoParse e13 -> pappyAlt1_3 (maximum [e13,e11,e9,e7,e5,e3,e1])- where- pappyResult13 =- case lexerPappyh d11 of- Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15- NoParse e15 -> Parsed (Nothing) d11 e15- NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--lexerPappyParseStarRule6 :: LexerPappyDerivs -> Result LexerPappyDerivs ([String])-lexerPappyParseStarRule6 d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyconsonantal_syllable d of- Parsed v d3 e3 ->- case lexerPappyStarRule6 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--lexerPappyfuhivla_head :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyfuhivla_head d =- case lexerPappyrafsi_string d of- NoParse e1 ->- case lexerPappybrivla_head d of- Parsed b d3 e3 ->- Parsed ( b ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- Parsed _ _ e1 -> NoParse e1--lexerPappyParseStarRule7 :: LexerPappyDerivs -> Result LexerPappyDerivs ([String])-lexerPappyParseStarRule7 d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyunstressed_syllable d of- Parsed v d3 e3 ->- case lexerPappyStarRule7 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--lexerPappyParsebrivla_head :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParsebrivla_head d =- case lexerPappycmavo d of- NoParse e1 ->- case pappyResult3 of- NoParse e3 ->- case lexerPappyh d of- NoParse e5 ->- case lexerPappyonset d of- Parsed _ _ e7 ->- case lexerPappyStarRule7 d of- Parsed ss d9 e9 ->- Parsed ( concat ss ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- Parsed _ _ e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case lexerPappyconsonant d of- Parsed c d5 e5 ->- case lexerPappyrafsi_string d5 of- Parsed r d7 e7 ->- Parsed ( c : r ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- Parsed _ _ e1 -> NoParse e1--lexerPappyParseStarRule8 :: LexerPappyDerivs -> Result LexerPappyDerivs ([String])-lexerPappyParseStarRule8 d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyy_less_rafsi d of- Parsed v d3 e3 ->- case lexerPappyStarRule8 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--lexerPappyParserafsi_string :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParserafsi_string d =- case lexerPappyStarRule8 d of- Parsed ylrs d1 e1 ->- case pappyResult3 of- Parsed r d3 e3 ->- Parsed ( concat ylrs ++ r ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappygismu d1 of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case lexerPappyCVV_final_rafsi d1 of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case lexerPappystressed_y_less_rafsi d1 of- Parsed ylr d7 e7 ->- case lexerPappyshort_final_rafsi d7 of- Parsed sfr d9 e9 ->- Parsed ( ylr ++ sfr ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case lexerPappyy_rafsi d1 of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case lexerPappystressed_y_rafsi d1 of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case pappyResult7 of- Parsed ylr d7 e7 ->- case lexerPappyinitial_pair d7 of- Parsed p d9 e9 ->- case lexerPappyy d9 of- Parsed y d11 e11 ->- Parsed ( fromMaybe "" ylr ++ p ++ [y] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- where- pappyResult7 =- case lexerPappystressed_y_less_rafsi d1 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d1 e9- pappyAlt5_7 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappygismu :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappygismu d =- case lexerPappystressed_long_rafsi d of- Parsed r d1 e1 ->- case lexerPappyfinal_syllable d1 of- Parsed _ _ e3 ->- case lexerPappyvowel d1 of- Parsed v d5 e5 ->- case lexerPappypost_word d5 of- Parsed _ _ e7 ->- Parsed ( r ++ [v] ) d5 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappyParseCVV_final_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParseCVV_final_rafsi d =- case lexerPappyconsonant d of- Parsed c d1 e1 ->- case lexerPappystressed_vowel d1 of- Parsed v d3 e3 ->- case lexerPappyh d3 of- Parsed h d5 e5 ->- case lexerPappyfinal_syllable d5 of- Parsed _ _ e7 ->- case lexerPappyvowel d5 of- Parsed w d9 e9 ->- case lexerPappypost_word d9 of- Parsed _ _ e11 ->- Parsed ( c : v : h : w : [] ) d9 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappyParseshort_final_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParseshort_final_rafsi d =- case lexerPappyfinal_syllable d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed r d3 e3 ->- case lexerPappypost_word d3 of- Parsed _ _ e5 ->- Parsed ( r ) d3 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d) []) where- pappyAlt5_1 e5 =- case lexerPappyconsonant d of- Parsed c d7 e7 ->- case lexerPappydiphthong d7 of- Parsed d d9 e9 ->- Parsed ( c : d ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case lexerPappyinitial_pair d of- Parsed p d7 e7 ->- case lexerPappyvowel d7 of- Parsed v d9 e9 ->- Parsed ( p ++ [v] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParsestressed_y_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParsestressed_y_rafsi d =- case pappyResult1 of- Parsed r d1 e1 ->- case lexerPappyy d1 of- Parsed y d3 e3 ->- Parsed ( r ++ [y] ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (lexerPappyPos d) []) where- pappyAlt3_1 e3 =- case lexerPappystressed_long_rafsi d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case lexerPappystressed_CVC_rafsi d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 = NoParse e3--lexerPappyParsestressed_y_less_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParsestressed_y_less_rafsi d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappystressed_CVC_rafsi d of- Parsed r d3 e3 ->- case lexerPappyy d3 of- NoParse e5 ->- Parsed ( r ) d3 (maximum [e5,e3,e1])- Parsed _ _ e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappystressed_CCV_rafsi d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case lexerPappyconsonant d of- Parsed c d3 e3 ->- case pappyResult5 of- Parsed vv d5 e5 ->- case pappyResult7 of- Parsed r d7 e7 ->- Parsed ( c : vv ++ ml r ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case lexerPappyr_hyphen d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- where- pappyResult5 =- pappyAlt7_1 (ParseError (lexerPappyPos d3) []) where- pappyAlt7_1 e7 =- case lexerPappyunstressed_vowel d3 of- Parsed v d9 e9 ->- case lexerPappyh d9 of- Parsed h d11 e11 ->- case lexerPappystressed_vowel d11 of- Parsed w d13 e13 ->- Parsed ( [v, h, w] ) d13 (maximum [e13,e11,e9,e7])- NoParse e13 -> pappyAlt7_2 (maximum [e13,e11,e9,e7])- NoParse e11 -> pappyAlt7_2 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- pappyAlt9_1 e7 where- pappyAlt9_1 e9 =- case lexerPappystressed d3 of- Parsed _ _ e11 ->- case lexerPappydiphthong d3 of- Parsed d d13 e13 ->- Parsed ( d ) d13 (maximum [e13,e11,e9])- NoParse e13 -> pappyAlt9_2 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case lexerPappydiphthong d3 of- Parsed d d11 e11 ->- case lexerPappystress d11 of- Parsed _ _ e13 ->- Parsed ( d ) d11 (maximum [e13,e11,e9])- NoParse e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = pappyAlt7_3 e9- pappyAlt7_3 e7 = NoParse e7- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--lexerPappyParsestressed_long_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParsestressed_long_rafsi d =- case pappyResult1 of- Parsed r d1 e1 ->- case lexerPappyconsonant d1 of- Parsed c d3 e3 ->- Parsed ( r ++ [c] ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (lexerPappyPos d) []) where- pappyAlt3_1 e3 =- case lexerPappystressed_CCV_rafsi d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case lexerPappystressed_CVC_rafsi d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 = NoParse e3--lexerPappystressed_CVC_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappystressed_CVC_rafsi d =- case lexerPappyconsonant d of- Parsed c d1 e1 ->- case lexerPappystressed_vowel d1 of- Parsed v d3 e3 ->- case lexerPappyconsonant d3 of- Parsed d d5 e5 ->- Parsed ( [c, v, d] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappystressed_CCV_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappystressed_CCV_rafsi d =- case lexerPappyinitial_pair d of- Parsed p d1 e1 ->- case lexerPappystressed_vowel d1 of- Parsed v d3 e3 ->- Parsed ( p ++ [v] ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappyParsey_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParsey_rafsi d =- case pappyResult1 of- Parsed r d1 e1 ->- case lexerPappyy d1 of- Parsed y d3 e3 ->- case pappyResult5 of- Parsed h d5 e5 ->- Parsed ( r ++ [y] ++ ml h ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case lexerPappyh d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (lexerPappyPos d) []) where- pappyAlt3_1 e3 =- case pappyResult5 of- Parsed r d5 e5 ->- case lexerPappyconsonant d5 of- Parsed c d7 e7 ->- Parsed ( r ++ [c] ) d7 (maximum [e7,e5,e3])- NoParse e7 -> pappyAlt3_2 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_2 (max e5 e3)- where- pappyResult5 =- pappyAlt7_1 (ParseError (lexerPappyPos d) []) where- pappyAlt7_1 e7 =- case lexerPappyCCV_rafsi d of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- case lexerPappyCVC_rafsi d of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_3 (max e9 e7)- pappyAlt7_3 e7 = NoParse e7- pappyAlt3_2 e3 =- case lexerPappyCVC_rafsi d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 = NoParse e3--lexerPappyParsey_less_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParsey_less_rafsi d =- case lexerPappyy_rafsi d of- NoParse e1 ->- case pappyResult3 of- Parsed r d3 e3 ->- case lexerPappyany_extended_rafsi d3 of- NoParse e5 ->- Parsed ( r ) d3 (maximum [e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d) []) where- pappyAlt5_1 e5 =- case lexerPappyCVC_rafsi d of- Parsed cvcr d7 e7 ->- case lexerPappyy d7 of- NoParse e9 ->- Parsed ( cvcr ) d7 (maximum [e9,e7,e5])- Parsed _ _ e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case lexerPappyCCV_rafsi d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case lexerPappyconsonant d of- Parsed c d7 e7 ->- case pappyResult9 of- Parsed vv d9 e9 ->- case pappyResult11 of- Parsed r d11 e11 ->- Parsed ( c : vv ++ ml r ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- where- pappyResult11 =- case lexerPappyr_hyphen d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- where- pappyResult9 =- pappyAlt11_1 (ParseError (lexerPappyPos d7) []) where- pappyAlt11_1 e11 =- case lexerPappyunstressed_vowel d7 of- Parsed v d13 e13 ->- case lexerPappyh d13 of- Parsed h d15 e15 ->- case lexerPappyunstressed_vowel d15 of- Parsed w d17 e17 ->- Parsed ( [v, h, w] ) d17 (maximum [e17,e15,e13,e11])- NoParse e17 -> pappyAlt11_2 (maximum [e17,e15,e13,e11])- NoParse e15 -> pappyAlt11_2 (maximum [e15,e13,e11])- NoParse e13 -> pappyAlt11_2 (max e13 e11)- pappyAlt11_2 e11 =- case pappyResult13 of- Parsed d d13 e13 ->- Parsed ( d ) d13 (max e13 e11)- NoParse e13 -> pappyAlt11_3 (max e13 e11)- where- pappyResult13 =- case lexerPappystressed d7 of- NoParse e15 ->- case lexerPappydiphthong d7 of- Parsed d d17 e17 ->- case lexerPappystress d17 of- NoParse e19 ->- Parsed ( d ) d17 (maximum [e19,e17,e15])- Parsed _ _ e19 -> NoParse (maximum [e19,e17,e15])- NoParse e17 -> NoParse (max e17 e15)- Parsed _ _ e15 -> NoParse e15- pappyAlt11_3 e11 = NoParse e11- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 = NoParse e5- Parsed _ _ e1 -> NoParse e1--lexerPappyCVC_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyCVC_rafsi d =- case lexerPappyconsonant d of- Parsed c d1 e1 ->- case lexerPappyunstressed_vowel d1 of- Parsed v d3 e3 ->- case lexerPappyconsonant d3 of- Parsed d d5 e5 ->- Parsed ( [c, v, d] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappyCCV_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyCCV_rafsi d =- case lexerPappyinitial_pair d of- Parsed i d1 e1 ->- case lexerPappyunstressed_vowel d1 of- Parsed v d3 e3 ->- Parsed ( i ++ [v] ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappyParser_hyphen :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParser_hyphen d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyr d of- Parsed r d3 e3 ->- case lexerPappyconsonant d3 of- Parsed _ _ e5 ->- Parsed ( r ) d3 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappyn d of- Parsed n d3 e3 ->- case lexerPappyr d3 of- Parsed _ _ e5 ->- Parsed ( n ) d3 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--lexerPappyParsefinal_syllable :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParsefinal_syllable d =- case lexerPappyonset d of- Parsed o d1 e1 ->- case lexerPappyy d1 of- NoParse e3 ->- case lexerPappystressed d1 of- NoParse e5 ->- case lexerPappynucleus d1 of- Parsed n d7 e7 ->- case lexerPappycmene d7 of- NoParse e9 ->- case lexerPappypost_word d7 of- Parsed _ _ e11 ->- Parsed ( o ++ n ) d7 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- Parsed _ _ e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappyParsestressed_syllable :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParsestressed_syllable d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappystressed d of- Parsed _ _ e3 ->- case lexerPappysyllable d of- Parsed s d5 e5 ->- Parsed ( s ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappysyllable d of- Parsed s d3 e3 ->- case lexerPappystress d3 of- Parsed _ _ e5 ->- Parsed ( s ) d3 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--lexerPappyParsestressed_vowel :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParsestressed_vowel d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappystressed d of- Parsed _ _ e3 ->- case lexerPappyvowel d of- Parsed v d5 e5 ->- Parsed ( v ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappyvowel d of- Parsed v d3 e3 ->- case lexerPappystress d3 of- Parsed _ _ e5 ->- Parsed ( v ) d3 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--lexerPappyParseunstressed_syllable :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParseunstressed_syllable d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappystressed d of- NoParse e3 ->- case lexerPappysyllable d of- Parsed s d5 e5 ->- case lexerPappystress d5 of- NoParse e7 ->- Parsed ( s ) d5 (maximum [e7,e5,e3,e1])- Parsed _ _ e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- Parsed _ _ e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappyconsonantal_syllable d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--lexerPappyunstressed_vowel :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyunstressed_vowel d =- case lexerPappystressed d of- NoParse e1 ->- case lexerPappyvowel d of- Parsed v d3 e3 ->- case lexerPappystress d3 of- NoParse e5 ->- Parsed ( v ) d3 (maximum [e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- Parsed _ _ e1 -> NoParse e1--lexerPappyParseStarRule9 :: LexerPappyDerivs -> Result LexerPappyDerivs ([Char])-lexerPappyParseStarRule9 d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyconsonant d of- Parsed v d3 e3 ->- case lexerPappyStarRule9 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--lexerPappystress :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappystress d =- case lexerPappyStarRule9 d of- Parsed c d1 e1 ->- case pappyResult3 of- Parsed y d3 e3 ->- case lexerPappysyllable d3 of- Parsed s d5 e5 ->- case lexerPappypause d5 of- Parsed _ d7 e7 ->- Parsed ( c ++ ml y ++ s ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case lexerPappyy d1 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- NoParse e1 -> NoParse e1--lexerPappystressed :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappystressed d =- case lexerPappyonset d of- Parsed o d1 e1 ->- case lexerPappyStarRule37 d1 of- Parsed _ d3 e3 ->- case pappyResult5 of- Parsed v d5 e5 ->- Parsed ( o ++ [v] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- pappyAlt7_1 (ParseError (lexerPappyPos d3) []) where- pappyAlt7_1 e7 =- case lexerPappyChar d3 of- r @ (Parsed 'A' _ _) -> r- _ -> pappyAlt7_2 e7- pappyAlt7_2 e7 =- case lexerPappyChar d3 of- r @ (Parsed 'E' _ _) -> r- _ -> pappyAlt7_3 e7- pappyAlt7_3 e7 =- case lexerPappyChar d3 of- r @ (Parsed 'I' _ _) -> r- _ -> pappyAlt7_4 e7- pappyAlt7_4 e7 =- case lexerPappyChar d3 of- r @ (Parsed 'O' _ _) -> r- _ -> pappyAlt7_5 e7- pappyAlt7_5 e7 =- case lexerPappyChar d3 of- r @ (Parsed 'U' _ _) -> r- _ -> pappyAlt7_6 e7- pappyAlt7_6 e7 = NoParse e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappyany_syllable :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyany_syllable d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyonset d of- Parsed o d3 e3 ->- case lexerPappynucleus d3 of- Parsed n d5 e5 ->- case pappyResult7 of- Parsed c d7 e7 ->- Parsed ( o ++ n ++ fromMaybe "" c ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case lexerPappycoda d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappyconsonantal_syllable d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--lexerPappysyllable :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappysyllable d =- case lexerPappyonset d of- Parsed o d1 e1 ->- case lexerPappyy d1 of- NoParse e3 ->- case lexerPappynucleus d1 of- Parsed n d5 e5 ->- case pappyResult7 of- Parsed c d7 e7 ->- Parsed ( o ++ n ++ fromMaybe "" c ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case lexerPappycoda d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> NoParse (maximum [e5,e3,e1])- Parsed _ _ e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappyParseconsonantal_syllable :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParseconsonantal_syllable d =- case lexerPappyconsonant d of- Parsed c d1 e1 ->- case lexerPappysyllabic d1 of- Parsed s d3 e3 ->- case pappyResult5 of- Parsed _ _ e5 ->- case pappyResult7 of- Parsed c' d7 e7 ->- Parsed ( c : s : ml c' ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case pappyResult9 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d3 e9- where- pappyResult9 =- case lexerPappyconsonant d3 of- Parsed cin d11 e11 ->- case lexerPappyspaces d11 of- Parsed _ _ e13 ->- Parsed ( c ) d11 (max e13 e11)- NoParse e13 -> NoParse (max e13 e11)- NoParse e11 -> NoParse e11- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- pappyAlt7_1 (ParseError (lexerPappyPos d3) []) where- pappyAlt7_1 e7 =- case lexerPappyconsonantal_syllable d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- case lexerPappyonset d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_3 (max e9 e7)- pappyAlt7_3 e7 = NoParse e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappyParsecoda :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParsecoda d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyany_syllable d of- NoParse e3 ->- case lexerPappyconsonant d of- Parsed c d5 e5 ->- case lexerPappyany_syllable d5 of- Parsed _ _ e7 ->- Parsed ( [c] ) d5 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- Parsed _ _ e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed s d3 e3 ->- case pappyResult5 of- Parsed c d5 e5 ->- case lexerPappypause d5 of- Parsed _ _ e7 ->- Parsed ( ml s ++ ml c ) d5 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- where- pappyResult5 =- case lexerPappyconsonant d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- case lexerPappysyllabic d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_3 e1 = NoParse e1--lexerPappyParseonset :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParseonset d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyh d of- Parsed h d3 e3 ->- Parsed ( [h] ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed c d3 e3 ->- case lexerPappyglide d3 of- Parsed g d5 e5 ->- Parsed ( ml c ++ [g] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- case lexerPappyconsonant d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_3 e1 =- case lexerPappyinitial d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--lexerPappynucleus :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappynucleus d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyvowel d of- Parsed v d3 e3 ->- Parsed ( [v] ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappydiphthong d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case lexerPappyy d of- Parsed y d3 e3 ->- Parsed ( [y] ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--lexerPappyParseglide :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParseglide d =- case pappyResult1 of- Parsed v d1 e1 ->- case lexerPappynucleus d1 of- Parsed _ _ e3 ->- case lexerPappyglide d1 of- NoParse e5 ->- Parsed ( v ) d1 (maximum [e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (lexerPappyPos d) []) where- pappyAlt3_1 e3 =- case lexerPappyi d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case lexerPappyu d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 = NoParse e3--lexerPappyParsediphthong :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParsediphthong d =- case pappyResult1 of- Parsed d d1 e1 ->- case lexerPappynucleus d1 of- NoParse e3 ->- case lexerPappyglide d1 of- NoParse e5 ->- Parsed ( d ) d1 (maximum [e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- Parsed _ _ e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (lexerPappyPos d) []) where- pappyAlt3_1 e3 =- case lexerPappya d of- Parsed v d5 e5 ->- case lexerPappyi d5 of- Parsed w d7 e7 ->- Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])- NoParse e7 -> pappyAlt3_2 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case lexerPappya d of- Parsed v d5 e5 ->- case lexerPappyu d5 of- Parsed w d7 e7 ->- Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])- NoParse e7 -> pappyAlt3_3 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 =- case lexerPappye d of- Parsed v d5 e5 ->- case lexerPappyi d5 of- Parsed w d7 e7 ->- Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])- NoParse e7 -> pappyAlt3_4 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_4 (max e5 e3)- pappyAlt3_4 e3 =- case lexerPappyo d of- Parsed v d5 e5 ->- case lexerPappyi d5 of- Parsed w d7 e7 ->- Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])- NoParse e7 -> pappyAlt3_5 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_5 (max e5 e3)- pappyAlt3_5 e3 = NoParse e3--lexerPappyParsevowel :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParsevowel d =- case pappyResult1 of- Parsed v d1 e1 ->- case lexerPappynucleus d1 of- NoParse e3 ->- Parsed ( v ) d1 (max e3 e1)- Parsed _ _ e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (lexerPappyPos d) []) where- pappyAlt3_1 e3 =- case lexerPappya d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case lexerPappye d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 =- case lexerPappyi d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_4 (max e5 e3)- pappyAlt3_4 e3 =- case lexerPappyo d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_5 (max e5 e3)- pappyAlt3_5 e3 =- case lexerPappyu d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_6 (max e5 e3)- pappyAlt3_6 e3 = NoParse e3--lexerPappya :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappya d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed a d3 e3 ->- Parsed ( a ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'a' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'A' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappye :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappye d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed e d3 e3 ->- Parsed ( e ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'e' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'E' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyi :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyi d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed i d3 e3 ->- Parsed ( i ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'i' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'I' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyo :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyo d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed o d3 e3 ->- Parsed ( o ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'o' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'O' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyu :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyu d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed u d3 e3 ->- Parsed ( u ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'u' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'U' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyy :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyy d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed y d3 e3 ->- Parsed ( y ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'y' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'Y' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParsePlusRule2 :: LexerPappyDerivs -> Result LexerPappyDerivs ([Char])-lexerPappyParsePlusRule2 d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyconsonant d of- Parsed v d3 e3 ->- case lexerPappyPlusRule2 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappyconsonant d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--lexerPappycluster :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappycluster d =- case lexerPappyconsonant d of- Parsed c d1 e1 ->- case lexerPappyPlusRule2 d1 of- Parsed cs d3 e3 ->- Parsed ( c : cs ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappyParseinitial_pair :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParseinitial_pair d =- case lexerPappyinitial d of- Parsed _ _ e1 ->- case lexerPappyconsonant d of- Parsed c d3 e3 ->- case lexerPappyconsonant d3 of- Parsed d d5 e5 ->- case lexerPappyconsonant d5 of- NoParse e7 ->- Parsed ( [c, d] ) d5 (maximum [e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappyParseinitial :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParseinitial d =- case pappyResult1 of- Parsed i d1 e1 ->- case lexerPappyconsonant d1 of- NoParse e3 ->- case lexerPappyglide d1 of- NoParse e5 ->- Parsed ( i ) d1 (maximum [e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- Parsed _ _ e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (lexerPappyPos d) []) where- pappyAlt3_1 e3 =- case lexerPappyaffricate d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case pappyResult5 of- Parsed s d5 e5 ->- case pappyResult7 of- Parsed o d7 e7 ->- case pappyResult9 of- Parsed l d9 e9 ->- Parsed ( ml s ++ ml o ++ ml l ) d9 (maximum [e9,e7,e5,e3])- NoParse e9 -> pappyAlt3_3 (maximum [e9,e7,e5,e3])- where- pappyResult9 =- case lexerPappyliquid d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt3_3 (maximum [e7,e5,e3])- where- pappyResult7 =- case pappyResult9 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- where- pappyResult9 =- pappyAlt11_1 (ParseError (lexerPappyPos d5) []) where- pappyAlt11_1 e11 =- case lexerPappyp d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_2 (max e13 e11)- pappyAlt11_2 e11 =- case lexerPappyt d5 of- Parsed t d13 e13 ->- case lexerPappyl d13 of- NoParse e15 ->- Parsed ( t ) d13 (maximum [e15,e13,e11])- Parsed _ _ e15 -> pappyAlt11_3 (maximum [e15,e13,e11])- NoParse e13 -> pappyAlt11_3 (max e13 e11)- pappyAlt11_3 e11 =- case lexerPappyk d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_4 (max e13 e11)- pappyAlt11_4 e11 =- case lexerPappyf d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_5 (max e13 e11)- pappyAlt11_5 e11 =- case lexerPappyx d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_6 (max e13 e11)- pappyAlt11_6 e11 =- case lexerPappyb d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_7 (max e13 e11)- pappyAlt11_7 e11 =- case lexerPappyd d5 of- Parsed d d13 e13 ->- case lexerPappyl d13 of- NoParse e15 ->- Parsed ( d ) d13 (maximum [e15,e13,e11])- Parsed _ _ e15 -> pappyAlt11_8 (maximum [e15,e13,e11])- NoParse e13 -> pappyAlt11_8 (max e13 e11)- pappyAlt11_8 e11 =- case lexerPappyg d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_9 (max e13 e11)- pappyAlt11_9 e11 =- case lexerPappyv d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_10 (max e13 e11)- pappyAlt11_10 e11 =- case lexerPappym d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_11 (max e13 e11)- pappyAlt11_11 e11 =- case lexerPappyn d5 of- Parsed n d13 e13 ->- case lexerPappyliquid d13 of- NoParse e15 ->- Parsed ( n ) d13 (maximum [e15,e13,e11])- Parsed _ _ e15 -> pappyAlt11_12 (maximum [e15,e13,e11])- NoParse e13 -> pappyAlt11_12 (max e13 e11)- pappyAlt11_12 e11 = NoParse e11- NoParse e5 -> pappyAlt3_3 (max e5 e3)- where- pappyResult5 =- case pappyResult7 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d e7- where- pappyResult7 =- pappyAlt9_1 (ParseError (lexerPappyPos d) []) where- pappyAlt9_1 e9 =- case lexerPappyc d of- Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case lexerPappys d of- Parsed s d11 e11 ->- case lexerPappyx d11 of- NoParse e13 ->- Parsed ( s ) d11 (maximum [e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 =- case pappyResult11 of- Parsed jz d11 e11 ->- case lexerPappyn d11 of- NoParse e13 ->- case lexerPappyliquid d11 of- NoParse e15 ->- Parsed ( jz ) d11 (maximum [e15,e13,e11,e9])- Parsed _ _ e15 -> pappyAlt9_4 (maximum [e15,e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_4 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_4 (max e11 e9)- where- pappyResult11 =- pappyAlt13_1 (ParseError (lexerPappyPos d) []) where- pappyAlt13_1 e13 =- case lexerPappyj d of- Parsed v15 d15 e15 -> Parsed v15 d15 (max e15 e13)- NoParse e15 -> pappyAlt13_2 (max e15 e13)- pappyAlt13_2 e13 =- case lexerPappyz d of- Parsed v15 d15 e15 -> Parsed v15 d15 (max e15 e13)- NoParse e15 -> pappyAlt13_3 (max e15 e13)- pappyAlt13_3 e13 = NoParse e13- pappyAlt9_4 e9 = NoParse e9- pappyAlt3_3 e3 = NoParse e3--lexerPappyaffricate :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyaffricate d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyt d of- Parsed t d3 e3 ->- case lexerPappyc d3 of- Parsed c d5 e5 ->- Parsed ( [t, c] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappyt d of- Parsed t d3 e3 ->- case lexerPappys d3 of- Parsed s d5 e5 ->- Parsed ( [t, s] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case lexerPappyd d of- Parsed d d3 e3 ->- case lexerPappyj d3 of- Parsed j d5 e5 ->- Parsed ( [d, j] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case lexerPappyd d of- Parsed d d3 e3 ->- case lexerPappyz d3 of- Parsed z d5 e5 ->- Parsed ( [d, z] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 = NoParse e1--lexerPappyliquid :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyliquid d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyl d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappyr d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--lexerPappyconsonant :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyconsonant d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyvoiced d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappyunvoiced d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case lexerPappysyllabic d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--lexerPappysyllabic :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappysyllabic d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyl d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappym d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case lexerPappyn d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case lexerPappyr d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 = NoParse e1--lexerPappyvoiced :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyvoiced d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyb d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappyd d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case lexerPappyg d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case lexerPappyj d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 =- case lexerPappyv d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_6 (max e3 e1)- pappyAlt1_6 e1 =- case lexerPappyz d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_7 (max e3 e1)- pappyAlt1_7 e1 = NoParse e1--lexerPappyunvoiced :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyunvoiced d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyc d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappyf d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case lexerPappyk d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case lexerPappyp d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 =- case lexerPappys d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_6 (max e3 e1)- pappyAlt1_6 e1 =- case lexerPappyt d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_7 (max e3 e1)- pappyAlt1_7 e1 =- case lexerPappyx d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_8 (max e3 e1)- pappyAlt1_8 e1 = NoParse e1--lexerPappyParsel :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParsel d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed l d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappyl d3 of- NoParse e7 ->- Parsed ( l ) d3 (maximum [e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'l' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'L' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParsem :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParsem d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed m d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappym d3 of- NoParse e7 ->- case lexerPappyz d3 of- NoParse e9 ->- Parsed ( m ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'm' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'M' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParsen :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParsen d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed n d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappyn d3 of- NoParse e7 ->- case lexerPappyaffricate d3 of- NoParse e9 ->- Parsed ( n ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'n' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'N' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParser :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParser d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed r d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappyr d3 of- NoParse e7 ->- Parsed ( r ) d3 (maximum [e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'r' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'R' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParseb :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParseb d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed b d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappyb d3 of- NoParse e7 ->- case lexerPappyunvoiced d3 of- NoParse e9 ->- Parsed ( b ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'b' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'B' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParsed :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParsed d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed d d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappyd d3 of- NoParse e7 ->- case lexerPappyunvoiced d3 of- NoParse e9 ->- Parsed ( d ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'd' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'D' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParseg :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParseg d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed g d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappyg d3 of- NoParse e7 ->- case lexerPappyunvoiced d3 of- NoParse e9 ->- Parsed ( g ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'g' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'G' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParsev :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParsev d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed v d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappyv d3 of- NoParse e7 ->- case lexerPappyunvoiced d3 of- NoParse e9 ->- Parsed ( v ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'v' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'V' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParsej :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParsej d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed j d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappyj d3 of- NoParse e7 ->- case lexerPappyz d3 of- NoParse e9 ->- case lexerPappyunvoiced d3 of- NoParse e11 ->- Parsed ( j ) d3 (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'j' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'J' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParsez :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParsez d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed z d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappyz d3 of- NoParse e7 ->- case lexerPappyj d3 of- NoParse e9 ->- case lexerPappyunvoiced d3 of- NoParse e11 ->- Parsed ( z ) d3 (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'z' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'Z' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParses :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParses d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed s d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappys d3 of- NoParse e7 ->- case lexerPappyc d3 of- NoParse e9 ->- case lexerPappyvoiced d3 of- NoParse e11 ->- Parsed ( s ) d3 (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 's' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'S' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParsec :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParsec d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed c d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappyc d3 of- NoParse e7 ->- case lexerPappys d3 of- NoParse e9 ->- case lexerPappyx d3 of- NoParse e11 ->- case lexerPappyvoiced d3 of- NoParse e13 ->- Parsed ( c ) d3 (maximum [e13,e11,e9,e7,e5,e3,e1])- Parsed _ _ e13 -> NoParse (maximum [e13,e11,e9,e7,e5,e3,e1])- Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'c' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'C' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParsex :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParsex d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed x d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappyx d3 of- NoParse e7 ->- case lexerPappyc d3 of- NoParse e9 ->- case lexerPappyk d3 of- NoParse e11 ->- case lexerPappyvoiced d3 of- NoParse e13 ->- Parsed ( x ) d3 (maximum [e13,e11,e9,e7,e5,e3,e1])- Parsed _ _ e13 -> NoParse (maximum [e13,e11,e9,e7,e5,e3,e1])- Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'x' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'X' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParsek :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParsek d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed k d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappyk d3 of- NoParse e7 ->- case lexerPappyx d3 of- NoParse e9 ->- case lexerPappyvoiced d3 of- NoParse e11 ->- Parsed ( k ) d3 (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'k' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'K' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParsef :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParsef d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed f d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappyf d3 of- NoParse e7 ->- case lexerPappyvoiced d3 of- NoParse e9 ->- Parsed ( f ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'f' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'F' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParsep :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParsep d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed p d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappyp d3 of- NoParse e7 ->- case lexerPappyvoiced d3 of- NoParse e9 ->- Parsed ( p ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'p' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'P' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParset :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParset d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed t d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappyt d3 of- NoParse e7 ->- case lexerPappyvoiced d3 of- NoParse e9 ->- Parsed ( t ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 't' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'T' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyh :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyh d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed h d3 e3 ->- case lexerPappynucleus d3 of- Parsed _ _ e5 ->- Parsed ( h ) d3 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed 'h' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed '\'' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappyParsedigit :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyParsedigit d =- case lexerPappyStarRule37 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed d d3 e3 ->- case lexerPappyh d3 of- NoParse e5 ->- case lexerPappynucleus d3 of- NoParse e7 ->- Parsed ( d ) d3 (maximum [e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where- pappyAlt5_1 e5 =- case lexerPappyChar d1 of- r @ (Parsed '0' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case lexerPappyChar d1 of- r @ (Parsed '1' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 =- case lexerPappyChar d1 of- r @ (Parsed '2' _ _) -> r- _ -> pappyAlt5_4 e5- pappyAlt5_4 e5 =- case lexerPappyChar d1 of- r @ (Parsed '3' _ _) -> r- _ -> pappyAlt5_5 e5- pappyAlt5_5 e5 =- case lexerPappyChar d1 of- r @ (Parsed '4' _ _) -> r- _ -> pappyAlt5_6 e5- pappyAlt5_6 e5 =- case lexerPappyChar d1 of- r @ (Parsed '5' _ _) -> r- _ -> pappyAlt5_7 e5- pappyAlt5_7 e5 =- case lexerPappyChar d1 of- r @ (Parsed '6' _ _) -> r- _ -> pappyAlt5_8 e5- pappyAlt5_8 e5 =- case lexerPappyChar d1 of- r @ (Parsed '7' _ _) -> r- _ -> pappyAlt5_9 e5- pappyAlt5_9 e5 =- case lexerPappyChar d1 of- r @ (Parsed '8' _ _) -> r- _ -> pappyAlt5_10 e5- pappyAlt5_10 e5 =- case lexerPappyChar d1 of- r @ (Parsed '9' _ _) -> r- _ -> pappyAlt5_11 e5- pappyAlt5_11 e5 = NoParse e5- NoParse e1 -> NoParse e1--lexerPappypost_word :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappypost_word d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappypause d of- Parsed _ d3 e3 ->- Parsed ( "" ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappynucleus d of- NoParse e3 ->- case lexerPappylojban_word d of- Parsed l d5 e5 ->- Parsed ( l ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- Parsed _ _ e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--lexerPappypause :: LexerPappyDerivs -> Result LexerPappyDerivs ( String )-lexerPappypause d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyStarRule37 d of- Parsed cs d3 e3 ->- case lexerPappyspace_char d3 of- Parsed s d5 e5 ->- Parsed ( cs ++ [s] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappyanyChar d of- NoParse e3 ->- Parsed ( "" ) d (max e3 e1)- Parsed _ _ e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--lexerPappyanyChar :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappyanyChar d =- case lexerPappyChar d of- Parsed c d1 e1 ->- case ( True ) of- True ->- Parsed ( c ) d1 e1- False -> NoParse e1- NoParse e1 -> NoParse e1--lexerPappyParsePlusRule3 :: LexerPappyDerivs -> Result LexerPappyDerivs ([Char])-lexerPappyParsePlusRule3 d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappynon_space d of- Parsed v d3 e3 ->- case lexerPappyPlusRule3 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappynon_space d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--lexerPappynon_space :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)-lexerPappynon_space d =- case lexerPappyspace_char d of- NoParse e1 ->- case lexerPappyanyChar d of- Parsed c d3 e3 ->- Parsed ( c ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- Parsed _ _ e1 -> NoParse e1--lexerPappyspace_char :: LexerPappyDerivs -> Result LexerPappyDerivs ( Char )-lexerPappyspace_char d =- case pappyResult1 of- Parsed c d1 e1 ->- Parsed ( c ) d1 e1- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (lexerPappyPos d) []) where- pappyAlt3_1 e3 =- case lexerPappyChar d of- r @ (Parsed '.' _ _) -> r- _ -> pappyAlt3_2 e3- pappyAlt3_2 e3 =- case lexerPappyChar d of- r @ (Parsed '?' _ _) -> r- _ -> pappyAlt3_3 e3- pappyAlt3_3 e3 =- case lexerPappyChar d of- r @ (Parsed '!' _ _) -> r- _ -> pappyAlt3_4 e3- pappyAlt3_4 e3 =- case lexerPappyChar d of- r @ (Parsed ' ' _ _) -> r- _ -> pappyAlt3_5 e3- pappyAlt3_5 e3 =- case lexerPappyChar d of- r @ (Parsed '\t' _ _) -> r- _ -> pappyAlt3_6 e3- pappyAlt3_6 e3 =- case lexerPappyChar d of- r @ (Parsed '\r' _ _) -> r- _ -> pappyAlt3_7 e3- pappyAlt3_7 e3 =- case lexerPappyChar d of- r @ (Parsed '\n' _ _) -> r- _ -> pappyAlt3_8 e3- pappyAlt3_8 e3 = NoParse e3--lexerPappyParsespaces :: LexerPappyDerivs -> Result LexerPappyDerivs ( String )-lexerPappyParsespaces d =- case lexerPappyY d of- NoParse e1 ->- case pappyResult3 of- Parsed i d3 e3 ->- Parsed ( i ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d) []) where- pappyAlt5_1 e5 =- case lexerPappyPlusRule4 d of- Parsed csy d7 e7 ->- case pappyResult9 of- Parsed _ d9 e9 ->- Parsed ( concat csy ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- where- pappyResult9 =- case pappyResult11 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- where- pappyResult11 =- case lexerPappyanyChar d7 of- NoParse e13 ->- Parsed ( () ) d7 e13- Parsed _ _ e13 -> NoParse e13- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case lexerPappyanyChar d of- NoParse e7 ->- Parsed ( "" ) d (max e7 e5)- Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- Parsed _ _ e1 -> NoParse e1--lexerPappyParsePlusRule4 :: LexerPappyDerivs -> Result LexerPappyDerivs ([ String ])-lexerPappyParsePlusRule4 d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case lexerPappyPlusRule4 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d) []) where- pappyAlt5_1 e5 =- case lexerPappycomma_space_char d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case lexerPappyybu d of- NoParse e7 ->- case lexerPappyY d of- Parsed y d9 e9 ->- Parsed ( y ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (lexerPappyPos d) []) where- pappyAlt5_1 e5 =- case lexerPappycomma_space_char d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case lexerPappyybu d of- NoParse e7 ->- case lexerPappyY d of- Parsed y d9 e9 ->- Parsed ( y ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_3 e1 = NoParse e1--lexerPappyParseStarRule37 :: LexerPappyDerivs -> Result LexerPappyDerivs ([Char])-lexerPappyParseStarRule37 d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case lexerPappyStarRule37 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case lexerPappyChar d of- r @ (Parsed ',' _ _) -> r- _ -> NoParse (ParseError (lexerPappyPos d) [])- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--lexerPappycomma_space_char :: LexerPappyDerivs -> Result LexerPappyDerivs ( String )-lexerPappycomma_space_char d =- case lexerPappyStarRule37 d of- Parsed c d1 e1 ->- case lexerPappyspace_char d1 of- Parsed s d3 e3 ->- Parsed ( c ++ [s] ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappyParseStarRule38 :: LexerPappyDerivs -> Result LexerPappyDerivs ([ Char ])-lexerPappyParseStarRule38 d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyspace_char d of- Parsed v d3 e3 ->- case lexerPappyStarRule38 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--lexerPappyParseybu :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyParseybu d =- case lexerPappyY d of- Parsed y d1 e1 ->- case lexerPappyStarRule38 d1 of- Parsed _ d3 e3 ->- case pappyResult5 of- Parsed b d5 e5 ->- Parsed ( y ++ b ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case lexerPappycmavo d3 of- Parsed _ _ e7 ->- case pappyResult9 of- Parsed bu d9 e9 ->- Parsed ( bu ) d9 (max e9 e7)- NoParse e9 -> NoParse (max e9 e7)- where- pappyResult9 =- case lexerPappyb d3 of- Parsed b d11 e11 ->- case lexerPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [b, u] ) d13 (max e13 e11)- NoParse e13 -> NoParse (max e13 e11)- NoParse e11 -> NoParse e11- NoParse e7 -> NoParse e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappyParsePlusRule5 :: LexerPappyDerivs -> Result LexerPappyDerivs ([Char])-lexerPappyParsePlusRule5 d =- pappyAlt1_1 (ParseError (lexerPappyPos d) []) where- pappyAlt1_1 e1 =- case lexerPappyy d of- Parsed v d3 e3 ->- case lexerPappyPlusRule5 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case lexerPappyy d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--lexerPappyY :: LexerPappyDerivs -> Result LexerPappyDerivs (String)-lexerPappyY d =- case lexerPappycmavo d of- Parsed _ _ e1 ->- case lexerPappyPlusRule5 d of- Parsed y d3 e3 ->- case lexerPappypost_word d3 of- Parsed _ _ e5 ->- Parsed ( y ) d3 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--lexerPappyParsedummyTail :: LexerPappyDerivs -> Result LexerPappyDerivs ((() -> ()))-lexerPappyParsedummyTail d =- case lexerPappyChar d of- Parsed 'a' d1 _ ->- case lexerPappydummy d1 of- Parsed _ d3 e3 ->- case lexerPappydummyTail d3 of- Parsed pappyTail d5 e5 ->- Parsed (\l -> pappyTail ( () )) d5 (max e5 e3)- NoParse e5 -> NoParse (max e5 e3)- NoParse e3 -> NoParse e3- _ ->- Parsed (\v -> v) d (ParseError (lexerPappyPos d) [])--lexerPappyParsedummy :: LexerPappyDerivs -> Result LexerPappyDerivs (())-lexerPappyParsedummy d =- case pappyResult1 of- Parsed l d1 e1 ->- case lexerPappydummyTail d1 of- Parsed t d3 e3 ->- Parsed (t l) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- case lexerPappyChar d of- Parsed 'a' d3 _ ->- case lexerPappydummy d3 of- Parsed _ d5 e5 ->- Parsed ( () ) d5 e5- NoParse e5 -> NoParse e5- _ -> NoParse (ParseError (lexerPappyPos d) [])-
− Parse.hs
@@ -1,420 +0,0 @@-module Parse (- Derivs(..),- ParseError(..),- ErrorDescriptor(..),- Result(..),- eofError,- nullError,- isDigit,- digitToInt,- isSpace-) where--import Data.Char-import Data.List--import Pos------------- Data types used for parsing--data ErrorDescriptor =- Expected String- | Message String--data ParseError = ParseError {- errorPos :: Pos,- errorDescrs :: [ErrorDescriptor]- }--data Result d v =- Parsed v d ParseError- | NoParse ParseError--newtype Parser d v = Parser (d -> Result d v)---class Derivs d where- dvPos :: d -> Pos- dvChar :: d -> Result d Char------------- Basic parsing combinators--infixl 2 </> -- ordered choice-infixl 1 <?> -- error labeling-infixl 1 <?!> -- unconditional error labeling---- Standard monadic combinators-instance Derivs d => Monad (Parser d) where -- -- Sequencing combinator- (Parser p1) >>= f = Parser parse-- where parse dvs = first (p1 dvs)-- first (Parsed val rem err) = - let Parser p2 = f val- in second err (p2 rem)- first (NoParse err) = NoParse err-- second err1 (Parsed val rem err) =- Parsed val rem (joinErrors err1 err)- second err1 (NoParse err) =- NoParse (joinErrors err1 err)-- -- Result-producing combinator- return x = Parser (\dvs -> Parsed x dvs (nullError dvs))-- -- Failure combinator- fail [] = Parser (\dvs -> NoParse (nullError dvs))- fail msg = Parser (\dvs -> NoParse (msgError (dvPos dvs) msg))---- Ordered choice-(</>) :: Derivs d => Parser d v -> Parser d v -> Parser d v-(Parser p1) </> (Parser p2) = Parser parse-- where parse dvs = first dvs (p1 dvs)-- first dvs (result @ (Parsed val rem err)) = result- first dvs (NoParse err) = second err (p2 dvs)-- second err1 (Parsed val rem err) =- Parsed val rem (joinErrors err1 err)- second err1 (NoParse err) =- NoParse (joinErrors err1 err)---- Semantic predicate: 'satisfy <parser> <pred>' acts like <parser>--- but only succeeds if the result it generates satisfies <pred>.-satisfy :: Derivs d => Parser d v -> (v -> Bool) -> Parser d v-satisfy (Parser p) test = Parser parse-- where parse dvs = check dvs (p dvs)-- check dvs (result @ (Parsed val rem err)) =- if test val then result- else NoParse (nullError dvs)- check dvs none = none---- Syntactic predicate: 'followedBy <parser>' acts like <parser>--- but does not consume any input.-followedBy :: Derivs d => Parser d v -> Parser d v-followedBy (Parser p) = Parser parse-- where parse dvs = case (p dvs) of- Parsed val rem err -> Parsed val dvs (nullError dvs)- err -> err---- Negative syntactic predicate: 'followedBy <parser>' invokes <parser>,--- then succeeds without consuming any input if <parser> fails,--- and fails if <parser> succeeds.-notFollowedBy :: Derivs d => Parser d v -> Parser d ()-notFollowedBy (Parser p) = Parser parse-- where parse dvs = case (p dvs) of- Parsed val rem err -> NoParse (nullError dvs)- NoParse err -> Parsed () dvs (nullError dvs)---- Optional combinator: 'optional <parser>' invokes <parser>,--- then produces the result 'Just <v>' if <parser> produced <v>,--- or else produces the success result 'Nothing'--- without consuming any input if <parser> failed.-optional :: Derivs d => Parser d v -> Parser d (Maybe v)-optional p = (do v <- p; return (Just v)) </> return Nothing------------- Iterative combinators--- Note: use of these combinators can break--- a packrat parser's linear-time guarantee.---- Zero or more repetition combinator:--- 'many <parser>' invokes <parser> repeatedly until it fails,--- collecting all success result values into a list.--- Always succeeds, producing an empty list in the degenerate case.-many :: Derivs d => Parser d v -> Parser d [v]-many p = (do { v <- p; vs <- many p; return (v : vs) } )- </> return []---- One or more repetition combinator:--- 'many1 <parser>' invokes <parser> repeatedly until it fails,--- collecting all success result values into a list.--- Fails if <parser> does not succeed even once.-many1 :: Derivs d => Parser d v -> Parser d [v]-many1 p = do { v <- p; vs <- many p; return (v : vs) }---- One or more repetitions with a separator:--- 'sepBy1 <parser> <separator>' scans one or more iterations of <parser>,--- with a match of <separator> between each instance.--- Only the results of <parser> are collected into the final result list.-sepBy1 :: Derivs d => Parser d v -> Parser d vsep -> Parser d [v]-sepBy1 p psep = do v <- p- vs <- many (do { psep; p })- return (v : vs)---- Zero or more repetitions with a separator:--- like sepBy1, but succeeds with an empty list if nothing can be parsed.-sepBy :: Derivs d => Parser d v -> Parser d vsep -> Parser d [v]-sepBy p psep = sepBy1 p psep </> return []---- Zero or more repetitions with a terminator-endBy :: Derivs d => Parser d v -> Parser d vend -> Parser d [v]-endBy p pend = many (do { v <- p; pend; return v })---- One or more repetitions with a terminator-endBy1 :: Derivs d => Parser d v -> Parser d vend -> Parser d [v]-endBy1 p pend = many1 (do { v <- p; pend; return v })---- One or more repetitions with a separator or terminator:--- 'sepEndBy1 <parser> <septerm>' scans for a sequence of <parser> matches--- in which instances are separated by <septerm>,--- and if a <septerm> is found following the last <parser> match--- then it is consumed as well.-sepEndBy1 :: Derivs d => Parser d v -> Parser d vsep -> Parser d [v]-sepEndBy1 p psep = do v <- sepBy1 p psep; optional psep; return v---- Zero or more repetitions with a separator or terminator.-sepEndBy :: Derivs d => Parser d v -> Parser d vsep -> Parser d [v]-sepEndBy p psep = do v <- sepBy p psep; optional psep; return v---- One or more repetitions separated by left-associative operators.--- 'chainl1 <term> <oper>' matches instances of <term> separated by <oper>,--- but uses the result of <oper> as a left-associative binary combinator:--- e.g., 't1 op t2 op t3' is interpreted as '(t1 op t2) op t3'-chainl1 :: Derivs d => Parser d v -> Parser d (v->v->v) -> Parser d v-chainl1 p psep =- let psuffix z = (do f <- psep- v <- p- psuffix (f z v))- </> return z- in do v <- p- psuffix v---- Zero or more repetitions separated by left-associative operators.-chainl :: Derivs d => Parser d v -> Parser d (v->v->v) -> v -> Parser d v-chainl p psep z = chainl1 p psep </> return z---- One or more repetitions separated by left-associative operators:--- e.g., 't1 op t2 op t3' is interpreted as 't1 op (t2 op t3)'-chainr1 :: Derivs d => Parser d v -> Parser d (v->v->v) -> Parser d v-chainr1 p psep = (do v <- p- f <- psep- w <- chainr1 p psep- return (f v w))- </> p---- Zero or more repetitions separated by left-associative operators.-chainr :: Derivs d => Parser d v -> Parser d (v->v->v) -> v -> Parser d v-chainr p psep z = chainr1 p psep </> return z---- N-ary ordered choice:--- given a list of parsers producing results of the same type,--- try them all in order and use the first successful result.-choice :: Derivs d => [Parser d v] -> Parser d v-choice [p] = p-choice (p:ps) = p </> choice ps------------- Error handling-instance Eq ErrorDescriptor where- Expected e1 == Expected e2 = e1 == e2- Message m1 == Message m2 = m1 == m2- _ == _ = False--failAt :: Derivs d => Pos -> String -> Parser d v-failAt pos msg = Parser (\dvs -> NoParse (msgError pos msg))---- Annotate a parser with a description of the construct to be parsed.--- The resulting parser yields an "expected" error message--- if the construct cannot be parsed--- and if no error information is already available--- indicating a position farther right in the source code--- (which would normally be more localized/detailed information).-(<?>) :: Derivs d => Parser d v -> String -> Parser d v-(Parser p) <?> desc = Parser (\dvs -> munge dvs (p dvs))-- where munge dvs (Parsed v rem err) =- Parsed v rem (fix dvs err)- munge dvs (NoParse err) =- NoParse (fix dvs err)-- fix dvs (err @ (ParseError p ms)) =- if p > dvPos dvs then err- else expError (dvPos dvs) desc---- Stronger version of the <?> error annotation operator above,--- which unconditionally overrides any existing error information.-(<?!>) :: Derivs d => Parser d v -> String -> Parser d v-(Parser p) <?!> desc = Parser (\dvs -> munge dvs (p dvs))-- where munge dvs (Parsed v rem err) =- Parsed v rem (fix dvs err)- munge dvs (NoParse err) =- NoParse (fix dvs err)-- fix dvs (err @ (ParseError p ms)) =- expError (dvPos dvs) desc---- Join two ParseErrors, giving preference to the one farthest right,--- or merging their descriptor sets if they are at the same position.-joinErrors :: ParseError -> ParseError -> ParseError-joinErrors (e @ (ParseError p m)) (e' @ (ParseError p' m')) =- if p' > p || null m then e'- else if p > p' || null m' then e- else ParseError p (m `union` m')--nullError dvs = ParseError (dvPos dvs) []--expError pos desc = ParseError pos [Expected desc]--msgError pos msg = ParseError pos [Message msg]--eofError dvs = msgError (dvPos dvs) "end of input"--expected :: Derivs d => String -> Parser d v-expected desc = Parser (\dvs -> NoParse (expError (dvPos dvs) desc))--unexpected :: Derivs d => String -> Parser d v-unexpected str = fail ("unexpected " ++ str)---- Comparison operators for ParseError just compare relative positions.-instance Eq ParseError where- ParseError p1 m1 == ParseError p2 m2 = p1 == p2- ParseError p1 m1 /= ParseError p2 m2 = p1 /= p2--instance Ord ParseError where- ParseError p1 m1 < ParseError p2 m2 = p1 < p2- ParseError p1 m1 > ParseError p2 m2 = p1 > p2- ParseError p1 m1 <= ParseError p2 m2 = p1 <= p2- ParseError p1 m1 >= ParseError p2 m2 = p1 >= p2-- -- Special behavior: "max" joins two errors- max p1 p2 = joinErrors p1 p2- min p1 p2 = undefined---- Show function for error messages-instance Show ParseError where- show (ParseError pos []) = - show pos ++ ": parse error"- show (ParseError pos msgs) = expectmsg expects ++ messages msgs- where- expects = getExpects msgs- getExpects [] = []- getExpects (Expected exp : rest) = exp : getExpects rest- getExpects (Message msg : rest) = getExpects rest-- expectmsg [] = ""- expectmsg [exp] = show pos ++ ": expecting " ++ exp ++ "\n"- expectmsg [e1, e2] = show pos ++ ": expecting either "- ++ e1 ++ " or " ++ e2 ++ "\n"- expectmsg (first : rest) = show pos ++ ": expecting one of: "- ++ first ++ expectlist rest- ++ "\n"- expectlist [last] = ", or " ++ last- expectlist (mid : rest) = ", " ++ mid ++ expectlist rest-- messages [] = []- messages (Expected exp : rest) = messages rest- messages (Message msg : rest) =- show pos ++ ": " ++ msg ++ "\n" ++ messages rest------------- Character-oriented parsers---- 'anyChar' matches any single character.-anyChar :: Derivs d => Parser d Char-anyChar = Parser dvChar---- 'char <c>' matches the specific character <c>.-char :: Derivs d => Char -> Parser d Char-char ch = satisfy anyChar (\c -> c == ch) <?> show ch---- 'oneOf <s>' matches any character in string <s>.-oneOf :: Derivs d => [Char] -> Parser d Char-oneOf chs = satisfy anyChar (\c -> c `elem` chs)- <?> ("one of the characters " ++ show chs)---- 'noneOf <s>' matches any character not in string <s>.-noneOf :: Derivs d => [Char] -> Parser d Char-noneOf chs = satisfy anyChar (\c -> not (c `elem` chs))- <?> ("any character not in " ++ show chs)---- 'string <s>' matches all the characters in <s> in sequence.-string :: Derivs d => String -> Parser d String-string str = p str <?> show str-- where p [] = return str- p (ch:chs) = do { char ch; p chs }---- 'stringFrom <ss>' matches any string in the list of strings <ss>.--- If any strings in <ss> are prefixes of other strings in <ss>,--- then the prefixes must appear later in the list--- in order for the longer strings to be recognized at all.-stringFrom :: Derivs d => [String] -> Parser d String-stringFrom [str] = string str-stringFrom (str : strs) = string str </> stringFrom strs---- Match an uppercase letter.-upper :: Derivs d => Parser d Char-upper = satisfy anyChar isUpper <?> "uppercase letter"---- Match a lowercase letter.-lower :: Derivs d => Parser d Char-lower = satisfy anyChar isLower <?> "lowercase letter"---- Match any letter.-letter :: Derivs d => Parser d Char-letter = satisfy anyChar isAlpha <?> "letter"---- Match any letter or digit.-alphaNum :: Derivs d => Parser d Char-alphaNum = satisfy anyChar isAlphaNum <?> "letter or digit"---- Match any digit.-digit :: Derivs d => Parser d Char-digit = satisfy anyChar isDigit <?> "digit"---- Match any hexadecimal digit.-hexDigit :: Derivs d => Parser d Char-hexDigit = satisfy anyChar isHexDigit <?> "hexadecimal digit (0-9, a-f)"---- Match any octal digit.-octDigit :: Derivs d => Parser d Char-octDigit = satisfy anyChar isOctDigit <?> "octal digit (0-7)"---- Match a newline.-newline :: Derivs d => Parser d Char-newline = char '\n'---- Match a tab character.-tab :: Derivs d => Parser d Char-tab = char '\t'---- Match any whitespace character (space, tab, newline, etc.).-space :: Derivs d => Parser d Char-space = satisfy anyChar isSpace <?> "whitespace character"---- Match a sequence of zero or more whitespace characters.-spaces :: Derivs d => Parser d [Char]-spaces = many space---- Match the end of file (i.e., "the absence of a character").-eof :: Derivs d => Parser d ()-eof = notFollowedBy anyChar <?> "end of input"------------- Parser state manipulation combinators---- Combinator to get the Derivs object for the current position:--- e.g., 'dvs <- getDerivs' as part of a 'do' sequence.-getDerivs :: Derivs d => Parser d d-getDerivs = Parser (\dvs -> Parsed dvs dvs (nullError dvs))---- Combinator to set the Derivs object used for subsequent parsing;--- typically used to change parsing state elements in the Derivs tuple.-setDerivs :: Derivs d => d -> Parser d ()-setDerivs newdvs = Parser (\dvs -> Parsed () newdvs (nullError dvs))---- Get the current position in the input text.-getPos :: Derivs d => Parser d Pos-getPos = Parser (\dvs -> Parsed (dvPos dvs) dvs (nullError dvs))-
− Pos.hs
@@ -1,47 +0,0 @@--- Simple data type to keep track of character positions--- within a text file or other text stream.-module Pos where----- Basic position indicator data type: filename, line number, column number.-data Pos = Pos {- posFile :: !String,- posLine :: !Int,- posCol :: !Int- }---- Incrementally compute the next position in a text file--- if 'c' is the character at the current position.--- Follows the standard convention of 8-character tab stops.-nextPos (Pos file line col) c =- if c == '\n' then Pos file (line + 1) 1- else if c == '\t' then Pos file line ((div (col + 8 - 1) 8) * 8 + 1)- else Pos file line (col + 1)---- Two positions are equal if each of their elements are equal.-instance Eq Pos where- Pos f1 l1 c1 == Pos f2 l2 c2 =- f1 == f2 && l1 == l2 && c1 == c2---- Two positions are ordered by line number, then column number.-instance Ord Pos where- Pos f1 l1 c1 <= Pos f2 l2 c2 =- (l1 < l2) || (l1 == l2 && c1 <= c2)---- Standard way to display positions - "file:line:col"-instance Show Pos where- show (Pos file line col) = file ++ ":" ++ show line ++ ":" ++ show col---- Show a position relative to a base position.--- If the new position is in the same line, just show its column number;--- otherwise if the new position is in the same file,--- just show its line and column numbers;--- otherwise show the complete new position.-showPosRel (Pos file line col) (Pos file' line' col') =- if (file == file')- then if (line == line')- then "column " ++ show col'- else "line " ++ show line' ++ ", column " ++ show col'- else show (Pos file' line' col')--
− Preprocess.hs
@@ -1,32 +0,0 @@-module Preprocess (preprocess) where--import Pos-import Parse-import System.Environment--import LexerPappy--preprocess :: String -> Maybe String-preprocess src = do- (is, ws) <- lexwords src- return $ is ++ wordsToString ws--wordsToString :: [(String, String)] -> String-wordsToString [] = ""-wordsToString (("zoi", s1) : (q, s2) : rest) =- "zoi" ++ s1 ++ " \NUL" ++ s2 ++ quoteInside q rest-wordsToString ((w, s) : rest) = w ++ s ++ wordsToString rest--quoteInside :: String -> [(String, String)] -> String-quoteInside q0 ((q1, s) : rest)- | q0 == q1 = "\NUL" ++ s ++ wordsToString rest- | otherwise = q1 ++ s ++ quoteInside q0 rest--lexwords :: String -> Maybe (String, [(String, String)])-lexwords src = case lexerPappytest_words $ lexerPappyParse "test_words" src of- Parsed v _ _ -> Just v- NoParse e -> Nothing--main = do- [str] <- getArgs- print $ preprocess str
− TestPappy.hs
@@ -1,24233 +0,0 @@--- Parser generated by Pappy - do not edit-module TestPappy where--import Pos-import Parse---import System.Environment-import Data.Maybe-import Preprocess--ml = maybeToList-----type TailTerms = ([Term], Maybe Clause, [Free])-type Term = Sumti--type Text = Sentence-type Paragraphs = Sentence-type Paragraph = Sentence-type Fragment = Sentence-type Statement = Sentence--data Sentence- = Selbri Selbri- | SelbriTailTerms Selbri [Term] (Maybe Clause) [Free]- | GekSentence Gek Sentence Gik Sentence [Term] (Maybe Clause) [Free]- | KEGekSentence (Maybe Tag) Clause [Free] Sentence (Maybe Clause) [Free]- | NAGekSentence Clause [Free] Sentence- | GihekBO Sentence Gihek (Maybe Tag) Clause [Free] Sentence [Term]- (Maybe Clause) [Free]- | GihekSentence Sentence- [(Gihek, [Free], Sentence, [Term], Maybe Clause, [Free])]- | GihekKE Sentence Gihek (Maybe Tag) Clause [Free] Sentence (Maybe Clause)- [Free] [Term] (Maybe Clause) [Free]- | TermsBridiTail [Term] (Maybe Clause) [Free] Sentence- | PrenexSentence [Term] Clause [Free] Sentence- | TUhE (Maybe Tag) Clause [Free] Text (Maybe Clause) [Free]- | IBOStatement Statement Clause (Maybe JoikJek) (Maybe Tag) Clause [Free]- Statement- | IBO Statement Clause (Maybe JoikJek) (Maybe Tag) Clause [Free]- | IJoikJek Statement [(Clause, JoikJek, [Free], Maybe Statement)]- | Prenex [Term] Clause [Free] Statement- | FPrenex [Term] Clause [Free]- | FTermsVAU [Term] (Maybe Clause) [Free]- | FEk Ek [Free]- | FGihek Gihek [Free]- | FQuantifier Quantifier- | FNA Clause [Free]- | FRelativeClause RelativeClause- | FLinks Links- | FLinkargs Linkargs- | StatementI Statement [(Clause, [Free], Maybe Statement)]- | NIhO Paragraph [Clause] [Free] Paragraphs- | IText_1 Clause (Maybe JoikJek) (Maybe (Maybe Tag, Clause)) [Free]- (Maybe Text)- | HeadNIhO [Clause] [Free] (Maybe Paragraphs)- | TopText [Clause] (Either [Clause] (Maybe [([String], String)])) [Free]- (Maybe (JoikJek, [Free])) (Maybe Text) (Maybe Pre)- deriving Show--data Sumti- = TermsPEhETerms Term [(Clause, [Free], JoikJek, [Free], Term)]- | TermCEhETerm Term [(Clause, [Free], Term)]- | TagSumti Tag Sumti- | KU (Maybe Clause) [Free]- | NAKU Clause Clause [Free]- | NUhIGek Clause [Free] Gek [Term] (Maybe Clause) [Free] Gik [Term]- (Maybe Clause) [Free]- | NUhI Clause [Free] [Term] (Maybe Clause) [Free]- | Gek Gek TermsGikTerms- | ZO [String] String String Indicators [Free]- | ZOI [String] String [String] Indicators [Free]- | LOhU [String] String [String] Pre Indicators [Free]- | LerfuString LerfuString (Maybe Clause) [Free]- | LU Clause Text (Maybe Clause) [Free]- | LAhE_NAhE Clause (Maybe Clause) [Free] (Maybe RelativeClauses)- Sumti (Maybe Clause) [Free]- | KOhA Clause [Free]- | LALE Clause [Free] SumtiTail (Maybe Clause) [Free]- | LA Clause [Free] (Maybe RelativeClauses) [Clause] [Free]- | LI Clause [Free] Mex (Maybe Clause) [Free]- | OuterQuantifier (Maybe Quantifier) Sumti (Maybe RelativeClauses)- | SQuantifierSelbri Quantifier Selbri (Maybe Clause) [Free]- (Maybe RelativeClauses)- | GekSumti Gek Sumti Gik Sumti- | JoikEkBOSumti Sumti JoikEk [Free] (Maybe Tag) Clause [Free] Sumti- | JoikEkSumti Sumti [(JoikEk, [Free], Sumti)]- | JoikEkKESumti Sumti JoikEk [Free] (Maybe Tag) Clause [Free] Sumti- (Maybe Clause) [Free]- | VUhO Sumti Clause [Free] RelativeClauses- deriving Show--data TermsGikTerms- = TGT Term TermsGikTerms Term- | Gik Gik- deriving Show--data SumtiTail- = SumtiSumtiTail Sumti (Maybe RelativeClauses) SumtiTail- | RelativeClausesSumtiTail RelativeClauses SumtiTail- | SelbriRelativeClauses Selbri (Maybe RelativeClauses)- | STQuantifierSelbri Quantifier Selbri (Maybe RelativeClauses)- | QuantifierSumti Quantifier Sumti- deriving Show--data Selbri- = Brivla Clause [Free]- | GOhA Clause (Maybe Clause) [Free]- | KE Clause [Free] Selbri (Maybe Clause) [Free]- | ME Clause [Free] Sumti (Maybe Clause) [Free] (Maybe Clause) [Free]- | MOI NumberLerfuString Clause [Free]- | NUhA Clause [Free] MexOperator- | SE Clause [Free] Selbri- | JAI Clause [Free] (Maybe Tag) Selbri- | NAhE Clause [Free] Selbri- | Linkargs Selbri Linkargs- | CEI Selbri [(Clause, [Free], Selbri)]- | BO Selbri Clause [Free] Selbri- | GuhekGik (Maybe Clause) [Free] Guhek Selbri Gik Selbri- | JekJoikBO Selbri JoikJek (Maybe Tag) Clause [Free] Selbri- | JoikJek Selbri [JoikJekSelbri5]- | Tanru [Selbri]- | CO Selbri Clause [Free] Selbri- | NA Clause [Free] Selbri- | Tag Tag Selbri- | NU Clause (Maybe Clause) [Free]- [(JoikJek, [Free], Clause, Maybe Clause, [Free])]- Sentence (Maybe Clause) [Free]- deriving Show--type RelativeClauses = RelativeClause--data RelativeClause- = GOI Clause [Free] Term (Maybe Clause) [Free]- | NOI Clause [Free] Sentence (Maybe Clause) [Free]- | RelativeClauseZIhE RelativeClause [(Clause, [Free], RelativeClause)]- deriving Show--type JoikJekSelbri5 = Either (JoikJek, [Free], Selbri)- (Joik, (Maybe Tag), Clause, [Free], Selbri, Maybe Clause, [Free])--data Linkargs- = BE Clause [Free] Term (Maybe Links) (Maybe Clause) [Free]- deriving Show-data Links- = BEI Clause [Free] Term (Maybe Links)- deriving Show--type Quantifier = Operand-type Mex = Operand-data MexOperator- = VUhU Clause [Free]- | NAhU Clause [Free] Selbri (Maybe Clause) [Free]- | MAhO Clause [Free] Mex (Maybe Clause) [Free]- | NAhEOperator Clause [Free] MexOperator- | SEOperator Clause [Free] MexOperator- | KEOperator Clause [Free] MexOperator (Maybe Clause) [Free]- | GuhekOperator Guhek MexOperator Gik MexOperator- | JekJoikBOOperator MexOperator JoikJek (Maybe Tag) Clause [Free] MexOperator- | JoikJekJoikKEOperator MexOperator- [Either (JoikJek, [Free], MexOperator)- (Joik, Maybe Tag, Clause, [Free], MexOperator,- Maybe Clause, [Free])]- deriving Show--data Operand- = OLerfuString LerfuString (Maybe Clause) [Free]- | OperandJoikEkBO Operand JoikEk [Free] (Maybe Tag) Clause [Free] Operand- | OperandJoikEk Operand [(JoikEk, [Free], Operand)]- | OperandJoikEkKE Operand JoikEk [Free] (Maybe Tag) Clause [Free] Operand- (Maybe Clause) [Free]- | MexOperatorMex Mex [(MexOperator, Mex)]- | FUhA Clause [Free] RPExpression- | PEhO (Maybe Clause) [Free] MexOperator [Mex] (Maybe Clause) [Free]- | BIhE Mex Clause [Free] MexOperator Mex- | VEI Clause [Free] Mex (Maybe Clause) [Free]- | Number Number (Maybe Clause) [Free]- | NIhE Clause [Free] Selbri (Maybe Clause) [Free]- | MOhE Clause [Free] Sumti (Maybe Clause) [Free]- | JOhI Clause [Free] [Mex] (Maybe Clause) [Free]- | GekOperand Gek Operand Gik Operand- | LAhE_NAhEOperand Clause (Maybe Clause) [Free] Operand (Maybe Clause) [Free]- deriving Show--data RPExpression- = RPExpression Operand (Maybe RPExpressionTail)- deriving Show-data RPExpressionTail- = RPExpressionTail RPExpression MexOperator (Maybe RPExpressionTail)- deriving Show--type NumberLerfuString = [Clause]-type Number = [Clause]-type LerfuString = [Clause]--data Free- = VocativeSumti [Clause] (Maybe Sumti) (Maybe Clause)- | XINumber Clause [Free] NumberLerfuString (Maybe Clause)- | XIMex Clause [Free] Clause [Free] Mex (Maybe Clause)- | SEI Clause [Free] (Maybe ([Term], Maybe Clause, [Free])) Selbri (Maybe Clause)- | SOI Clause [Free] Sumti (Maybe Sumti) (Maybe Clause)- | TO Clause Text (Maybe Clause)- | MAI NumberLerfuString Clause- | VocativeSelbri [Clause] (Maybe RelativeClauses) Selbri- (Maybe RelativeClauses) (Maybe Clause)- | VocativeCmene [Clause] (Maybe RelativeClauses) [Clause] [Free]- (Maybe RelativeClauses) (Maybe Clause)- deriving Show--type Clause = ([String], String, Indicators)-type Pre = ([String], String)-type Indicators = [[([String], String)]]--type Ek = JoikJek-type Jek = JoikJek-type Joik = JoikJek-type JoikEk = JoikJek-type Gihek = JoikJek-data JoikJek- = JOI (Maybe Clause) (Clause) (Maybe Clause)- | Jek (Maybe Clause) (Maybe Clause) Clause (Maybe Clause)- | Ek (Maybe Clause) (Maybe Clause) Clause (Maybe Clause)- | Gihek (Maybe Clause) (Maybe Clause) Clause (Maybe Clause)- | BIhI (Maybe Clause) Clause (Maybe Clause)- | GAhO Clause JoikJek Clause- deriving Show-data Gek- = GA (Maybe Clause) Clause (Maybe Clause) [Free]- | JoikGI Joik Clause [Free]- | STagGik Tag Gik- deriving Show--- type Guhek = ([Clause], [Free])--- type Gik = ([Clause], [Free])-type Guhek = (Maybe Clause, Clause, Maybe Clause, [Free])-type Gik = (Clause, Maybe Clause, [Free])--type Tense = Tag-data IntervalProperty- = ROI Number Clause (Maybe Clause)- | TAhE Clause (Maybe Clause)- | ZAhO Clause (Maybe Clause)- deriving Show--data Tag- = BAI (Maybe Clause) (Maybe Clause) Clause (Maybe Clause) (Maybe Clause)- | FA Clause [Free]- | KI Clause- | CUhE Clause- | Time (Maybe Clause) [(Clause, Maybe Clause, Maybe Clause)]- (Maybe (Clause, Maybe (Clause, Maybe Clause))) [IntervalProperty]- | Space (Maybe Clause) [SpaceOffset] (Maybe SpaceInterval) (Maybe (Clause, SpaceOffset))- | SpaceTime Tense Tense- | TimeSpace Tense Tense- | TenseCAhA Tense Clause- | CAhA Clause- | NAhETenseKI (Maybe Clause) Tense (Maybe Clause)- | SimpleTenseModalFree Tag [Free]- | FIhO Clause [Free] Selbri (Maybe Clause) [Free]- | JoikJekTag Tag [(JoikJek, [Free], Tag)]- | JekJoikSTag Tag [(JoikJek, Tag)]- deriving Show--data SpaceInterval- = FEhE [(Clause, IntervalProperty)]- | VEhAVIhA (Maybe Clause) (Maybe Clause)- | VEhAVIhAFAhA (Maybe Clause) (Maybe Clause) Clause (Maybe Clause)- | VEhAVIhAFEhE (Maybe Clause) (Maybe Clause) SpaceInterval- | VEhAVIhAFAhAFEhE (Maybe Clause) (Maybe Clause) Clause (Maybe Clause) SpaceInterval- deriving Show--data SpaceOffset- = FAhA Clause (Maybe Clause) (Maybe Clause)- deriving Show--{--main = do- [str] <- getArgs- let p = fromMaybe (error "can't lex") $ preprocess str- case testPappytest $ testPappyParse "test" p of- Parsed v _ _ -> print v- NoParse e -> error (show e)--}--uncurry3 :: (a -> b -> c -> d) -> (a, b, c) -> d-uncurry3 f (x, y, z) = f x y z--isSimpleText :: [Clause] -> (Either [Clause] (Maybe [([String], String)]), [Free]) -> - Maybe (JoikJek, [Free]) -> Maybe Text -> Maybe Pre -> Bool-isSimpleText n tp2 jj t f =- null n && isNothing (fromRight $ fst tp2) && null (snd tp2) &&- isNothing jj && isJust t && isNothing f--fromRight :: Either a b -> b-fromRight = either (const $ error "not Right") id----data TestPappyDerivs = TestPappyDerivs {- testPappySub0 :: TestPappyDerivs0,- testPappySub1 :: TestPappyDerivs1,- testPappySub2 :: TestPappyDerivs2,- testPappySub3 :: TestPappyDerivs3,- testPappySub4 :: TestPappyDerivs4,- testPappySub5 :: TestPappyDerivs5,- testPappySub6 :: TestPappyDerivs6,- testPappySub7 :: TestPappyDerivs7,- testPappySub8 :: TestPappyDerivs8,- testPappyChar :: Result TestPappyDerivs Char,- testPappyPos :: Pos-}--instance Derivs TestPappyDerivs where- dvChar d = testPappyChar d- dvPos d = testPappyPos d--data TestPappyDerivs0 = TestPappyDerivs0 {- testPappySubStarRule0 :: Result TestPappyDerivs ([Clause]),- testPappySubtext :: Result TestPappyDerivs (Text),- testPappySubStarRule3 :: Result TestPappyDerivs ([ () ]),- testPappySubtext_1 :: Result TestPappyDerivs (Text),- testPappySubparagraphs :: Result TestPappyDerivs (Paragraphs),- testPappySubPlusRule2 :: Result TestPappyDerivs ([Clause]),- testPappySubStarRule8 :: Result TestPappyDerivs ([ () ]),- testPappySubStarRule9 :: Result TestPappyDerivs ([ (Clause, [Free], Maybe Statement) ]),- testPappySubstatement :: Result TestPappyDerivs (Statement),- testPappySubStarRule11 :: Result TestPappyDerivs ([ (Clause, JoikJek, [Free], Maybe Statement) ]),- testPappySubstatement_2 :: Result TestPappyDerivs (Statement),- testPappySubfragment :: Result TestPappyDerivs (Fragment),- testPappySubsentence :: Result TestPappyDerivs (Sentence),- testPappySubStarRule21 :: Result TestPappyDerivs ([ () ]),- testPappySubStarRule23 :: Result TestPappyDerivs ([ () ]),- testPappySubsubsentence :: Result TestPappyDerivs (Sentence),- testPappySubbridi_tail :: Result TestPappyDerivs (Sentence),- testPappySubStarRule26 :: Result TestPappyDerivs ([ () ]),- testPappySubbridi_tail_start :: Result TestPappyDerivs ( () ),- testPappySubStarRule27 :: Result TestPappyDerivs ([ (Gihek, [Free], Sentence, [Term], Maybe Clause, [Free]) ]),- testPappySubbridi_tail_2 :: Result TestPappyDerivs (Sentence),- testPappySubgek_sentence :: Result TestPappyDerivs (Sentence),- testPappySubPlusRule3 :: Result TestPappyDerivs ([Term]),- testPappySubStarRule34 :: Result TestPappyDerivs ([ (Clause, [Free], JoikJek, [Free], Term) ]),- testPappySubStarRule35 :: Result TestPappyDerivs ([ () ]),- testPappySubStarRule37 :: Result TestPappyDerivs ([ (Clause, [Free], Term) ]),- testPappySubStarRule38 :: Result TestPappyDerivs ([ () ]),- testPappySubStarRule40 :: Result TestPappyDerivs ([ () ]),- testPappySubStarRule41 :: Result TestPappyDerivs ([ () ]),- testPappySubStarRule42 :: Result TestPappyDerivs ([ () ]),- testPappySubterm_1 :: Result TestPappyDerivs (Term),- testPappySubStarRule46 :: Result TestPappyDerivs ([ () ]),- testPappySubterm_start :: Result TestPappyDerivs ( () )}--data TestPappyDerivs1 = TestPappyDerivs1 {- testPappySubterms_gik_terms :: Result TestPappyDerivs (TermsGikTerms),- testPappySubsumti :: Result TestPappyDerivs (Sumti),- testPappySubStarRule55 :: Result TestPappyDerivs ([ (JoikEk, [Free], Sumti) ]),- testPappySubsumti_3 :: Result TestPappyDerivs (Sumti),- testPappySubsumti_4 :: Result TestPappyDerivs (Sumti),- testPappySubsumti_6 :: Result TestPappyDerivs (Sumti),- testPappySubLAhE_NAhE :: Result TestPappyDerivs ( (Clause, Maybe Clause, [Free]) ),- testPappySubStarRule73 :: Result TestPappyDerivs ([ (Clause, [Free], RelativeClause) ]),- testPappySubStarRule75 :: Result TestPappyDerivs ([ () ]),- testPappySubStarRule76 :: Result TestPappyDerivs ([ () ]),- testPappySubrelative_clause_1 :: Result TestPappyDerivs (RelativeClause),- testPappySubselbri :: Result TestPappyDerivs (Selbri),- testPappySubselbri_2 :: Result TestPappyDerivs (Selbri),- testPappySubPlusRule5 :: Result TestPappyDerivs ([Selbri]),- testPappySubStarRule83 :: Result TestPappyDerivs ([JoikJekSelbri5]),- testPappySubselbri_5 :: Result TestPappyDerivs (Selbri),- testPappySubselbri_6 :: Result TestPappyDerivs (Selbri),- testPappySubStarRule89 :: Result TestPappyDerivs ([ (Clause, [Free], Selbri) ]),- testPappySubStarRule104 :: Result TestPappyDerivs ([ (JoikJek, [Free], Clause, Maybe Clause, [Free]) ]),- testPappySubtanru_unit_2 :: Result TestPappyDerivs (Selbri),- testPappySubStarRule107 :: Result TestPappyDerivs ([ () ]),- testPappySublinkargs_1 :: Result TestPappyDerivs (Linkargs),- testPappySubStarRule110 :: Result TestPappyDerivs ([ () ]),- testPappySubStarRule111 :: Result TestPappyDerivs ([ () ]),- testPappySublinks_1 :: Result TestPappyDerivs (Links),- testPappySubStarRule113 :: Result TestPappyDerivs ([ () ]),- testPappySubquantifier :: Result TestPappyDerivs (Quantifier),- testPappySubStarRule117 :: Result TestPappyDerivs ([ () ]),- testPappySubStarRule118 :: Result TestPappyDerivs ([ (MexOperator, Mex) ]),- testPappySubmex_0 :: Result TestPappyDerivs (Mex),- testPappySubStarRule119 :: Result TestPappyDerivs ([ () ]),- testPappySubmex_start :: Result TestPappyDerivs ( () ),- testPappySubmex_1 :: Result TestPappyDerivs (Mex)}--data TestPappyDerivs2 = TestPappyDerivs2 {- testPappySubmex_2 :: Result TestPappyDerivs (Mex),- testPappySubrp_expression_tail :: Result TestPappyDerivs ( Maybe RPExpressionTail),- testPappySubStarRule124 :: Result TestPappyDerivs ([ () ]),- testPappySubStarRule125 :: Result TestPappyDerivs ([ Either (JoikJek, [Free], MexOperator) (Joik, Maybe Tag, Clause, [Free], MexOperator, Maybe Clause, [Free]) ]),- testPappySubStarRule128 :: Result TestPappyDerivs ([ () ]),- testPappySuboperator_start :: Result TestPappyDerivs ( () ),- testPappySuboperator_1 :: Result TestPappyDerivs (MexOperator),- testPappySuboperator_2 :: Result TestPappyDerivs (MexOperator),- testPappySubmex_operator :: Result TestPappyDerivs (MexOperator),- testPappySubStarRule139 :: Result TestPappyDerivs ([ () ]),- testPappySuboperand_0 :: Result TestPappyDerivs (Operand),- testPappySubStarRule142 :: Result TestPappyDerivs ([ () ]),- testPappySuboperand_start :: Result TestPappyDerivs ( () ),- testPappySubStarRule143 :: Result TestPappyDerivs ([ (JoikEk, [Free], Operand) ]),- testPappySuboperand_2 :: Result TestPappyDerivs (Operand),- testPappySubPlusRule7 :: Result TestPappyDerivs ([Mex]),- testPappySuboperand_3 :: Result TestPappyDerivs (Operand),- testPappySubStarRule154 :: Result TestPappyDerivs ([ [Clause] ]),- testPappySublerfu_word :: Result TestPappyDerivs ( [Clause] ),- testPappySubek :: Result TestPappyDerivs (Ek),- testPappySubStarRule155 :: Result TestPappyDerivs ([ () ]),- testPappySubgihek_1 :: Result TestPappyDerivs (Gihek),- testPappySubStarRule156 :: Result TestPappyDerivs ([ () ]),- testPappySubjek :: Result TestPappyDerivs (Jek),- testPappySubjoik :: Result TestPappyDerivs (Joik),- testPappySubinterval :: Result TestPappyDerivs (Joik),- testPappySubStarRule157 :: Result TestPappyDerivs ([ () ]),- testPappySubStarRule160 :: Result TestPappyDerivs ([ () ]),- testPappySubgek :: Result TestPappyDerivs (Gek),- testPappySubguhek :: Result TestPappyDerivs (Guhek),- testPappySubgik :: Result TestPappyDerivs (Gik),- testPappySubStarRule168 :: Result TestPappyDerivs ([ (JoikJek, Tag) ]),- testPappySubStarRule169 :: Result TestPappyDerivs ([ (JoikJek, [Free], Tag) ])}--data TestPappyDerivs3 = TestPappyDerivs3 {- testPappySubtense_modal :: Result TestPappyDerivs (Tag),- testPappySubsimple_tense_modal :: Result TestPappyDerivs (Tag),- testPappySubPlusRule8 :: Result TestPappyDerivs ([ (Clause, Maybe Clause, Maybe Clause) ]),- testPappySubStarRule177 :: Result TestPappyDerivs ([IntervalProperty]),- testPappySubStarRule178 :: Result TestPappyDerivs ([ (Clause, Maybe Clause, Maybe Clause) ]),- testPappySubPlusRule9 :: Result TestPappyDerivs ([IntervalProperty]),- testPappySubtime :: Result TestPappyDerivs (Tense),- testPappySubzeha_pu :: Result TestPappyDerivs ( (Clause, Maybe (Clause, Maybe Clause)) ),- testPappySubtime_offset :: Result TestPappyDerivs ( (Clause, Maybe Clause, Maybe Clause) ),- testPappySubPlusRule10 :: Result TestPappyDerivs ([SpaceOffset]),- testPappySubStarRule181 :: Result TestPappyDerivs ([SpaceOffset]),- testPappySubspace :: Result TestPappyDerivs (Tense),- testPappySubspace_offset :: Result TestPappyDerivs (SpaceOffset),- testPappySubspace_interval :: Result TestPappyDerivs (SpaceInterval),- testPappySubVEhA_VIhA :: Result TestPappyDerivs ( (Maybe Clause, Maybe Clause) ),- testPappySubPlusRule11 :: Result TestPappyDerivs ([ (Clause, IntervalProperty) ]),- testPappySubinterval_property :: Result TestPappyDerivs (IntervalProperty),- testPappySubPlusRule12 :: Result TestPappyDerivs ([Clause]),- testPappySubStarRule188 :: Result TestPappyDerivs ([Free]),- testPappySubPlusRule13 :: Result TestPappyDerivs ([ [([String], String, Indicators)] ]),- testPappySubStarRule189 :: Result TestPappyDerivs ([ [([String], String, Indicators)] ]),- testPappySubvocative :: Result TestPappyDerivs ( [([String], String, Indicators)] ),- testPappySubcoi_nai :: Result TestPappyDerivs ( [([String], String, Indicators)] ),- testPappySubPlusRule14 :: Result TestPappyDerivs ([ [([String], String)] ]),- testPappySubindicator :: Result TestPappyDerivs ( [([String], String)] ),- testPappySubStarRule190 :: Result TestPappyDerivs ([String]),- testPappySubStarRule191 :: Result TestPappyDerivs ([String]),- testPappySubPlusRule15 :: Result TestPappyDerivs ([ String ]),- testPappySubPlusRule16 :: Result TestPappyDerivs ([Pre]),- testPappySubpre_zei_bu :: Result TestPappyDerivs ( String ),- testPappySubStarRule192 :: Result TestPappyDerivs ([Char]),- testPappySubStarRule193 :: Result TestPappyDerivs ([ [([String], String)] ]),- testPappySubpost_clause :: Result TestPappyDerivs ( [[([String], String)]] )}--data TestPappyDerivs4 = TestPappyDerivs4 {- testPappySubpost_clause_no_ind :: Result TestPappyDerivs ( () ),- testPappySubany_word_SA_handling :: Result TestPappyDerivs ( ([String], String) ),- testPappySubStarRule194 :: Result TestPappyDerivs ([ () ]),- testPappySubPlusRule17 :: Result TestPappyDerivs ([ () ]),- testPappySubsi_clause_single :: Result TestPappyDerivs ( () ),- testPappySuberasable_clause :: Result TestPappyDerivs ( () ),- testPappySubBRIVLA_pre :: Result TestPappyDerivs ( ([String], String) ),- testPappySubPlusRule18 :: Result TestPappyDerivs ([String]),- testPappySubBAhE_clause_single :: Result TestPappyDerivs (String),- testPappySubStarRule195 :: Result TestPappyDerivs ([ () ]),- testPappySubStarRule196 :: Result TestPappyDerivs ([String]),- testPappySubStarRule198 :: Result TestPappyDerivs ([String]),- testPappySubPlusRule19 :: Result TestPappyDerivs ([String]),- testPappySubcmene :: Result TestPappyDerivs (String),- testPappySubStarRule200 :: Result TestPappyDerivs ([Char]),- testPappySubcmavo :: Result TestPappyDerivs (String),- testPappySubStarRule202 :: Result TestPappyDerivs ([String]),- testPappySubStarRule203 :: Result TestPappyDerivs ([String]),- testPappySubstressed_extended_rafsi :: Result TestPappyDerivs (String),- testPappySubextended_rafsi :: Result TestPappyDerivs (String),- testPappySubStarRule205 :: Result TestPappyDerivs ([String]),- testPappySubStarRule206 :: Result TestPappyDerivs ([String]),- testPappySubbrivla_head :: Result TestPappyDerivs (String),- testPappySubStarRule207 :: Result TestPappyDerivs ([String]),- testPappySubCVV_final_rafsi :: Result TestPappyDerivs (String),- testPappySubshort_final_rafsi :: Result TestPappyDerivs (String),- testPappySubstressed_y_rafsi :: Result TestPappyDerivs (String),- testPappySubstressed_y_less_rafsi :: Result TestPappyDerivs (String),- testPappySubstressed_long_rafsi :: Result TestPappyDerivs (String),- testPappySuby_rafsi :: Result TestPappyDerivs (String),- testPappySuby_less_rafsi :: Result TestPappyDerivs (String),- testPappySubr_hyphen :: Result TestPappyDerivs (Char),- testPappySubfinal_syllable :: Result TestPappyDerivs (String)}--data TestPappyDerivs5 = TestPappyDerivs5 {- testPappySubstressed_syllable :: Result TestPappyDerivs (String),- testPappySubstressed_vowel :: Result TestPappyDerivs (Char),- testPappySubunstressed_syllable :: Result TestPappyDerivs (String),- testPappySubStarRule208 :: Result TestPappyDerivs ([Char]),- testPappySubconsonantal_syllable :: Result TestPappyDerivs (String),- testPappySubcoda :: Result TestPappyDerivs (String),- testPappySubonset :: Result TestPappyDerivs (String),- testPappySubglide :: Result TestPappyDerivs (Char),- testPappySubdiphthong :: Result TestPappyDerivs (String),- testPappySubvowel :: Result TestPappyDerivs (Char),- testPappySubPlusRule21 :: Result TestPappyDerivs ([Char]),- testPappySubinitial_pair :: Result TestPappyDerivs (String),- testPappySubinitial :: Result TestPappyDerivs (String),- testPappySubl :: Result TestPappyDerivs (Char),- testPappySubm :: Result TestPappyDerivs (Char),- testPappySubn :: Result TestPappyDerivs (Char),- testPappySubr :: Result TestPappyDerivs (Char),- testPappySubb :: Result TestPappyDerivs (Char),- testPappySubd :: Result TestPappyDerivs (Char),- testPappySubg :: Result TestPappyDerivs (Char),- testPappySubv :: Result TestPappyDerivs (Char),- testPappySubj :: Result TestPappyDerivs (Char),- testPappySubz :: Result TestPappyDerivs (Char),- testPappySubs :: Result TestPappyDerivs (Char),- testPappySubc :: Result TestPappyDerivs (Char),- testPappySubx :: Result TestPappyDerivs (Char),- testPappySubk :: Result TestPappyDerivs (Char),- testPappySubf :: Result TestPappyDerivs (Char),- testPappySubp :: Result TestPappyDerivs (Char),- testPappySubt :: Result TestPappyDerivs (Char),- testPappySubdigit :: Result TestPappyDerivs (Char),- testPappySubpost_word :: Result TestPappyDerivs (String),- testPappySubPlusRule22 :: Result TestPappyDerivs ([Char])}--data TestPappyDerivs6 = TestPappyDerivs6 {- testPappySubPlusRule23 :: Result TestPappyDerivs ([ String ]),- testPappySubStarRule236 :: Result TestPappyDerivs ([Char]),- testPappySubStarRule237 :: Result TestPappyDerivs ([Char]),- testPappySubA :: Result TestPappyDerivs (String),- testPappySubBAI :: Result TestPappyDerivs (String),- testPappySubBAhE :: Result TestPappyDerivs (String),- testPappySubBEhO :: Result TestPappyDerivs (String),- testPappySubBIhE :: Result TestPappyDerivs (String),- testPappySubBIhI :: Result TestPappyDerivs (String),- testPappySubBY :: Result TestPappyDerivs (String),- testPappySubCAhA :: Result TestPappyDerivs (String),- testPappySubCAI :: Result TestPappyDerivs (String),- testPappySubCEhE :: Result TestPappyDerivs (String),- testPappySubCOI :: Result TestPappyDerivs (String),- testPappySubCUhE :: Result TestPappyDerivs (String),- testPappySubDAhO :: Result TestPappyDerivs (String),- testPappySubDOhU :: Result TestPappyDerivs (String),- testPappySubFA :: Result TestPappyDerivs (String),- testPappySubFAhA :: Result TestPappyDerivs (String),- testPappySubFAhO :: Result TestPappyDerivs (String),- testPappySubFEhE :: Result TestPappyDerivs (String),- testPappySubFEhU :: Result TestPappyDerivs (String),- testPappySubFIhO :: Result TestPappyDerivs (String),- testPappySubFUhA :: Result TestPappyDerivs (String),- testPappySubFUhE :: Result TestPappyDerivs (String),- testPappySubFUhO :: Result TestPappyDerivs (String),- testPappySubGA :: Result TestPappyDerivs (String),- testPappySubGAhO :: Result TestPappyDerivs (String),- testPappySubGEhU :: Result TestPappyDerivs (String),- testPappySubGIhA :: Result TestPappyDerivs (String),- testPappySubGOI :: Result TestPappyDerivs (String),- testPappySubGOhA :: Result TestPappyDerivs (String),- testPappySubGUhA :: Result TestPappyDerivs (String)}--data TestPappyDerivs7 = TestPappyDerivs7 {- testPappySubJA :: Result TestPappyDerivs (String),- testPappySubJOhI :: Result TestPappyDerivs (String),- testPappySubJOI :: Result TestPappyDerivs (String),- testPappySubKEhE :: Result TestPappyDerivs (String),- testPappySubKOhA :: Result TestPappyDerivs (String),- testPappySubKUhE :: Result TestPappyDerivs (String),- testPappySubKUhO :: Result TestPappyDerivs (String),- testPappySubLA :: Result TestPappyDerivs (String),- testPappySubLAU :: Result TestPappyDerivs (String),- testPappySubLAhE :: Result TestPappyDerivs (String),- testPappySubLE :: Result TestPappyDerivs (String),- testPappySubLEhU :: Result TestPappyDerivs (String),- testPappySubLI :: Result TestPappyDerivs (String),- testPappySubLIhU :: Result TestPappyDerivs (String),- testPappySubLOhO :: Result TestPappyDerivs (String),- testPappySubLOhU :: Result TestPappyDerivs (String),- testPappySubLUhU :: Result TestPappyDerivs (String),- testPappySubMAhO :: Result TestPappyDerivs (String),- testPappySubMAI :: Result TestPappyDerivs (String),- testPappySubMEhU :: Result TestPappyDerivs (String),- testPappySubMOhE :: Result TestPappyDerivs (String),- testPappySubMOhI :: Result TestPappyDerivs (String),- testPappySubMOI :: Result TestPappyDerivs (String),- testPappySubNA :: Result TestPappyDerivs (String),- testPappySubNAhE :: Result TestPappyDerivs (String),- testPappySubNAhU :: Result TestPappyDerivs (String),- testPappySubNIhE :: Result TestPappyDerivs (String),- testPappySubNIhO :: Result TestPappyDerivs (String),- testPappySubNOI :: Result TestPappyDerivs (String),- testPappySubNU :: Result TestPappyDerivs (String),- testPappySubNUhA :: Result TestPappyDerivs (String),- testPappySubNUhI :: Result TestPappyDerivs (String),- testPappySubNUhU :: Result TestPappyDerivs (String)}--data TestPappyDerivs8 = TestPappyDerivs8 {- testPappySubPA :: Result TestPappyDerivs (String),- testPappySubPEhE :: Result TestPappyDerivs (String),- testPappySubPEhO :: Result TestPappyDerivs (String),- testPappySubPU :: Result TestPappyDerivs (String),- testPappySubRAhO :: Result TestPappyDerivs (String),- testPappySubROI :: Result TestPappyDerivs (String),- testPappySubSE :: Result TestPappyDerivs (String),- testPappySubSEI :: Result TestPappyDerivs (String),- testPappySubSEhU :: Result TestPappyDerivs (String),- testPappySubSI :: Result TestPappyDerivs (String),- testPappySubSU :: Result TestPappyDerivs (String),- testPappySubTAhE :: Result TestPappyDerivs (String),- testPappySubTEhU :: Result TestPappyDerivs (String),- testPappySubTO :: Result TestPappyDerivs (String),- testPappySubTUhE :: Result TestPappyDerivs (String),- testPappySubTUhU :: Result TestPappyDerivs (String),- testPappySubUI :: Result TestPappyDerivs (String),- testPappySubVA :: Result TestPappyDerivs (String),- testPappySubVEhO :: Result TestPappyDerivs (String),- testPappySubVUhU :: Result TestPappyDerivs (String),- testPappySubVEhA :: Result TestPappyDerivs (String),- testPappySubVIhA :: Result TestPappyDerivs (String),- testPappySubVUhO :: Result TestPappyDerivs (String),- testPappySubPlusRule24 :: Result TestPappyDerivs ([Char]),- testPappySubZAhO :: Result TestPappyDerivs (String),- testPappySubZEhA :: Result TestPappyDerivs (String),- testPappySubZI :: Result TestPappyDerivs (String),- testPappySubZIhE :: Result TestPappyDerivs (String),- testPappySubZOI :: Result TestPappyDerivs (String),- testPappySubZOhU :: Result TestPappyDerivs (String),- testPappySubdummyTail :: Result TestPappyDerivs ((() -> ())),- testPappySubdummy :: Result TestPappyDerivs (())}--testPappyStarRule0 = testPappySubStarRule0 . testPappySub0-testPappytext = testPappySubtext . testPappySub0-testPappyStarRule3 = testPappySubStarRule3 . testPappySub0-testPappytext_1 = testPappySubtext_1 . testPappySub0-testPappyparagraphs = testPappySubparagraphs . testPappySub0-testPappyPlusRule2 = testPappySubPlusRule2 . testPappySub0-testPappyStarRule8 = testPappySubStarRule8 . testPappySub0-testPappyStarRule9 = testPappySubStarRule9 . testPappySub0-testPappystatement = testPappySubstatement . testPappySub0-testPappyStarRule11 = testPappySubStarRule11 . testPappySub0-testPappystatement_2 = testPappySubstatement_2 . testPappySub0-testPappyfragment = testPappySubfragment . testPappySub0-testPappysentence = testPappySubsentence . testPappySub0-testPappyStarRule21 = testPappySubStarRule21 . testPappySub0-testPappyStarRule23 = testPappySubStarRule23 . testPappySub0-testPappysubsentence = testPappySubsubsentence . testPappySub0-testPappybridi_tail = testPappySubbridi_tail . testPappySub0-testPappyStarRule26 = testPappySubStarRule26 . testPappySub0-testPappybridi_tail_start = testPappySubbridi_tail_start . testPappySub0-testPappyStarRule27 = testPappySubStarRule27 . testPappySub0-testPappybridi_tail_2 = testPappySubbridi_tail_2 . testPappySub0-testPappygek_sentence = testPappySubgek_sentence . testPappySub0-testPappyPlusRule3 = testPappySubPlusRule3 . testPappySub0-testPappyStarRule34 = testPappySubStarRule34 . testPappySub0-testPappyStarRule35 = testPappySubStarRule35 . testPappySub0-testPappyStarRule37 = testPappySubStarRule37 . testPappySub0-testPappyStarRule38 = testPappySubStarRule38 . testPappySub0-testPappyStarRule40 = testPappySubStarRule40 . testPappySub0-testPappyStarRule41 = testPappySubStarRule41 . testPappySub0-testPappyStarRule42 = testPappySubStarRule42 . testPappySub0-testPappyterm_1 = testPappySubterm_1 . testPappySub0-testPappyStarRule46 = testPappySubStarRule46 . testPappySub0-testPappyterm_start = testPappySubterm_start . testPappySub0-testPappyterms_gik_terms = testPappySubterms_gik_terms . testPappySub1-testPappysumti = testPappySubsumti . testPappySub1-testPappyStarRule55 = testPappySubStarRule55 . testPappySub1-testPappysumti_3 = testPappySubsumti_3 . testPappySub1-testPappysumti_4 = testPappySubsumti_4 . testPappySub1-testPappysumti_6 = testPappySubsumti_6 . testPappySub1-testPappyLAhE_NAhE = testPappySubLAhE_NAhE . testPappySub1-testPappyStarRule73 = testPappySubStarRule73 . testPappySub1-testPappyStarRule75 = testPappySubStarRule75 . testPappySub1-testPappyStarRule76 = testPappySubStarRule76 . testPappySub1-testPappyrelative_clause_1 = testPappySubrelative_clause_1 . testPappySub1-testPappyselbri = testPappySubselbri . testPappySub1-testPappyselbri_2 = testPappySubselbri_2 . testPappySub1-testPappyPlusRule5 = testPappySubPlusRule5 . testPappySub1-testPappyStarRule83 = testPappySubStarRule83 . testPappySub1-testPappyselbri_5 = testPappySubselbri_5 . testPappySub1-testPappyselbri_6 = testPappySubselbri_6 . testPappySub1-testPappyStarRule89 = testPappySubStarRule89 . testPappySub1-testPappyStarRule104 = testPappySubStarRule104 . testPappySub1-testPappytanru_unit_2 = testPappySubtanru_unit_2 . testPappySub1-testPappyStarRule107 = testPappySubStarRule107 . testPappySub1-testPappylinkargs_1 = testPappySublinkargs_1 . testPappySub1-testPappyStarRule110 = testPappySubStarRule110 . testPappySub1-testPappyStarRule111 = testPappySubStarRule111 . testPappySub1-testPappylinks_1 = testPappySublinks_1 . testPappySub1-testPappyStarRule113 = testPappySubStarRule113 . testPappySub1-testPappyquantifier = testPappySubquantifier . testPappySub1-testPappyStarRule117 = testPappySubStarRule117 . testPappySub1-testPappyStarRule118 = testPappySubStarRule118 . testPappySub1-testPappymex_0 = testPappySubmex_0 . testPappySub1-testPappyStarRule119 = testPappySubStarRule119 . testPappySub1-testPappymex_start = testPappySubmex_start . testPappySub1-testPappymex_1 = testPappySubmex_1 . testPappySub1-testPappymex_2 = testPappySubmex_2 . testPappySub2-testPappyrp_expression_tail = testPappySubrp_expression_tail . testPappySub2-testPappyStarRule124 = testPappySubStarRule124 . testPappySub2-testPappyStarRule125 = testPappySubStarRule125 . testPappySub2-testPappyStarRule128 = testPappySubStarRule128 . testPappySub2-testPappyoperator_start = testPappySuboperator_start . testPappySub2-testPappyoperator_1 = testPappySuboperator_1 . testPappySub2-testPappyoperator_2 = testPappySuboperator_2 . testPappySub2-testPappymex_operator = testPappySubmex_operator . testPappySub2-testPappyStarRule139 = testPappySubStarRule139 . testPappySub2-testPappyoperand_0 = testPappySuboperand_0 . testPappySub2-testPappyStarRule142 = testPappySubStarRule142 . testPappySub2-testPappyoperand_start = testPappySuboperand_start . testPappySub2-testPappyStarRule143 = testPappySubStarRule143 . testPappySub2-testPappyoperand_2 = testPappySuboperand_2 . testPappySub2-testPappyPlusRule7 = testPappySubPlusRule7 . testPappySub2-testPappyoperand_3 = testPappySuboperand_3 . testPappySub2-testPappyStarRule154 = testPappySubStarRule154 . testPappySub2-testPappylerfu_word = testPappySublerfu_word . testPappySub2-testPappyek = testPappySubek . testPappySub2-testPappyStarRule155 = testPappySubStarRule155 . testPappySub2-testPappygihek_1 = testPappySubgihek_1 . testPappySub2-testPappyStarRule156 = testPappySubStarRule156 . testPappySub2-testPappyjek = testPappySubjek . testPappySub2-testPappyjoik = testPappySubjoik . testPappySub2-testPappyinterval = testPappySubinterval . testPappySub2-testPappyStarRule157 = testPappySubStarRule157 . testPappySub2-testPappyStarRule160 = testPappySubStarRule160 . testPappySub2-testPappygek = testPappySubgek . testPappySub2-testPappyguhek = testPappySubguhek . testPappySub2-testPappygik = testPappySubgik . testPappySub2-testPappyStarRule168 = testPappySubStarRule168 . testPappySub2-testPappyStarRule169 = testPappySubStarRule169 . testPappySub2-testPappytense_modal = testPappySubtense_modal . testPappySub3-testPappysimple_tense_modal = testPappySubsimple_tense_modal . testPappySub3-testPappyPlusRule8 = testPappySubPlusRule8 . testPappySub3-testPappyStarRule177 = testPappySubStarRule177 . testPappySub3-testPappyStarRule178 = testPappySubStarRule178 . testPappySub3-testPappyPlusRule9 = testPappySubPlusRule9 . testPappySub3-testPappytime = testPappySubtime . testPappySub3-testPappyzeha_pu = testPappySubzeha_pu . testPappySub3-testPappytime_offset = testPappySubtime_offset . testPappySub3-testPappyPlusRule10 = testPappySubPlusRule10 . testPappySub3-testPappyStarRule181 = testPappySubStarRule181 . testPappySub3-testPappyspace = testPappySubspace . testPappySub3-testPappyspace_offset = testPappySubspace_offset . testPappySub3-testPappyspace_interval = testPappySubspace_interval . testPappySub3-testPappyVEhA_VIhA = testPappySubVEhA_VIhA . testPappySub3-testPappyPlusRule11 = testPappySubPlusRule11 . testPappySub3-testPappyinterval_property = testPappySubinterval_property . testPappySub3-testPappyPlusRule12 = testPappySubPlusRule12 . testPappySub3-testPappyStarRule188 = testPappySubStarRule188 . testPappySub3-testPappyPlusRule13 = testPappySubPlusRule13 . testPappySub3-testPappyStarRule189 = testPappySubStarRule189 . testPappySub3-testPappyvocative = testPappySubvocative . testPappySub3-testPappycoi_nai = testPappySubcoi_nai . testPappySub3-testPappyPlusRule14 = testPappySubPlusRule14 . testPappySub3-testPappyindicator = testPappySubindicator . testPappySub3-testPappyStarRule190 = testPappySubStarRule190 . testPappySub3-testPappyStarRule191 = testPappySubStarRule191 . testPappySub3-testPappyPlusRule15 = testPappySubPlusRule15 . testPappySub3-testPappyPlusRule16 = testPappySubPlusRule16 . testPappySub3-testPappypre_zei_bu = testPappySubpre_zei_bu . testPappySub3-testPappyStarRule192 = testPappySubStarRule192 . testPappySub3-testPappyStarRule193 = testPappySubStarRule193 . testPappySub3-testPappypost_clause = testPappySubpost_clause . testPappySub3-testPappypost_clause_no_ind = testPappySubpost_clause_no_ind . testPappySub4-testPappyany_word_SA_handling = testPappySubany_word_SA_handling . testPappySub4-testPappyStarRule194 = testPappySubStarRule194 . testPappySub4-testPappyPlusRule17 = testPappySubPlusRule17 . testPappySub4-testPappysi_clause_single = testPappySubsi_clause_single . testPappySub4-testPappyerasable_clause = testPappySuberasable_clause . testPappySub4-testPappyBRIVLA_pre = testPappySubBRIVLA_pre . testPappySub4-testPappyPlusRule18 = testPappySubPlusRule18 . testPappySub4-testPappyBAhE_clause_single = testPappySubBAhE_clause_single . testPappySub4-testPappyStarRule195 = testPappySubStarRule195 . testPappySub4-testPappyStarRule196 = testPappySubStarRule196 . testPappySub4-testPappyStarRule198 = testPappySubStarRule198 . testPappySub4-testPappyPlusRule19 = testPappySubPlusRule19 . testPappySub4-testPappycmene = testPappySubcmene . testPappySub4-testPappyStarRule200 = testPappySubStarRule200 . testPappySub4-testPappycmavo = testPappySubcmavo . testPappySub4-testPappyStarRule202 = testPappySubStarRule202 . testPappySub4-testPappyStarRule203 = testPappySubStarRule203 . testPappySub4-testPappystressed_extended_rafsi = testPappySubstressed_extended_rafsi . testPappySub4-testPappyextended_rafsi = testPappySubextended_rafsi . testPappySub4-testPappyStarRule205 = testPappySubStarRule205 . testPappySub4-testPappyStarRule206 = testPappySubStarRule206 . testPappySub4-testPappybrivla_head = testPappySubbrivla_head . testPappySub4-testPappyStarRule207 = testPappySubStarRule207 . testPappySub4-testPappyCVV_final_rafsi = testPappySubCVV_final_rafsi . testPappySub4-testPappyshort_final_rafsi = testPappySubshort_final_rafsi . testPappySub4-testPappystressed_y_rafsi = testPappySubstressed_y_rafsi . testPappySub4-testPappystressed_y_less_rafsi = testPappySubstressed_y_less_rafsi . testPappySub4-testPappystressed_long_rafsi = testPappySubstressed_long_rafsi . testPappySub4-testPappyy_rafsi = testPappySuby_rafsi . testPappySub4-testPappyy_less_rafsi = testPappySuby_less_rafsi . testPappySub4-testPappyr_hyphen = testPappySubr_hyphen . testPappySub4-testPappyfinal_syllable = testPappySubfinal_syllable . testPappySub4-testPappystressed_syllable = testPappySubstressed_syllable . testPappySub5-testPappystressed_vowel = testPappySubstressed_vowel . testPappySub5-testPappyunstressed_syllable = testPappySubunstressed_syllable . testPappySub5-testPappyStarRule208 = testPappySubStarRule208 . testPappySub5-testPappyconsonantal_syllable = testPappySubconsonantal_syllable . testPappySub5-testPappycoda = testPappySubcoda . testPappySub5-testPappyonset = testPappySubonset . testPappySub5-testPappyglide = testPappySubglide . testPappySub5-testPappydiphthong = testPappySubdiphthong . testPappySub5-testPappyvowel = testPappySubvowel . testPappySub5-testPappyPlusRule21 = testPappySubPlusRule21 . testPappySub5-testPappyinitial_pair = testPappySubinitial_pair . testPappySub5-testPappyinitial = testPappySubinitial . testPappySub5-testPappyl = testPappySubl . testPappySub5-testPappym = testPappySubm . testPappySub5-testPappyn = testPappySubn . testPappySub5-testPappyr = testPappySubr . testPappySub5-testPappyb = testPappySubb . testPappySub5-testPappyd = testPappySubd . testPappySub5-testPappyg = testPappySubg . testPappySub5-testPappyv = testPappySubv . testPappySub5-testPappyj = testPappySubj . testPappySub5-testPappyz = testPappySubz . testPappySub5-testPappys = testPappySubs . testPappySub5-testPappyc = testPappySubc . testPappySub5-testPappyx = testPappySubx . testPappySub5-testPappyk = testPappySubk . testPappySub5-testPappyf = testPappySubf . testPappySub5-testPappyp = testPappySubp . testPappySub5-testPappyt = testPappySubt . testPappySub5-testPappydigit = testPappySubdigit . testPappySub5-testPappypost_word = testPappySubpost_word . testPappySub5-testPappyPlusRule22 = testPappySubPlusRule22 . testPappySub5-testPappyPlusRule23 = testPappySubPlusRule23 . testPappySub6-testPappyStarRule236 = testPappySubStarRule236 . testPappySub6-testPappyStarRule237 = testPappySubStarRule237 . testPappySub6-testPappyA = testPappySubA . testPappySub6-testPappyBAI = testPappySubBAI . testPappySub6-testPappyBAhE = testPappySubBAhE . testPappySub6-testPappyBEhO = testPappySubBEhO . testPappySub6-testPappyBIhE = testPappySubBIhE . testPappySub6-testPappyBIhI = testPappySubBIhI . testPappySub6-testPappyBY = testPappySubBY . testPappySub6-testPappyCAhA = testPappySubCAhA . testPappySub6-testPappyCAI = testPappySubCAI . testPappySub6-testPappyCEhE = testPappySubCEhE . testPappySub6-testPappyCOI = testPappySubCOI . testPappySub6-testPappyCUhE = testPappySubCUhE . testPappySub6-testPappyDAhO = testPappySubDAhO . testPappySub6-testPappyDOhU = testPappySubDOhU . testPappySub6-testPappyFA = testPappySubFA . testPappySub6-testPappyFAhA = testPappySubFAhA . testPappySub6-testPappyFAhO = testPappySubFAhO . testPappySub6-testPappyFEhE = testPappySubFEhE . testPappySub6-testPappyFEhU = testPappySubFEhU . testPappySub6-testPappyFIhO = testPappySubFIhO . testPappySub6-testPappyFUhA = testPappySubFUhA . testPappySub6-testPappyFUhE = testPappySubFUhE . testPappySub6-testPappyFUhO = testPappySubFUhO . testPappySub6-testPappyGA = testPappySubGA . testPappySub6-testPappyGAhO = testPappySubGAhO . testPappySub6-testPappyGEhU = testPappySubGEhU . testPappySub6-testPappyGIhA = testPappySubGIhA . testPappySub6-testPappyGOI = testPappySubGOI . testPappySub6-testPappyGOhA = testPappySubGOhA . testPappySub6-testPappyGUhA = testPappySubGUhA . testPappySub6-testPappyJA = testPappySubJA . testPappySub7-testPappyJOhI = testPappySubJOhI . testPappySub7-testPappyJOI = testPappySubJOI . testPappySub7-testPappyKEhE = testPappySubKEhE . testPappySub7-testPappyKOhA = testPappySubKOhA . testPappySub7-testPappyKUhE = testPappySubKUhE . testPappySub7-testPappyKUhO = testPappySubKUhO . testPappySub7-testPappyLA = testPappySubLA . testPappySub7-testPappyLAU = testPappySubLAU . testPappySub7-testPappyLAhE = testPappySubLAhE . testPappySub7-testPappyLE = testPappySubLE . testPappySub7-testPappyLEhU = testPappySubLEhU . testPappySub7-testPappyLI = testPappySubLI . testPappySub7-testPappyLIhU = testPappySubLIhU . testPappySub7-testPappyLOhO = testPappySubLOhO . testPappySub7-testPappyLOhU = testPappySubLOhU . testPappySub7-testPappyLUhU = testPappySubLUhU . testPappySub7-testPappyMAhO = testPappySubMAhO . testPappySub7-testPappyMAI = testPappySubMAI . testPappySub7-testPappyMEhU = testPappySubMEhU . testPappySub7-testPappyMOhE = testPappySubMOhE . testPappySub7-testPappyMOhI = testPappySubMOhI . testPappySub7-testPappyMOI = testPappySubMOI . testPappySub7-testPappyNA = testPappySubNA . testPappySub7-testPappyNAhE = testPappySubNAhE . testPappySub7-testPappyNAhU = testPappySubNAhU . testPappySub7-testPappyNIhE = testPappySubNIhE . testPappySub7-testPappyNIhO = testPappySubNIhO . testPappySub7-testPappyNOI = testPappySubNOI . testPappySub7-testPappyNU = testPappySubNU . testPappySub7-testPappyNUhA = testPappySubNUhA . testPappySub7-testPappyNUhI = testPappySubNUhI . testPappySub7-testPappyNUhU = testPappySubNUhU . testPappySub7-testPappyPA = testPappySubPA . testPappySub8-testPappyPEhE = testPappySubPEhE . testPappySub8-testPappyPEhO = testPappySubPEhO . testPappySub8-testPappyPU = testPappySubPU . testPappySub8-testPappyRAhO = testPappySubRAhO . testPappySub8-testPappyROI = testPappySubROI . testPappySub8-testPappySE = testPappySubSE . testPappySub8-testPappySEI = testPappySubSEI . testPappySub8-testPappySEhU = testPappySubSEhU . testPappySub8-testPappySI = testPappySubSI . testPappySub8-testPappySU = testPappySubSU . testPappySub8-testPappyTAhE = testPappySubTAhE . testPappySub8-testPappyTEhU = testPappySubTEhU . testPappySub8-testPappyTO = testPappySubTO . testPappySub8-testPappyTUhE = testPappySubTUhE . testPappySub8-testPappyTUhU = testPappySubTUhU . testPappySub8-testPappyUI = testPappySubUI . testPappySub8-testPappyVA = testPappySubVA . testPappySub8-testPappyVEhO = testPappySubVEhO . testPappySub8-testPappyVUhU = testPappySubVUhU . testPappySub8-testPappyVEhA = testPappySubVEhA . testPappySub8-testPappyVIhA = testPappySubVIhA . testPappySub8-testPappyVUhO = testPappySubVUhO . testPappySub8-testPappyPlusRule24 = testPappySubPlusRule24 . testPappySub8-testPappyZAhO = testPappySubZAhO . testPappySub8-testPappyZEhA = testPappySubZEhA . testPappySub8-testPappyZI = testPappySubZI . testPappySub8-testPappyZIhE = testPappySubZIhE . testPappySub8-testPappyZOI = testPappySubZOI . testPappySub8-testPappyZOhU = testPappySubZOhU . testPappySub8-testPappydummyTail = testPappySubdummyTail . testPappySub8-testPappydummy = testPappySubdummy . testPappySub8--testPappyParse :: String -> String -> TestPappyDerivs-testPappyParse name text = testPappyDerivs (Pos name 1 1) text--testPappyDerivs :: Pos -> String -> TestPappyDerivs-testPappyDerivs pos text = dvs where- dvs = TestPappyDerivs- (testPappyDerivs0 dvs)- (testPappyDerivs1 dvs)- (testPappyDerivs2 dvs)- (testPappyDerivs3 dvs)- (testPappyDerivs4 dvs)- (testPappyDerivs5 dvs)- (testPappyDerivs6 dvs)- (testPappyDerivs7 dvs)- (testPappyDerivs8 dvs)- chr pos- chr = case text of- [] -> NoParse (eofError dvs)- (c:cs) -> Parsed c (testPappyDerivs (nextPos pos c) cs) (nullError dvs)--testPappyDerivs0 dvs = TestPappyDerivs0- (testPappyParseStarRule0 dvs)- (testPappyParsetext dvs)- (testPappyParseStarRule3 dvs)- (testPappyParsetext_1 dvs)- (testPappyParseparagraphs dvs)- (testPappyParsePlusRule2 dvs)- (testPappyParseStarRule8 dvs)- (testPappyParseStarRule9 dvs)- (testPappyParsestatement dvs)- (testPappyParseStarRule11 dvs)- (testPappyParsestatement_2 dvs)- (testPappyParsefragment dvs)- (testPappyParsesentence dvs)- (testPappyParseStarRule21 dvs)- (testPappyParseStarRule23 dvs)- (testPappyParsesubsentence dvs)- (testPappyParsebridi_tail dvs)- (testPappyParseStarRule26 dvs)- (testPappyParsebridi_tail_start dvs)- (testPappyParseStarRule27 dvs)- (testPappyParsebridi_tail_2 dvs)- (testPappyParsegek_sentence dvs)- (testPappyParsePlusRule3 dvs)- (testPappyParseStarRule34 dvs)- (testPappyParseStarRule35 dvs)- (testPappyParseStarRule37 dvs)- (testPappyParseStarRule38 dvs)- (testPappyParseStarRule40 dvs)- (testPappyParseStarRule41 dvs)- (testPappyParseStarRule42 dvs)- (testPappyParseterm_1 dvs)- (testPappyParseStarRule46 dvs)- (testPappyParseterm_start dvs)--testPappyDerivs1 dvs = TestPappyDerivs1- (testPappyParseterms_gik_terms dvs)- (testPappyParsesumti dvs)- (testPappyParseStarRule55 dvs)- (testPappyParsesumti_3 dvs)- (testPappyParsesumti_4 dvs)- (testPappyParsesumti_6 dvs)- (testPappyParseLAhE_NAhE dvs)- (testPappyParseStarRule73 dvs)- (testPappyParseStarRule75 dvs)- (testPappyParseStarRule76 dvs)- (testPappyParserelative_clause_1 dvs)- (testPappyParseselbri dvs)- (testPappyParseselbri_2 dvs)- (testPappyParsePlusRule5 dvs)- (testPappyParseStarRule83 dvs)- (testPappyParseselbri_5 dvs)- (testPappyParseselbri_6 dvs)- (testPappyParseStarRule89 dvs)- (testPappyParseStarRule104 dvs)- (testPappyParsetanru_unit_2 dvs)- (testPappyParseStarRule107 dvs)- (testPappyParselinkargs_1 dvs)- (testPappyParseStarRule110 dvs)- (testPappyParseStarRule111 dvs)- (testPappyParselinks_1 dvs)- (testPappyParseStarRule113 dvs)- (testPappyParsequantifier dvs)- (testPappyParseStarRule117 dvs)- (testPappyParseStarRule118 dvs)- (testPappyParsemex_0 dvs)- (testPappyParseStarRule119 dvs)- (testPappyParsemex_start dvs)- (testPappyParsemex_1 dvs)--testPappyDerivs2 dvs = TestPappyDerivs2- (testPappyParsemex_2 dvs)- (testPappyParserp_expression_tail dvs)- (testPappyParseStarRule124 dvs)- (testPappyParseStarRule125 dvs)- (testPappyParseStarRule128 dvs)- (testPappyParseoperator_start dvs)- (testPappyParseoperator_1 dvs)- (testPappyParseoperator_2 dvs)- (testPappyParsemex_operator dvs)- (testPappyParseStarRule139 dvs)- (testPappyParseoperand_0 dvs)- (testPappyParseStarRule142 dvs)- (testPappyParseoperand_start dvs)- (testPappyParseStarRule143 dvs)- (testPappyParseoperand_2 dvs)- (testPappyParsePlusRule7 dvs)- (testPappyParseoperand_3 dvs)- (testPappyParseStarRule154 dvs)- (testPappyParselerfu_word dvs)- (testPappyParseek dvs)- (testPappyParseStarRule155 dvs)- (testPappyParsegihek_1 dvs)- (testPappyParseStarRule156 dvs)- (testPappyParsejek dvs)- (testPappyParsejoik dvs)- (testPappyParseinterval dvs)- (testPappyParseStarRule157 dvs)- (testPappyParseStarRule160 dvs)- (testPappyParsegek dvs)- (testPappyParseguhek dvs)- (testPappyParsegik dvs)- (testPappyParseStarRule168 dvs)- (testPappyParseStarRule169 dvs)--testPappyDerivs3 dvs = TestPappyDerivs3- (testPappyParsetense_modal dvs)- (testPappyParsesimple_tense_modal dvs)- (testPappyParsePlusRule8 dvs)- (testPappyParseStarRule177 dvs)- (testPappyParseStarRule178 dvs)- (testPappyParsePlusRule9 dvs)- (testPappyParsetime dvs)- (testPappyParsezeha_pu dvs)- (testPappyParsetime_offset dvs)- (testPappyParsePlusRule10 dvs)- (testPappyParseStarRule181 dvs)- (testPappyParsespace dvs)- (testPappyParsespace_offset dvs)- (testPappyParsespace_interval dvs)- (testPappyParseVEhA_VIhA dvs)- (testPappyParsePlusRule11 dvs)- (testPappyParseinterval_property dvs)- (testPappyParsePlusRule12 dvs)- (testPappyParseStarRule188 dvs)- (testPappyParsePlusRule13 dvs)- (testPappyParseStarRule189 dvs)- (testPappyParsevocative dvs)- (testPappyParsecoi_nai dvs)- (testPappyParsePlusRule14 dvs)- (testPappyParseindicator dvs)- (testPappyParseStarRule190 dvs)- (testPappyParseStarRule191 dvs)- (testPappyParsePlusRule15 dvs)- (testPappyParsePlusRule16 dvs)- (testPappyParsepre_zei_bu dvs)- (testPappyParseStarRule192 dvs)- (testPappyParseStarRule193 dvs)- (testPappyParsepost_clause dvs)--testPappyDerivs4 dvs = TestPappyDerivs4- (testPappyParsepost_clause_no_ind dvs)- (testPappyParseany_word_SA_handling dvs)- (testPappyParseStarRule194 dvs)- (testPappyParsePlusRule17 dvs)- (testPappyParsesi_clause_single dvs)- (testPappyParseerasable_clause dvs)- (testPappyParseBRIVLA_pre dvs)- (testPappyParsePlusRule18 dvs)- (testPappyParseBAhE_clause_single dvs)- (testPappyParseStarRule195 dvs)- (testPappyParseStarRule196 dvs)- (testPappyParseStarRule198 dvs)- (testPappyParsePlusRule19 dvs)- (testPappyParsecmene dvs)- (testPappyParseStarRule200 dvs)- (testPappyParsecmavo dvs)- (testPappyParseStarRule202 dvs)- (testPappyParseStarRule203 dvs)- (testPappyParsestressed_extended_rafsi dvs)- (testPappyParseextended_rafsi dvs)- (testPappyParseStarRule205 dvs)- (testPappyParseStarRule206 dvs)- (testPappyParsebrivla_head dvs)- (testPappyParseStarRule207 dvs)- (testPappyParseCVV_final_rafsi dvs)- (testPappyParseshort_final_rafsi dvs)- (testPappyParsestressed_y_rafsi dvs)- (testPappyParsestressed_y_less_rafsi dvs)- (testPappyParsestressed_long_rafsi dvs)- (testPappyParsey_rafsi dvs)- (testPappyParsey_less_rafsi dvs)- (testPappyParser_hyphen dvs)- (testPappyParsefinal_syllable dvs)--testPappyDerivs5 dvs = TestPappyDerivs5- (testPappyParsestressed_syllable dvs)- (testPappyParsestressed_vowel dvs)- (testPappyParseunstressed_syllable dvs)- (testPappyParseStarRule208 dvs)- (testPappyParseconsonantal_syllable dvs)- (testPappyParsecoda dvs)- (testPappyParseonset dvs)- (testPappyParseglide dvs)- (testPappyParsediphthong dvs)- (testPappyParsevowel dvs)- (testPappyParsePlusRule21 dvs)- (testPappyParseinitial_pair dvs)- (testPappyParseinitial dvs)- (testPappyParsel dvs)- (testPappyParsem dvs)- (testPappyParsen dvs)- (testPappyParser dvs)- (testPappyParseb dvs)- (testPappyParsed dvs)- (testPappyParseg dvs)- (testPappyParsev dvs)- (testPappyParsej dvs)- (testPappyParsez dvs)- (testPappyParses dvs)- (testPappyParsec dvs)- (testPappyParsex dvs)- (testPappyParsek dvs)- (testPappyParsef dvs)- (testPappyParsep dvs)- (testPappyParset dvs)- (testPappyParsedigit dvs)- (testPappyParsepost_word dvs)- (testPappyParsePlusRule22 dvs)--testPappyDerivs6 dvs = TestPappyDerivs6- (testPappyParsePlusRule23 dvs)- (testPappyParseStarRule236 dvs)- (testPappyParseStarRule237 dvs)- (testPappyParseA dvs)- (testPappyParseBAI dvs)- (testPappyParseBAhE dvs)- (testPappyParseBEhO dvs)- (testPappyParseBIhE dvs)- (testPappyParseBIhI dvs)- (testPappyParseBY dvs)- (testPappyParseCAhA dvs)- (testPappyParseCAI dvs)- (testPappyParseCEhE dvs)- (testPappyParseCOI dvs)- (testPappyParseCUhE dvs)- (testPappyParseDAhO dvs)- (testPappyParseDOhU dvs)- (testPappyParseFA dvs)- (testPappyParseFAhA dvs)- (testPappyParseFAhO dvs)- (testPappyParseFEhE dvs)- (testPappyParseFEhU dvs)- (testPappyParseFIhO dvs)- (testPappyParseFUhA dvs)- (testPappyParseFUhE dvs)- (testPappyParseFUhO dvs)- (testPappyParseGA dvs)- (testPappyParseGAhO dvs)- (testPappyParseGEhU dvs)- (testPappyParseGIhA dvs)- (testPappyParseGOI dvs)- (testPappyParseGOhA dvs)- (testPappyParseGUhA dvs)--testPappyDerivs7 dvs = TestPappyDerivs7- (testPappyParseJA dvs)- (testPappyParseJOhI dvs)- (testPappyParseJOI dvs)- (testPappyParseKEhE dvs)- (testPappyParseKOhA dvs)- (testPappyParseKUhE dvs)- (testPappyParseKUhO dvs)- (testPappyParseLA dvs)- (testPappyParseLAU dvs)- (testPappyParseLAhE dvs)- (testPappyParseLE dvs)- (testPappyParseLEhU dvs)- (testPappyParseLI dvs)- (testPappyParseLIhU dvs)- (testPappyParseLOhO dvs)- (testPappyParseLOhU dvs)- (testPappyParseLUhU dvs)- (testPappyParseMAhO dvs)- (testPappyParseMAI dvs)- (testPappyParseMEhU dvs)- (testPappyParseMOhE dvs)- (testPappyParseMOhI dvs)- (testPappyParseMOI dvs)- (testPappyParseNA dvs)- (testPappyParseNAhE dvs)- (testPappyParseNAhU dvs)- (testPappyParseNIhE dvs)- (testPappyParseNIhO dvs)- (testPappyParseNOI dvs)- (testPappyParseNU dvs)- (testPappyParseNUhA dvs)- (testPappyParseNUhI dvs)- (testPappyParseNUhU dvs)--testPappyDerivs8 dvs = TestPappyDerivs8- (testPappyParsePA dvs)- (testPappyParsePEhE dvs)- (testPappyParsePEhO dvs)- (testPappyParsePU dvs)- (testPappyParseRAhO dvs)- (testPappyParseROI dvs)- (testPappyParseSE dvs)- (testPappyParseSEI dvs)- (testPappyParseSEhU dvs)- (testPappyParseSI dvs)- (testPappyParseSU dvs)- (testPappyParseTAhE dvs)- (testPappyParseTEhU dvs)- (testPappyParseTO dvs)- (testPappyParseTUhE dvs)- (testPappyParseTUhU dvs)- (testPappyParseUI dvs)- (testPappyParseVA dvs)- (testPappyParseVEhO dvs)- (testPappyParseVUhU dvs)- (testPappyParseVEhA dvs)- (testPappyParseVIhA dvs)- (testPappyParseVUhO dvs)- (testPappyParsePlusRule24 dvs)- (testPappyParseZAhO dvs)- (testPappyParseZEhA dvs)- (testPappyParseZI dvs)- (testPappyParseZIhE dvs)- (testPappyParseZOI dvs)- (testPappyParseZOhU dvs)- (testPappyParsedummyTail dvs)- (testPappyParsedummy dvs)--testPappytest :: TestPappyDerivs -> Result TestPappyDerivs (Text)-testPappytest d =- case testPappytext d of- Parsed t d1 e1 ->- case testPappyanyChar d1 of- NoParse e3 ->- Parsed ( t ) d1 (max e3 e1)- Parsed _ _ e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule0 :: TestPappyDerivs -> Result TestPappyDerivs ([Clause])-testPappyParseStarRule0 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyNAI_clause d of- Parsed v d3 e3 ->- case testPappyStarRule0 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsetext :: TestPappyDerivs -> Result TestPappyDerivs (Text)-testPappyParsetext d =- case pappyResult1 of- Parsed _ d1 e1 ->- case testPappyStarRule8 d1 of- Parsed _ d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- case testPappyStarRule3 d5 of- Parsed _ d7 e7 ->- case testPappyStarRule0 d7 of- Parsed n d9 e9 ->- case pappyResult11 of- Parsed tp2 d11 e11 ->- case pappyResult13 of- Parsed jj d13 e13 ->- case pappyResult15 of- Parsed t d15 e15 ->- case pappyResult17 of- Parsed f d17 e17 ->- case pappyResult19 of- Parsed _ d19 e19 ->- Parsed ( if isSimpleText n tp2 jj t f then fromJust t else TopText n (fst tp2) (snd tp2) jj t f ) d19 (maximum [e19,e17,e15,e13,e11,e9,e7,e5,e3,e1])- NoParse e19 -> NoParse (maximum [e19,e17,e15,e13,e11,e9,e7,e5,e3,e1])- where- pappyResult19 =- case pappyResult21 of- Parsed v21 d21 e21 -> Parsed (Just v21) d21 e21- NoParse e21 -> Parsed (Nothing) d17 e21- where- pappyResult21 =- case testPappyanyChar d17 of- NoParse e23 ->- Parsed ( () ) d17 e23- Parsed _ _ e23 -> NoParse e23- NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9,e7,e5,e3,e1])- where- pappyResult17 =- case pappyResult19 of- Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19- NoParse e19 -> Parsed (Nothing) d15 e19- where- pappyResult19 =- case testPappyFAhO_clause d15 of- Parsed f d21 e21 ->- case testPappyStarRule192 d21 of- Parsed _ d23 e23 ->- Parsed ( f ) d23 (max e23 e21)- NoParse e23 -> NoParse (max e23 e21)- NoParse e21 -> NoParse e21- NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7,e5,e3,e1])- where- pappyResult15 =- case testPappytext_1 d13 of- Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17- NoParse e17 -> Parsed (Nothing) d13 e17- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7,e5,e3,e1])- where- pappyResult13 =- case pappyResult15 of- Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15- NoParse e15 -> Parsed (Nothing) d11 e15- where- pappyResult15 =- case testPappytext_1 d11 of- NoParse e17 ->- case testPappyjoik_jek d11 of- Parsed j d19 e19 ->- Parsed ( j ) d19 (max e19 e17)- NoParse e19 -> NoParse (max e19 e17)- Parsed _ _ e17 -> NoParse e17- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- where- pappyResult11 =- case pappyResult13 of- Parsed e d13 e13 ->- case testPappyStarRule188 d13 of- Parsed f d15 e15 ->- Parsed ( (e, f) ) d15 (max e15 e13)- NoParse e15 -> NoParse (max e15 e13)- NoParse e13 -> NoParse e13- where- pappyResult13 =- pappyAlt15_1 (ParseError (testPappyPos d9) []) where- pappyAlt15_1 e15 =- case testPappyPlusRule12 d9 of- Parsed c d17 e17 ->- Parsed ( Left c ) d17 (max e17 e15)- NoParse e17 -> pappyAlt15_2 (max e17 e15)- pappyAlt15_2 e15 =- case pappyResult17 of- Parsed i d17 e17 ->- Parsed ( Right i ) d17 (max e17 e15)- NoParse e17 -> pappyAlt15_3 (max e17 e15)- where- pappyResult17 =- case testPappyindicators d9 of- Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19- NoParse e19 -> Parsed (Nothing) d9 e19- pappyAlt15_3 e15 = NoParse e15- NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case pappyResult7 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- where- pappyResult7 =- case testPappyPlusRule17 d3 of- Parsed _ d9 e9 ->- Parsed ( () ) d9 e9- NoParse e9 -> NoParse e9- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyspaces d of- Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3- NoParse e3 -> Parsed (Nothing) d e3--testPappyParseStarRule3 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule3 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappySI_clause d of- Parsed v d3 e3 ->- case testPappyStarRule3 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsetext_1 :: TestPappyDerivs -> Result TestPappyDerivs (Text)-testPappyParsetext_1 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyI_clause d of- Parsed i d3 e3 ->- case pappyResult5 of- Parsed j d5 e5 ->- case pappyResult7 of- Parsed b d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- case pappyResult11 of- Parsed t d11 e11 ->- Parsed ( IText_1 i j b f t ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])- where- pappyResult11 =- case testPappytext_1 d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case pappyResult9 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- where- pappyResult9 =- case pappyResult11 of- Parsed s d11 e11 ->- case testPappyBO_clause d11 of- Parsed b d13 e13 ->- Parsed ( (s, b) ) d13 (max e13 e11)- NoParse e13 -> NoParse (max e13 e11)- NoParse e11 -> NoParse e11- where- pappyResult11 =- case testPappystag d5 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d5 e13- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- where- pappyResult5 =- case pappyResult7 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d3) []) where- pappyAlt9_1 e9 =- case testPappyjek d3 of- Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappyjoik d3 of- Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyPlusRule2 d of- Parsed n d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappyStarRule8 d5 of- Parsed _ d7 e7 ->- case pappyResult9 of- Parsed p d9 e9 ->- Parsed ( HeadNIhO n f p ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case testPappyparagraphs d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyparagraphs d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappyParseparagraphs :: TestPappyDerivs -> Result TestPappyDerivs (Paragraphs)-testPappyParseparagraphs d =- case pappyResult1 of- Parsed p d1 e1 ->- case pappyResult3 of- Parsed n d3 e3 ->- Parsed ( maybe p (uncurry3 $ NIhO p) n ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case testPappyPlusRule2 d1 of- Parsed n d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- case testPappyStarRule8 d9 of- Parsed _ d11 e11 ->- case testPappyparagraphs d11 of- Parsed p d13 e13 ->- Parsed ( (n, f, p) ) d13 (maximum [e13,e11,e9,e7])- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])- NoParse e11 -> NoParse (maximum [e11,e9,e7])- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- NoParse e1 -> NoParse e1- where- pappyResult1 =- case pappyResult3 of- Parsed s d3 e3 ->- case testPappyStarRule9 d3 of- Parsed i d5 e5 ->- Parsed ( if null i then s else StatementI s i ) d5 (max e5 e3)- NoParse e5 -> NoParse (max e5 e3)- NoParse e3 -> NoParse e3- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappystatement d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyfragment d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5--testPappyParsePlusRule2 :: TestPappyDerivs -> Result TestPappyDerivs ([Clause])-testPappyParsePlusRule2 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyNIhO_clause d of- Parsed v d3 e3 ->- case testPappyPlusRule2 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyNIhO_clause d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule8 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule8 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule8 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyStarRule194 d of- Parsed _ d5 e5 ->- case testPappySU_clause d5 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule9 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, [Free], Maybe Statement) ])-testPappyParseStarRule9 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule9 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyI_clause d of- Parsed i d5 e5 ->- case testPappyjek d5 of- NoParse e7 ->- case testPappyjoik d5 of- NoParse e9 ->- case testPappyjoik_jek d5 of- NoParse e11 ->- case testPappyStarRule188 d5 of- Parsed f d13 e13 ->- case pappyResult15 of- Parsed s d15 e15 ->- Parsed ( (i, f, s) ) d15 (maximum [e15,e13,e11,e9,e7,e5])- NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7,e5])- where- pappyResult15 =- case pappyResult17 of- Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17- NoParse e17 -> Parsed (Nothing) d13 e17- where- pappyResult17 =- pappyAlt19_1 (ParseError (testPappyPos d13) []) where- pappyAlt19_1 e19 =- case testPappystatement d13 of- Parsed v21 d21 e21 -> Parsed v21 d21 (max e21 e19)- NoParse e21 -> pappyAlt19_2 (max e21 e19)- pappyAlt19_2 e19 =- case testPappyfragment d13 of- Parsed v21 d21 e21 -> Parsed v21 d21 (max e21 e19)- NoParse e21 -> pappyAlt19_3 (max e21 e19)- pappyAlt19_3 e19 = NoParse e19- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5])- Parsed _ _ e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsestatement :: TestPappyDerivs -> Result TestPappyDerivs (Statement)-testPappyParsestatement d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappystatement_2 d of- Parsed s d3 e3 ->- case testPappyStarRule11 d3 of- Parsed i d5 e5 ->- Parsed ( if null i then s else IJoikJek s i ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyprenex d of- Parsed p d3 e3 ->- case testPappystatement d3 of- Parsed s d5 e5 ->- Parsed ( let (t, z, f) = p in Prenex t z f s ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule11 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, JoikJek, [Free], Maybe Statement) ])-testPappyParseStarRule11 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule11 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyI_clause d of- Parsed i d5 e5 ->- case testPappyjoik_jek d5 of- Parsed j d7 e7 ->- case pappyResult9 of- Parsed s d9 e9 ->- Parsed ( (i, fst j, snd j, s) ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- where- pappyResult9 =- case testPappystatement_2 d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsestatement_2 :: TestPappyDerivs -> Result TestPappyDerivs (Statement)-testPappyParsestatement_2 d =- case pappyResult1 of- Parsed s3 d1 e1 ->- case pappyResult3 of- Parsed ib d3 e3 ->- Parsed ( maybe s3 ($ s3) ib ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case testPappyI_clause d1 of- Parsed i d7 e7 ->- case pappyResult9 of- Parsed j d9 e9 ->- case pappyResult11 of- Parsed t d11 e11 ->- case testPappyBO_clause d11 of- Parsed b d13 e13 ->- case testPappyStarRule188 d13 of- Parsed f d15 e15 ->- case pappyResult17 of- Parsed s d17 e17 ->- Parsed ( \s3 -> maybe (IBO s3 i j t b f) (IBOStatement s3 i j t b f) s ) d17 (maximum [e17,e15,e13,e11,e9,e7])- NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9,e7])- where- pappyResult17 =- case testPappystatement_2 d15 of- Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19- NoParse e19 -> Parsed (Nothing) d15 e19- NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])- NoParse e11 -> NoParse (maximum [e11,e9,e7])- where- pappyResult11 =- case testPappystag d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> NoParse (max e9 e7)- where- pappyResult9 =- case pappyResult11 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- where- pappyResult11 =- pappyAlt13_1 (ParseError (testPappyPos d7) []) where- pappyAlt13_1 e13 =- case testPappyjek d7 of- Parsed v15 d15 e15 -> Parsed v15 d15 (max e15 e13)- NoParse e15 -> pappyAlt13_2 (max e15 e13)- pappyAlt13_2 e13 =- case testPappyjoik d7 of- Parsed v15 d15 e15 -> Parsed v15 d15 (max e15 e13)- NoParse e15 -> pappyAlt13_3 (max e15 e13)- pappyAlt13_3 e13 = NoParse e13- NoParse e7 -> NoParse e7- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (testPappyPos d) []) where- pappyAlt3_1 e3 =- case testPappysentence d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case pappyResult5 of- Parsed tag d5 e5 ->- case testPappyTUhE_clause d5 of- Parsed tuhe d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- case testPappytext_1 d9 of- Parsed text d11 e11 ->- case pappyResult13 of- Parsed tuhu d13 e13 ->- case testPappyStarRule188 d13 of- Parsed g d15 e15 ->- Parsed ( TUhE tag tuhe f text tuhu g ) d15 (maximum [e15,e13,e11,e9,e7,e5,e3])- NoParse e15 -> pappyAlt3_3 (maximum [e15,e13,e11,e9,e7,e5,e3])- NoParse e13 -> pappyAlt3_3 (maximum [e13,e11,e9,e7,e5,e3])- where- pappyResult13 =- case pappyResult15 of- Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15- NoParse e15 -> Parsed (Nothing) d11 e15- where- pappyResult15 =- case testPappyTUhU_pre d11 of- Parsed p d17 e17 ->- case testPappypost_clause d17 of- Parsed q d19 e19 ->- Parsed ( (fst p, snd p, q) ) d19 (max e19 e17)- NoParse e19 -> NoParse (max e19 e17)- NoParse e17 -> NoParse e17- NoParse e11 -> pappyAlt3_3 (maximum [e11,e9,e7,e5,e3])- NoParse e9 -> pappyAlt3_3 (maximum [e9,e7,e5,e3])- NoParse e7 -> pappyAlt3_3 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_3 (max e5 e3)- where- pappyResult5 =- case testPappytag d of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d e7- pappyAlt3_3 e3 = NoParse e3--testPappyParsefragment :: TestPappyDerivs -> Result TestPappyDerivs (Fragment)-testPappyParsefragment d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyprenex d of- Parsed p d3 e3 ->- Parsed ( uncurry3 FPrenex p ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyPlusRule3 d of- Parsed t d3 e3 ->- case pappyResult5 of- Parsed v d5 e5 ->- case testPappyStarRule188 d5 of- Parsed f d7 e7 ->- Parsed ( FTermsVAU t v f ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyVAU_clause d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyek d of- Parsed e d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( FEk e f ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case testPappygihek d of- Parsed g d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( FGihek g f ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 =- case testPappyquantifier d of- Parsed q d3 e3 ->- Parsed ( FQuantifier q ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_6 (max e3 e1)- pappyAlt1_6 e1 =- case testPappyNA_clause d of- Parsed n d3 e3 ->- case testPappyJA_clause d3 of- NoParse e5 ->- case testPappyStarRule188 d3 of- Parsed f d7 e7 ->- Parsed ( FNA n f ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_7 (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> pappyAlt1_7 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_7 (max e3 e1)- pappyAlt1_7 e1 =- case testPappyrelative_clause d of- Parsed r d3 e3 ->- Parsed ( FRelativeClause r ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_8 (max e3 e1)- pappyAlt1_8 e1 =- case testPappylinks d of- Parsed l d3 e3 ->- Parsed ( FLinks l ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_9 (max e3 e1)- pappyAlt1_9 e1 =- case testPappylinkargs d of- Parsed l d3 e3 ->- Parsed ( FLinkargs l ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_10 (max e3 e1)- pappyAlt1_10 e1 = NoParse e1--testPappyprenex :: TestPappyDerivs -> Result TestPappyDerivs ( ([Term], Clause, [Free]) )-testPappyprenex d =- case testPappyPlusRule3 d of- Parsed t d1 e1 ->- case pappyResult3 of- Parsed z d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( (t, z, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyZOhU_pre d1 of- Parsed p d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParsesentence :: TestPappyDerivs -> Result TestPappyDerivs (Sentence)-testPappyParsesentence d =- case pappyResult1 of- Parsed h d1 e1 ->- case testPappyStarRule21 d1 of- Parsed _ d3 e3 ->- case testPappybridi_tail d3 of- Parsed bt d5 e5 ->- Parsed ( maybe bt (\(ts, c, f) -> TermsBridiTail ts c f bt) h ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- case pappyResult3 of- Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3- NoParse e3 -> Parsed (Nothing) d e3- where- pappyResult3 =- case testPappyPlusRule3 d of- Parsed t d5 e5 ->- case testPappyStarRule21 d5 of- Parsed _ d7 e7 ->- case pappyResult9 of- Parsed c d9 e9 ->- case testPappyStarRule188 d9 of- Parsed f d11 e11 ->- Parsed ( (t, c, f) ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- where- pappyResult9 =- case testPappyCU_clause d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5--testPappyParseStarRule21 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule21 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule21 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappybridi_tail_start d of- Parsed _ d5 e5 ->- case testPappyStarRule26 d5 of- Parsed _ d7 e7 ->- case testPappySA_clause d7 of- Parsed _ d9 e9 ->- case testPappybridi_tail d9 of- Parsed _ _ e11 ->- Parsed ( () ) d9 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule23 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule23 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule23 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappysentence_start d of- NoParse e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d) []) where- pappyAlt9_1 e9 =- case testPappypre_zei_bu d of- Parsed _ d11 e11 ->- Parsed ( () ) d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappySA_clause d of- Parsed _ d11 e11 ->- case testPappysentence_start d11 of- NoParse e13 ->- Parsed ( () ) d11 (maximum [e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- Parsed _ _ e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappysentence_start :: TestPappyDerivs -> Result TestPappyDerivs ( () )-testPappysentence_start d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyI_pre d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyNIhO_pre d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParsesubsentence :: TestPappyDerivs -> Result TestPappyDerivs (Sentence)-testPappyParsesubsentence d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappysentence d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyprenex d of- Parsed p d3 e3 ->- case testPappysubsentence d3 of- Parsed s d5 e5 ->- Parsed ( uncurry3 PrenexSentence p s ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParsebridi_tail :: TestPappyDerivs -> Result TestPappyDerivs (Sentence)-testPappyParsebridi_tail d =- case pappyResult1 of- Parsed b d1 e1 ->- case pappyResult3 of- Parsed g d3 e3 ->- Parsed ( maybe b (\(g, t, ke, f, b, kehe, h, (u, v, i)) ->- GihekKE b g t ke f b kehe h u v i) g ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case testPappygihek d1 of- Parsed g d7 e7 ->- case pappyResult9 of- Parsed t d9 e9 ->- case testPappyKE_clause d9 of- Parsed ke d11 e11 ->- case testPappyStarRule188 d11 of- Parsed f d13 e13 ->- case testPappybridi_tail d13 of- Parsed b d15 e15 ->- case pappyResult17 of- Parsed kehe d17 e17 ->- case testPappyStarRule188 d17 of- Parsed h d19 e19 ->- case testPappytail_terms d19 of- Parsed tts d21 e21 ->- Parsed ( (g, t, ke, f, b, kehe, h, tts) ) d21 (maximum [e21,e19,e17,e15,e13,e11,e9,e7])- NoParse e21 -> NoParse (maximum [e21,e19,e17,e15,e13,e11,e9,e7])- NoParse e19 -> NoParse (maximum [e19,e17,e15,e13,e11,e9,e7])- NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9,e7])- where- pappyResult17 =- case testPappyKEhE_clause d15 of- Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19- NoParse e19 -> Parsed (Nothing) d15 e19- NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])- NoParse e11 -> NoParse (maximum [e11,e9,e7])- NoParse e9 -> NoParse (max e9 e7)- where- pappyResult9 =- case testPappystag d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> NoParse e7- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappybridi_tail_2 d of- Parsed b d3 e3 ->- case testPappyStarRule27 d3 of- Parsed g d5 e5 ->- Parsed ( if null g then b else GihekSentence b g ) d5 (max e5 e3)- NoParse e5 -> NoParse (max e5 e3)- NoParse e3 -> NoParse e3--testPappyParseStarRule26 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule26 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule26 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyterm d of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappybridi_tail_start d of- NoParse e7 ->- case pappyResult9 of- Parsed _ d9 e9 ->- Parsed ( () ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- where- pappyResult9 =- pappyAlt11_1 (ParseError (testPappyPos d) []) where- pappyAlt11_1 e11 =- case testPappypre_zei_bu d of- Parsed _ d13 e13 ->- Parsed ( () ) d13 (max e13 e11)- NoParse e13 -> pappyAlt11_2 (max e13 e11)- pappyAlt11_2 e11 =- case testPappySA_clause d of- Parsed _ d13 e13 ->- case testPappybridi_tail_start d13 of- NoParse e15 ->- Parsed ( () ) d13 (maximum [e15,e13,e11])- Parsed _ _ e15 -> pappyAlt11_3 (maximum [e15,e13,e11])- NoParse e13 -> pappyAlt11_3 (max e13 e11)- pappyAlt11_3 e11 = NoParse e11- Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsebridi_tail_start :: TestPappyDerivs -> Result TestPappyDerivs ( () )-testPappyParsebridi_tail_start d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyME_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyNUhA_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyNU_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case testPappyNA_clause d of- Parsed _ d3 e3 ->- case testPappyKU_clause d3 of- NoParse e5 ->- Parsed ( () ) d3 (maximum [e5,e3,e1])- Parsed _ _ e5 -> pappyAlt1_5 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 =- case testPappyNAhE_clause d of- Parsed _ d3 e3 ->- case testPappyBO_clause d3 of- NoParse e5 ->- Parsed ( () ) d3 (maximum [e5,e3,e1])- Parsed _ _ e5 -> pappyAlt1_6 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_6 (max e3 e1)- pappyAlt1_6 e1 =- case testPappyselbri d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_7 (max e3 e1)- pappyAlt1_7 e1 =- case testPappytag d of- Parsed _ d3 e3 ->- case testPappybridi_tail_start d3 of- Parsed _ d5 e5 ->- Parsed ( () ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_8 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_8 (max e3 e1)- pappyAlt1_8 e1 =- case testPappyKE_clause d of- Parsed _ d3 e3 ->- case testPappybridi_tail_start d3 of- Parsed _ d5 e5 ->- Parsed ( () ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_9 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_9 (max e3 e1)- pappyAlt1_9 e1 =- case testPappybridi_tail d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_10 (max e3 e1)- pappyAlt1_10 e1 = NoParse e1--testPappyParseStarRule27 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Gihek, [Free], Sentence, [Term], Maybe Clause, [Free]) ])-testPappyParseStarRule27 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule27 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappygihek d of- Parsed g d5 e5 ->- case pappyResult7 of- NoParse e7 ->- case pappyResult9 of- NoParse e9 ->- case testPappyStarRule188 d5 of- Parsed f d11 e11 ->- case testPappybridi_tail_2 d11 of- Parsed b d13 e13 ->- case testPappytail_terms d13 of- Parsed tvi d15 e15 ->- Parsed ( let (t, v, i) = tvi in (g, f, b, t, v, i) ) d15 (maximum [e15,e13,e11,e9,e7,e5])- NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7,e5])- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5])- where- pappyResult9 =- case pappyResult11 of- Parsed _ d11 e11 ->- case testPappyKE_clause d11 of- Parsed _ d13 e13 ->- Parsed ( () ) d13 (max e13 e11)- NoParse e13 -> NoParse (max e13 e11)- NoParse e11 -> NoParse e11- where- pappyResult11 =- case testPappystag d5 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d5 e13- Parsed _ _ e7 -> NoParse (max e7 e5)- where- pappyResult7 =- case pappyResult9 of- Parsed _ d9 e9 ->- case testPappyBO_clause d9 of- Parsed _ d11 e11 ->- Parsed ( () ) d11 (max e11 e9)- NoParse e11 -> NoParse (max e11 e9)- NoParse e9 -> NoParse e9- where- pappyResult9 =- case testPappystag d5 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d5 e11- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsebridi_tail_2 :: TestPappyDerivs -> Result TestPappyDerivs (Sentence)-testPappyParsebridi_tail_2 d =- case pappyResult1 of- Parsed b3 d1 e1 ->- case pappyResult3 of- Parsed g d3 e3 ->- Parsed ( maybe b3 (\(h, s, bo, f, bt, (t, v, i)) -> GihekBO b3 h s bo f bt t v i) g ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case testPappygihek d1 of- Parsed g d7 e7 ->- case pappyResult9 of- Parsed s d9 e9 ->- case testPappyBO_clause d9 of- Parsed bo d11 e11 ->- case testPappyStarRule188 d11 of- Parsed f d13 e13 ->- case testPappybridi_tail_2 d13 of- Parsed bt d15 e15 ->- case testPappytail_terms d15 of- Parsed t d17 e17 ->- Parsed ( (g, s, bo, f, bt, t) ) d17 (maximum [e17,e15,e13,e11,e9,e7])- NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9,e7])- NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])- NoParse e11 -> NoParse (maximum [e11,e9,e7])- NoParse e9 -> NoParse (max e9 e7)- where- pappyResult9 =- case testPappystag d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> NoParse e7- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (testPappyPos d) []) where- pappyAlt3_1 e3 =- case testPappyselbri d of- Parsed s d5 e5 ->- case testPappytail_terms d5 of- Parsed tvf d7 e7 ->- Parsed ( case tvf of ([], Nothing, []) -> Selbri s; (t, v, f) -> SelbriTailTerms s t v f ) d7 (maximum [e7,e5,e3])- NoParse e7 -> pappyAlt3_2 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case testPappygek_sentence d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 = NoParse e3--testPappyParsegek_sentence :: TestPappyDerivs -> Result TestPappyDerivs (Sentence)-testPappyParsegek_sentence d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappygek d of- Parsed gek d3 e3 ->- case testPappysubsentence d3 of- Parsed s d5 e5 ->- case testPappygik d5 of- Parsed gik d7 e7 ->- case testPappysubsentence d7 of- Parsed t d9 e9 ->- case testPappytail_terms d9 of- Parsed tts d11 e11 ->- Parsed ( uncurry3 (GekSentence gek s gik t) tts ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed t d3 e3 ->- case testPappyKE_clause d3 of- Parsed ke d5 e5 ->- case testPappyStarRule188 d5 of- Parsed f d7 e7 ->- case testPappygek_sentence d7 of- Parsed gs d9 e9 ->- case pappyResult11 of- Parsed kehe d11 e11 ->- case testPappyStarRule188 d11 of- Parsed g d13 e13 ->- Parsed ( KEGekSentence t ke f gs kehe g ) d13 (maximum [e13,e11,e9,e7,e5,e3,e1])- NoParse e13 -> pappyAlt1_3 (maximum [e13,e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])- where- pappyResult11 =- case testPappyKEhE_clause d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- case testPappytag d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_3 e1 =- case testPappyNA_clause d of- Parsed n d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappygek_sentence d5 of- Parsed gs d7 e7 ->- Parsed ( NAGekSentence n f gs ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappytail_terms :: TestPappyDerivs -> Result TestPappyDerivs ( ([Term], Maybe Clause, [Free]) )-testPappytail_terms d =- case pappyResult1 of- Parsed t d1 e1 ->- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( (fromMaybe [] t, v, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyVAU_clause d1 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyPlusRule3 d of- Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3- NoParse e3 -> Parsed (Nothing) d e3--testPappyParsePlusRule3 :: TestPappyDerivs -> Result TestPappyDerivs ([Term])-testPappyParsePlusRule3 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyterms_1 d of- Parsed v d3 e3 ->- case testPappyPlusRule3 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyterms_1 d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule34 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, [Free], JoikJek, [Free], Term) ])-testPappyParseStarRule34 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule34 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyStarRule35 d of- Parsed _ d5 e5 ->- case testPappyPEhE_clause d5 of- Parsed p d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- case testPappyjoik_jek d9 of- Parsed j d11 e11 ->- case testPappyterms_2 d11 of- Parsed t d13 e13 ->- Parsed ( (p, f, fst j, snd j, t) ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyterms_1 :: TestPappyDerivs -> Result TestPappyDerivs (Term)-testPappyterms_1 d =- case testPappyterms_2 d of- Parsed t d1 e1 ->- case testPappyStarRule34 d1 of- Parsed pfjt d3 e3 ->- Parsed ( if null pfjt then t else TermsPEhETerms t pfjt ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule35 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule35 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule35 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyPEhE_clause d of- Parsed _ d5 e5 ->- case testPappyStarRule40 d5 of- Parsed _ d7 e7 ->- case testPappySA_clause d7 of- Parsed _ d9 e9 ->- Parsed ( () ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule37 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, [Free], Term) ])-testPappyParseStarRule37 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule37 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyStarRule38 d of- Parsed _ d5 e5 ->- case testPappyCEhE_clause d5 of- Parsed c d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- case testPappyterm d9 of- Parsed t d11 e11 ->- Parsed ( (c, f, t) ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyterms_2 :: TestPappyDerivs -> Result TestPappyDerivs (Term)-testPappyterms_2 d =- case testPappyterm d of- Parsed t d1 e1 ->- case testPappyStarRule37 d1 of- Parsed cft d3 e3 ->- Parsed ( if null cft then t else TermCEhETerm t cft ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule38 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule38 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule38 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyCEhE_clause d of- Parsed _ d5 e5 ->- case testPappyStarRule41 d5 of- Parsed _ d7 e7 ->- case testPappySA_clause d7 of- Parsed _ d9 e9 ->- Parsed ( () ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule40 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule40 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule40 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyPEhE_clause d of- NoParse e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d) []) where- pappyAlt9_1 e9 =- case testPappypre_zei_bu d of- Parsed _ d11 e11 ->- Parsed ( () ) d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappySA_clause d of- Parsed _ d11 e11 ->- case testPappyPEhE_clause d11 of- NoParse e13 ->- Parsed ( () ) d11 (maximum [e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- Parsed _ _ e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule41 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule41 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule41 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyCEhE_clause d of- NoParse e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d) []) where- pappyAlt9_1 e9 =- case testPappypre_zei_bu d of- Parsed _ d11 e11 ->- Parsed ( () ) d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappySA_clause d of- Parsed _ d11 e11 ->- case testPappyCEhE_clause d11 of- NoParse e13 ->- Parsed ( () ) d11 (maximum [e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- Parsed _ _ e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule42 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule42 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule42 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyterm_start d of- Parsed _ d5 e5 ->- case testPappyStarRule46 d5 of- Parsed _ d7 e7 ->- case testPappySA_clause d7 of- Parsed _ d9 e9 ->- case testPappyterm_1 d9 of- Parsed _ _ e11 ->- Parsed ( () ) d9 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyterm :: TestPappyDerivs -> Result TestPappyDerivs (Term)-testPappyterm d =- case testPappyStarRule42 d of- Parsed _ d1 e1 ->- case testPappyterm_1 d1 of- Parsed t d3 e3 ->- Parsed ( t ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseterm_1 :: TestPappyDerivs -> Result TestPappyDerivs (Term)-testPappyParseterm_1 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappysumti d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappygek d of- NoParse e3 ->- case pappyResult5 of- Parsed t d5 e5 ->- case pappyResult7 of- Parsed s d7 e7 ->- Parsed ( TagSumti t s ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d5) []) where- pappyAlt9_1 e9 =- case testPappysumti d5 of- Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case pappyResult11 of- Parsed k d11 e11 ->- case testPappyStarRule188 d11 of- Parsed f d13 e13 ->- Parsed ( KU k f ) d13 (maximum [e13,e11,e9])- NoParse e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- where- pappyResult11 =- case testPappyKU_clause d5 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d5 e13- pappyAlt9_3 e9 = NoParse e9- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- where- pappyResult5 =- pappyAlt7_1 (ParseError (testPappyPos d) []) where- pappyAlt7_1 e7 =- case testPappytag d of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- case testPappyFA_clause d of- Parsed fa d9 e9 ->- case testPappyStarRule188 d9 of- Parsed f d11 e11 ->- Parsed ( FA fa f ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_3 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_3 (max e9 e7)- pappyAlt7_3 e7 = NoParse e7- Parsed _ _ e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- pappyAlt3_1 e1 where- pappyAlt3_1 e3 =- case testPappygek d of- Parsed g d5 e5 ->- case testPappyterms_gik_terms d5 of- Parsed tgt d7 e7 ->- Parsed ( Gek g tgt ) d7 (maximum [e7,e5,e3])- NoParse e7 -> pappyAlt3_2 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case testPappyNUhI_clause d of- Parsed nuhi d5 e5 ->- case testPappyStarRule188 d5 of- Parsed f d7 e7 ->- case testPappygek d7 of- Parsed gek d9 e9 ->- case testPappyPlusRule3 d9 of- Parsed t d11 e11 ->- case pappyResult13 of- Parsed nuhu d13 e13 ->- case testPappyStarRule188 d13 of- Parsed g d15 e15 ->- case testPappygik d15 of- Parsed gik d17 e17 ->- case testPappyPlusRule3 d17 of- Parsed u d19 e19 ->- case pappyResult21 of- Parsed nuhu2 d21 e21 ->- case testPappyStarRule188 d21 of- Parsed h d23 e23 ->- Parsed ( NUhIGek nuhi f gek t nuhu g gik u nuhu2 h ) d23 (maximum [e23,e21,e19,e17,e15,e13,e11,e9,e7,e5,e3])- NoParse e23 -> pappyAlt3_3 (maximum [e23,e21,e19,e17,e15,e13,e11,e9,e7,e5,e3])- NoParse e21 -> pappyAlt3_3 (maximum [e21,e19,e17,e15,e13,e11,e9,e7,e5,e3])- where- pappyResult21 =- case testPappyNUhU_clause d19 of- Parsed v23 d23 e23 -> Parsed (Just v23) d23 e23- NoParse e23 -> Parsed (Nothing) d19 e23- NoParse e19 -> pappyAlt3_3 (maximum [e19,e17,e15,e13,e11,e9,e7,e5,e3])- NoParse e17 -> pappyAlt3_3 (maximum [e17,e15,e13,e11,e9,e7,e5,e3])- NoParse e15 -> pappyAlt3_3 (maximum [e15,e13,e11,e9,e7,e5,e3])- NoParse e13 -> pappyAlt3_3 (maximum [e13,e11,e9,e7,e5,e3])- where- pappyResult13 =- case testPappyNUhU_clause d11 of- Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15- NoParse e15 -> Parsed (Nothing) d11 e15- NoParse e11 -> pappyAlt3_3 (maximum [e11,e9,e7,e5,e3])- NoParse e9 -> pappyAlt3_3 (maximum [e9,e7,e5,e3])- NoParse e7 -> pappyAlt3_3 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 =- case testPappyNUhI_clause d of- Parsed nuhi d5 e5 ->- case testPappyStarRule188 d5 of- Parsed f d7 e7 ->- case testPappyPlusRule3 d7 of- Parsed t d9 e9 ->- case pappyResult11 of- Parsed nuhu d11 e11 ->- case testPappyStarRule188 d11 of- Parsed g d13 e13 ->- Parsed ( NUhI nuhi f t nuhu g ) d13 (maximum [e13,e11,e9,e7,e5,e3])- NoParse e13 -> pappyAlt3_4 (maximum [e13,e11,e9,e7,e5,e3])- NoParse e11 -> pappyAlt3_4 (maximum [e11,e9,e7,e5,e3])- where- pappyResult11 =- case testPappyNUhU_clause d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> pappyAlt3_4 (maximum [e9,e7,e5,e3])- NoParse e7 -> pappyAlt3_4 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_4 (max e5 e3)- pappyAlt3_4 e3 = pappyAlt1_4 e3- pappyAlt1_4 e1 =- case testPappyNA_clause d of- Parsed n d3 e3 ->- case testPappyKU_clause d3 of- Parsed k d5 e5 ->- case testPappyStarRule188 d5 of- Parsed f d7 e7 ->- Parsed ( NAKU n k f ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_5 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 = NoParse e1--testPappyParseStarRule46 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule46 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule46 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyterm_start d of- NoParse e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d) []) where- pappyAlt9_1 e9 =- case testPappypre_zei_bu d of- Parsed _ d11 e11 ->- Parsed ( () ) d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappySA_clause d of- Parsed _ d11 e11 ->- case testPappyterm_start d11 of- NoParse e13 ->- Parsed ( () ) d11 (maximum [e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- Parsed _ _ e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseterm_start :: TestPappyDerivs -> Result TestPappyDerivs ( () )-testPappyParseterm_start d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyterm_1 d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyLA_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyLE_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case testPappyLI_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 =- case testPappyLU_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_6 (max e3 e1)- pappyAlt1_6 e1 =- case testPappyLAhE_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_7 (max e3 e1)- pappyAlt1_7 e1 =- case testPappyquantifier d of- Parsed _ d3 e3 ->- case testPappyterm_start d3 of- Parsed _ d5 e5 ->- Parsed ( () ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_8 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_8 (max e3 e1)- pappyAlt1_8 e1 =- case testPappygek d of- Parsed _ d3 e3 ->- case testPappysumti d3 of- Parsed _ d5 e5 ->- case testPappygik d5 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_9 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_9 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_9 (max e3 e1)- pappyAlt1_9 e1 =- case testPappyFA_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_10 (max e3 e1)- pappyAlt1_10 e1 =- case testPappytag d of- Parsed _ d3 e3 ->- case testPappyterm_start d3 of- Parsed _ d5 e5 ->- Parsed ( () ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_11 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_11 (max e3 e1)- pappyAlt1_11 e1 = NoParse e1--testPappyParseterms_gik_terms :: TestPappyDerivs -> Result TestPappyDerivs (TermsGikTerms)-testPappyParseterms_gik_terms d =- case testPappyterm d of- Parsed t1 d1 e1 ->- case pappyResult3 of- Parsed tgt d3 e3 ->- case testPappyterm d3 of- Parsed t2 d5 e5 ->- Parsed ( TGT t1 tgt t2 ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappygik d1 of- Parsed g d7 e7 ->- Parsed ( Gik g ) d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyterms_gik_terms d1 of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsesumti :: TestPappyDerivs -> Result TestPappyDerivs (Sumti)-testPappyParsesumti d =- case pappyResult1 of- Parsed s d1 e1 ->- case pappyResult3 of- Parsed vr d3 e3 ->- Parsed ( maybe s (\(v, f, r) -> VUhO s v f r) vr ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case pappyResult7 of- Parsed v d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- case testPappyrelative_clauses d9 of- Parsed r d11 e11 ->- Parsed ( (v, f, r) ) d11 (maximum [e11,e9,e7])- NoParse e11 -> NoParse (maximum [e11,e9,e7])- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- where- pappyResult7 =- case testPappyVUhO_pre d1 of- Parsed p d9 e9 ->- case testPappypost_clause d9 of- Parsed q d11 e11 ->- Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)- NoParse e11 -> NoParse (max e11 e9)- NoParse e9 -> NoParse e9- NoParse e1 -> NoParse e1- where- pappyResult1 =- case pappyResult3 of- Parsed s2 d3 e3 ->- case pappyResult5 of- Parsed s d5 e5 ->- Parsed ( maybe s2 (\((je, f), t, k, g, s, l, h) -> JoikEkKESumti s2 je f t k g s l h) s ) d5 (max e5 e3)- NoParse e5 -> NoParse (max e5 e3)- where- pappyResult5 =- case pappyResult7 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- where- pappyResult7 =- case testPappyjoik_ek d3 of- Parsed je d9 e9 ->- case pappyResult11 of- Parsed t d11 e11 ->- case testPappyKE_clause d11 of- Parsed k d13 e13 ->- case testPappyStarRule188 d13 of- Parsed f d15 e15 ->- case testPappysumti d15 of- Parsed s d17 e17 ->- case pappyResult19 of- Parsed l d19 e19 ->- case testPappyStarRule188 d19 of- Parsed g d21 e21 ->- Parsed ( (je, t, k, f, s, l, g) ) d21 (maximum [e21,e19,e17,e15,e13,e11,e9])- NoParse e21 -> NoParse (maximum [e21,e19,e17,e15,e13,e11,e9])- NoParse e19 -> NoParse (maximum [e19,e17,e15,e13,e11,e9])- where- pappyResult19 =- case testPappyKEhE_clause d17 of- Parsed v21 d21 e21 -> Parsed (Just v21) d21 e21- NoParse e21 -> Parsed (Nothing) d17 e21- NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9])- NoParse e15 -> NoParse (maximum [e15,e13,e11,e9])- NoParse e13 -> NoParse (maximum [e13,e11,e9])- NoParse e11 -> NoParse (max e11 e9)- where- pappyResult11 =- case testPappystag d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> NoParse e9- NoParse e3 -> NoParse e3- where- pappyResult3 =- case testPappysumti_3 d of- Parsed s d5 e5 ->- case testPappyStarRule55 d5 of- Parsed ss d7 e7 ->- Parsed ( if null ss then s else JoikEkSumti s ss ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5--testPappyParseStarRule55 :: TestPappyDerivs -> Result TestPappyDerivs ([ (JoikEk, [Free], Sumti) ])-testPappyParseStarRule55 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule55 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyjoik_ek d of- Parsed jf d5 e5 ->- case testPappysumti_3 d5 of- Parsed s d7 e7 ->- Parsed ( (fst jf, snd jf, s) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsesumti_3 :: TestPappyDerivs -> Result TestPappyDerivs (Sumti)-testPappyParsesumti_3 d =- case testPappysumti_4 d of- Parsed s4 d1 e1 ->- case pappyResult3 of- Parsed s3 d3 e3 ->- Parsed ( maybe s4 (\((je, f), t, b, g, s) -> JoikEkBOSumti s4 je f t b g s) s3 ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case testPappyjoik_ek d1 of- Parsed je d7 e7 ->- case pappyResult9 of- Parsed t d9 e9 ->- case testPappyBO_clause d9 of- Parsed b d11 e11 ->- case testPappyStarRule188 d11 of- Parsed f d13 e13 ->- case testPappysumti_3 d13 of- Parsed s d15 e15 ->- Parsed ( (je, t, b, f, s) ) d15 (maximum [e15,e13,e11,e9,e7])- NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])- NoParse e11 -> NoParse (maximum [e11,e9,e7])- NoParse e9 -> NoParse (max e9 e7)- where- pappyResult9 =- case testPappystag d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> NoParse e7- NoParse e1 -> NoParse e1--testPappyParsesumti_4 :: TestPappyDerivs -> Result TestPappyDerivs (Sumti)-testPappyParsesumti_4 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed q d3 e3 ->- case testPappysumti_6 d3 of- Parsed s d5 e5 ->- case pappyResult7 of- Parsed r d7 e7 ->- Parsed ( if isNothing q && isNothing r then s else OuterQuantifier q s r ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyrelative_clauses d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyquantifier d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_2 e1 =- case testPappyquantifier d of- Parsed q d3 e3 ->- case testPappyselbri d3 of- Parsed s d5 e5 ->- case pappyResult7 of- Parsed k d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- case pappyResult11 of- Parsed r d11 e11 ->- Parsed ( SQuantifierSelbri q s k f r ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])- where- pappyResult11 =- case testPappyrelative_clauses d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyKU_clause d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappygek d of- Parsed ge d3 e3 ->- case testPappysumti d3 of- Parsed s d5 e5 ->- case testPappygik d5 of- Parsed gi d7 e7 ->- case testPappysumti_4 d7 of- Parsed s4 d9 e9 ->- Parsed ( GekSumti ge s gi s4 ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_4 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappyParsesumti_6 :: TestPappyDerivs -> Result TestPappyDerivs (Sumti)-testPappyParsesumti_6 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed zo d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( let (pre, z, w, q) = zo in ZO pre z w q f ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed p d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( let (pre, z, w) = p in (pre, z, w, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- where- pappyResult5 =- case testPappypre_clause d of- Parsed p d7 e7 ->- case testPappyZO d7 of- Parsed z d9 e9 ->- case pappyResult11 of- Parsed _ d11 e11 ->- case testPappyany_word d11 of- Parsed w d13 e13 ->- case pappyResult15 of- Parsed _ d15 e15 ->- Parsed ( (p, z, w) ) d15 (maximum [e15,e13,e11,e9,e7])- NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])- where- pappyResult15 =- case testPappyspaces d13 of- Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17- NoParse e17 -> Parsed (Nothing) d13 e17- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])- NoParse e11 -> NoParse (maximum [e11,e9,e7])- where- pappyResult11 =- case testPappyspaces d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed z d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( let (pre, zoi, ws, q) = z in ZOI pre zoi ws q f ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed p d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( let (pre, z, ws) = p in (pre, z, ws, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- where- pappyResult5 =- case testPappypre_clause d of- Parsed p d7 e7 ->- case testPappyZOI d7 of- Parsed z d9 e9 ->- case pappyResult11 of- Parsed _ d11 e11 ->- case testPappyChar d11 of- Parsed w d13 e13 ->- case ( w == '\NUL' ) of- True ->- case pappyResult17 of- Parsed s d17 e17 ->- case testPappyStarRule198 d17 of- Parsed ws d19 e19 ->- case testPappyChar d19 of- Parsed v d21 e21 ->- case ( v == '\NUL' ) of- True ->- case pappyResult25 of- Parsed _ d25 e25 ->- Parsed ( (p, z, maybe ws (: ws) s) ) d25 (maximum [e25,e21,e19,e17,e13,e11,e9,e7])- NoParse e25 -> NoParse (maximum [e25,e21,e19,e17,e13,e11,e9,e7])- where- pappyResult25 =- case testPappyspaces d21 of- Parsed v27 d27 e27 -> Parsed (Just v27) d27 e27- NoParse e27 -> Parsed (Nothing) d21 e27- False -> NoParse (maximum [e21,e19,e17,e13,e11,e9,e7])- NoParse e21 -> NoParse (maximum [e21,e19,e17,e13,e11,e9,e7])- NoParse e19 -> NoParse (maximum [e19,e17,e13,e11,e9,e7])- NoParse e17 -> NoParse (maximum [e17,e13,e11,e9,e7])- where- pappyResult17 =- case testPappyspaces d13 of- Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19- NoParse e19 -> Parsed (Nothing) d13 e19- False -> NoParse (maximum [e13,e11,e9,e7])- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])- NoParse e11 -> NoParse (maximum [e11,e9,e7])- where- pappyResult11 =- case testPappyspaces d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- pappyAlt1_3 e1 =- case pappyResult3 of- Parsed l d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( let (p, lohu, ws, lehu, q) = l in LOhU p lohu ws lehu q f ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed lp d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( let (p, lohu, ws, lehu) = lp in (p, lohu, ws, lehu, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- where- pappyResult5 =- case testPappypre_clause d of- Parsed p d7 e7 ->- case testPappyLOhU d7 of- Parsed lohu d9 e9 ->- case pappyResult11 of- Parsed _ d11 e11 ->- case testPappyStarRule196 d11 of- Parsed ws d13 e13 ->- case testPappyLEhU_pre d13 of- Parsed lehu d15 e15 ->- case pappyResult17 of- Parsed _ d17 e17 ->- Parsed ( (p, lohu, ws, lehu) ) d17 (maximum [e17,e15,e13,e11,e9,e7])- NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9,e7])- where- pappyResult17 =- case testPappyspaces d15 of- Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19- NoParse e19 -> Parsed (Nothing) d15 e19- NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])- NoParse e11 -> NoParse (maximum [e11,e9,e7])- where- pappyResult11 =- case testPappyspaces d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- pappyAlt1_4 e1 =- case testPappylerfu_string d of- Parsed l d3 e3 ->- case testPappyMOI_clause d3 of- NoParse e5 ->- case pappyResult7 of- Parsed b d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- Parsed ( LerfuString l b f ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_5 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_5 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyBOI_clause d3 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d3 e9- Parsed _ _ e5 -> pappyAlt1_5 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 =- case testPappyLU_clause d of- Parsed lu d3 e3 ->- case testPappytext d3 of- Parsed t d5 e5 ->- case pappyResult7 of- Parsed lihu d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- Parsed ( LU lu t lihu f ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_6 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_6 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case pappyResult9 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- where- pappyResult9 =- case pappyResult11 of- Parsed p d11 e11 ->- case testPappypost_clause d11 of- Parsed q d13 e13 ->- Parsed ( (fst p, snd p, q) ) d13 (max e13 e11)- NoParse e13 -> NoParse (max e13 e11)- NoParse e11 -> NoParse e11- where- pappyResult11 =- case testPappypre_clause d5 of- Parsed p d13 e13 ->- case testPappyLIhU d13 of- Parsed l d15 e15 ->- case pappyResult17 of- Parsed _ d17 e17 ->- Parsed ( (p, l) ) d17 (maximum [e17,e15,e13])- NoParse e17 -> NoParse (maximum [e17,e15,e13])- where- pappyResult17 =- case testPappyspaces d15 of- Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19- NoParse e19 -> Parsed (Nothing) d15 e19- NoParse e15 -> NoParse (max e15 e13)- NoParse e13 -> NoParse e13- NoParse e5 -> pappyAlt1_6 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_6 (max e3 e1)- pappyAlt1_6 e1 =- case testPappyLAhE_NAhE d of- Parsed lnbf d3 e3 ->- case pappyResult5 of- Parsed r d5 e5 ->- case testPappysumti d5 of- Parsed s d7 e7 ->- case pappyResult9 of- Parsed l d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- Parsed ( let (ln, b, f) = lnbf in LAhE_NAhE ln b f r s l g ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_7 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_7 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case testPappyLUhU_clause d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt1_7 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_7 (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyrelative_clauses d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> pappyAlt1_7 (max e3 e1)- pappyAlt1_7 e1 =- case pappyResult3 of- Parsed k d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( KOhA k f ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_8 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_8 (max e3 e1)- where- pappyResult3 =- case testPappyKOhA_pre d of- Parsed p d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_8 e1 =- case testPappyLA_clause d of- Parsed l d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case pappyResult7 of- Parsed r d7 e7 ->- case testPappyPlusRule12 d7 of- Parsed c d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- Parsed ( LA l f r c g ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_9 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_9 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_9 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyrelative_clauses d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_9 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_9 (max e3 e1)- pappyAlt1_9 e1 =- case pappyResult3 of- Parsed l d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case pappyResult7 of- Parsed s d7 e7 ->- case pappyResult9 of- Parsed k d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- Parsed ( LALE l f s k g ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_10 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_10 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case testPappyKU_clause d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt1_10 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d5) []) where- pappyAlt9_1 e9 =- case pappyResult11 of- Parsed s6 d11 e11 ->- case testPappysumti_tail_1 d11 of- Parsed st d13 e13 ->- Parsed ( maybe st (\(s, r) -> SumtiSumtiTail s r st) s6 ) d13 (maximum [e13,e11,e9])- NoParse e13 -> pappyAlt9_2 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_2 (max e11 e9)- where- pappyResult11 =- case pappyResult13 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d5 e13- where- pappyResult13 =- case testPappysumti_6 d5 of- Parsed s d15 e15 ->- case pappyResult17 of- Parsed r d17 e17 ->- Parsed ( (s, r) ) d17 (max e17 e15)- NoParse e17 -> NoParse (max e17 e15)- where- pappyResult17 =- case testPappyrelative_clauses d15 of- Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19- NoParse e19 -> Parsed (Nothing) d15 e19- NoParse e15 -> NoParse e15- pappyAlt9_2 e9 =- case testPappyrelative_clauses d5 of- Parsed r d11 e11 ->- case testPappysumti_tail_1 d11 of- Parsed s d13 e13 ->- Parsed ( RelativeClausesSumtiTail r s ) d13 (maximum [e13,e11,e9])- NoParse e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- NoParse e5 -> pappyAlt1_10 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_10 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyLA_clause d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyLE_clause d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_10 e1 =- case pappyResult3 of- Parsed l d3 e3 ->- Parsed ( let (li, f, m, loho, g) = l in LI li f m loho g ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_11 (max e3 e1)- where- pappyResult3 =- case testPappyLI_clause d of- Parsed li d5 e5 ->- case testPappyStarRule188 d5 of- Parsed f d7 e7 ->- case testPappymex d7 of- Parsed m d9 e9 ->- case pappyResult11 of- Parsed loho d11 e11 ->- case testPappyStarRule188 d11 of- Parsed g d13 e13 ->- Parsed ( (li, f, m, loho, g) ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- where- pappyResult11 =- case pappyResult13 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- where- pappyResult13 =- case pappyResult15 of- Parsed p d15 e15 ->- case testPappypost_clause d15 of- Parsed q d17 e17 ->- Parsed ( (fst p, snd p, q) ) d17 (max e17 e15)- NoParse e17 -> NoParse (max e17 e15)- NoParse e15 -> NoParse e15- where- pappyResult15 =- case testPappypre_clause d9 of- Parsed p d17 e17 ->- case testPappyLOhO d17 of- Parsed l d19 e19 ->- case pappyResult21 of- Parsed _ d21 e21 ->- Parsed ( (p, l) ) d21 (maximum [e21,e19,e17])- NoParse e21 -> NoParse (maximum [e21,e19,e17])- where- pappyResult21 =- case testPappyspaces d19 of- Parsed v23 d23 e23 -> Parsed (Just v23) d23 e23- NoParse e23 -> Parsed (Nothing) d19 e23- NoParse e19 -> NoParse (max e19 e17)- NoParse e17 -> NoParse e17- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_11 e1 = NoParse e1--testPappyParseLAhE_NAhE :: TestPappyDerivs -> Result TestPappyDerivs ( (Clause, Maybe Clause, [Free]) )-testPappyParseLAhE_NAhE d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyLAhE_clause d of- Parsed l d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( (l, Nothing, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyNAhE_clause d of- Parsed n d3 e3 ->- case testPappyBO_clause d3 of- Parsed b d5 e5 ->- case testPappyStarRule188 d5 of- Parsed f d7 e7 ->- Parsed ( (n, Just b, f) ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappysumti_tail_1 :: TestPappyDerivs -> Result TestPappyDerivs (SumtiTail)-testPappysumti_tail_1 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyselbri d of- Parsed s d3 e3 ->- case pappyResult5 of- Parsed r d5 e5 ->- Parsed ( SelbriRelativeClauses s r ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyrelative_clauses d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyquantifier d of- Parsed q d3 e3 ->- case testPappyselbri d3 of- Parsed s d5 e5 ->- case pappyResult7 of- Parsed r d7 e7 ->- Parsed ( STQuantifierSelbri q s r ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyrelative_clauses d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyquantifier d of- Parsed q d3 e3 ->- case testPappysumti d3 of- Parsed s d5 e5 ->- Parsed ( QuantifierSumti q s ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappyParseStarRule73 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, [Free], RelativeClause) ])-testPappyParseStarRule73 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule73 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed z d5 e5 ->- case testPappyStarRule188 d5 of- Parsed f d7 e7 ->- case testPappyrelative_clause d7 of- Parsed rc d9 e9 ->- Parsed ( (z, f, rc) ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- where- pappyResult5 =- case testPappyZIhE_pre d of- Parsed p d7 e7 ->- case testPappypost_clause d7 of- Parsed q d9 e9 ->- Parsed ( (fst p, snd p, q) ) d9 (max e9 e7)- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyrelative_clauses :: TestPappyDerivs -> Result TestPappyDerivs (RelativeClauses)-testPappyrelative_clauses d =- case testPappyrelative_clause d of- Parsed rc d1 e1 ->- case testPappyStarRule73 d1 of- Parsed z d3 e3 ->- Parsed ( if null z then rc else RelativeClauseZIhE rc z ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule75 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule75 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule75 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyrelative_clause_start d of- Parsed _ d5 e5 ->- case testPappyStarRule76 d5 of- Parsed _ d7 e7 ->- case testPappySA_clause d7 of- Parsed _ d9 e9 ->- case testPappyrelative_clause_1 d9 of- Parsed _ _ e11 ->- Parsed ( () ) d9 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyrelative_clause :: TestPappyDerivs -> Result TestPappyDerivs (RelativeClause)-testPappyrelative_clause d =- case testPappyStarRule75 d of- Parsed _ d1 e1 ->- case testPappyrelative_clause_1 d1 of- Parsed rc d3 e3 ->- Parsed ( rc ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule76 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule76 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule76 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyrelative_clause_start d of- NoParse e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d) []) where- pappyAlt9_1 e9 =- case testPappypre_zei_bu d of- Parsed _ d11 e11 ->- Parsed ( () ) d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappySA_clause d of- Parsed _ d11 e11 ->- case testPappyrelative_clause_start d11 of- NoParse e13 ->- Parsed ( () ) d11 (maximum [e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- Parsed _ _ e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParserelative_clause_1 :: TestPappyDerivs -> Result TestPappyDerivs (RelativeClause)-testPappyParserelative_clause_1 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyGOI_clause d of- Parsed goi d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappyterm d5 of- Parsed t d7 e7 ->- case pappyResult9 of- Parsed gehu d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- Parsed ( GOI goi f t gehu g ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case pappyResult11 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- where- pappyResult11 =- case testPappyGEhU_pre d7 of- Parsed p d13 e13 ->- case testPappypost_clause d13 of- Parsed q d15 e15 ->- Parsed ( (fst p, snd p, q) ) d15 (max e15 e13)- NoParse e15 -> NoParse (max e15 e13)- NoParse e13 -> NoParse e13- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyNOI_clause d of- Parsed noi d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappysubsentence d5 of- Parsed s d7 e7 ->- case pappyResult9 of- Parsed kuho d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- Parsed ( NOI noi f s kuho g ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case pappyResult11 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- where- pappyResult11 =- case testPappyKUhO_pre d7 of- Parsed p d13 e13 ->- case testPappypost_clause d13 of- Parsed q d15 e15 ->- Parsed ( (fst p, snd p, q) ) d15 (max e15 e13)- NoParse e15 -> NoParse (max e15 e13)- NoParse e13 -> NoParse e13- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyrelative_clause_start :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyrelative_clause_start d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyGOI_clause d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyNOI_clause d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseselbri :: TestPappyDerivs -> Result TestPappyDerivs (Selbri)-testPappyParseselbri d =- case pappyResult1 of- Parsed t d1 e1 ->- case pappyResult3 of- Parsed s d3 e3 ->- Parsed ( maybe s (flip Tag s) t ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyselbri_2 d1 of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyNA_clause d1 of- Parsed n d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- case testPappyselbri d9 of- Parsed s d11 e11 ->- Parsed ( NA n f s ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappytag d of- Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3- NoParse e3 -> Parsed (Nothing) d e3--testPappyParseselbri_2 :: TestPappyDerivs -> Result TestPappyDerivs (Selbri)-testPappyParseselbri_2 d =- case pappyResult1 of- Parsed s3 d1 e1 ->- case pappyResult3 of- Parsed s2 d3 e3 ->- Parsed ( maybe s3 (uncurry3 $ CO s3) s2 ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case pappyResult7 of- Parsed c d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- case testPappyselbri_2 d9 of- Parsed s d11 e11 ->- Parsed ( (c, f, s) ) d11 (maximum [e11,e9,e7])- NoParse e11 -> NoParse (maximum [e11,e9,e7])- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- where- pappyResult7 =- case testPappyCO_pre d1 of- Parsed p d9 e9 ->- case testPappypost_clause d9 of- Parsed q d11 e11 ->- Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)- NoParse e11 -> NoParse (max e11 e9)- NoParse e9 -> NoParse e9- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyPlusRule5 d of- Parsed s d3 e3 ->- Parsed ( case s of [t] -> t; _ -> Tanru s ) d3 e3- NoParse e3 -> NoParse e3--testPappyParsePlusRule5 :: TestPappyDerivs -> Result TestPappyDerivs ([Selbri])-testPappyParsePlusRule5 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyselbri_4 d of- Parsed v d3 e3 ->- case testPappyPlusRule5 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyselbri_4 d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule83 :: TestPappyDerivs -> Result TestPappyDerivs ([JoikJekSelbri5])-testPappyParseStarRule83 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule83 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyjoik_jek d of- Parsed jf d7 e7 ->- case testPappyselbri_5 d7 of- Parsed s d9 e9 ->- Parsed ( let (j, f) = jf in Left (j, f, s) ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyjoik d of- Parsed j d7 e7 ->- case pappyResult9 of- Parsed t d9 e9 ->- case testPappyKE_clause d9 of- Parsed k d11 e11 ->- case testPappyStarRule188 d11 of- Parsed f d13 e13 ->- case pappyResult15 of- Parsed s d15 e15 ->- case pappyResult17 of- Parsed l d17 e17 ->- case testPappyStarRule188 d17 of- Parsed g d19 e19 ->- Parsed ( Right (j, t, k, f, s, l, g) ) d19 (maximum [e19,e17,e15,e13,e11,e9,e7,e5])- NoParse e19 -> pappyAlt5_3 (maximum [e19,e17,e15,e13,e11,e9,e7,e5])- NoParse e17 -> pappyAlt5_3 (maximum [e17,e15,e13,e11,e9,e7,e5])- where- pappyResult17 =- case testPappyKEhE_clause d15 of- Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19- NoParse e19 -> Parsed (Nothing) d15 e19- NoParse e15 -> pappyAlt5_3 (maximum [e15,e13,e11,e9,e7,e5])- where- pappyResult15 =- case testPappyPlusRule5 d13 of- Parsed s d17 e17 ->- Parsed ( case s of [t] -> t; _ -> Tanru s ) d17 e17- NoParse e17 -> NoParse e17- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- where- pappyResult9 =- case testPappystag d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyselbri_4 :: TestPappyDerivs -> Result TestPappyDerivs (Selbri)-testPappyselbri_4 d =- case testPappyselbri_5 d of- Parsed s d1 e1 ->- case testPappyStarRule83 d1 of- Parsed js d3 e3 ->- Parsed ( if null js then s else JoikJek s js ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseselbri_5 :: TestPappyDerivs -> Result TestPappyDerivs (Selbri)-testPappyParseselbri_5 d =- case testPappyselbri_6 d of- Parsed s6 d1 e1 ->- case pappyResult3 of- Parsed jb d3 e3 ->- Parsed ( maybe s6 (\(j, t, b, f, s5) -> JekJoikBO s6 j t b f s5) jb ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case pappyResult7 of- Parsed j d7 e7 ->- case pappyResult9 of- Parsed t d9 e9 ->- case testPappyBO_clause d9 of- Parsed b d11 e11 ->- case testPappyStarRule188 d11 of- Parsed f d13 e13 ->- case testPappyselbri_5 d13 of- Parsed s d15 e15 ->- Parsed ( (j, t, b, f, s) ) d15 (maximum [e15,e13,e11,e9,e7])- NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])- NoParse e11 -> NoParse (maximum [e11,e9,e7])- NoParse e9 -> NoParse (max e9 e7)- where- pappyResult9 =- case testPappystag d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> NoParse e7- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d1) []) where- pappyAlt9_1 e9 =- case testPappyjek d1 of- Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappyjoik d1 of- Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- NoParse e1 -> NoParse e1--testPappyParseselbri_6 :: TestPappyDerivs -> Result TestPappyDerivs (Selbri)-testPappyParseselbri_6 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed t d3 e3 ->- case pappyResult5 of- Parsed b d5 e5 ->- Parsed ( maybe t (uncurry3 $ BO t) b ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- where- pappyResult5 =- case pappyResult7 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- where- pappyResult7 =- case testPappyBO_clause d3 of- Parsed b d9 e9 ->- case testPappyStarRule188 d9 of- Parsed f d11 e11 ->- case testPappyselbri_6 d11 of- Parsed s d13 e13 ->- Parsed ( (b, f, s) ) d13 (maximum [e13,e11,e9])- NoParse e13 -> NoParse (maximum [e13,e11,e9])- NoParse e11 -> NoParse (max e11 e9)- NoParse e9 -> NoParse e9- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappytanru_unit_1 d of- Parsed t d5 e5 ->- case testPappyStarRule89 d5 of- Parsed cs d7 e7 ->- Parsed ( if null cs then t else CEI t cs ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed n d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappyguhek d5 of- Parsed gu d7 e7 ->- case testPappyselbri d7 of- Parsed s d9 e9 ->- case testPappygik d9 of- Parsed gi d11 e11 ->- case testPappyselbri_6 d11 of- Parsed s6 d13 e13 ->- Parsed ( GuhekGik n f gu s gi s6 ) d13 (maximum [e13,e11,e9,e7,e5,e3,e1])- NoParse e13 -> pappyAlt1_3 (maximum [e13,e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- case testPappyNAhE_clause d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule89 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, [Free], Selbri) ])-testPappyParseStarRule89 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule89 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed c d5 e5 ->- case testPappyStarRule188 d5 of- Parsed f d7 e7 ->- case testPappytanru_unit_1 d7 of- Parsed u d9 e9 ->- Parsed ( (c, f, u) ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- where- pappyResult5 =- case testPappyCEI_pre d of- Parsed p d7 e7 ->- case testPappypost_clause d7 of- Parsed q d9 e9 ->- Parsed ( (fst p, snd p, q) ) d9 (max e9 e7)- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappytanru_unit_1 :: TestPappyDerivs -> Result TestPappyDerivs (Selbri)-testPappytanru_unit_1 d =- case testPappytanru_unit_2 d of- Parsed t d1 e1 ->- case pappyResult3 of- Parsed l d3 e3 ->- Parsed ( maybe t (Linkargs t) l ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappylinkargs d1 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- NoParse e1 -> NoParse e1--testPappyParseStarRule104 :: TestPappyDerivs -> Result TestPappyDerivs ([ (JoikJek, [Free], Clause, Maybe Clause, [Free]) ])-testPappyParseStarRule104 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule104 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyjoik_jek d of- Parsed j d5 e5 ->- case testPappyNU_clause d5 of- Parsed nu d7 e7 ->- case pappyResult9 of- Parsed nai d9 e9 ->- case testPappyStarRule188 d9 of- Parsed f d11 e11 ->- Parsed ( (fst j, snd j, nu, nai, f) ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- where- pappyResult9 =- case testPappyNAI_clause d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsetanru_unit_2 :: TestPappyDerivs -> Result TestPappyDerivs (Selbri)-testPappyParsetanru_unit_2 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed b d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( Brivla b f ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyBRIVLA_pre d of- Parsed pre d7 e7 ->- case testPappypost_clause d7 of- Parsed post d9 e9 ->- Parsed ( let (bahe, brivla) = pre in (bahe, brivla, post) ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappypre_clause d of- Parsed p d7 e7 ->- case testPappyzei_clause_no_pre d7 of- Parsed z d9 e9 ->- Parsed ( (p, fst z, snd z) ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed g d3 e3 ->- case pappyResult5 of- Parsed r d5 e5 ->- case testPappyStarRule188 d5 of- Parsed f d7 e7 ->- Parsed ( GOhA g r f ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- where- pappyResult5 =- case pappyResult7 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- where- pappyResult7 =- case testPappyRAhO_pre d3 of- Parsed p d9 e9 ->- case testPappypost_clause d9 of- Parsed q d11 e11 ->- Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)- NoParse e11 -> NoParse (max e11 e9)- NoParse e9 -> NoParse e9- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- case testPappyGOhA_pre d of- Parsed p d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_3 e1 =- case testPappyKE_clause d of- Parsed ke d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case pappyResult7 of- Parsed s d7 e7 ->- case pappyResult9 of- Parsed kehe d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- Parsed ( KE ke f s kehe g ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_4 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_4 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case testPappyKEhE_clause d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyPlusRule5 d5 of- Parsed s d9 e9 ->- Parsed ( case s of [t] -> t; _ -> Tanru s ) d9 e9- NoParse e9 -> NoParse e9- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case testPappyME_clause d of- Parsed me d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case pappyResult7 of- Parsed s d7 e7 ->- case pappyResult9 of- Parsed mehu d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- case pappyResult13 of- Parsed m d13 e13 ->- case testPappyStarRule188 d13 of- Parsed h d15 e15 ->- Parsed ( ME me f s mehu g m h ) d15 (maximum [e15,e13,e11,e9,e7,e5,e3,e1])- NoParse e15 -> pappyAlt1_5 (maximum [e15,e13,e11,e9,e7,e5,e3,e1])- NoParse e13 -> pappyAlt1_5 (maximum [e13,e11,e9,e7,e5,e3,e1])- where- pappyResult13 =- case testPappyMOI_clause d11 of- Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15- NoParse e15 -> Parsed (Nothing) d11 e15- NoParse e11 -> pappyAlt1_5 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_5 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case pappyResult11 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- where- pappyResult11 =- case testPappyMEhU_pre d7 of- Parsed p d13 e13 ->- case testPappypost_clause d13 of- Parsed q d15 e15 ->- Parsed ( (fst p, snd p, q) ) d15 (max e15 e13)- NoParse e15 -> NoParse (max e15 e13)- NoParse e13 -> NoParse e13- NoParse e7 -> pappyAlt1_5 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d5) []) where- pappyAlt9_1 e9 =- case testPappysumti d5 of- Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappylerfu_string d5 of- Parsed l d11 e11 ->- Parsed ( LerfuString l Nothing [] ) d11 (max e11 e9)- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 =- case pappyResult3 of- Parsed n d3 e3 ->- case testPappyMOI_clause d3 of- Parsed m d5 e5 ->- case testPappyStarRule188 d5 of- Parsed f d7 e7 ->- Parsed ( MOI n m f ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_6 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_6 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_6 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappynumber d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappylerfu_string d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_6 e1 =- case testPappyNUhA_clause d of- Parsed n d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappymex_operator d5 of- Parsed m d7 e7 ->- Parsed ( NUhA n f m ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_7 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_7 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_7 (max e3 e1)- pappyAlt1_7 e1 =- case testPappySE_clause d of- Parsed s d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappytanru_unit_2 d5 of- Parsed t d7 e7 ->- Parsed ( SE s f t ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_8 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_8 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_8 (max e3 e1)- pappyAlt1_8 e1 =- case pappyResult3 of- Parsed j d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case pappyResult7 of- Parsed t d7 e7 ->- case testPappytanru_unit_2 d7 of- Parsed tu d9 e9 ->- Parsed ( JAI j f t tu ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_9 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_9 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappytag d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_9 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_9 (max e3 e1)- where- pappyResult3 =- case testPappyJAI_pre d of- Parsed p d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_9 e1 =- case testPappyNAhE_clause d of- Parsed n d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappytanru_unit_2 d5 of- Parsed t d7 e7 ->- Parsed ( NAhE n f t ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_10 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_10 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_10 (max e3 e1)- pappyAlt1_10 e1 =- case testPappyNU_clause d of- Parsed nu d3 e3 ->- case pappyResult5 of- Parsed nai d5 e5 ->- case testPappyStarRule188 d5 of- Parsed f d7 e7 ->- case testPappyStarRule104 d7 of- Parsed j d9 e9 ->- case testPappysubsentence d9 of- Parsed s d11 e11 ->- case pappyResult13 of- Parsed k d13 e13 ->- case testPappyStarRule188 d13 of- Parsed g d15 e15 ->- Parsed ( NU nu nai f j s k g ) d15 (maximum [e15,e13,e11,e9,e7,e5,e3,e1])- NoParse e15 -> pappyAlt1_11 (maximum [e15,e13,e11,e9,e7,e5,e3,e1])- NoParse e13 -> pappyAlt1_11 (maximum [e13,e11,e9,e7,e5,e3,e1])- where- pappyResult13 =- case pappyResult15 of- Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15- NoParse e15 -> Parsed (Nothing) d11 e15- where- pappyResult15 =- case testPappyKEI_pre d11 of- Parsed p d17 e17 ->- case testPappypost_clause d17 of- Parsed q d19 e19 ->- Parsed ( (fst p, snd p, q) ) d19 (max e19 e17)- NoParse e19 -> NoParse (max e19 e17)- NoParse e17 -> NoParse e17- NoParse e11 -> pappyAlt1_11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_11 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_11 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_11 (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyNAI_clause d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> pappyAlt1_11 (max e3 e1)- pappyAlt1_11 e1 = NoParse e1--testPappyParseStarRule107 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule107 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule107 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyBE_clause d of- Parsed _ d5 e5 ->- case testPappyStarRule110 d5 of- Parsed _ d7 e7 ->- case testPappySA_clause d7 of- Parsed _ d9 e9 ->- case testPappylinkargs_1 d9 of- Parsed _ _ e11 ->- Parsed ( () ) d9 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappylinkargs :: TestPappyDerivs -> Result TestPappyDerivs (Linkargs)-testPappylinkargs d =- case testPappyStarRule107 d of- Parsed _ d1 e1 ->- case testPappylinkargs_1 d1 of- Parsed l d3 e3 ->- Parsed ( l ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParselinkargs_1 :: TestPappyDerivs -> Result TestPappyDerivs (Linkargs)-testPappyParselinkargs_1 d =- case testPappyBE_clause d of- Parsed be d1 e1 ->- case testPappyStarRule188 d1 of- Parsed f d3 e3 ->- case testPappyterm d3 of- Parsed t d5 e5 ->- case pappyResult7 of- Parsed l d7 e7 ->- case pappyResult9 of- Parsed beho d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- Parsed ( BE be f t l beho g ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case pappyResult11 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- where- pappyResult11 =- case testPappyBEhO_pre d7 of- Parsed p d13 e13 ->- case testPappypost_clause d13 of- Parsed q d15 e15 ->- Parsed ( (fst p, snd p, q) ) d15 (max e15 e13)- NoParse e15 -> NoParse (max e15 e13)- NoParse e13 -> NoParse e13- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappylinks d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule110 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule110 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule110 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- NoParse e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d) []) where- pappyAlt9_1 e9 =- case testPappypre_zei_bu d of- Parsed _ d11 e11 ->- Parsed ( () ) d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappySA_clause d of- Parsed _ d11 e11 ->- case pappyResult13 of- NoParse e13 ->- Parsed ( () ) d11 (maximum [e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- where- pappyResult13 =- case testPappyBE_clause d11 of- Parsed _ d15 e15 ->- Parsed ( () ) d15 e15- NoParse e15 -> NoParse e15- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- Parsed _ _ e5 -> NoParse e5- where- pappyResult5 =- case testPappyBE_clause d of- Parsed _ d7 e7 ->- Parsed ( () ) d7 e7- NoParse e7 -> NoParse e7- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule111 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule111 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule111 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyBEI_clause d of- Parsed _ d5 e5 ->- case testPappyStarRule113 d5 of- Parsed _ d7 e7 ->- case testPappySA_clause d7 of- Parsed _ d9 e9 ->- case testPappylinks_1 d9 of- Parsed _ _ e11 ->- Parsed ( () ) d9 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappylinks :: TestPappyDerivs -> Result TestPappyDerivs (Links)-testPappylinks d =- case testPappyStarRule111 d of- Parsed _ d1 e1 ->- case testPappylinks_1 d1 of- Parsed l d3 e3 ->- Parsed ( l ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParselinks_1 :: TestPappyDerivs -> Result TestPappyDerivs (Links)-testPappyParselinks_1 d =- case testPappyBEI_clause d of- Parsed b d1 e1 ->- case testPappyStarRule188 d1 of- Parsed f d3 e3 ->- case testPappyterm d3 of- Parsed t d5 e5 ->- case pappyResult7 of- Parsed l d7 e7 ->- Parsed ( BEI b f t l ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappylinks d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule113 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule113 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule113 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- NoParse e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d) []) where- pappyAlt9_1 e9 =- case testPappypre_zei_bu d of- Parsed _ d11 e11 ->- Parsed ( () ) d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappySA_clause d of- Parsed _ d11 e11 ->- case pappyResult13 of- NoParse e13 ->- Parsed ( () ) d11 (maximum [e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- where- pappyResult13 =- case testPappyBEI_clause d11 of- Parsed _ d15 e15 ->- Parsed ( () ) d15 e15- NoParse e15 -> NoParse e15- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- Parsed _ _ e5 -> NoParse e5- where- pappyResult5 =- case testPappyBEI_clause d of- Parsed _ d7 e7 ->- Parsed ( () ) d7 e7- NoParse e7 -> NoParse e7- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsequantifier :: TestPappyDerivs -> Result TestPappyDerivs (Quantifier)-testPappyParsequantifier d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappynumber d of- Parsed n d3 e3 ->- case testPappyMOI_clause d3 of- NoParse e5 ->- case pappyResult7 of- Parsed b d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- Parsed ( Number n b f ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyBOI_clause d3 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d3 e9- Parsed _ _ e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyVEI_clause d of- Parsed vei d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappymex d5 of- Parsed m d7 e7 ->- case pappyResult9 of- Parsed veho d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- Parsed ( VEI vei f m veho g ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case testPappyVEhO_clause d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule117 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule117 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule117 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappymex_start d of- Parsed _ d5 e5 ->- case testPappyStarRule119 d5 of- Parsed _ d7 e7 ->- case testPappySA_clause d7 of- Parsed _ d9 e9 ->- case testPappymex_0 d9 of- Parsed _ _ e11 ->- Parsed ( () ) d9 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappymex :: TestPappyDerivs -> Result TestPappyDerivs (Mex)-testPappymex d =- case testPappyStarRule117 d of- Parsed _ d1 e1 ->- case testPappymex_0 d1 of- Parsed m0 d3 e3 ->- Parsed ( m0 ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule118 :: TestPappyDerivs -> Result TestPappyDerivs ([ (MexOperator, Mex) ])-testPappyParseStarRule118 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule118 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyoperator d of- Parsed o d5 e5 ->- case testPappymex_1 d5 of- Parsed m d7 e7 ->- Parsed ( (o, m) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsemex_0 :: TestPappyDerivs -> Result TestPappyDerivs (Mex)-testPappyParsemex_0 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappymex_1 d of- Parsed m d3 e3 ->- case testPappyStarRule118 d3 of- Parsed oms d5 e5 ->- Parsed ( if null oms then m else MexOperatorMex m oms ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyFUhA_clause d of- Parsed fuha d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappyrp_expression d5 of- Parsed r d7 e7 ->- Parsed ( FUhA fuha f r ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule119 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule119 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule119 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappymex_start d of- NoParse e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d) []) where- pappyAlt9_1 e9 =- case testPappypre_zei_bu d of- Parsed _ d11 e11 ->- Parsed ( () ) d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappySA_clause d of- Parsed _ d11 e11 ->- case testPappymex_start d11 of- NoParse e13 ->- Parsed ( () ) d11 (maximum [e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- Parsed _ _ e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsemex_start :: TestPappyDerivs -> Result TestPappyDerivs ( () )-testPappyParsemex_start d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyFUhA_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyPEhO_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyoperand_start d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappyParsemex_1 :: TestPappyDerivs -> Result TestPappyDerivs (Mex)-testPappyParsemex_1 d =- case testPappymex_2 d of- Parsed m2 d1 e1 ->- case pappyResult3 of- Parsed bfom d3 e3 ->- Parsed ( maybe m2 (\(b, f, o, m1) -> BIhE m2 b f o m1) bfom ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case pappyResult7 of- Parsed b d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- case testPappyoperator d9 of- Parsed o d11 e11 ->- case testPappymex_1 d11 of- Parsed m d13 e13 ->- Parsed ( (b, f, o, m) ) d13 (maximum [e13,e11,e9,e7])- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])- NoParse e11 -> NoParse (maximum [e11,e9,e7])- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- where- pappyResult7 =- case testPappyBIhE_pre d1 of- Parsed p d9 e9 ->- case testPappypost_clause d9 of- Parsed q d11 e11 ->- Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)- NoParse e11 -> NoParse (max e11 e9)- NoParse e9 -> NoParse e9- NoParse e1 -> NoParse e1--testPappyParsemex_2 :: TestPappyDerivs -> Result TestPappyDerivs (Mex)-testPappyParsemex_2 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyoperand d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed p d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappyoperator d5 of- Parsed o d7 e7 ->- case testPappyPlusRule7 d7 of- Parsed fo d9 e9 ->- case pappyResult11 of- Parsed k d11 e11 ->- case testPappyStarRule188 d11 of- Parsed g d13 e13 ->- Parsed ( PEhO p f o fo k g ) d13 (maximum [e13,e11,e9,e7,e5,e3,e1])- NoParse e13 -> pappyAlt1_3 (maximum [e13,e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])- where- pappyResult11 =- case pappyResult13 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- where- pappyResult13 =- case testPappyKUhE_pre d9 of- Parsed p d15 e15 ->- case testPappypost_clause d15 of- Parsed q d17 e17 ->- Parsed ( (fst p, snd p, q) ) d17 (max e17 e15)- NoParse e17 -> NoParse (max e17 e15)- NoParse e15 -> NoParse e15- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- case testPappyPEhO_clause d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_3 e1 = NoParse e1--testPappyrp_expression :: TestPappyDerivs -> Result TestPappyDerivs (RPExpression)-testPappyrp_expression d =- case testPappyoperand d of- Parsed o d1 e1 ->- case testPappyrp_expression_tail d1 of- Parsed rt d3 e3 ->- Parsed ( RPExpression o rt ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParserp_expression_tail :: TestPappyDerivs -> Result TestPappyDerivs ( Maybe RPExpressionTail)-testPappyParserp_expression_tail d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyrp_expression d of- Parsed r d3 e3 ->- case testPappyoperator d3 of- Parsed o d5 e5 ->- case testPappyrp_expression_tail d5 of- Parsed rt d7 e7 ->- Parsed ( Just (RPExpressionTail r o rt) ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ( Nothing ) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule124 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule124 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule124 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyoperator_start d of- Parsed _ d5 e5 ->- case testPappyStarRule128 d5 of- Parsed _ d7 e7 ->- case testPappySA_clause d7 of- Parsed _ d9 e9 ->- case testPappyoperator_0 d9 of- Parsed _ _ e11 ->- Parsed ( () ) d9 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyoperator :: TestPappyDerivs -> Result TestPappyDerivs (MexOperator)-testPappyoperator d =- case testPappyStarRule124 d of- Parsed _ d1 e1 ->- case testPappyoperator_0 d1 of- Parsed o0 d3 e3 ->- Parsed ( o0 ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule125 :: TestPappyDerivs -> Result TestPappyDerivs ([ Either (JoikJek, [Free], MexOperator) (Joik, Maybe Tag, Clause, [Free], MexOperator, Maybe Clause, [Free]) ])-testPappyParseStarRule125 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule125 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyjoik_jek d of- Parsed jf d7 e7 ->- case testPappyoperator_1 d7 of- Parsed o1 d9 e9 ->- Parsed ( Left (fst jf, snd jf, o1) ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyjoik d of- Parsed j d7 e7 ->- case pappyResult9 of- Parsed t d9 e9 ->- case testPappyKE_clause d9 of- Parsed ke d11 e11 ->- case testPappyStarRule188 d11 of- Parsed f d13 e13 ->- case testPappyoperator d13 of- Parsed o d15 e15 ->- case pappyResult17 of- Parsed kehe d17 e17 ->- case testPappyStarRule188 d17 of- Parsed g d19 e19 ->- Parsed ( Right (j, t, ke, f, o, kehe, g) ) d19 (maximum [e19,e17,e15,e13,e11,e9,e7,e5])- NoParse e19 -> pappyAlt5_3 (maximum [e19,e17,e15,e13,e11,e9,e7,e5])- NoParse e17 -> pappyAlt5_3 (maximum [e17,e15,e13,e11,e9,e7,e5])- where- pappyResult17 =- case testPappyKEhE_clause d15 of- Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19- NoParse e19 -> Parsed (Nothing) d15 e19- NoParse e15 -> pappyAlt5_3 (maximum [e15,e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- where- pappyResult9 =- case testPappystag d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyoperator_0 :: TestPappyDerivs -> Result TestPappyDerivs (MexOperator)-testPappyoperator_0 d =- case testPappyoperator_1 d of- Parsed o1 d1 e1 ->- case testPappyStarRule125 d1 of- Parsed j d3 e3 ->- Parsed ( JoikJekJoikKEOperator o1 j ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule128 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule128 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule128 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyoperator_start d of- NoParse e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d) []) where- pappyAlt9_1 e9 =- case testPappypre_zei_bu d of- Parsed _ d11 e11 ->- Parsed ( () ) d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappySA_clause d of- Parsed _ d11 e11 ->- case testPappyoperator_start d11 of- NoParse e13 ->- Parsed ( () ) d11 (maximum [e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- Parsed _ _ e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseoperator_start :: TestPappyDerivs -> Result TestPappyDerivs ( () )-testPappyParseoperator_start d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyguhek d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyKE_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case pappyResult3 of- Parsed _ d3 e3 ->- case testPappyNAhE_clause d3 of- Parsed _ d5 e5 ->- Parsed ( () ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- where- pappyResult3 =- case testPappySE_clause d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_4 e1 =- case pappyResult3 of- Parsed _ d3 e3 ->- case testPappyMAhO_clause d3 of- Parsed _ d5 e5 ->- Parsed ( () ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_5 (max e3 e1)- where- pappyResult3 =- case testPappySE_clause d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_5 e1 =- case pappyResult3 of- Parsed _ d3 e3 ->- case testPappyVUhU_clause d3 of- Parsed _ d5 e5 ->- Parsed ( () ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_6 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_6 (max e3 e1)- where- pappyResult3 =- case testPappySE_clause d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_6 e1 = NoParse e1--testPappyParseoperator_1 :: TestPappyDerivs -> Result TestPappyDerivs (MexOperator)-testPappyParseoperator_1 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyoperator_2 d of- Parsed o2 d3 e3 ->- case pappyResult5 of- Parsed jtbfo1 d5 e5 ->- Parsed ( maybe o2 (\(j, t, b, f, o1) -> JekJoikBOOperator o2 j t b f o1) jtbfo1 ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- where- pappyResult5 =- case pappyResult7 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- where- pappyResult7 =- case pappyResult9 of- Parsed j d9 e9 ->- case pappyResult11 of- Parsed t d11 e11 ->- case testPappyBO_clause d11 of- Parsed b d13 e13 ->- case testPappyStarRule188 d13 of- Parsed f d15 e15 ->- case testPappyoperator_1 d15 of- Parsed o1 d17 e17 ->- Parsed ( (j, t, b, f, o1) ) d17 (maximum [e17,e15,e13,e11,e9])- NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9])- NoParse e15 -> NoParse (maximum [e15,e13,e11,e9])- NoParse e13 -> NoParse (maximum [e13,e11,e9])- NoParse e11 -> NoParse (max e11 e9)- where- pappyResult11 =- case testPappystag d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> NoParse e9- where- pappyResult9 =- pappyAlt11_1 (ParseError (testPappyPos d3) []) where- pappyAlt11_1 e11 =- case testPappyjek d3 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_2 (max e13 e11)- pappyAlt11_2 e11 =- case testPappyjoik d3 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_3 (max e13 e11)- pappyAlt11_3 e11 = NoParse e11- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyguhek d of- Parsed guhek d3 e3 ->- case testPappyoperator_1 d3 of- Parsed o1 d5 e5 ->- case testPappygik d5 of- Parsed gik d7 e7 ->- case testPappyoperator_2 d7 of- Parsed o2 d9 e9 ->- Parsed ( GuhekOperator guhek o1 gik o2 ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseoperator_2 :: TestPappyDerivs -> Result TestPappyDerivs (MexOperator)-testPappyParseoperator_2 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappymex_operator d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyKE_clause d of- Parsed ke d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappyoperator d5 of- Parsed o d7 e7 ->- case pappyResult9 of- Parsed kehe d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- Parsed ( KEOperator ke f o kehe g ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case testPappyKEhE_clause d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParsemex_operator :: TestPappyDerivs -> Result TestPappyDerivs (MexOperator)-testPappyParsemex_operator d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappySE_clause d of- Parsed s d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappymex_operator d5 of- Parsed m d7 e7 ->- Parsed ( SEOperator s f m ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyNAhE_clause d of- Parsed n d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappymex_operator d5 of- Parsed m d7 e7 ->- Parsed ( NAhEOperator n f m ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyMAhO_clause d of- Parsed maho d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappymex d5 of- Parsed m d7 e7 ->- case pappyResult9 of- Parsed t d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- Parsed ( MAhO maho f m t g ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_4 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_4 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case testPappyTEhU_clause d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case pappyResult3 of- Parsed n d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappyselbri d5 of- Parsed s d7 e7 ->- case pappyResult9 of- Parsed t d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- Parsed ( NAhU n f s t g ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_5 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_5 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case testPappyTEhU_clause d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt1_5 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_5 (max e3 e1)- where- pappyResult3 =- case testPappyNAhU_pre d of- Parsed p d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_5 e1 =- case testPappyVUhU_clause d of- Parsed v d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( VUhU v f ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_6 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_6 (max e3 e1)- pappyAlt1_6 e1 = NoParse e1--testPappyParseStarRule139 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule139 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule139 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyoperand_start d of- Parsed _ d5 e5 ->- case testPappyStarRule142 d5 of- Parsed _ d7 e7 ->- case testPappySA_clause d7 of- Parsed _ d9 e9 ->- case testPappyoperand_0 d9 of- Parsed _ _ e11 ->- Parsed ( () ) d9 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyoperand :: TestPappyDerivs -> Result TestPappyDerivs (Operand)-testPappyoperand d =- case testPappyStarRule139 d of- Parsed _ d1 e1 ->- case testPappyoperand_0 d1 of- Parsed o0 d3 e3 ->- Parsed ( o0 ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseoperand_0 :: TestPappyDerivs -> Result TestPappyDerivs (Operand)-testPappyParseoperand_0 d =- case pappyResult1 of- Parsed o1 d1 e1 ->- case pappyResult3 of- Parsed jftkefokeheg d3 e3 ->- Parsed ( maybe o1 (\(j, f, t, ke, g, o, kehe, h) -> OperandJoikEkKE o1 j f t ke g o kehe h) jftkefokeheg ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case testPappyjoik_ek d1 of- Parsed jf d7 e7 ->- case pappyResult9 of- Parsed t d9 e9 ->- case testPappyKE_clause d9 of- Parsed ke d11 e11 ->- case testPappyStarRule188 d11 of- Parsed f d13 e13 ->- case testPappyoperand d13 of- Parsed o d15 e15 ->- case pappyResult17 of- Parsed kehe d17 e17 ->- case testPappyStarRule188 d17 of- Parsed g d19 e19 ->- Parsed ( (fst jf, snd jf, t, ke, f, o, kehe, g) ) d19 (maximum [e19,e17,e15,e13,e11,e9,e7])- NoParse e19 -> NoParse (maximum [e19,e17,e15,e13,e11,e9,e7])- NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9,e7])- where- pappyResult17 =- case testPappyKEhE_clause d15 of- Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19- NoParse e19 -> Parsed (Nothing) d15 e19- NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])- NoParse e11 -> NoParse (maximum [e11,e9,e7])- NoParse e9 -> NoParse (max e9 e7)- where- pappyResult9 =- case testPappystag d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> NoParse e7- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyoperand_2 d of- Parsed o2 d3 e3 ->- case testPappyStarRule143 d3 of- Parsed jeo2 d5 e5 ->- Parsed ( if null jeo2 then o2 else OperandJoikEk o2 jeo2 ) d5 (max e5 e3)- NoParse e5 -> NoParse (max e5 e3)- NoParse e3 -> NoParse e3--testPappyParseStarRule142 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule142 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule142 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyoperand_start d of- NoParse e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d) []) where- pappyAlt9_1 e9 =- case testPappypre_zei_bu d of- Parsed _ d11 e11 ->- Parsed ( () ) d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappySA_clause d of- Parsed _ d11 e11 ->- case testPappyoperand_start d11 of- NoParse e13 ->- Parsed ( () ) d11 (maximum [e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- Parsed _ _ e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseoperand_start :: TestPappyDerivs -> Result TestPappyDerivs ( () )-testPappyParseoperand_start d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyquantifier d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappylerfu_word d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyNIhE_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case testPappyMOhE_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 =- case testPappyJOhI_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_6 (max e3 e1)- pappyAlt1_6 e1 =- case testPappygek d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_7 (max e3 e1)- pappyAlt1_7 e1 =- case testPappyLAhE_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_8 (max e3 e1)- pappyAlt1_8 e1 =- case testPappyNAhE_clause d of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_9 (max e3 e1)- pappyAlt1_9 e1 = NoParse e1--testPappyParseStarRule143 :: TestPappyDerivs -> Result TestPappyDerivs ([ (JoikEk, [Free], Operand) ])-testPappyParseStarRule143 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule143 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyjoik_ek d of- Parsed j d5 e5 ->- case testPappyoperand_2 d5 of- Parsed o d7 e7 ->- Parsed ( (fst j, snd j, o) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseoperand_2 :: TestPappyDerivs -> Result TestPappyDerivs (Operand)-testPappyParseoperand_2 d =- case testPappyoperand_3 d of- Parsed o3 d1 e1 ->- case pappyResult3 of- Parsed jtbfo d3 e3 ->- Parsed ( maybe o3 (\(j, f, t, b, g, o2) -> OperandJoikEkBO o3 j f t b g o2) jtbfo ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case testPappyjoik_ek d1 of- Parsed j d7 e7 ->- case pappyResult9 of- Parsed t d9 e9 ->- case testPappyBO_clause d9 of- Parsed b d11 e11 ->- case testPappyStarRule188 d11 of- Parsed f d13 e13 ->- case testPappyoperand_2 d13 of- Parsed o d15 e15 ->- Parsed ( (fst j, snd j, t, b, f, o) ) d15 (maximum [e15,e13,e11,e9,e7])- NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])- NoParse e11 -> NoParse (maximum [e11,e9,e7])- NoParse e9 -> NoParse (max e9 e7)- where- pappyResult9 =- case testPappystag d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> NoParse e7- NoParse e1 -> NoParse e1--testPappyParsePlusRule7 :: TestPappyDerivs -> Result TestPappyDerivs ([Mex])-testPappyParsePlusRule7 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappymex_2 d of- Parsed v d3 e3 ->- case testPappyPlusRule7 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappymex_2 d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseoperand_3 :: TestPappyDerivs -> Result TestPappyDerivs (Operand)-testPappyParseoperand_3 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyquantifier d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappylerfu_string d of- Parsed l d3 e3 ->- case testPappyMOI_clause d3 of- NoParse e5 ->- case pappyResult7 of- Parsed b d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- Parsed ( OLerfuString l b f ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyBOI_clause d3 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d3 e9- Parsed _ _ e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyNIhE_clause d of- Parsed n d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappyselbri d5 of- Parsed s d7 e7 ->- case pappyResult9 of- Parsed t d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- Parsed ( NIhE n f s t g ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_4 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_4 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case testPappyTEhU_clause d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case testPappyMOhE_clause d of- Parsed m d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappysumti d5 of- Parsed s d7 e7 ->- case pappyResult9 of- Parsed t d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- Parsed ( MOhE m f s t g ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_5 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_5 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case testPappyTEhU_clause d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt1_5 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 =- case testPappyJOhI_clause d of- Parsed j d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappyPlusRule7 d5 of- Parsed m d7 e7 ->- case pappyResult9 of- Parsed t d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- Parsed ( JOhI j f m t g ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_6 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_6 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case testPappyTEhU_clause d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt1_6 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_6 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_6 (max e3 e1)- pappyAlt1_6 e1 =- case testPappygek d of- Parsed gek d3 e3 ->- case testPappyoperand d3 of- Parsed o d5 e5 ->- case testPappygik d5 of- Parsed gik d7 e7 ->- case testPappyoperand_3 d7 of- Parsed o3 d9 e9 ->- Parsed ( GekOperand gek o gik o3 ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_7 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_7 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_7 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_7 (max e3 e1)- pappyAlt1_7 e1 =- case testPappyLAhE_NAhE d of- Parsed lnbf d3 e3 ->- case testPappyoperand d3 of- Parsed o d5 e5 ->- case pappyResult7 of- Parsed l d7 e7 ->- case testPappyStarRule188 d7 of- Parsed g d9 e9 ->- Parsed ( let (ln, b, f) = lnbf in LAhE_NAhEOperand ln b f o l g ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_8 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_8 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyLUhU_clause d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_8 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_8 (max e3 e1)- pappyAlt1_8 e1 = NoParse e1--testPappynumber :: TestPappyDerivs -> Result TestPappyDerivs (Number)-testPappynumber d =- case testPappyPA_clause d of- Parsed p d1 e1 ->- case testPappyStarRule154 d1 of- Parsed pls d3 e3 ->- Parsed ( p : concat pls ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule154 :: TestPappyDerivs -> Result TestPappyDerivs ([ [Clause] ])-testPappyParseStarRule154 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule154 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyPA_clause d of- Parsed p d7 e7 ->- Parsed ( [p] ) d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappylerfu_word d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappylerfu_string :: TestPappyDerivs -> Result TestPappyDerivs (LerfuString)-testPappylerfu_string d =- case testPappylerfu_word d of- Parsed l d1 e1 ->- case testPappyStarRule154 d1 of- Parsed pls d3 e3 ->- Parsed ( l ++ concat pls ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParselerfu_word :: TestPappyDerivs -> Result TestPappyDerivs ( [Clause] )-testPappyParselerfu_word d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed b d3 e3 ->- Parsed ( [b] ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyBY_pre d of- Parsed p d7 e7 ->- case testPappypost_clause d7 of- Parsed q d9 e9 ->- Parsed ( (fst p, snd p, q) ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappypre_clause d of- Parsed p d7 e7 ->- case testPappybu_clause_no_pre d7 of- Parsed b d9 e9 ->- Parsed ( (p, fst b, snd b) ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed lau d3 e3 ->- case testPappylerfu_word d3 of- Parsed l d5 e5 ->- Parsed ( lau : l ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- case testPappyLAU_pre d of- Parsed p d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_3 e1 =- case pappyResult3 of- Parsed tei d3 e3 ->- case testPappylerfu_string d3 of- Parsed l d5 e5 ->- case pappyResult7 of- Parsed f d7 e7 ->- Parsed ( tei : l ++ [f] ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyFOI_pre d5 of- Parsed p d9 e9 ->- case testPappypost_clause d9 of- Parsed q d11 e11 ->- Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)- NoParse e11 -> NoParse (max e11 e9)- NoParse e9 -> NoParse e9- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- where- pappyResult3 =- case testPappyTEI_pre d of- Parsed p d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_4 e1 = NoParse e1--testPappyParseek :: TestPappyDerivs -> Result TestPappyDerivs (Ek)-testPappyParseek d =- case pappyResult1 of- Parsed na d1 e1 ->- case pappyResult3 of- Parsed s d3 e3 ->- case pappyResult5 of- Parsed a d5 e5 ->- case pappyResult7 of- Parsed nai d7 e7 ->- Parsed ( Ek na s a nai ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyNAI_clause d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyA_pre d3 of- Parsed p d7 e7 ->- case testPappypost_clause d7 of- Parsed q d9 e9 ->- Parsed ( (fst p, snd p, q) ) d9 (max e9 e7)- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappySE_clause d1 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyNA_clause d of- Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3- NoParse e3 -> Parsed (Nothing) d e3--testPappyParseStarRule155 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule155 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule155 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappygihek_1 d of- Parsed _ d5 e5 ->- case testPappyStarRule156 d5 of- Parsed _ d7 e7 ->- case testPappySA_clause d7 of- Parsed _ d9 e9 ->- case testPappygihek d9 of- Parsed _ _ e11 ->- Parsed ( () ) d9 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappygihek :: TestPappyDerivs -> Result TestPappyDerivs (Gihek)-testPappygihek d =- case testPappyStarRule155 d of- Parsed _ d1 e1 ->- case testPappygihek_1 d1 of- Parsed g d3 e3 ->- Parsed ( g ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParsegihek_1 :: TestPappyDerivs -> Result TestPappyDerivs (Gihek)-testPappyParsegihek_1 d =- case pappyResult1 of- Parsed na d1 e1 ->- case pappyResult3 of- Parsed s d3 e3 ->- case pappyResult5 of- Parsed g d5 e5 ->- case pappyResult7 of- Parsed nai d7 e7 ->- Parsed ( Gihek na s g nai ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyNAI_clause d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyGIhA_pre d3 of- Parsed p d7 e7 ->- case testPappypost_clause d7 of- Parsed q d9 e9 ->- Parsed ( (fst p, snd p, q) ) d9 (max e9 e7)- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappySE_clause d1 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyNA_clause d of- Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3- NoParse e3 -> Parsed (Nothing) d e3--testPappyParseStarRule156 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule156 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule156 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappygihek_1 d of- NoParse e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d) []) where- pappyAlt9_1 e9 =- case testPappypre_zei_bu d of- Parsed _ d11 e11 ->- Parsed ( () ) d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappySA_clause d of- Parsed _ d11 e11 ->- case testPappygihek_1 d11 of- NoParse e13 ->- Parsed ( () ) d11 (maximum [e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- Parsed _ _ e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsejek :: TestPappyDerivs -> Result TestPappyDerivs (Jek)-testPappyParsejek d =- case pappyResult1 of- Parsed na d1 e1 ->- case pappyResult3 of- Parsed s d3 e3 ->- case testPappyJA_clause d3 of- Parsed j d5 e5 ->- case pappyResult7 of- Parsed nai d7 e7 ->- Parsed ( Jek na s j nai ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyNAI_clause d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappySE_clause d1 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyNA_clause d of- Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3- NoParse e3 -> Parsed (Nothing) d e3--testPappyParsejoik :: TestPappyDerivs -> Result TestPappyDerivs (Joik)-testPappyParsejoik d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed s d3 e3 ->- case pappyResult5 of- Parsed j d5 e5 ->- case pappyResult7 of- Parsed n d7 e7 ->- Parsed ( JOI s j n ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyNAI_clause d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyJOI_pre d3 of- Parsed p d7 e7 ->- case testPappypost_clause d7 of- Parsed q d9 e9 ->- Parsed ( (fst p, snd p, q) ) d9 (max e9 e7)- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappySE_clause d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_2 e1 =- case testPappyinterval d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyGAhO_clause d of- Parsed g1 d3 e3 ->- case testPappyinterval d3 of- Parsed i d5 e5 ->- case testPappyGAhO_clause d5 of- Parsed g2 d7 e7 ->- Parsed ( GAhO g1 i g2 ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappyParseinterval :: TestPappyDerivs -> Result TestPappyDerivs (Joik)-testPappyParseinterval d =- case pappyResult1 of- Parsed s d1 e1 ->- case pappyResult3 of- Parsed b d3 e3 ->- case pappyResult5 of- Parsed n d5 e5 ->- Parsed ( BIhI s b n ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyNAI_clause d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyBIhI_pre d1 of- Parsed p d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappySE_clause d of- Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3- NoParse e3 -> Parsed (Nothing) d e3--testPappyParseStarRule157 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule157 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule157 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyjoik_ek_1 d of- Parsed _ d5 e5 ->- case testPappyStarRule160 d5 of- Parsed _ d7 e7 ->- case testPappySA_clause d7 of- Parsed _ d9 e9 ->- case testPappyjoik_ek d9 of- Parsed _ _ e11 ->- Parsed ( () ) d9 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyjoik_ek :: TestPappyDerivs -> Result TestPappyDerivs ( (JoikEk, [Free]) )-testPappyjoik_ek d =- case testPappyStarRule157 d of- Parsed _ d1 e1 ->- case testPappyjoik_ek_1 d1 of- Parsed j d3 e3 ->- Parsed ( j ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyjoik_ek_1 :: TestPappyDerivs -> Result TestPappyDerivs ( (JoikEk, [Free]) )-testPappyjoik_ek_1 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyjoik d of- Parsed j d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( (j, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyek d of- Parsed e d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( (e, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule160 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule160 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule160 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyjoik_ek_1 d of- NoParse e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d) []) where- pappyAlt9_1 e9 =- case testPappypre_zei_bu d of- Parsed _ d11 e11 ->- Parsed ( () ) d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappySA_clause d of- Parsed _ d11 e11 ->- case testPappyjoik_ek_1 d11 of- NoParse e13 ->- Parsed ( () ) d11 (maximum [e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- Parsed _ _ e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyjoik_jek :: TestPappyDerivs -> Result TestPappyDerivs ( (JoikJek, [Free]) )-testPappyjoik_jek d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyjoik d of- Parsed j d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( (j, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyjek d of- Parsed j d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( (j, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParsegek :: TestPappyDerivs -> Result TestPappyDerivs (Gek)-testPappyParsegek d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed s d3 e3 ->- case pappyResult5 of- Parsed g d5 e5 ->- case pappyResult7 of- Parsed n d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- Parsed ( GA s g n f ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyNAI_clause d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyGA_pre d3 of- Parsed p d7 e7 ->- case testPappypost_clause d7 of- Parsed q d9 e9 ->- Parsed ( (fst p, snd p, q) ) d9 (max e9 e7)- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappySE_clause d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_2 e1 =- case testPappyjoik d of- Parsed j d3 e3 ->- case testPappyGI_clause d3 of- Parsed g d5 e5 ->- case testPappyStarRule188 d5 of- Parsed f d7 e7 ->- Parsed ( JoikGI j g f ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappystag d of- Parsed s d3 e3 ->- case testPappygik d3 of- Parsed g d5 e5 ->- Parsed ( STagGik s g ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappyParseguhek :: TestPappyDerivs -> Result TestPappyDerivs (Guhek)-testPappyParseguhek d =- case pappyResult1 of- Parsed s d1 e1 ->- case pappyResult3 of- Parsed g d3 e3 ->- case pappyResult5 of- Parsed n d5 e5 ->- case testPappyStarRule188 d5 of- Parsed f d7 e7 ->- Parsed ( (s, g, n, f) ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyNAI_clause d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyGUhA_pre d1 of- Parsed p d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappySE_clause d of- Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3- NoParse e3 -> Parsed (Nothing) d e3--testPappyParsegik :: TestPappyDerivs -> Result TestPappyDerivs (Gik)-testPappyParsegik d =- case testPappyGI_clause d of- Parsed g d1 e1 ->- case pappyResult3 of- Parsed n d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( (g, n, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyNAI_clause d1 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- NoParse e1 -> NoParse e1--testPappytag :: TestPappyDerivs -> Result TestPappyDerivs (Tag)-testPappytag d =- case testPappytense_modal d of- Parsed t1 d1 e1 ->- case testPappyStarRule169 d1 of- Parsed jt d3 e3 ->- Parsed ( if null jt then t1 else JoikJekTag t1 jt ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule168 :: TestPappyDerivs -> Result TestPappyDerivs ([ (JoikJek, Tag) ])-testPappyParseStarRule168 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule168 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed j d5 e5 ->- case testPappysimple_tense_modal d5 of- Parsed s d7 e7 ->- Parsed ( (j, s) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- where- pappyResult5 =- pappyAlt7_1 (ParseError (testPappyPos d) []) where- pappyAlt7_1 e7 =- case testPappyjek d of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- case testPappyjoik d of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_3 (max e9 e7)- pappyAlt7_3 e7 = NoParse e7- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule169 :: TestPappyDerivs -> Result TestPappyDerivs ([ (JoikJek, [Free], Tag) ])-testPappyParseStarRule169 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule169 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyjoik_jek d of- Parsed jf d5 e5 ->- case testPappytense_modal d5 of- Parsed t d7 e7 ->- Parsed ( (fst jf, snd jf, t) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappystag :: TestPappyDerivs -> Result TestPappyDerivs (Tag)-testPappystag d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappysimple_tense_modal d of- Parsed st d3 e3 ->- case testPappyStarRule168 d3 of- Parsed jst d5 e5 ->- Parsed ( if null jst then st else JekJoikSTag st jst ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappytense_modal d of- Parsed t d3 e3 ->- case testPappyStarRule169 d3 of- Parsed jt d5 e5 ->- Parsed ( if null jt then t else JoikJekTag t jt ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParsetense_modal :: TestPappyDerivs -> Result TestPappyDerivs (Tag)-testPappyParsetense_modal d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappysimple_tense_modal d of- Parsed s d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- Parsed ( if null f then s else SimpleTenseModalFree s f ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed fiho d3 e3 ->- case testPappyStarRule188 d3 of- Parsed f d5 e5 ->- case testPappyselbri d5 of- Parsed s d7 e7 ->- case pappyResult9 of- Parsed fehu d9 e9 ->- case testPappyStarRule188 d9 of- Parsed g d11 e11 ->- Parsed ( FIhO fiho f s fehu g ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case pappyResult11 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- where- pappyResult11 =- case testPappyFEhU_pre d7 of- Parsed p d13 e13 ->- case testPappypost_clause d13 of- Parsed q d15 e15 ->- Parsed ( (fst p, snd p, q) ) d15 (max e15 e13)- NoParse e15 -> NoParse (max e15 e13)- NoParse e13 -> NoParse e13- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- case testPappyFIhO_pre d of- Parsed p d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_3 e1 = NoParse e1--testPappyParsesimple_tense_modal :: TestPappyDerivs -> Result TestPappyDerivs (Tag)-testPappyParsesimple_tense_modal d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed nahe d3 e3 ->- case pappyResult5 of- Parsed s d5 e5 ->- case pappyResult7 of- Parsed b d7 e7 ->- case pappyResult9 of- Parsed nai d9 e9 ->- case pappyResult11 of- Parsed ki d11 e11 ->- Parsed ( BAI nahe s b nai ki ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])- where- pappyResult11 =- case testPappyKI_clause d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case testPappyNAI_clause d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyBAI_pre d5 of- Parsed p d9 e9 ->- case testPappypost_clause d9 of- Parsed q d11 e11 ->- Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)- NoParse e11 -> NoParse (max e11 e9)- NoParse e9 -> NoParse e9- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappySE_clause d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyNAhE_clause d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed n d3 e3 ->- case pappyResult5 of- Parsed tsc d5 e5 ->- case pappyResult7 of- Parsed k d7 e7 ->- Parsed ( if isNothing n && isNothing k then tsc else NAhETenseKI n tsc k ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyKI_clause d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- where- pappyResult5 =- pappyAlt7_1 (ParseError (testPappyPos d3) []) where- pappyAlt7_1 e7 =- case testPappytime_space d3 of- Parsed t d9 e9 ->- case testPappyCAhA_clause d9 of- Parsed c d11 e11 ->- Parsed ( TenseCAhA t c ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_2 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- case testPappytime_space d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_3 (max e9 e7)- pappyAlt7_3 e7 =- case testPappyCAhA_clause d3 of- Parsed c d9 e9 ->- Parsed ( CAhA c ) d9 (max e9 e7)- NoParse e9 -> pappyAlt7_4 (max e9 e7)- pappyAlt7_4 e7 = NoParse e7- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- case testPappyNAhE_clause d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_3 e1 =- case testPappyKI_clause d of- Parsed k d3 e3 ->- Parsed ( KI k ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case pappyResult3 of- Parsed c d3 e3 ->- Parsed ( CUhE c ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_5 (max e3 e1)- where- pappyResult3 =- case testPappyCUhE_pre d of- Parsed p d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_5 e1 = NoParse e1--testPappytime_space :: TestPappyDerivs -> Result TestPappyDerivs (Tense)-testPappytime_space d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappytime d of- Parsed t d3 e3 ->- case pappyResult5 of- Parsed s d5 e5 ->- Parsed ( maybe t (TimeSpace t) s ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspace d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyspace d of- Parsed s d3 e3 ->- case pappyResult5 of- Parsed t d5 e5 ->- Parsed ( maybe s (SpaceTime s) t ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappytime d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParsePlusRule8 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, Maybe Clause, Maybe Clause) ])-testPappyParsePlusRule8 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappytime_offset d of- Parsed v d3 e3 ->- case testPappyPlusRule8 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappytime_offset d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule177 :: TestPappyDerivs -> Result TestPappyDerivs ([IntervalProperty])-testPappyParseStarRule177 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyinterval_property d of- Parsed v d3 e3 ->- case testPappyStarRule177 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule178 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, Maybe Clause, Maybe Clause) ])-testPappyParseStarRule178 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappytime_offset d of- Parsed v d3 e3 ->- case testPappyStarRule178 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsePlusRule9 :: TestPappyDerivs -> Result TestPappyDerivs ([IntervalProperty])-testPappyParsePlusRule9 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyinterval_property d of- Parsed v d3 e3 ->- case testPappyPlusRule9 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyinterval_property d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParsetime :: TestPappyDerivs -> Result TestPappyDerivs (Tense)-testPappyParsetime d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyZI_clause d of- Parsed zi d3 e3 ->- case testPappyStarRule178 d3 of- Parsed t d5 e5 ->- case pappyResult7 of- Parsed zeha d7 e7 ->- case testPappyStarRule177 d7 of- Parsed i d9 e9 ->- Parsed ( Time (Just zi) t zeha i ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyzeha_pu d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed zi d3 e3 ->- case testPappyPlusRule8 d3 of- Parsed t d5 e5 ->- case pappyResult7 of- Parsed zeha d7 e7 ->- case testPappyStarRule177 d7 of- Parsed i d9 e9 ->- Parsed ( Time zi t zeha i ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyzeha_pu d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- case testPappyZI_clause d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_3 e1 =- case pappyResult3 of- Parsed zi d3 e3 ->- case testPappyStarRule178 d3 of- Parsed t d5 e5 ->- case testPappyzeha_pu d5 of- Parsed zeha d7 e7 ->- case testPappyStarRule177 d7 of- Parsed i d9 e9 ->- Parsed ( Time zi t (Just zeha) i ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_4 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- where- pappyResult3 =- case testPappyZI_clause d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_4 e1 =- case pappyResult3 of- Parsed zi d3 e3 ->- case testPappyStarRule178 d3 of- Parsed t d5 e5 ->- case pappyResult7 of- Parsed zeha d7 e7 ->- case testPappyPlusRule9 d7 of- Parsed i d9 e9 ->- Parsed ( Time zi t zeha i ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_5 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_5 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyzeha_pu d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_5 (max e3 e1)- where- pappyResult3 =- case testPappyZI_clause d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_5 e1 = NoParse e1--testPappyParsezeha_pu :: TestPappyDerivs -> Result TestPappyDerivs ( (Clause, Maybe (Clause, Maybe Clause)) )-testPappyParsezeha_pu d =- case pappyResult1 of- Parsed z d1 e1 ->- case pappyResult3 of- Parsed pn d3 e3 ->- Parsed ( (z, pn) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case testPappyPU_clause d1 of- Parsed p d7 e7 ->- case pappyResult9 of- Parsed n d9 e9 ->- Parsed ( (p, n) ) d9 (max e9 e7)- NoParse e9 -> NoParse (max e9 e7)- where- pappyResult9 =- case testPappyNAI_clause d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> NoParse e7- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyZEhA_pre d of- Parsed p d3 e3 ->- case testPappypost_clause d3 of- Parsed q d5 e5 ->- Parsed ( (fst p, snd p, q) ) d5 (max e5 e3)- NoParse e5 -> NoParse (max e5 e3)- NoParse e3 -> NoParse e3--testPappyParsetime_offset :: TestPappyDerivs -> Result TestPappyDerivs ( (Clause, Maybe Clause, Maybe Clause) )-testPappyParsetime_offset d =- case testPappyPU_clause d of- Parsed p d1 e1 ->- case pappyResult3 of- Parsed n d3 e3 ->- case pappyResult5 of- Parsed z d5 e5 ->- Parsed ( (p, n, z) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyZI_clause d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyNAI_clause d1 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- NoParse e1 -> NoParse e1--testPappyParsePlusRule10 :: TestPappyDerivs -> Result TestPappyDerivs ([SpaceOffset])-testPappyParsePlusRule10 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyspace_offset d of- Parsed v d3 e3 ->- case testPappyPlusRule10 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyspace_offset d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule181 :: TestPappyDerivs -> Result TestPappyDerivs ([SpaceOffset])-testPappyParseStarRule181 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyspace_offset d of- Parsed v d3 e3 ->- case testPappyStarRule181 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsespace :: TestPappyDerivs -> Result TestPappyDerivs (Tense)-testPappyParsespace d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyVA_clause d of- Parsed v d3 e3 ->- case testPappyStarRule181 d3 of- Parsed so d5 e5 ->- case pappyResult7 of- Parsed si d7 e7 ->- case pappyResult9 of- Parsed m d9 e9 ->- Parsed ( Space (Just v) so si m ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case testPappymohi_space_offset d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyspace_interval d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyPlusRule10 d3 of- Parsed so d5 e5 ->- case pappyResult7 of- Parsed si d7 e7 ->- case pappyResult9 of- Parsed m d9 e9 ->- Parsed ( Space v so si m ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case testPappymohi_space_offset d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyspace_interval d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- case testPappyVA_clause d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_3 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule181 d3 of- Parsed so d5 e5 ->- case testPappyspace_interval d5 of- Parsed si d7 e7 ->- case pappyResult9 of- Parsed m d9 e9 ->- Parsed ( Space v so (Just si) m ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_4 (maximum [e9,e7,e5,e3,e1])- where- pappyResult9 =- case testPappymohi_space_offset d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- where- pappyResult3 =- case testPappyVA_clause d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_4 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule181 d3 of- Parsed so d5 e5 ->- case pappyResult7 of- Parsed si d7 e7 ->- case testPappymohi_space_offset d7 of- Parsed m d9 e9 ->- Parsed ( Space v so si (Just m) ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_5 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_5 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyspace_interval d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_5 (max e3 e1)- where- pappyResult3 =- case testPappyVA_clause d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_5 e1 = NoParse e1--testPappymohi_space_offset :: TestPappyDerivs -> Result TestPappyDerivs ( (Clause, SpaceOffset) )-testPappymohi_space_offset d =- case pappyResult1 of- Parsed m d1 e1 ->- case testPappyspace_offset d1 of- Parsed s d3 e3 ->- Parsed ( (m, s) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyMOhI_pre d of- Parsed p d3 e3 ->- case testPappypost_clause d3 of- Parsed q d5 e5 ->- Parsed ( (fst p, snd p, q) ) d5 (max e5 e3)- NoParse e5 -> NoParse (max e5 e3)- NoParse e3 -> NoParse e3--testPappyParsespace_offset :: TestPappyDerivs -> Result TestPappyDerivs (SpaceOffset)-testPappyParsespace_offset d =- case testPappyFAhA_clause d of- Parsed f d1 e1 ->- case pappyResult3 of- Parsed n d3 e3 ->- case pappyResult5 of- Parsed v d5 e5 ->- Parsed ( FAhA f n v ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyVA_clause d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyNAI_clause d1 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- NoParse e1 -> NoParse e1--testPappyParsespace_interval :: TestPappyDerivs -> Result TestPappyDerivs (SpaceInterval)-testPappyParsespace_interval d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyVEhA_VIhA d of- Parsed vv d3 e3 ->- case pappyResult5 of- Parsed fn d5 e5 ->- case pappyResult7 of- Parsed s d7 e7 ->- Parsed ( maybe (uncurry VEhAVIhAFEhE vv s) (\(f, n) -> uncurry VEhAVIhAFAhAFEhE vv f n s) fn ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyPlusRule11 d5 of- Parsed s d9 e9 ->- Parsed ( FEhE s ) d9 e9- NoParse e9 -> NoParse e9- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyFAhA_NAI d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyVEhA_VIhA d of- Parsed vv d3 e3 ->- case pappyResult5 of- Parsed fn d5 e5 ->- Parsed ( maybe (uncurry VEhAVIhA vv) (\(f, n) -> uncurry VEhAVIhAFAhA vv f n) fn ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyFAhA_NAI d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyPlusRule11 d of- Parsed s d3 e3 ->- Parsed ( FEhE s ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappyParseVEhA_VIhA :: TestPappyDerivs -> Result TestPappyDerivs ( (Maybe Clause, Maybe Clause) )-testPappyParseVEhA_VIhA d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyVEhA_clause d of- Parsed veha d3 e3 ->- case testPappyVIhA_clause d3 of- NoParse e5 ->- Parsed ( (Just veha, Nothing) ) d3 (maximum [e5,e3,e1])- Parsed _ _ e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyVIhA_clause d of- Parsed viha d3 e3 ->- Parsed ( (Nothing, Just viha) ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyVEhA_clause d of- Parsed veha d3 e3 ->- case testPappyVIhA_clause d3 of- Parsed viha d5 e5 ->- Parsed ( (Just veha, Just viha) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappyFAhA_NAI :: TestPappyDerivs -> Result TestPappyDerivs ( (Clause, Maybe Clause) )-testPappyFAhA_NAI d =- case testPappyFAhA_clause d of- Parsed f d1 e1 ->- case pappyResult3 of- Parsed n d3 e3 ->- Parsed ( (f, n) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyNAI_clause d1 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- NoParse e1 -> NoParse e1--testPappyParsePlusRule11 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, IntervalProperty) ])-testPappyParsePlusRule11 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyspace_int_prop d of- Parsed v d3 e3 ->- case testPappyPlusRule11 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyspace_int_prop d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyspace_int_prop :: TestPappyDerivs -> Result TestPappyDerivs ( (Clause, IntervalProperty) )-testPappyspace_int_prop d =- case pappyResult1 of- Parsed f d1 e1 ->- case testPappyinterval_property d1 of- Parsed ip d3 e3 ->- Parsed ( (f, ip) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyFEhE_pre d of- Parsed p d3 e3 ->- case testPappypost_clause d3 of- Parsed q d5 e5 ->- Parsed ( (fst p, snd p, q) ) d5 (max e5 e3)- NoParse e5 -> NoParse (max e5 e3)- NoParse e3 -> NoParse e3--testPappyParseinterval_property :: TestPappyDerivs -> Result TestPappyDerivs (IntervalProperty)-testPappyParseinterval_property d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappynumber d of- Parsed n d3 e3 ->- case pappyResult5 of- Parsed r d5 e5 ->- case pappyResult7 of- Parsed nai d7 e7 ->- Parsed ( ROI n r nai ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyNAI_clause d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyROI_pre d3 of- Parsed p d7 e7 ->- case testPappypost_clause d7 of- Parsed q d9 e9 ->- Parsed ( (fst p, snd p, q) ) d9 (max e9 e7)- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed t d3 e3 ->- case pappyResult5 of- Parsed n d5 e5 ->- Parsed ( TAhE t n ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyNAI_clause d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- case testPappyTAhE_pre d of- Parsed p d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_3 e1 =- case pappyResult3 of- Parsed z d3 e3 ->- case pappyResult5 of- Parsed n d5 e5 ->- Parsed ( ZAhO z n ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyNAI_clause d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> pappyAlt1_4 (max e3 e1)- where- pappyResult3 =- case testPappyZAhO_pre d of- Parsed p d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_4 e1 = NoParse e1--testPappyParsePlusRule12 :: TestPappyDerivs -> Result TestPappyDerivs ([Clause])-testPappyParsePlusRule12 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyCMENE_clause d of- Parsed v d3 e3 ->- case testPappyPlusRule12 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyCMENE_clause d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule188 :: TestPappyDerivs -> Result TestPappyDerivs ([Free])-testPappyParseStarRule188 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule188 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case pappyResult7 of- Parsed sei d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- case pappyResult11 of- Parsed t d11 e11 ->- case testPappyselbri d11 of- Parsed s d13 e13 ->- case pappyResult15 of- Parsed sehu d15 e15 ->- Parsed ( SEI sei f t s sehu ) d15 (maximum [e15,e13,e11,e9,e7,e5])- NoParse e15 -> pappyAlt5_2 (maximum [e15,e13,e11,e9,e7,e5])- where- pappyResult15 =- case testPappySEhU_clause d13 of- Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17- NoParse e17 -> Parsed (Nothing) d13 e17- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- where- pappyResult11 =- case pappyResult13 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- where- pappyResult13 =- case testPappyPlusRule3 d9 of- Parsed t d15 e15 ->- case pappyResult17 of- Parsed c d17 e17 ->- case testPappyStarRule188 d17 of- Parsed f d19 e19 ->- Parsed ( (t, c, f) ) d19 (maximum [e19,e17,e15])- NoParse e19 -> NoParse (maximum [e19,e17,e15])- NoParse e17 -> NoParse (max e17 e15)- where- pappyResult17 =- case testPappyCU_clause d15 of- Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19- NoParse e19 -> Parsed (Nothing) d15 e19- NoParse e15 -> NoParse e15- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- where- pappyResult7 =- case testPappySEI_pre d of- Parsed p d9 e9 ->- case testPappypost_clause d9 of- Parsed q d11 e11 ->- Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)- NoParse e11 -> NoParse (max e11 e9)- NoParse e9 -> NoParse e9- pappyAlt5_2 e5 =- case pappyResult7 of- Parsed soi d7 e7 ->- case testPappyStarRule188 d7 of- Parsed f d9 e9 ->- case testPappysumti d9 of- Parsed s d11 e11 ->- case pappyResult13 of- Parsed t d13 e13 ->- case pappyResult15 of- Parsed sehu d15 e15 ->- Parsed ( SOI soi f s t sehu ) d15 (maximum [e15,e13,e11,e9,e7,e5])- NoParse e15 -> pappyAlt5_3 (maximum [e15,e13,e11,e9,e7,e5])- where- pappyResult15 =- case testPappySEhU_clause d13 of- Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17- NoParse e17 -> Parsed (Nothing) d13 e17- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- where- pappyResult13 =- case testPappysumti d11 of- Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15- NoParse e15 -> Parsed (Nothing) d11 e15- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- where- pappyResult7 =- case testPappySOI_pre d of- Parsed p d9 e9 ->- case testPappypost_clause d9 of- Parsed q d11 e11 ->- Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)- NoParse e11 -> NoParse (max e11 e9)- NoParse e9 -> NoParse e9- pappyAlt5_3 e5 =- case testPappyvocative d of- Parsed v d7 e7 ->- case pappyResult9 of- Parsed r1 d9 e9 ->- case testPappyselbri d9 of- Parsed s d11 e11 ->- case pappyResult13 of- Parsed r2 d13 e13 ->- case pappyResult15 of- Parsed d d15 e15 ->- Parsed ( VocativeSelbri v r1 s r2 d ) d15 (maximum [e15,e13,e11,e9,e7,e5])- NoParse e15 -> pappyAlt5_4 (maximum [e15,e13,e11,e9,e7,e5])- where- pappyResult15 =- case testPappyDOhU_clause d13 of- Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17- NoParse e17 -> Parsed (Nothing) d13 e17- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- where- pappyResult13 =- case testPappyrelative_clauses d11 of- Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15- NoParse e15 -> Parsed (Nothing) d11 e15- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- where- pappyResult9 =- case testPappyrelative_clauses d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyvocative d of- Parsed v d7 e7 ->- case pappyResult9 of- Parsed r1 d9 e9 ->- case testPappyPlusRule12 d9 of- Parsed c d11 e11 ->- case testPappyStarRule188 d11 of- Parsed f d13 e13 ->- case pappyResult15 of- Parsed r2 d15 e15 ->- case pappyResult17 of- Parsed d d17 e17 ->- Parsed ( VocativeCmene v r1 c f r2 d ) d17 (maximum [e17,e15,e13,e11,e9,e7,e5])- NoParse e17 -> pappyAlt5_5 (maximum [e17,e15,e13,e11,e9,e7,e5])- where- pappyResult17 =- case testPappyDOhU_clause d15 of- Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19- NoParse e19 -> Parsed (Nothing) d15 e19- NoParse e15 -> pappyAlt5_5 (maximum [e15,e13,e11,e9,e7,e5])- where- pappyResult15 =- case testPappyrelative_clauses d13 of- Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17- NoParse e17 -> Parsed (Nothing) d13 e17- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- where- pappyResult9 =- case testPappyrelative_clauses d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyvocative d of- Parsed v d7 e7 ->- case pappyResult9 of- Parsed s d9 e9 ->- case pappyResult11 of- Parsed d d11 e11 ->- Parsed ( VocativeSumti v s d ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- where- pappyResult11 =- case testPappyDOhU_clause d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- where- pappyResult9 =- case testPappysumti d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case pappyResult7 of- Parsed nl d7 e7 ->- case pappyResult9 of- Parsed m d9 e9 ->- Parsed ( MAI nl m ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- where- pappyResult9 =- case testPappyMAI_pre d7 of- Parsed p d11 e11 ->- case testPappypost_clause d11 of- Parsed q d13 e13 ->- Parsed ( (fst p, snd p, q) ) d13 (max e13 e11)- NoParse e13 -> NoParse (max e13 e11)- NoParse e11 -> NoParse e11- NoParse e7 -> pappyAlt5_7 (max e7 e5)- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d) []) where- pappyAlt9_1 e9 =- case testPappynumber d of- Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappylerfu_string d of- Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = NoParse e9- pappyAlt5_7 e5 =- case testPappyTO_clause d of- Parsed to d7 e7 ->- case testPappytext d7 of- Parsed t d9 e9 ->- case pappyResult11 of- Parsed toi d11 e11 ->- Parsed ( TO to t toi ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])- where- pappyResult11 =- case pappyResult13 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- where- pappyResult13 =- case testPappyTOI_pre d9 of- Parsed p d15 e15 ->- case testPappypost_clause d15 of- Parsed q d17 e17 ->- Parsed ( (fst p, snd p, q) ) d17 (max e17 e15)- NoParse e17 -> NoParse (max e17 e15)- NoParse e15 -> NoParse e15- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 =- pappyAlt7_1 e5 where- pappyAlt7_1 e7 =- case testPappyXI_clause d of- Parsed x d9 e9 ->- case testPappyStarRule188 d9 of- Parsed f d11 e11 ->- case pappyResult13 of- Parsed n d13 e13 ->- case pappyResult15 of- Parsed b d15 e15 ->- Parsed ( XINumber x f n b ) d15 (maximum [e15,e13,e11,e9,e7])- NoParse e15 -> pappyAlt7_2 (maximum [e15,e13,e11,e9,e7])- where- pappyResult15 =- case testPappyBOI_clause d13 of- Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17- NoParse e17 -> Parsed (Nothing) d13 e17- NoParse e13 -> pappyAlt7_2 (maximum [e13,e11,e9,e7])- where- pappyResult13 =- pappyAlt15_1 (ParseError (testPappyPos d11) []) where- pappyAlt15_1 e15 =- case testPappynumber d11 of- Parsed v17 d17 e17 -> Parsed v17 d17 (max e17 e15)- NoParse e17 -> pappyAlt15_2 (max e17 e15)- pappyAlt15_2 e15 =- case testPappylerfu_string d11 of- Parsed v17 d17 e17 -> Parsed v17 d17 (max e17 e15)- NoParse e17 -> pappyAlt15_3 (max e17 e15)- pappyAlt15_3 e15 = NoParse e15- NoParse e11 -> pappyAlt7_2 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- case testPappyXI_clause d of- Parsed x d9 e9 ->- case testPappyStarRule188 d9 of- Parsed f d11 e11 ->- case testPappyVEI_clause d11 of- Parsed vei d13 e13 ->- case testPappyStarRule188 d13 of- Parsed g d15 e15 ->- case testPappymex d15 of- Parsed m d17 e17 ->- case pappyResult19 of- Parsed veho d19 e19 ->- Parsed ( XIMex x f vei g m veho ) d19 (maximum [e19,e17,e15,e13,e11,e9,e7])- NoParse e19 -> pappyAlt7_3 (maximum [e19,e17,e15,e13,e11,e9,e7])- where- pappyResult19 =- case testPappyVEhO_clause d17 of- Parsed v21 d21 e21 -> Parsed (Just v21) d21 e21- NoParse e21 -> Parsed (Nothing) d17 e21- NoParse e17 -> pappyAlt7_3 (maximum [e17,e15,e13,e11,e9,e7])- NoParse e15 -> pappyAlt7_3 (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> pappyAlt7_3 (maximum [e13,e11,e9,e7])- NoParse e11 -> pappyAlt7_3 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_3 (max e9 e7)- pappyAlt7_3 e7 = pappyAlt5_9 e7- pappyAlt5_9 e5 = NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsePlusRule13 :: TestPappyDerivs -> Result TestPappyDerivs ([ [([String], String, Indicators)] ])-testPappyParsePlusRule13 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappycoi_nai d of- Parsed v d3 e3 ->- case testPappyPlusRule13 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappycoi_nai d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule189 :: TestPappyDerivs -> Result TestPappyDerivs ([ [([String], String, Indicators)] ])-testPappyParseStarRule189 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappycoi_nai d of- Parsed v d3 e3 ->- case testPappyStarRule189 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsevocative :: TestPappyDerivs -> Result TestPappyDerivs ( [([String], String, Indicators)] )-testPappyParsevocative d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyPlusRule13 d of- Parsed cns d3 e3 ->- case testPappyDOI_clause d3 of- Parsed d d5 e5 ->- Parsed ( concat cns ++ [d] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappycoi_nai d of- Parsed cn d3 e3 ->- case testPappyStarRule189 d3 of- Parsed cns d5 e5 ->- Parsed ( cn ++ concat cns ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyDOI_clause d of- Parsed d d3 e3 ->- Parsed ( [d] ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappyParsecoi_nai :: TestPappyDerivs -> Result TestPappyDerivs ( [([String], String, Indicators)] )-testPappyParsecoi_nai d =- case pappyResult1 of- Parsed c d1 e1 ->- case pappyResult3 of- Parsed n d3 e3 ->- Parsed ( c : ml n ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyNAI_clause d1 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyCOI_pre d of- Parsed p d3 e3 ->- case testPappypost_clause d3 of- Parsed q d5 e5 ->- Parsed ( (fst p, snd p, q) ) d5 (max e5 e3)- NoParse e5 -> NoParse (max e5 e3)- NoParse e3 -> NoParse e3--testPappyParsePlusRule14 :: TestPappyDerivs -> Result TestPappyDerivs ([ [([String], String)] ])-testPappyParsePlusRule14 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyindicator d of- Parsed v d3 e3 ->- case testPappyPlusRule14 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyindicator d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyindicators :: TestPappyDerivs -> Result TestPappyDerivs ( [([String], String)] )-testPappyindicators d =- case pappyResult1 of- Parsed f d1 e1 ->- case testPappyPlusRule14 d1 of- Parsed is d3 e3 ->- Parsed ( ml f ++ concat is ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- case pappyResult3 of- Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3- NoParse e3 -> Parsed (Nothing) d e3- where- pappyResult3 =- case testPappyFUhE_pre d of- Parsed pre d5 e5 ->- case testPappypost_clause_no_ind d5 of- Parsed _ d7 e7 ->- Parsed ( pre ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5--testPappyParseindicator :: TestPappyDerivs -> Result TestPappyDerivs ( [([String], String)] )-testPappyParseindicator d =- case pappyResult1 of- Parsed i d1 e1 ->- case testPappyBU_pre d1 of- NoParse e3 ->- Parsed ( i ) d1 (max e3 e1)- Parsed _ _ e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (testPappyPos d) []) where- pappyAlt3_1 e3 =- case pappyResult5 of- Parsed uc d5 e5 ->- case pappyResult7 of- Parsed n d7 e7 ->- Parsed ( uc : ml n ) d7 (maximum [e7,e5,e3])- NoParse e7 -> pappyAlt3_2 (maximum [e7,e5,e3])- where- pappyResult7 =- case pappyResult9 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- where- pappyResult9 =- case testPappyNAI_pre d5 of- Parsed p d11 e11 ->- case testPappypost_clause_no_ind d11 of- Parsed _ d13 e13 ->- Parsed ( p ) d13 (max e13 e11)- NoParse e13 -> NoParse (max e13 e11)- NoParse e11 -> NoParse e11- NoParse e5 -> pappyAlt3_2 (max e5 e3)- where- pappyResult5 =- pappyAlt7_1 (ParseError (testPappyPos d) []) where- pappyAlt7_1 e7 =- case testPappyUI_pre d of- Parsed pre d9 e9 ->- case testPappypost_clause_no_ind d9 of- Parsed _ d11 e11 ->- Parsed ( pre ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_2 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- case testPappyCAI_pre d of- Parsed pre d9 e9 ->- case testPappypost_clause_no_ind d9 of- Parsed _ d11 e11 ->- Parsed ( pre ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_3 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_3 (max e9 e7)- pappyAlt7_3 e7 = NoParse e7- pappyAlt3_2 e3 =- case pappyResult5 of- Parsed d d5 e5 ->- Parsed ( d : [] ) d5 (max e5 e3)- NoParse e5 -> pappyAlt3_3 (max e5 e3)- where- pappyResult5 =- case testPappyDAhO_pre d of- Parsed pre d7 e7 ->- case testPappypost_clause_no_ind d7 of- Parsed _ d9 e9 ->- Parsed ( pre ) d9 (max e9 e7)- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- pappyAlt3_3 e3 =- case pappyResult5 of- Parsed f d5 e5 ->- Parsed ( f : [] ) d5 (max e5 e3)- NoParse e5 -> pappyAlt3_4 (max e5 e3)- where- pappyResult5 =- case testPappyFUhO_pre d of- Parsed pre d7 e7 ->- case testPappypost_clause_no_ind d7 of- Parsed post d9 e9 ->- Parsed ( pre ) d9 (max e9 e7)- NoParse e9 -> NoParse (max e9 e7)- NoParse e7 -> NoParse e7- pappyAlt3_4 e3 = NoParse e3--testPappyParseStarRule190 :: TestPappyDerivs -> Result TestPappyDerivs ([String])-testPappyParseStarRule190 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule190 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed z d5 e5 ->- case pappyResult7 of- Parsed b d7 e7 ->- Parsed ( concatMap (" zei " ++) (fromMaybe [] z) ++ concat (replicate b " bu") ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- case testPappyPlusRule16 d5 of- Parsed b d9 e9 ->- Parsed ( length b ) d9 e9- NoParse e9 -> NoParse e9- NoParse e5 -> NoParse e5- where- pappyResult5 =- case pappyResult7 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d e7- where- pappyResult7 =- case testPappyPlusRule15 d of- Parsed ws d9 e9 ->- Parsed ( ws ) d9 e9- NoParse e9 -> NoParse e9- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyzei_clause_no_pre :: TestPappyDerivs -> Result TestPappyDerivs ( (String, Indicators) )-testPappyzei_clause_no_pre d =- case testPappypre_zei_bu d of- Parsed p d1 e1 ->- case testPappyStarRule190 d1 of- Parsed zb d3 e3 ->- case pappyResult5 of- Parsed z d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( (p ++ concat zb ++ concatMap (" zei " ++) z, q) ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyPlusRule15 d3 of- Parsed ws d7 e7 ->- Parsed ( ws ) d7 e7- NoParse e7 -> NoParse e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule191 :: TestPappyDerivs -> Result TestPappyDerivs ([String])-testPappyParseStarRule191 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule191 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed b d5 e5 ->- case pappyResult7 of- Parsed z d7 e7 ->- Parsed ( concat (replicate (fromMaybe 0 b) " bu") ++ concatMap (" zei " ++) z ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- case testPappyPlusRule15 d5 of- Parsed ws d9 e9 ->- Parsed ( ws ) d9 e9- NoParse e9 -> NoParse e9- NoParse e5 -> NoParse e5- where- pappyResult5 =- case pappyResult7 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d e7- where- pappyResult7 =- case testPappyPlusRule16 d of- Parsed b d9 e9 ->- Parsed ( length b ) d9 e9- NoParse e9 -> NoParse e9- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappybu_clause_no_pre :: TestPappyDerivs -> Result TestPappyDerivs ( (String, Indicators) )-testPappybu_clause_no_pre d =- case testPappypre_zei_bu d of- Parsed p d1 e1 ->- case testPappyStarRule191 d1 of- Parsed bz d3 e3 ->- case pappyResult5 of- Parsed b d5 e5 ->- case testPappypost_clause d5 of- Parsed q d7 e7 ->- Parsed ( (p ++ concat bz ++ concat (replicate b " bu"), q) ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyPlusRule16 d3 of- Parsed b d7 e7 ->- Parsed ( length b ) d7 e7- NoParse e7 -> NoParse e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParsePlusRule15 :: TestPappyDerivs -> Result TestPappyDerivs ([ String ])-testPappyParsePlusRule15 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyzei_word d of- Parsed v d3 e3 ->- case testPappyPlusRule15 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyzei_word d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyzei_word :: TestPappyDerivs -> Result TestPappyDerivs ( String )-testPappyzei_word d =- case testPappyZEI_pre d of- Parsed _ d1 e1 ->- case testPappyany_word d1 of- Parsed w d3 e3 ->- Parsed ( w ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParsePlusRule16 :: TestPappyDerivs -> Result TestPappyDerivs ([Pre])-testPappyParsePlusRule16 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyBU_pre d of- Parsed v d3 e3 ->- case testPappyPlusRule16 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyBU_pre d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParsepre_zei_bu :: TestPappyDerivs -> Result TestPappyDerivs ( String )-testPappyParsepre_zei_bu d =- case pappyResult1 of- NoParse e1 ->- case testPappyBU_pre d of- NoParse e3 ->- case testPappyZEI_pre d of- NoParse e5 ->- case testPappySI_clause d of- NoParse e7 ->- case testPappySA_clause d of- NoParse e9 ->- case testPappySU_clause d of- NoParse e11 ->- case testPappyFAhO_clause d of- NoParse e13 ->- case testPappyany_word_SA_handling d of- Parsed w d15 e15 ->- case pappyResult17 of- Parsed _ d17 e17 ->- Parsed ( snd w ) d17 (maximum [e17,e15,e13,e11,e9,e7,e5,e3,e1])- NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9,e7,e5,e3,e1])- where- pappyResult17 =- case pappyResult19 of- Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19- NoParse e19 -> Parsed (Nothing) d15 e19- where- pappyResult19 =- case testPappyPlusRule17 d15 of- Parsed _ d21 e21 ->- Parsed ( () ) d21 e21- NoParse e21 -> NoParse e21- NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7,e5,e3,e1])- Parsed _ _ e13 -> NoParse (maximum [e13,e11,e9,e7,e5,e3,e1])- Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- Parsed _ _ e3 -> NoParse (max e3 e1)- Parsed _ _ e1 -> NoParse e1- where- pappyResult1 =- case testPappyPlusRule18 d of- Parsed bs d3 e3 ->- Parsed ( bs ) d3 e3- NoParse e3 -> NoParse e3--testPappyParseStarRule192 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])-testPappyParseStarRule192 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyanyChar d of- Parsed v d3 e3 ->- case testPappyStarRule192 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule193 :: TestPappyDerivs -> Result TestPappyDerivs ([ [([String], String)] ])-testPappyParseStarRule193 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyindicators d of- Parsed v d3 e3 ->- case testPappyStarRule193 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsepost_clause :: TestPappyDerivs -> Result TestPappyDerivs ( [[([String], String)]] )-testPappyParsepost_clause d =- case pappyResult1 of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed _ d3 e3 ->- case testPappyZEI_pre d3 of- NoParse e5 ->- case testPappyBU_pre d3 of- NoParse e7 ->- case testPappyStarRule193 d3 of- Parsed is d9 e9 ->- Parsed ( is ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case testPappyPlusRule17 d1 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 e7- NoParse e7 -> NoParse e7- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyspaces d of- Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3- NoParse e3 -> Parsed (Nothing) d e3--testPappyParsepost_clause_no_ind :: TestPappyDerivs -> Result TestPappyDerivs ( () )-testPappyParsepost_clause_no_ind d =- case pappyResult1 of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed _ d3 e3 ->- case testPappyZEI_pre d3 of- NoParse e5 ->- case testPappyBU_pre d3 of- NoParse e7 ->- Parsed ( () ) d3 (maximum [e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case testPappyPlusRule17 d1 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 e7- NoParse e7 -> NoParse e7- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyspaces d of- Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3- NoParse e3 -> Parsed (Nothing) d e3--testPappypre_clause :: TestPappyDerivs -> Result TestPappyDerivs ( [String] )-testPappypre_clause d =- case pappyResult1 of- Parsed b d1 e1 ->- Parsed ( fromMaybe [] b ) d1 e1- NoParse e1 -> NoParse e1- where- pappyResult1 =- case pappyResult3 of- Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3- NoParse e3 -> Parsed (Nothing) d e3- where- pappyResult3 =- case testPappyPlusRule18 d of- Parsed bs d5 e5 ->- Parsed ( bs ) d5 e5- NoParse e5 -> NoParse e5--testPappyParseany_word_SA_handling :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )-testPappyParseany_word_SA_handling d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyBRIVLA_pre d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- pappyAlt3_1 e1 where- pappyAlt3_1 e3 =- case testPappyA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case testPappyBAI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 =- case testPappyBAhE d of- Parsed b d5 e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( ([], b) ) d7 (maximum [e7,e5,e3])- NoParse e7 -> pappyAlt3_4 (maximum [e7,e5,e3])- where- pappyResult7 =- case testPappyspaces d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt3_4 (max e5 e3)- pappyAlt3_4 e3 =- case testPappyBE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_5 (max e5 e3)- pappyAlt3_5 e3 =- case testPappyBEI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_6 (max e5 e3)- pappyAlt3_6 e3 =- case testPappyBEhO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_7 (max e5 e3)- pappyAlt3_7 e3 =- case testPappyBIhE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_8 (max e5 e3)- pappyAlt3_8 e3 =- case testPappyBIhI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_9 (max e5 e3)- pappyAlt3_9 e3 =- case testPappyBO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_10 (max e5 e3)- pappyAlt3_10 e3 =- case testPappyBOI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_11 (max e5 e3)- pappyAlt3_11 e3 =- case testPappyBU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_12 (max e5 e3)- pappyAlt3_12 e3 =- case testPappyBY_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_13 (max e5 e3)- pappyAlt3_13 e3 =- case testPappyCAI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_14 (max e5 e3)- pappyAlt3_14 e3 =- case testPappyCAhA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_15 (max e5 e3)- pappyAlt3_15 e3 =- case testPappyCEI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_16 (max e5 e3)- pappyAlt3_16 e3 =- case testPappyCEhE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_17 (max e5 e3)- pappyAlt3_17 e3 =- case testPappyCO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_18 (max e5 e3)- pappyAlt3_18 e3 =- case testPappyCOI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_19 (max e5 e3)- pappyAlt3_19 e3 =- case testPappyCU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_20 (max e5 e3)- pappyAlt3_20 e3 =- case testPappyCUhE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_21 (max e5 e3)- pappyAlt3_21 e3 =- case testPappyDAhO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_22 (max e5 e3)- pappyAlt3_22 e3 =- case testPappyDOI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_23 (max e5 e3)- pappyAlt3_23 e3 =- case testPappyDOhU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_24 (max e5 e3)- pappyAlt3_24 e3 =- case testPappyFA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_25 (max e5 e3)- pappyAlt3_25 e3 =- case testPappyFAhA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_26 (max e5 e3)- pappyAlt3_26 e3 =- case testPappyFEhE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_27 (max e5 e3)- pappyAlt3_27 e3 =- case testPappyFEhU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_28 (max e5 e3)- pappyAlt3_28 e3 =- case testPappyFIhO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_29 (max e5 e3)- pappyAlt3_29 e3 =- case testPappyFOI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_30 (max e5 e3)- pappyAlt3_30 e3 =- case testPappyFUhA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_31 (max e5 e3)- pappyAlt3_31 e3 =- case testPappyFUhE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_32 (max e5 e3)- pappyAlt3_32 e3 =- case testPappyFUhO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_33 (max e5 e3)- pappyAlt3_33 e3 =- case testPappyGA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_34 (max e5 e3)- pappyAlt3_34 e3 =- case testPappyGAhO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_35 (max e5 e3)- pappyAlt3_35 e3 =- case testPappyGEhU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_36 (max e5 e3)- pappyAlt3_36 e3 =- case testPappyGI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_37 (max e5 e3)- pappyAlt3_37 e3 =- case testPappyGIhA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_38 (max e5 e3)- pappyAlt3_38 e3 =- case testPappyGOI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_39 (max e5 e3)- pappyAlt3_39 e3 =- case testPappyGOhA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_40 (max e5 e3)- pappyAlt3_40 e3 =- case testPappyGUhA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_41 (max e5 e3)- pappyAlt3_41 e3 =- case testPappyI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_42 (max e5 e3)- pappyAlt3_42 e3 =- case testPappyJA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_43 (max e5 e3)- pappyAlt3_43 e3 =- case testPappyJAI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_44 (max e5 e3)- pappyAlt3_44 e3 =- case testPappyJOI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_45 (max e5 e3)- pappyAlt3_45 e3 =- case testPappyJOhI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_46 (max e5 e3)- pappyAlt3_46 e3 =- case testPappyKE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_47 (max e5 e3)- pappyAlt3_47 e3 =- case testPappyKEI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_48 (max e5 e3)- pappyAlt3_48 e3 =- case testPappyKEhE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_49 (max e5 e3)- pappyAlt3_49 e3 =- case testPappyKI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_50 (max e5 e3)- pappyAlt3_50 e3 =- case testPappyKOhA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_51 (max e5 e3)- pappyAlt3_51 e3 =- case testPappyKU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_52 (max e5 e3)- pappyAlt3_52 e3 =- case testPappyKUhE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_53 (max e5 e3)- pappyAlt3_53 e3 =- case testPappyKUhO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_54 (max e5 e3)- pappyAlt3_54 e3 =- case testPappyLA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_55 (max e5 e3)- pappyAlt3_55 e3 =- case testPappyLAU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_56 (max e5 e3)- pappyAlt3_56 e3 =- case testPappyLAhE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_57 (max e5 e3)- pappyAlt3_57 e3 =- case testPappyLE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_58 (max e5 e3)- pappyAlt3_58 e3 =- case testPappyLEhU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_59 (max e5 e3)- pappyAlt3_59 e3 =- case testPappyMAI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_60 (max e5 e3)- pappyAlt3_60 e3 =- case testPappyMAhO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_61 (max e5 e3)- pappyAlt3_61 e3 =- case testPappyME_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_62 (max e5 e3)- pappyAlt3_62 e3 =- case testPappyMEhU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_63 (max e5 e3)- pappyAlt3_63 e3 =- case testPappyMOI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_64 (max e5 e3)- pappyAlt3_64 e3 =- case testPappyMOhE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_65 (max e5 e3)- pappyAlt3_65 e3 =- case testPappyMOhI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_66 (max e5 e3)- pappyAlt3_66 e3 =- case testPappyNA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_67 (max e5 e3)- pappyAlt3_67 e3 =- case testPappyNAI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_68 (max e5 e3)- pappyAlt3_68 e3 =- case testPappyNAhE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_69 (max e5 e3)- pappyAlt3_69 e3 =- case testPappyNAhU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_70 (max e5 e3)- pappyAlt3_70 e3 =- case testPappyNIhE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_71 (max e5 e3)- pappyAlt3_71 e3 =- case testPappyNIhO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_72 (max e5 e3)- pappyAlt3_72 e3 =- case testPappyNOI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_73 (max e5 e3)- pappyAlt3_73 e3 =- case testPappyNU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_74 (max e5 e3)- pappyAlt3_74 e3 =- case testPappyNUhA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_75 (max e5 e3)- pappyAlt3_75 e3 =- case testPappyNUhI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_76 (max e5 e3)- pappyAlt3_76 e3 =- case testPappyNUhU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_77 (max e5 e3)- pappyAlt3_77 e3 =- case testPappyPA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_78 (max e5 e3)- pappyAlt3_78 e3 =- case testPappyPEhE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_79 (max e5 e3)- pappyAlt3_79 e3 =- case testPappyPEhO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_80 (max e5 e3)- pappyAlt3_80 e3 =- case testPappyPU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_81 (max e5 e3)- pappyAlt3_81 e3 =- case testPappyRAhO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_82 (max e5 e3)- pappyAlt3_82 e3 =- case testPappyROI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_83 (max e5 e3)- pappyAlt3_83 e3 =- case testPappypre_clause d of- Parsed _ d5 e5 ->- case testPappySA d5 of- Parsed s d7 e7 ->- case pappyResult9 of- Parsed _ d9 e9 ->- Parsed ( ([], s) ) d9 (maximum [e9,e7,e5,e3])- NoParse e9 -> pappyAlt3_84 (maximum [e9,e7,e5,e3])- where- pappyResult9 =- case testPappyspaces d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt3_84 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_84 (max e5 e3)- pappyAlt3_84 e3 =- case testPappySE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_85 (max e5 e3)- pappyAlt3_85 e3 =- case testPappySEI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_86 (max e5 e3)- pappyAlt3_86 e3 =- case testPappySEhU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_87 (max e5 e3)- pappyAlt3_87 e3 =- case pappyResult5 of- Parsed _ d5 e5 ->- case testPappySI d5 of- Parsed s d7 e7 ->- case pappyResult9 of- Parsed _ d9 e9 ->- Parsed ( ([], s) ) d9 (maximum [e9,e7,e5,e3])- NoParse e9 -> pappyAlt3_88 (maximum [e9,e7,e5,e3])- where- pappyResult9 =- case testPappyspaces d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt3_88 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_88 (max e5 e3)- where- pappyResult5 =- case testPappyspaces d of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d e7- pappyAlt3_88 e3 =- case testPappySOI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_89 (max e5 e3)- pappyAlt3_89 e3 =- case testPappypre_clause d of- Parsed p d5 e5 ->- case testPappySU d5 of- Parsed s d7 e7 ->- case pappyResult9 of- Parsed _ d9 e9 ->- Parsed ( (p, s) ) d9 (maximum [e9,e7,e5,e3])- NoParse e9 -> pappyAlt3_90 (maximum [e9,e7,e5,e3])- where- pappyResult9 =- case testPappyspaces d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt3_90 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_90 (max e5 e3)- pappyAlt3_90 e3 =- case testPappyTAhE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_91 (max e5 e3)- pappyAlt3_91 e3 =- case testPappyTEI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_92 (max e5 e3)- pappyAlt3_92 e3 =- case testPappyTEhU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_93 (max e5 e3)- pappyAlt3_93 e3 =- case testPappyTO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_94 (max e5 e3)- pappyAlt3_94 e3 =- case testPappyTOI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_95 (max e5 e3)- pappyAlt3_95 e3 =- case testPappyTUhE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_96 (max e5 e3)- pappyAlt3_96 e3 =- case testPappyTUhU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_97 (max e5 e3)- pappyAlt3_97 e3 =- case testPappyUI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_98 (max e5 e3)- pappyAlt3_98 e3 =- case testPappyVA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_99 (max e5 e3)- pappyAlt3_99 e3 =- case testPappyVAU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_100 (max e5 e3)- pappyAlt3_100 e3 =- case testPappyVEI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_101 (max e5 e3)- pappyAlt3_101 e3 =- case testPappyVEhA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_102 (max e5 e3)- pappyAlt3_102 e3 =- case testPappyVEhO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_103 (max e5 e3)- pappyAlt3_103 e3 =- case testPappyVIhA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_104 (max e5 e3)- pappyAlt3_104 e3 =- case testPappyVUhO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_105 (max e5 e3)- pappyAlt3_105 e3 =- case testPappyVUhU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_106 (max e5 e3)- pappyAlt3_106 e3 =- case testPappyXI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_107 (max e5 e3)- pappyAlt3_107 e3 =- case testPappyZAhO_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_108 (max e5 e3)- pappyAlt3_108 e3 =- case testPappyZEI d of- Parsed z d5 e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( ([], z) ) d7 (maximum [e7,e5,e3])- NoParse e7 -> pappyAlt3_109 (maximum [e7,e5,e3])- where- pappyResult7 =- case testPappyspaces d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt3_109 (max e5 e3)- pappyAlt3_109 e3 =- case testPappyZEhA_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_110 (max e5 e3)- pappyAlt3_110 e3 =- case testPappyZI_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_111 (max e5 e3)- pappyAlt3_111 e3 =- case testPappyZIhE_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_112 (max e5 e3)- pappyAlt3_112 e3 =- case testPappypre_clause d of- Parsed p d5 e5 ->- case testPappyZO d5 of- Parsed z d7 e7 ->- case pappyResult9 of- Parsed _ d9 e9 ->- case testPappyany_word d9 of- Parsed w d11 e11 ->- case pappyResult13 of- Parsed _ d13 e13 ->- Parsed ( (p ++ [z], w) ) d13 (maximum [e13,e11,e9,e7,e5,e3])- NoParse e13 -> pappyAlt3_113 (maximum [e13,e11,e9,e7,e5,e3])- where- pappyResult13 =- case testPappyspaces d11 of- Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15- NoParse e15 -> Parsed (Nothing) d11 e15- NoParse e11 -> pappyAlt3_113 (maximum [e11,e9,e7,e5,e3])- NoParse e9 -> pappyAlt3_113 (maximum [e9,e7,e5,e3])- where- pappyResult9 =- case testPappyspaces d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt3_113 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_113 (max e5 e3)- pappyAlt3_113 e3 =- case testPappypre_clause d of- Parsed p d5 e5 ->- case testPappyZOI d5 of- Parsed z d7 e7 ->- case pappyResult9 of- Parsed _ d9 e9 ->- case testPappyChar d9 of- Parsed w d11 e11 ->- case ( w == '\NUL' ) of- True ->- case pappyResult15 of- Parsed s d15 e15 ->- case testPappyStarRule198 d15 of- Parsed ws d17 e17 ->- case testPappyChar d17 of- Parsed v d19 e19 ->- case ( v == '\NUL' ) of- True ->- case pappyResult23 of- Parsed _ d23 e23 ->- Parsed ( (p, z ++ concat (maybe ws (: ws) s)) ) d23 (maximum [e23,e19,e17,e15,e11,e9,e7,e5,e3])- NoParse e23 -> pappyAlt3_114 (maximum [e23,e19,e17,e15,e11,e9,e7,e5,e3])- where- pappyResult23 =- case testPappyspaces d19 of- Parsed v25 d25 e25 -> Parsed (Just v25) d25 e25- NoParse e25 -> Parsed (Nothing) d19 e25- False -> pappyAlt3_114 (maximum [e19,e17,e15,e11,e9,e7,e5,e3])- NoParse e19 -> pappyAlt3_114 (maximum [e19,e17,e15,e11,e9,e7,e5,e3])- NoParse e17 -> pappyAlt3_114 (maximum [e17,e15,e11,e9,e7,e5,e3])- NoParse e15 -> pappyAlt3_114 (maximum [e15,e11,e9,e7,e5,e3])- where- pappyResult15 =- case testPappyspaces d11 of- Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17- NoParse e17 -> Parsed (Nothing) d11 e17- False -> pappyAlt3_114 (maximum [e11,e9,e7,e5,e3])- NoParse e11 -> pappyAlt3_114 (maximum [e11,e9,e7,e5,e3])- NoParse e9 -> pappyAlt3_114 (maximum [e9,e7,e5,e3])- where- pappyResult9 =- case testPappyspaces d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt3_114 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_114 (max e5 e3)- pappyAlt3_114 e3 =- case testPappyZOhU_pre d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_115 (max e5 e3)- pappyAlt3_115 e3 = pappyAlt1_3 e3- pappyAlt1_3 e1 =- case testPappypre_clause d of- Parsed p d3 e3 ->- case pappyResult5 of- Parsed c d5 e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( (p, c) ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyspaces d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- where- pappyResult5 =- pappyAlt7_1 (ParseError (testPappyPos d3) []) where- pappyAlt7_1 e7 =- case testPappyA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- case testPappyBAI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_3 (max e9 e7)- pappyAlt7_3 e7 =- case testPappyBAhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_4 (max e9 e7)- pappyAlt7_4 e7 =- case testPappyBE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_5 (max e9 e7)- pappyAlt7_5 e7 =- case testPappyBEI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_6 (max e9 e7)- pappyAlt7_6 e7 =- case testPappyBEhO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_7 (max e9 e7)- pappyAlt7_7 e7 =- case testPappyBIhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_8 (max e9 e7)- pappyAlt7_8 e7 =- case testPappyBIhI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_9 (max e9 e7)- pappyAlt7_9 e7 =- case testPappyBO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_10 (max e9 e7)- pappyAlt7_10 e7 =- case testPappyBOI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_11 (max e9 e7)- pappyAlt7_11 e7 =- case testPappyBU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_12 (max e9 e7)- pappyAlt7_12 e7 =- case testPappyBY d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_13 (max e9 e7)- pappyAlt7_13 e7 =- case testPappyCAhA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_14 (max e9 e7)- pappyAlt7_14 e7 =- case testPappyCAI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_15 (max e9 e7)- pappyAlt7_15 e7 =- case testPappyCEI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_16 (max e9 e7)- pappyAlt7_16 e7 =- case testPappyCEhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_17 (max e9 e7)- pappyAlt7_17 e7 =- case testPappyCO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_18 (max e9 e7)- pappyAlt7_18 e7 =- case testPappyCOI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_19 (max e9 e7)- pappyAlt7_19 e7 =- case testPappyCU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_20 (max e9 e7)- pappyAlt7_20 e7 =- case testPappyCUhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_21 (max e9 e7)- pappyAlt7_21 e7 =- case testPappyDAhO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_22 (max e9 e7)- pappyAlt7_22 e7 =- case testPappyDOI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_23 (max e9 e7)- pappyAlt7_23 e7 =- case testPappyDOhU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_24 (max e9 e7)- pappyAlt7_24 e7 =- case testPappyFA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_25 (max e9 e7)- pappyAlt7_25 e7 =- case testPappyFAhA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_26 (max e9 e7)- pappyAlt7_26 e7 =- case testPappyFAhO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_27 (max e9 e7)- pappyAlt7_27 e7 =- case testPappyFEhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_28 (max e9 e7)- pappyAlt7_28 e7 =- case testPappyFEhU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_29 (max e9 e7)- pappyAlt7_29 e7 =- case testPappyFIhO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_30 (max e9 e7)- pappyAlt7_30 e7 =- case testPappyFOI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_31 (max e9 e7)- pappyAlt7_31 e7 =- case testPappyFUhA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_32 (max e9 e7)- pappyAlt7_32 e7 =- case testPappyFUhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_33 (max e9 e7)- pappyAlt7_33 e7 =- case testPappyFUhO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_34 (max e9 e7)- pappyAlt7_34 e7 =- case testPappyGA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_35 (max e9 e7)- pappyAlt7_35 e7 =- case testPappyGAhO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_36 (max e9 e7)- pappyAlt7_36 e7 =- case testPappyGEhU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_37 (max e9 e7)- pappyAlt7_37 e7 =- case testPappyGI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_38 (max e9 e7)- pappyAlt7_38 e7 =- case testPappyGIhA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_39 (max e9 e7)- pappyAlt7_39 e7 =- case testPappyGOI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_40 (max e9 e7)- pappyAlt7_40 e7 =- case testPappyGOhA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_41 (max e9 e7)- pappyAlt7_41 e7 =- case testPappyGUhA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_42 (max e9 e7)- pappyAlt7_42 e7 =- case testPappyI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_43 (max e9 e7)- pappyAlt7_43 e7 =- case testPappyJA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_44 (max e9 e7)- pappyAlt7_44 e7 =- case testPappyJAI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_45 (max e9 e7)- pappyAlt7_45 e7 =- case testPappyJOhI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_46 (max e9 e7)- pappyAlt7_46 e7 =- case testPappyJOI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_47 (max e9 e7)- pappyAlt7_47 e7 =- case testPappyKE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_48 (max e9 e7)- pappyAlt7_48 e7 =- case testPappyKEhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_49 (max e9 e7)- pappyAlt7_49 e7 =- case testPappyKEI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_50 (max e9 e7)- pappyAlt7_50 e7 =- case testPappyKI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_51 (max e9 e7)- pappyAlt7_51 e7 =- case testPappyKOhA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_52 (max e9 e7)- pappyAlt7_52 e7 =- case testPappyKU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_53 (max e9 e7)- pappyAlt7_53 e7 =- case testPappyKUhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_54 (max e9 e7)- pappyAlt7_54 e7 =- case testPappyKUhO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_55 (max e9 e7)- pappyAlt7_55 e7 =- case testPappyLA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_56 (max e9 e7)- pappyAlt7_56 e7 =- case testPappyLAU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_57 (max e9 e7)- pappyAlt7_57 e7 =- case testPappyLAhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_58 (max e9 e7)- pappyAlt7_58 e7 =- case testPappyLE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_59 (max e9 e7)- pappyAlt7_59 e7 =- case testPappyLEhU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_60 (max e9 e7)- pappyAlt7_60 e7 =- case testPappyLI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_61 (max e9 e7)- pappyAlt7_61 e7 =- case testPappyLIhU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_62 (max e9 e7)- pappyAlt7_62 e7 =- case testPappyLOhO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_63 (max e9 e7)- pappyAlt7_63 e7 =- case testPappyLOhU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_64 (max e9 e7)- pappyAlt7_64 e7 =- case testPappyLU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_65 (max e9 e7)- pappyAlt7_65 e7 =- case testPappyLUhU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_66 (max e9 e7)- pappyAlt7_66 e7 =- case testPappyMAhO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_67 (max e9 e7)- pappyAlt7_67 e7 =- case testPappyMAI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_68 (max e9 e7)- pappyAlt7_68 e7 =- case testPappyME d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_69 (max e9 e7)- pappyAlt7_69 e7 =- case testPappyMEhU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_70 (max e9 e7)- pappyAlt7_70 e7 =- case testPappyMOhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_71 (max e9 e7)- pappyAlt7_71 e7 =- case testPappyMOhI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_72 (max e9 e7)- pappyAlt7_72 e7 =- case testPappyMOI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_73 (max e9 e7)- pappyAlt7_73 e7 =- case testPappyNA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_74 (max e9 e7)- pappyAlt7_74 e7 =- case testPappyNAI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_75 (max e9 e7)- pappyAlt7_75 e7 =- case testPappyNAhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_76 (max e9 e7)- pappyAlt7_76 e7 =- case testPappyNAhU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_77 (max e9 e7)- pappyAlt7_77 e7 =- case testPappyNIhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_78 (max e9 e7)- pappyAlt7_78 e7 =- case testPappyNIhO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_79 (max e9 e7)- pappyAlt7_79 e7 =- case testPappyNOI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_80 (max e9 e7)- pappyAlt7_80 e7 =- case testPappyNU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_81 (max e9 e7)- pappyAlt7_81 e7 =- case testPappyNUhA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_82 (max e9 e7)- pappyAlt7_82 e7 =- case testPappyNUhI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_83 (max e9 e7)- pappyAlt7_83 e7 =- case testPappyNUhU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_84 (max e9 e7)- pappyAlt7_84 e7 =- case testPappyPA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_85 (max e9 e7)- pappyAlt7_85 e7 =- case testPappyPEhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_86 (max e9 e7)- pappyAlt7_86 e7 =- case testPappyPEhO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_87 (max e9 e7)- pappyAlt7_87 e7 =- case testPappyPU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_88 (max e9 e7)- pappyAlt7_88 e7 =- case testPappyRAhO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_89 (max e9 e7)- pappyAlt7_89 e7 =- case testPappyROI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_90 (max e9 e7)- pappyAlt7_90 e7 =- case testPappySA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_91 (max e9 e7)- pappyAlt7_91 e7 =- case testPappySE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_92 (max e9 e7)- pappyAlt7_92 e7 =- case testPappySEI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_93 (max e9 e7)- pappyAlt7_93 e7 =- case testPappySEhU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_94 (max e9 e7)- pappyAlt7_94 e7 =- case testPappySI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_95 (max e9 e7)- pappyAlt7_95 e7 =- case testPappySOI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_96 (max e9 e7)- pappyAlt7_96 e7 =- case testPappySU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_97 (max e9 e7)- pappyAlt7_97 e7 =- case testPappyTAhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_98 (max e9 e7)- pappyAlt7_98 e7 =- case testPappyTEhU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_99 (max e9 e7)- pappyAlt7_99 e7 =- case testPappyTEI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_100 (max e9 e7)- pappyAlt7_100 e7 =- case testPappyTO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_101 (max e9 e7)- pappyAlt7_101 e7 =- case testPappyTOI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_102 (max e9 e7)- pappyAlt7_102 e7 =- case testPappyTUhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_103 (max e9 e7)- pappyAlt7_103 e7 =- case testPappyTUhU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_104 (max e9 e7)- pappyAlt7_104 e7 =- case testPappyUI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_105 (max e9 e7)- pappyAlt7_105 e7 =- case testPappyVA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_106 (max e9 e7)- pappyAlt7_106 e7 =- case testPappyVAU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_107 (max e9 e7)- pappyAlt7_107 e7 =- case testPappyVEI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_108 (max e9 e7)- pappyAlt7_108 e7 =- case testPappyVEhO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_109 (max e9 e7)- pappyAlt7_109 e7 =- case testPappyVUhU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_110 (max e9 e7)- pappyAlt7_110 e7 =- case testPappyVEhA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_111 (max e9 e7)- pappyAlt7_111 e7 =- case testPappyVIhA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_112 (max e9 e7)- pappyAlt7_112 e7 =- case testPappyVUhO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_113 (max e9 e7)- pappyAlt7_113 e7 =- case testPappyXI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_114 (max e9 e7)- pappyAlt7_114 e7 =- case testPappyZAhO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_115 (max e9 e7)- pappyAlt7_115 e7 =- case testPappyZEhA d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_116 (max e9 e7)- pappyAlt7_116 e7 =- case testPappyZEI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_117 (max e9 e7)- pappyAlt7_117 e7 =- case testPappyZI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_118 (max e9 e7)- pappyAlt7_118 e7 =- case testPappyZIhE d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_119 (max e9 e7)- pappyAlt7_119 e7 =- case testPappyZO d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_120 (max e9 e7)- pappyAlt7_120 e7 =- case testPappyZOI d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_121 (max e9 e7)- pappyAlt7_121 e7 =- case testPappyZOhU d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_122 (max e9 e7)- pappyAlt7_122 e7 =- case testPappycmavo d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_123 (max e9 e7)- pappyAlt7_123 e7 = NoParse e7- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case testPappyCMENE_pre d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 = NoParse e1--testPappyParseStarRule194 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule194 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule194 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyerasable_clause d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyNIhO_clause d of- NoParse e7 ->- case testPappyLU_clause d of- NoParse e9 ->- case testPappyTUhE_clause d of- NoParse e11 ->- case testPappyTO_clause d of- NoParse e13 ->- case testPappySU_clause d of- NoParse e15 ->- case testPappyFAhO_clause d of- NoParse e17 ->- case testPappyany_word_SA_handling d of- Parsed _ d19 e19 ->- Parsed ( () ) d19 (maximum [e19,e17,e15,e13,e11,e9,e7,e5])- NoParse e19 -> pappyAlt5_3 (maximum [e19,e17,e15,e13,e11,e9,e7,e5])- Parsed _ _ e17 -> pappyAlt5_3 (maximum [e17,e15,e13,e11,e9,e7,e5])- Parsed _ _ e15 -> pappyAlt5_3 (maximum [e15,e13,e11,e9,e7,e5])- Parsed _ _ e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- Parsed _ _ e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsePlusRule17 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParsePlusRule17 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappysi_clause_single d of- Parsed v d3 e3 ->- case testPappyPlusRule17 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappysi_clause_single d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParsesi_clause_single :: TestPappyDerivs -> Result TestPappyDerivs ( () )-testPappyParsesi_clause_single d =- case pappyResult1 of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed _ d3 e3 ->- case testPappySI_clause d3 of- Parsed _ d5 e5 ->- Parsed ( () ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case testPappyPlusRule17 d1 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 e7- NoParse e7 -> NoParse e7- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (testPappyPos d) []) where- pappyAlt3_1 e3 =- case testPappyerasable_clause d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case testPappypre_zei_bu d of- Parsed _ d5 e5 ->- Parsed ( () ) d5 (max e5 e3)- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 =- case testPappySA_clause d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_4 (max e5 e3)- pappyAlt3_4 e3 = NoParse e3--testPappyParseerasable_clause :: TestPappyDerivs -> Result TestPappyDerivs ( () )-testPappyParseerasable_clause d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappybu_clause_no_pre d of- Parsed _ d3 e3 ->- case testPappyZEI_pre d3 of- NoParse e5 ->- case testPappyBU_pre d3 of- NoParse e7 ->- Parsed ( () ) d3 (maximum [e7,e5,e3,e1])- Parsed _ _ e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyzei_clause_no_pre d of- Parsed _ d3 e3 ->- case testPappyZEI_pre d3 of- NoParse e5 ->- case testPappyBU_pre d3 of- NoParse e7 ->- Parsed ( () ) d3 (maximum [e7,e5,e3,e1])- Parsed _ _ e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseBRIVLA_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )-testPappyParseBRIVLA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case pappyResult3 of- Parsed b d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappygismu d1 of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappygismu d1 of- NoParse e7 ->- case testPappyfuhivla d1 of- NoParse e9 ->- case testPappybrivla d1 of- Parsed b d11 e11 ->- Parsed ( b ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- Parsed _ _ e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyfuhivla d1 of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyCMENE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyCMENE_clause d =- case testPappyCMENE_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyCMENE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyCMENE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappycmene d1 of- Parsed c d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyA d1 of- Parsed a d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, a) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyBAI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyBAI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyBAI d1 of- Parsed b d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyBE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyBE_clause d =- case testPappyBE_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyBE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyBE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyBE d1 of- Parsed b d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyBEI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyBEI_clause d =- case testPappyBEI_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyBEI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyBEI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyBEI d1 of- Parsed b d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyBEhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyBEhO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyBEhO d1 of- Parsed b d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyBIhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyBIhE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyBIhE d1 of- Parsed b d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyBIhI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyBIhI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyBIhI d1 of- Parsed b d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyBO_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyBO_clause d =- case testPappyBO_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyBO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyBO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyBO d1 of- Parsed b d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyBOI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyBOI_clause d =- case testPappyBOI_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyBOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyBOI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyBOI d1 of- Parsed b d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyBU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyBU_pre d =- case testPappyBU d of- Parsed b d1 e1 ->- case pappyResult3 of- Parsed _ d3 e3 ->- Parsed ( ([], b) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyspaces d1 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- NoParse e1 -> NoParse e1--testPappyBY_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyBY_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyBY d1 of- Parsed b d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParsePlusRule18 :: TestPappyDerivs -> Result TestPappyDerivs ([String])-testPappyParsePlusRule18 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyBAhE_clause_single d of- Parsed v d3 e3 ->- case testPappyPlusRule18 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyBAhE_clause_single d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseBAhE_clause_single :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseBAhE_clause_single d =- case pappyResult1 of- Parsed b d1 e1 ->- case pappyResult3 of- Parsed _ d3 e3 ->- case testPappyZEI_pre d3 of- NoParse e5 ->- case testPappyBU_pre d3 of- NoParse e7 ->- Parsed ( b ) d3 (maximum [e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- where- pappyResult5 =- case testPappyPlusRule17 d1 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 e7- NoParse e7 -> NoParse e7- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyBAhE d of- Parsed b d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( b ) d5 (max e5 e3)- NoParse e5 -> NoParse (max e5 e3)- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse e3--testPappyCAhA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyCAhA_clause d =- case testPappyCAhA_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyCAhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyCAhA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyCAhA d1 of- Parsed c d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyCAI_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )-testPappyCAI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyCAI d1 of- Parsed c d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyCEI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyCEI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyCEI d1 of- Parsed c d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyCEhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyCEhE_clause d =- case testPappyCEhE_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyCEhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyCEhE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyCEhE d1 of- Parsed c d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyCO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyCO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyCO d1 of- Parsed c d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyCOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyCOI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyCOI d1 of- Parsed c d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyCU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyCU_clause d =- case testPappyCU_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyCU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyCU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyCU d1 of- Parsed c d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyCUhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyCUhE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyCUhE d1 of- Parsed c d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyDAhO_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )-testPappyDAhO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyDAhO d1 of- Parsed d d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, d) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyDOI_clause :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String, Indicators) )-testPappyDOI_clause d =- case testPappyDOI_pre d of- Parsed pre d1 e1 ->- case testPappypost_clause d1 of- Parsed post d3 e3 ->- Parsed ( (fst pre, snd pre, post) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyDOI_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )-testPappyDOI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyDOI d1 of- Parsed d d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, d) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyDOhU_clause :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String, Indicators) )-testPappyDOhU_clause d =- case testPappyDOhU_pre d of- Parsed pre d1 e1 ->- case testPappypost_clause d1 of- Parsed post d3 e3 ->- Parsed ( (fst pre, snd pre, post) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyDOhU_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )-testPappyDOhU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyDOhU d1 of- Parsed d d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, d) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyFA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyFA_clause d =- case testPappyFA_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyFA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyFA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyFA d1 of- Parsed f d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyFAhA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyFAhA_clause d =- case testPappyFAhA_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyFAhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyFAhA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyFAhA d1 of- Parsed f d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyFAhO_clause :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )-testPappyFAhO_clause d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyFAhO d1 of- Parsed f d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyFEhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyFEhE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyFEhE d1 of- Parsed f d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyFEhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyFEhU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyFEhU d1 of- Parsed f d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyFIhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyFIhO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyFIhO d1 of- Parsed f d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyFOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyFOI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyFOI d1 of- Parsed f d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyFUhA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyFUhA_clause d =- case testPappyFUhA_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyFUhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyFUhA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyFUhA d1 of- Parsed f d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyFUhE_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )-testPappyFUhE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyFUhE d1 of- Parsed f d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyFUhO_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )-testPappyFUhO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyFUhO d1 of- Parsed f d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyGA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyGA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyGA d1 of- Parsed g d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyGAhO_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyGAhO_clause d =- case testPappyGAhO_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyGAhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyGAhO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyGAhO d1 of- Parsed g d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyGEhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyGEhU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyGEhU d1 of- Parsed g d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyGI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyGI_clause d =- case testPappyGI_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyGI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyGI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyGI d1 of- Parsed g d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyGIhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyGIhA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyGIhA d1 of- Parsed g d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyGOI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyGOI_clause d =- case testPappyGOI_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyGOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyGOI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyGOI d1 of- Parsed g d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyGOhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyGOhA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyGOhA d1 of- Parsed g d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyGUhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyGUhA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyGUhA d1 of- Parsed g d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule195 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])-testPappyParseStarRule195 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule195 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappysentence_start d of- Parsed _ d5 e5 ->- case testPappyStarRule23 d5 of- Parsed _ d7 e7 ->- case testPappySA_clause d7 of- Parsed _ d9 e9 ->- case testPappytext_1 d9 of- Parsed _ _ e11 ->- Parsed ( () ) d9 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyI_clause d =- case testPappyStarRule195 d of- Parsed _ d1 e1 ->- case testPappyI_pre d1 of- Parsed p d3 e3 ->- case testPappypost_clause d3 of- Parsed q d5 e5 ->- Parsed ( (fst p, snd p, q) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyI d1 of- Parsed i d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, i) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyJA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyJA_clause d =- case testPappyJA_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyJA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyJA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyJA d1 of- Parsed j d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, j) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyJAI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyJAI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyJAI d1 of- Parsed j d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, j) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyJOhI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyJOhI_clause d =- case testPappyJOhI_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyJOhI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyJOhI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyJOhI d1 of- Parsed j d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, j) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyJOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyJOI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyJOI d1 of- Parsed j d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, j) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyKE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyKE_clause d =- case testPappyKE_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyKE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyKE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyKE d1 of- Parsed k d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyKI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyKI_clause d =- case testPappyKI_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyKI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyKI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyKI d1 of- Parsed k d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyKEhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyKEhE_clause d =- case testPappyKEhE_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyKEhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyKEhE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyKEhE d1 of- Parsed k d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyKEI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyKEI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyKEI d1 of- Parsed k d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyKOhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyKOhA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyKOhA d1 of- Parsed k d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyKU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyKU_clause d =- case testPappyKU_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyKU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyKU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyKU d1 of- Parsed k d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyKUhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyKUhE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyKUhE d1 of- Parsed k d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyKUhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyKUhO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyKUhO d1 of- Parsed k d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyLA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyLA_clause d =- case testPappyLA_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyLA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyLA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyLA d1 of- Parsed l d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, l) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyLAhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyLAhE_clause d =- case testPappyLAhE_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyLAhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyLAhE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyLAhE d1 of- Parsed l d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, l) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyLAU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyLAU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyLAU d1 of- Parsed l d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, l) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyLE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyLE_clause d =- case testPappyLE_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyLE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyLE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyLE d1 of- Parsed l d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, l) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyLEhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyLEhU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyLEhU d1 of- Parsed l d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, l) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyLI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyLI_clause d =- case pappyResult1 of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappypre_clause d of- Parsed p d3 e3 ->- case testPappyLI d3 of- Parsed l d5 e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( (p, l) ) d7 (maximum [e7,e5,e3])- NoParse e7 -> NoParse (maximum [e7,e5,e3])- where- pappyResult7 =- case testPappyspaces d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> NoParse (max e5 e3)- NoParse e3 -> NoParse e3--testPappyParseStarRule196 :: TestPappyDerivs -> Result TestPappyDerivs ([String])-testPappyParseStarRule196 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule196 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyLEhU d of- NoParse e5 ->- case testPappyany_word d of- Parsed w d7 e7 ->- Parsed ( w ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- Parsed _ _ e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyLU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyLU_clause d =- case pappyResult1 of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappypre_clause d of- Parsed p d3 e3 ->- case testPappyLU d3 of- Parsed l d5 e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( (p, l) ) d7 (maximum [e7,e5,e3])- NoParse e7 -> NoParse (maximum [e7,e5,e3])- where- pappyResult7 =- case testPappyspaces d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> NoParse (max e5 e3)- NoParse e3 -> NoParse e3--testPappyLUhU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyLUhU_clause d =- case pappyResult1 of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappypre_clause d of- Parsed p d3 e3 ->- case testPappyLUhU d3 of- Parsed l d5 e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( (p, l) ) d7 (maximum [e7,e5,e3])- NoParse e7 -> NoParse (maximum [e7,e5,e3])- where- pappyResult7 =- case testPappyspaces d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> NoParse (max e5 e3)- NoParse e3 -> NoParse e3--testPappyMAhO_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyMAhO_clause d =- case testPappyMAhO_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyMAhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyMAhO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyMAhO d1 of- Parsed m d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, m) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyMAI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyMAI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyMAI d1 of- Parsed m d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, m) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyME_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyME_clause d =- case testPappyME_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyME_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyME_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyME d1 of- Parsed m d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, m) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyMEhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyMEhU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyMEhU d1 of- Parsed m d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, m) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyMOhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyMOhE_clause d =- case testPappyMOhE_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyMOhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyMOhE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyMOhE d1 of- Parsed m d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, m) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyMOhI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyMOhI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyMOhI d1 of- Parsed m d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, m) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyMOI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyMOI_clause d =- case testPappyMOI_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyMOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyMOI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyMOI d1 of- Parsed m d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, m) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyNA_clause d =- case testPappyNA_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyNA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyNA d1 of- Parsed n d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNAI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyNAI_clause d =- case testPappyNAI_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNAI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyNAI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyNAI d1 of- Parsed n d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNAhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyNAhE_clause d =- case testPappyNAhE_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNAhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyNAhE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyNAhE d1 of- Parsed n d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNAhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyNAhU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyNAhU d1 of- Parsed n d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNIhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyNIhE_clause d =- case testPappyNIhE_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNIhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyNIhE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyNIhE d1 of- Parsed n d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNIhO_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyNIhO_clause d =- case testPappyNIhO_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNIhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyNIhO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyNIhO d1 of- Parsed n d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNOI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyNOI_clause d =- case testPappyNOI_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyNOI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyNOI d1 of- Parsed n d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyNU_clause d =- case testPappyNU_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyNU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyNU d1 of- Parsed n d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNUhA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyNUhA_clause d =- case testPappyNUhA_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNUhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyNUhA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyNUhA d1 of- Parsed n d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNUhI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyNUhI_clause d =- case testPappyNUhI_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNUhI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyNUhI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyNUhI d1 of- Parsed n d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNUhU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyNUhU_clause d =- case testPappyNUhU_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyNUhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyNUhU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyNUhU d1 of- Parsed n d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyPA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyPA_clause d =- case testPappyPA_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyPA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyPA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyPA d1 of- Parsed q d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, q) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyPU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyPU_clause d =- case testPappyPU_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyPU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyPU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyPU d1 of- Parsed q d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, q) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyPEhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyPEhE_clause d =- case testPappyPEhE_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyPEhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyPEhE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyPEhE d1 of- Parsed q d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, q) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyPEhO_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyPEhO_clause d =- case testPappyPEhO_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyPEhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyPEhO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyPEhO d1 of- Parsed q d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, q) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyRAhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyRAhO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyRAhO d1 of- Parsed r d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, r) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyROI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyROI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyROI d1 of- Parsed r d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, r) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappySA_clause :: TestPappyDerivs -> Result TestPappyDerivs ( () )-testPappySA_clause d =- case testPappypre_clause d of- Parsed _ d1 e1 ->- case testPappySA d1 of- Parsed _ d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- case pappyResult7 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyspaces d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappySE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappySE_clause d =- case testPappySE_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappySE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappySE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappySE d1 of- Parsed s d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, s) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappySEI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappySEI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappySEI d1 of- Parsed s d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, s) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappySEhU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappySEhU_clause d =- case testPappySEhU_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappySEhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappySEhU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappySEhU d1 of- Parsed s d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, s) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappySI_clause :: TestPappyDerivs -> Result TestPappyDerivs ( () )-testPappySI_clause d =- case pappyResult1 of- Parsed _ d1 e1 ->- case testPappySI d1 of- Parsed _ d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( () ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyspaces d of- Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3- NoParse e3 -> Parsed (Nothing) d e3--testPappySOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappySOI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappySOI d1 of- Parsed s d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, s) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappySU_clause :: TestPappyDerivs -> Result TestPappyDerivs ( () )-testPappySU_clause d =- case testPappypre_clause d of- Parsed _ d1 e1 ->- case testPappySU d1 of- Parsed _ d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- case testPappypost_clause d5 of- Parsed _ d7 e7 ->- Parsed ( () ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyTAhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyTAhE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyTAhE d1 of- Parsed t d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, t) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyTEhU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyTEhU_clause d =- case testPappyTEhU_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyTEhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyTEhU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyTEhU d1 of- Parsed t d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, t) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyTEI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyTEI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyTEI d1 of- Parsed t d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, t) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyTO_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyTO_clause d =- case testPappyTO_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyTO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyTO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyTO d1 of- Parsed t d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, t) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyTOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyTOI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyTOI d1 of- Parsed t d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, t) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyTUhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyTUhE_clause d =- case testPappyTUhE_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyTUhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyTUhE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyTUhE d1 of- Parsed t d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, t) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyTUhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyTUhU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyTUhU d1 of- Parsed t d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, t) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyUI_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )-testPappyUI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyUI d1 of- Parsed u d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, u) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyVA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyVA_clause d =- case testPappyVA_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyVA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyVA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyVA d1 of- Parsed v d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyVAU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyVAU_clause d =- case testPappyVAU_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyVAU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyVAU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyVAU d1 of- Parsed v d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyVEI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyVEI_clause d =- case testPappyVEI_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyVEI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyVEI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyVEI d1 of- Parsed v d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyVEhO_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyVEhO_clause d =- case testPappyVEhO_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyVEhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyVEhO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyVEhO d1 of- Parsed v d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyVUhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyVUhO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyVUhO d1 of- Parsed v d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyVUhU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyVUhU_clause d =- case testPappyVUhU_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyVUhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyVUhU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyVUhU d1 of- Parsed v d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyVEhA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyVEhA_clause d =- case testPappyVEhA_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyVEhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyVEhA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyVEhA d1 of- Parsed v d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyVIhA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyVIhA_clause d =- case testPappyVIhA_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyVIhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyVIhA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyVIhA d1 of- Parsed v d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyXI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyXI_clause d =- case testPappyXI_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyXI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyXI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyXI d1 of- Parsed x d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, x) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyZEhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyZEhA_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyZEhA d1 of- Parsed z d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, z) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyZEI_pre :: TestPappyDerivs -> Result TestPappyDerivs ( () )-testPappyZEI_pre d =- case testPappyZEI d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed _ d3 e3 ->- Parsed ( () ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyspaces d1 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- NoParse e1 -> NoParse e1--testPappyZI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)-testPappyZI_clause d =- case testPappyZI_pre d of- Parsed p d1 e1 ->- case testPappypost_clause d1 of- Parsed q d3 e3 ->- Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyZI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyZI_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyZI d1 of- Parsed z d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, z) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyZIhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyZIhE_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyZIhE d1 of- Parsed z d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, z) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule198 :: TestPappyDerivs -> Result TestPappyDerivs ([String])-testPappyParseStarRule198 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule198 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case pappyResult5 of- Parsed w d5 e5 ->- case pappyResult7 of- Parsed s d7 e7 ->- Parsed ( maybe w (w ++) s ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- where- pappyResult7 =- case testPappyspaces d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> NoParse e5- where- pappyResult5 =- pappyAlt7_1 (ParseError (testPappyPos d) []) where- pappyAlt7_1 e7 =- case testPappylojban_word d of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- case testPappylojban_word d of- NoParse e9 ->- case testPappyPlusRule22 d of- Parsed ns d11 e11 ->- Parsed ( ns ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_3 (maximum [e11,e9,e7])- Parsed _ _ e9 -> pappyAlt7_3 (max e9 e7)- pappyAlt7_3 e7 = NoParse e7- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyZAhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyZAhO_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyZAhO d1 of- Parsed z d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, z) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyZOhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)-testPappyZOhU_pre d =- case testPappypre_clause d of- Parsed p d1 e1 ->- case testPappyZOhU d1 of- Parsed z d3 e3 ->- case pappyResult5 of- Parsed _ d5 e5 ->- Parsed ( (p, z) ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyspaces d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyany_word :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyany_word d =- case testPappylojban_word d of- Parsed w d1 e1 ->- case pappyResult3 of- Parsed _ d3 e3 ->- Parsed ( w ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyspaces d1 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- NoParse e1 -> NoParse e1--testPappylojban_word :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappylojban_word d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappycmene d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappycmavo d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappybrivla d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappyParsePlusRule19 :: TestPappyDerivs -> Result TestPappyDerivs ([String])-testPappyParsePlusRule19 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyPlusRule19 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyany_syllable d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappydigit d of- Parsed d d7 e7 ->- Parsed ( [d] ) d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyany_syllable d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappydigit d of- Parsed d d7 e7 ->- Parsed ( [d] ) d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_3 e1 = NoParse e1--testPappyParsecmene :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsecmene d =- case testPappyh d of- NoParse e1 ->- case pappyResult3 of- Parsed _ _ e3 ->- case pappyResult5 of- Parsed c d5 e5 ->- case testPappyPlusRule19 d5 of- Parsed r d7 e7 ->- case testPappypause d7 of- Parsed _ _ e9 ->- Parsed ( fromMaybe "" c ++ concat r ) d7 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappycoda d of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d e7- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyStarRule200 d of- Parsed s d5 e5 ->- case testPappyconsonant d5 of- Parsed c d7 e7 ->- case testPappypause d7 of- Parsed _ _ e9 ->- Parsed ( s ++ [c] ) d7 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- Parsed _ _ e1 -> NoParse e1--testPappyParseStarRule200 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])-testPappyParseStarRule200 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule200 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappynon_space d of- Parsed n d5 e5 ->- case testPappynon_space d5 of- Parsed _ _ e7 ->- Parsed ( n ) d5 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsecmavo :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsecmavo d =- case testPappycmene d of- NoParse e1 ->- case pappyResult3 of- NoParse e3 ->- case pappyResult5 of- Parsed c d5 e5 ->- case testPappypost_word d5 of- Parsed _ _ e7 ->- Parsed ( c ) d5 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- pappyAlt7_1 (ParseError (testPappyPos d) []) where- pappyAlt7_1 e7 =- case testPappyh d of- NoParse e9 ->- case testPappycluster d of- NoParse e11 ->- case testPappyonset d of- Parsed o d13 e13 ->- case testPappyStarRule202 d13 of- Parsed nh d15 e15 ->- case pappyResult17 of- Parsed nn d17 e17 ->- Parsed ( o ++ concat nh ++ nn ) d17 (maximum [e17,e15,e13,e11,e9,e7])- NoParse e17 -> pappyAlt7_2 (maximum [e17,e15,e13,e11,e9,e7])- where- pappyResult17 =- pappyAlt19_1 (ParseError (testPappyPos d15) []) where- pappyAlt19_1 e19 =- case testPappystressed d15 of- NoParse e21 ->- case testPappynucleus d15 of- Parsed n d23 e23 ->- Parsed ( n ) d23 (maximum [e23,e21,e19])- NoParse e23 -> pappyAlt19_2 (maximum [e23,e21,e19])- Parsed _ _ e21 -> pappyAlt19_2 (max e21 e19)- pappyAlt19_2 e19 =- case testPappynucleus d15 of- Parsed n d21 e21 ->- case testPappycluster d21 of- NoParse e23 ->- Parsed ( n ) d21 (maximum [e23,e21,e19])- Parsed _ _ e23 -> pappyAlt19_3 (maximum [e23,e21,e19])- NoParse e21 -> pappyAlt19_3 (max e21 e19)- pappyAlt19_3 e19 = NoParse e19- NoParse e15 -> pappyAlt7_2 (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> pappyAlt7_2 (maximum [e13,e11,e9,e7])- Parsed _ _ e11 -> pappyAlt7_2 (maximum [e11,e9,e7])- Parsed _ _ e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- case testPappyPlusRule24 d of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_3 (max e9 e7)- pappyAlt7_3 e7 =- case testPappydigit d of- Parsed d d9 e9 ->- Parsed ( [d] ) d9 (max e9 e7)- NoParse e9 -> pappyAlt7_4 (max e9 e7)- pappyAlt7_4 e7 = NoParse e7- Parsed _ _ e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyCVC_rafsi d of- Parsed r d7 e7 ->- case testPappyy d7 of- Parsed y d9 e9 ->- case pappyResult11 of- Parsed h d11 e11 ->- case testPappyStarRule203 d11 of- Parsed rs d13 e13 ->- case testPappybrivla_core d13 of- Parsed b d15 e15 ->- Parsed ( r ++ [y] ++ ml h ++ concat rs ++ b ) d15 (maximum [e15,e13,e11,e9,e7,e5])- NoParse e15 -> pappyAlt5_2 (maximum [e15,e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- where- pappyResult11 =- case testPappyh d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappystressed_CVC_rafsi d of- Parsed r d7 e7 ->- case testPappyy d7 of- Parsed y d9 e9 ->- case testPappyshort_final_rafsi d9 of- Parsed f d11 e11 ->- Parsed ( r ++ [y] ++ f ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- Parsed _ _ e1 -> NoParse e1--testPappyParseStarRule202 :: TestPappyDerivs -> Result TestPappyDerivs ([String])-testPappyParseStarRule202 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule202 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappynucleus d of- Parsed n d5 e5 ->- case testPappyh d5 of- Parsed h d7 e7 ->- Parsed ( n ++ [h] ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule203 :: TestPappyDerivs -> Result TestPappyDerivs ([String])-testPappyParseStarRule203 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule203 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyextended_rafsi d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyy_rafsi d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyany_extended_rafsi d of- NoParse e7 ->- case testPappyy_less_rafsi d of- Parsed r d9 e9 ->- Parsed ( r ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- Parsed _ _ e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 = NoParse e5- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappybrivla :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappybrivla d =- case testPappycmavo d of- NoParse e1 ->- case testPappyStarRule203 d of- Parsed rs d3 e3 ->- case testPappybrivla_core d3 of- Parsed b d5 e5 ->- Parsed ( concat rs ++ b ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- Parsed _ _ e1 -> NoParse e1--testPappybrivla_core :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappybrivla_core d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyfuhivla d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappygismu d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyCVV_final_rafsi d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case pappyResult3 of- Parsed i d3 e3 ->- case testPappyshort_final_rafsi d3 of- Parsed f d5 e5 ->- Parsed ( i ++ f ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_5 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappystressed_extended_rafsi d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappystressed_y_rafsi d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappystressed_y_less_rafsi d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 = NoParse e5- pappyAlt1_5 e1 = NoParse e1--testPappyany_extended_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyany_extended_rafsi d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyfuhivla d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyextended_rafsi d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappystressed_extended_rafsi d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappyfuhivla :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyfuhivla d =- case testPappyfuhivla_head d of- Parsed f d1 e1 ->- case testPappystressed_syllable d1 of- Parsed s d3 e3 ->- case testPappyStarRule205 d3 of- Parsed ss d5 e5 ->- case testPappyfinal_syllable d5 of- Parsed t d7 e7 ->- Parsed ( f ++ s ++ concat ss ++ t ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParsestressed_extended_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsestressed_extended_rafsi d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyunstressed_syllable d of- Parsed _ _ e3 ->- case testPappybrivla_head d of- Parsed b d5 e5 ->- case testPappystressed_syllable d5 of- Parsed s d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( b ++ s ++ [h, y] ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyfuhivla_head d of- Parsed f d3 e3 ->- case testPappystressed_syllable d3 of- Parsed s d5 e5 ->- case testPappyconsonant d5 of- Parsed _ _ e7 ->- case testPappyonset d5 of- Parsed o d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( f ++ s ++ o ++ [y] ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseextended_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseextended_rafsi d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed _ _ e3 ->- case testPappybrivla_head d of- Parsed b d5 e5 ->- case testPappyh d5 of- Parsed h d7 e7 ->- case testPappyy d7 of- Parsed y d9 e9 ->- case pappyResult11 of- Parsed i d11 e11 ->- Parsed ( b ++ [h, y] ++ ml i ) d11 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])- where- pappyResult11 =- case testPappyh d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappysyllable d of- Parsed _ d5 e5 ->- case testPappyStarRule205 d5 of- Parsed _ d7 e7 ->- case testPappysyllable d7 of- Parsed _ d9 e9 ->- Parsed ( () ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- pappyAlt1_2 e1 =- case testPappyunstressed_syllable d of- Parsed _ _ e3 ->- case testPappyfuhivla_head d of- Parsed f d5 e5 ->- case testPappyconsonant d5 of- Parsed _ _ e7 ->- case testPappyonset d5 of- Parsed o d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- case pappyResult13 of- Parsed h d13 e13 ->- Parsed ( f ++ o ++ [y] ++ ml h ) d13 (maximum [e13,e11,e9,e7,e5,e3,e1])- NoParse e13 -> pappyAlt1_3 (maximum [e13,e11,e9,e7,e5,e3,e1])- where- pappyResult13 =- case testPappyh d11 of- Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15- NoParse e15 -> Parsed (Nothing) d11 e15- NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule205 :: TestPappyDerivs -> Result TestPappyDerivs ([String])-testPappyParseStarRule205 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyconsonantal_syllable d of- Parsed v d3 e3 ->- case testPappyStarRule205 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyfuhivla_head :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyfuhivla_head d =- case testPappyrafsi_string d of- NoParse e1 ->- case testPappybrivla_head d of- Parsed b d3 e3 ->- Parsed ( b ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- Parsed _ _ e1 -> NoParse e1--testPappyParseStarRule206 :: TestPappyDerivs -> Result TestPappyDerivs ([String])-testPappyParseStarRule206 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyunstressed_syllable d of- Parsed v d3 e3 ->- case testPappyStarRule206 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyParsebrivla_head :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsebrivla_head d =- case testPappycmavo d of- NoParse e1 ->- case pappyResult3 of- NoParse e3 ->- case testPappyh d of- NoParse e5 ->- case testPappyonset d of- Parsed _ _ e7 ->- case testPappyStarRule206 d of- Parsed ss d9 e9 ->- Parsed ( concat ss ) d9 (maximum [e9,e7,e5,e3,e1])- NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- Parsed _ _ e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyconsonant d of- Parsed c d5 e5 ->- case testPappyrafsi_string d5 of- Parsed r d7 e7 ->- Parsed ( c : r ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- Parsed _ _ e1 -> NoParse e1--testPappyParseStarRule207 :: TestPappyDerivs -> Result TestPappyDerivs ([String])-testPappyParseStarRule207 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyy_less_rafsi d of- Parsed v d3 e3 ->- case testPappyStarRule207 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyrafsi_string :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyrafsi_string d =- case testPappyStarRule207 d of- Parsed ylrs d1 e1 ->- case pappyResult3 of- Parsed r d3 e3 ->- Parsed ( concat ylrs ++ r ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappygismu d1 of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyCVV_final_rafsi d1 of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappystressed_y_less_rafsi d1 of- Parsed ylr d7 e7 ->- case testPappyshort_final_rafsi d7 of- Parsed sfr d9 e9 ->- Parsed ( ylr ++ sfr ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyy_rafsi d1 of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappystressed_y_rafsi d1 of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case pappyResult7 of- Parsed ylr d7 e7 ->- case testPappyinitial_pair d7 of- Parsed p d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( fromMaybe "" ylr ++ p ++ [y] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- where- pappyResult7 =- case testPappystressed_y_less_rafsi d1 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d1 e9- pappyAlt5_7 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappygismu :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappygismu d =- case testPappystressed_long_rafsi d of- Parsed r d1 e1 ->- case testPappyfinal_syllable d1 of- Parsed _ _ e3 ->- case testPappyvowel d1 of- Parsed v d5 e5 ->- case testPappypost_word d5 of- Parsed _ _ e7 ->- Parsed ( r ++ [v] ) d5 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseCVV_final_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseCVV_final_rafsi d =- case testPappyconsonant d of- Parsed c d1 e1 ->- case testPappystressed_vowel d1 of- Parsed v d3 e3 ->- case testPappyh d3 of- Parsed h d5 e5 ->- case testPappyfinal_syllable d5 of- Parsed _ _ e7 ->- case testPappyvowel d5 of- Parsed w d9 e9 ->- case testPappypost_word d9 of- Parsed _ _ e11 ->- Parsed ( c : v : h : w : [] ) d9 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseshort_final_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseshort_final_rafsi d =- case testPappyfinal_syllable d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed r d3 e3 ->- case testPappypost_word d3 of- Parsed _ _ e5 ->- Parsed ( r ) d3 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyconsonant d of- Parsed c d7 e7 ->- case testPappydiphthong d7 of- Parsed d d9 e9 ->- Parsed ( c : d ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyinitial_pair d of- Parsed p d7 e7 ->- case testPappyvowel d7 of- Parsed v d9 e9 ->- Parsed ( p ++ [v] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsestressed_y_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsestressed_y_rafsi d =- case pappyResult1 of- Parsed r d1 e1 ->- case testPappyy d1 of- Parsed y d3 e3 ->- Parsed ( r ++ [y] ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (testPappyPos d) []) where- pappyAlt3_1 e3 =- case testPappystressed_long_rafsi d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case testPappystressed_CVC_rafsi d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 = NoParse e3--testPappyParsestressed_y_less_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsestressed_y_less_rafsi d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappystressed_CVC_rafsi d of- Parsed r d3 e3 ->- case testPappyy d3 of- NoParse e5 ->- Parsed ( r ) d3 (maximum [e5,e3,e1])- Parsed _ _ e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappystressed_CCV_rafsi d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyconsonant d of- Parsed c d3 e3 ->- case pappyResult5 of- Parsed vv d5 e5 ->- case pappyResult7 of- Parsed r d7 e7 ->- Parsed ( c : vv ++ ml r ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappyr_hyphen d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- where- pappyResult5 =- pappyAlt7_1 (ParseError (testPappyPos d3) []) where- pappyAlt7_1 e7 =- case testPappyunstressed_vowel d3 of- Parsed v d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappystressed_vowel d11 of- Parsed w d13 e13 ->- Parsed ( [v, h, w] ) d13 (maximum [e13,e11,e9,e7])- NoParse e13 -> pappyAlt7_2 (maximum [e13,e11,e9,e7])- NoParse e11 -> pappyAlt7_2 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- pappyAlt9_1 e7 where- pappyAlt9_1 e9 =- case testPappystressed d3 of- Parsed _ _ e11 ->- case testPappydiphthong d3 of- Parsed d d13 e13 ->- Parsed ( d ) d13 (maximum [e13,e11,e9])- NoParse e13 -> pappyAlt9_2 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappydiphthong d3 of- Parsed d d11 e11 ->- case testPappystress d11 of- Parsed _ _ e13 ->- Parsed ( d ) d11 (maximum [e13,e11,e9])- NoParse e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 = pappyAlt7_3 e9- pappyAlt7_3 e7 = NoParse e7- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappyParsestressed_long_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsestressed_long_rafsi d =- case pappyResult1 of- Parsed r d1 e1 ->- case testPappyconsonant d1 of- Parsed c d3 e3 ->- Parsed ( r ++ [c] ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (testPappyPos d) []) where- pappyAlt3_1 e3 =- case testPappystressed_CCV_rafsi d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case testPappystressed_CVC_rafsi d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 = NoParse e3--testPappystressed_CVC_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappystressed_CVC_rafsi d =- case testPappyconsonant d of- Parsed c d1 e1 ->- case testPappystressed_vowel d1 of- Parsed v d3 e3 ->- case testPappyconsonant d3 of- Parsed d d5 e5 ->- Parsed ( [c, v, d] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappystressed_CCV_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappystressed_CCV_rafsi d =- case testPappyinitial_pair d of- Parsed p d1 e1 ->- case testPappystressed_vowel d1 of- Parsed v d3 e3 ->- Parsed ( p ++ [v] ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParsey_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsey_rafsi d =- case pappyResult1 of- Parsed r d1 e1 ->- case testPappyy d1 of- Parsed y d3 e3 ->- case pappyResult5 of- Parsed h d5 e5 ->- Parsed ( r ++ [y] ++ ml h ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyh d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (testPappyPos d) []) where- pappyAlt3_1 e3 =- case pappyResult5 of- Parsed r d5 e5 ->- case testPappyconsonant d5 of- Parsed c d7 e7 ->- Parsed ( r ++ [c] ) d7 (maximum [e7,e5,e3])- NoParse e7 -> pappyAlt3_2 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_2 (max e5 e3)- where- pappyResult5 =- pappyAlt7_1 (ParseError (testPappyPos d) []) where- pappyAlt7_1 e7 =- case testPappyCCV_rafsi d of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- case testPappyCVC_rafsi d of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_3 (max e9 e7)- pappyAlt7_3 e7 = NoParse e7- pappyAlt3_2 e3 =- case testPappyCVC_rafsi d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 = NoParse e3--testPappyParsey_less_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsey_less_rafsi d =- case testPappyy_rafsi d of- NoParse e1 ->- case pappyResult3 of- Parsed r d3 e3 ->- case testPappyany_extended_rafsi d3 of- NoParse e5 ->- Parsed ( r ) d3 (maximum [e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyCVC_rafsi d of- Parsed cvcr d7 e7 ->- case testPappyy d7 of- NoParse e9 ->- Parsed ( cvcr ) d7 (maximum [e9,e7,e5])- Parsed _ _ e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyCCV_rafsi d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyconsonant d of- Parsed c d7 e7 ->- case pappyResult9 of- Parsed vv d9 e9 ->- case pappyResult11 of- Parsed r d11 e11 ->- Parsed ( c : vv ++ ml r ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- where- pappyResult11 =- case testPappyr_hyphen d9 of- Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13- NoParse e13 -> Parsed (Nothing) d9 e13- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- where- pappyResult9 =- pappyAlt11_1 (ParseError (testPappyPos d7) []) where- pappyAlt11_1 e11 =- case testPappyunstressed_vowel d7 of- Parsed v d13 e13 ->- case testPappyh d13 of- Parsed h d15 e15 ->- case testPappyunstressed_vowel d15 of- Parsed w d17 e17 ->- Parsed ( [v, h, w] ) d17 (maximum [e17,e15,e13,e11])- NoParse e17 -> pappyAlt11_2 (maximum [e17,e15,e13,e11])- NoParse e15 -> pappyAlt11_2 (maximum [e15,e13,e11])- NoParse e13 -> pappyAlt11_2 (max e13 e11)- pappyAlt11_2 e11 =- case pappyResult13 of- Parsed d d13 e13 ->- Parsed ( d ) d13 (max e13 e11)- NoParse e13 -> pappyAlt11_3 (max e13 e11)- where- pappyResult13 =- case testPappystressed d7 of- NoParse e15 ->- case testPappydiphthong d7 of- Parsed d d17 e17 ->- case testPappystress d17 of- NoParse e19 ->- Parsed ( d ) d17 (maximum [e19,e17,e15])- Parsed _ _ e19 -> NoParse (maximum [e19,e17,e15])- NoParse e17 -> NoParse (max e17 e15)- Parsed _ _ e15 -> NoParse e15- pappyAlt11_3 e11 = NoParse e11- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 = NoParse e5- Parsed _ _ e1 -> NoParse e1--testPappyCVC_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyCVC_rafsi d =- case testPappyconsonant d of- Parsed c d1 e1 ->- case testPappyunstressed_vowel d1 of- Parsed v d3 e3 ->- case testPappyconsonant d3 of- Parsed d d5 e5 ->- Parsed ( [c, v, d] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyCCV_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyCCV_rafsi d =- case testPappyinitial_pair d of- Parsed i d1 e1 ->- case testPappyunstressed_vowel d1 of- Parsed v d3 e3 ->- Parsed ( i ++ [v] ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParser_hyphen :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParser_hyphen d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyr d of- Parsed r d3 e3 ->- case testPappyconsonant d3 of- Parsed _ _ e5 ->- Parsed ( r ) d3 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyn d of- Parsed n d3 e3 ->- case testPappyr d3 of- Parsed _ _ e5 ->- Parsed ( n ) d3 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParsefinal_syllable :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsefinal_syllable d =- case testPappyonset d of- Parsed o d1 e1 ->- case testPappyy d1 of- NoParse e3 ->- case testPappystressed d1 of- NoParse e5 ->- case testPappynucleus d1 of- Parsed n d7 e7 ->- case testPappycmene d7 of- NoParse e9 ->- case testPappypost_word d7 of- Parsed _ _ e11 ->- Parsed ( o ++ n ) d7 (maximum [e11,e9,e7,e5,e3,e1])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- Parsed _ _ e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParsestressed_syllable :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsestressed_syllable d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappystressed d of- Parsed _ _ e3 ->- case testPappysyllable d of- Parsed s d5 e5 ->- Parsed ( s ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappysyllable d of- Parsed s d3 e3 ->- case testPappystress d3 of- Parsed _ _ e5 ->- Parsed ( s ) d3 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParsestressed_vowel :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParsestressed_vowel d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappystressed d of- Parsed _ _ e3 ->- case testPappyvowel d of- Parsed v d5 e5 ->- Parsed ( v ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyvowel d of- Parsed v d3 e3 ->- case testPappystress d3 of- Parsed _ _ e5 ->- Parsed ( v ) d3 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseunstressed_syllable :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseunstressed_syllable d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappystressed d of- NoParse e3 ->- case testPappysyllable d of- Parsed s d5 e5 ->- case testPappystress d5 of- NoParse e7 ->- Parsed ( s ) d5 (maximum [e7,e5,e3,e1])- Parsed _ _ e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- Parsed _ _ e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyconsonantal_syllable d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyunstressed_vowel :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyunstressed_vowel d =- case testPappystressed d of- NoParse e1 ->- case testPappyvowel d of- Parsed v d3 e3 ->- case testPappystress d3 of- NoParse e5 ->- Parsed ( v ) d3 (maximum [e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- Parsed _ _ e1 -> NoParse e1--testPappyParseStarRule208 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])-testPappyParseStarRule208 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyconsonant d of- Parsed v d3 e3 ->- case testPappyStarRule208 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappystress :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappystress d =- case testPappyStarRule208 d of- Parsed c d1 e1 ->- case pappyResult3 of- Parsed y d3 e3 ->- case testPappysyllable d3 of- Parsed s d5 e5 ->- case testPappypause d5 of- Parsed _ d7 e7 ->- Parsed ( c ++ ml y ++ s ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyy d1 of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d1 e5- NoParse e1 -> NoParse e1--testPappystressed :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappystressed d =- case testPappyonset d of- Parsed o d1 e1 ->- case testPappyStarRule236 d1 of- Parsed _ d3 e3 ->- case pappyResult5 of- Parsed v d5 e5 ->- Parsed ( o ++ [v] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- pappyAlt7_1 (ParseError (testPappyPos d3) []) where- pappyAlt7_1 e7 =- case testPappyChar d3 of- r @ (Parsed 'A' _ _) -> r- _ -> pappyAlt7_2 e7- pappyAlt7_2 e7 =- case testPappyChar d3 of- r @ (Parsed 'E' _ _) -> r- _ -> pappyAlt7_3 e7- pappyAlt7_3 e7 =- case testPappyChar d3 of- r @ (Parsed 'I' _ _) -> r- _ -> pappyAlt7_4 e7- pappyAlt7_4 e7 =- case testPappyChar d3 of- r @ (Parsed 'O' _ _) -> r- _ -> pappyAlt7_5 e7- pappyAlt7_5 e7 =- case testPappyChar d3 of- r @ (Parsed 'U' _ _) -> r- _ -> pappyAlt7_6 e7- pappyAlt7_6 e7 = NoParse e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyany_syllable :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyany_syllable d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyonset d of- Parsed o d3 e3 ->- case testPappynucleus d3 of- Parsed n d5 e5 ->- case pappyResult7 of- Parsed c d7 e7 ->- Parsed ( o ++ n ++ fromMaybe "" c ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappycoda d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyconsonantal_syllable d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappysyllable :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappysyllable d =- case testPappyonset d of- Parsed o d1 e1 ->- case testPappyy d1 of- NoParse e3 ->- case testPappynucleus d1 of- Parsed n d5 e5 ->- case pappyResult7 of- Parsed c d7 e7 ->- Parsed ( o ++ n ++ fromMaybe "" c ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case testPappycoda d5 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- NoParse e5 -> NoParse (maximum [e5,e3,e1])- Parsed _ _ e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseconsonantal_syllable :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseconsonantal_syllable d =- case testPappyconsonant d of- Parsed c d1 e1 ->- case testPappysyllabic d1 of- Parsed s d3 e3 ->- case pappyResult5 of- Parsed _ _ e5 ->- case pappyResult7 of- Parsed c' d7 e7 ->- Parsed ( c : s : ml c' ) d7 (maximum [e7,e5,e3,e1])- NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])- where- pappyResult7 =- case pappyResult9 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d3 e9- where- pappyResult9 =- case testPappyconsonant d3 of- Parsed cin d11 e11 ->- case testPappyspaces d11 of- Parsed _ _ e13 ->- Parsed ( c ) d11 (max e13 e11)- NoParse e13 -> NoParse (max e13 e11)- NoParse e11 -> NoParse e11- NoParse e5 -> NoParse (maximum [e5,e3,e1])- where- pappyResult5 =- pappyAlt7_1 (ParseError (testPappyPos d3) []) where- pappyAlt7_1 e7 =- case testPappyconsonantal_syllable d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- case testPappyonset d3 of- Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)- NoParse e9 -> pappyAlt7_3 (max e9 e7)- pappyAlt7_3 e7 = NoParse e7- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParsecoda :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsecoda d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyany_syllable d of- NoParse e3 ->- case testPappyconsonant d of- Parsed c d5 e5 ->- case testPappyany_syllable d5 of- Parsed _ _ e7 ->- Parsed ( [c] ) d5 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- Parsed _ _ e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed s d3 e3 ->- case pappyResult5 of- Parsed c d5 e5 ->- case testPappypause d5 of- Parsed _ _ e7 ->- Parsed ( ml s ++ ml c ) d5 (maximum [e7,e5,e3,e1])- NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- where- pappyResult5 =- case testPappyconsonant d3 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d3 e7- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- case testPappysyllabic d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_3 e1 = NoParse e1--testPappyParseonset :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseonset d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyh d of- Parsed h d3 e3 ->- Parsed ( [h] ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed c d3 e3 ->- case testPappyglide d3 of- Parsed g d5 e5 ->- Parsed ( ml c ++ [g] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- case testPappyconsonant d of- Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5- NoParse e5 -> Parsed (Nothing) d e5- pappyAlt1_3 e1 =- case testPappyinitial d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappynucleus :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappynucleus d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyvowel d of- Parsed v d3 e3 ->- Parsed ( [v] ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappydiphthong d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyy d of- Parsed y d3 e3 ->- Parsed ( [y] ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappyParseglide :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParseglide d =- case pappyResult1 of- Parsed v d1 e1 ->- case testPappynucleus d1 of- Parsed _ _ e3 ->- case testPappyglide d1 of- NoParse e5 ->- Parsed ( v ) d1 (maximum [e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (testPappyPos d) []) where- pappyAlt3_1 e3 =- case testPappyi d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case testPappyu d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 = NoParse e3--testPappyParsediphthong :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsediphthong d =- case pappyResult1 of- Parsed d d1 e1 ->- case testPappynucleus d1 of- NoParse e3 ->- case testPappyglide d1 of- NoParse e5 ->- Parsed ( d ) d1 (maximum [e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- Parsed _ _ e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (testPappyPos d) []) where- pappyAlt3_1 e3 =- case testPappya d of- Parsed v d5 e5 ->- case testPappyi d5 of- Parsed w d7 e7 ->- Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])- NoParse e7 -> pappyAlt3_2 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case testPappya d of- Parsed v d5 e5 ->- case testPappyu d5 of- Parsed w d7 e7 ->- Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])- NoParse e7 -> pappyAlt3_3 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 =- case testPappye d of- Parsed v d5 e5 ->- case testPappyi d5 of- Parsed w d7 e7 ->- Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])- NoParse e7 -> pappyAlt3_4 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_4 (max e5 e3)- pappyAlt3_4 e3 =- case testPappyo d of- Parsed v d5 e5 ->- case testPappyi d5 of- Parsed w d7 e7 ->- Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])- NoParse e7 -> pappyAlt3_5 (maximum [e7,e5,e3])- NoParse e5 -> pappyAlt3_5 (max e5 e3)- pappyAlt3_5 e3 = NoParse e3--testPappyParsevowel :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParsevowel d =- case pappyResult1 of- Parsed v d1 e1 ->- case testPappynucleus d1 of- NoParse e3 ->- Parsed ( v ) d1 (max e3 e1)- Parsed _ _ e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (testPappyPos d) []) where- pappyAlt3_1 e3 =- case testPappya d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case testPappye d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_3 (max e5 e3)- pappyAlt3_3 e3 =- case testPappyi d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_4 (max e5 e3)- pappyAlt3_4 e3 =- case testPappyo d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_5 (max e5 e3)- pappyAlt3_5 e3 =- case testPappyu d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_6 (max e5 e3)- pappyAlt3_6 e3 = NoParse e3--testPappya :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappya d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed a d3 e3 ->- Parsed ( a ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'a' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'A' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappye :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappye d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed e d3 e3 ->- Parsed ( e ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'e' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'E' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyi :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyi d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed i d3 e3 ->- Parsed ( i ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'i' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'I' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyo :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyo d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed o d3 e3 ->- Parsed ( o ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'o' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'O' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyu :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyu d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed u d3 e3 ->- Parsed ( u ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'u' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'U' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyy :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyy d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed y d3 e3 ->- Parsed ( y ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'y' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'Y' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsePlusRule21 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])-testPappyParsePlusRule21 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyconsonant d of- Parsed v d3 e3 ->- case testPappyPlusRule21 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyconsonant d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappycluster :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappycluster d =- case testPappyconsonant d of- Parsed c d1 e1 ->- case testPappyPlusRule21 d1 of- Parsed cs d3 e3 ->- Parsed ( c : cs ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseinitial_pair :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseinitial_pair d =- case testPappyinitial d of- Parsed _ _ e1 ->- case testPappyconsonant d of- Parsed c d3 e3 ->- case testPappyconsonant d3 of- Parsed d d5 e5 ->- case testPappyconsonant d5 of- NoParse e7 ->- Parsed ( [c, d] ) d5 (maximum [e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseinitial :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseinitial d =- case pappyResult1 of- Parsed i d1 e1 ->- case testPappyconsonant d1 of- NoParse e3 ->- case testPappyglide d1 of- NoParse e5 ->- Parsed ( i ) d1 (maximum [e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- Parsed _ _ e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- pappyAlt3_1 (ParseError (testPappyPos d) []) where- pappyAlt3_1 e3 =- case testPappyaffricate d of- Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)- NoParse e5 -> pappyAlt3_2 (max e5 e3)- pappyAlt3_2 e3 =- case pappyResult5 of- Parsed s d5 e5 ->- case pappyResult7 of- Parsed o d7 e7 ->- case pappyResult9 of- Parsed l d9 e9 ->- Parsed ( ml s ++ ml o ++ ml l ) d9 (maximum [e9,e7,e5,e3])- NoParse e9 -> pappyAlt3_3 (maximum [e9,e7,e5,e3])- where- pappyResult9 =- case testPappyliquid d7 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- NoParse e7 -> pappyAlt3_3 (maximum [e7,e5,e3])- where- pappyResult7 =- case pappyResult9 of- Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9- NoParse e9 -> Parsed (Nothing) d5 e9- where- pappyResult9 =- pappyAlt11_1 (ParseError (testPappyPos d5) []) where- pappyAlt11_1 e11 =- case testPappyp d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_2 (max e13 e11)- pappyAlt11_2 e11 =- case testPappyt d5 of- Parsed t d13 e13 ->- case testPappyl d13 of- NoParse e15 ->- Parsed ( t ) d13 (maximum [e15,e13,e11])- Parsed _ _ e15 -> pappyAlt11_3 (maximum [e15,e13,e11])- NoParse e13 -> pappyAlt11_3 (max e13 e11)- pappyAlt11_3 e11 =- case testPappyk d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_4 (max e13 e11)- pappyAlt11_4 e11 =- case testPappyf d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_5 (max e13 e11)- pappyAlt11_5 e11 =- case testPappyx d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_6 (max e13 e11)- pappyAlt11_6 e11 =- case testPappyb d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_7 (max e13 e11)- pappyAlt11_7 e11 =- case testPappyd d5 of- Parsed d d13 e13 ->- case testPappyl d13 of- NoParse e15 ->- Parsed ( d ) d13 (maximum [e15,e13,e11])- Parsed _ _ e15 -> pappyAlt11_8 (maximum [e15,e13,e11])- NoParse e13 -> pappyAlt11_8 (max e13 e11)- pappyAlt11_8 e11 =- case testPappyg d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_9 (max e13 e11)- pappyAlt11_9 e11 =- case testPappyv d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_10 (max e13 e11)- pappyAlt11_10 e11 =- case testPappym d5 of- Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)- NoParse e13 -> pappyAlt11_11 (max e13 e11)- pappyAlt11_11 e11 =- case testPappyn d5 of- Parsed n d13 e13 ->- case testPappyliquid d13 of- NoParse e15 ->- Parsed ( n ) d13 (maximum [e15,e13,e11])- Parsed _ _ e15 -> pappyAlt11_12 (maximum [e15,e13,e11])- NoParse e13 -> pappyAlt11_12 (max e13 e11)- pappyAlt11_12 e11 = NoParse e11- NoParse e5 -> pappyAlt3_3 (max e5 e3)- where- pappyResult5 =- case pappyResult7 of- Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7- NoParse e7 -> Parsed (Nothing) d e7- where- pappyResult7 =- pappyAlt9_1 (ParseError (testPappyPos d) []) where- pappyAlt9_1 e9 =- case testPappyc d of- Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)- NoParse e11 -> pappyAlt9_2 (max e11 e9)- pappyAlt9_2 e9 =- case testPappys d of- Parsed s d11 e11 ->- case testPappyx d11 of- NoParse e13 ->- Parsed ( s ) d11 (maximum [e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_3 (max e11 e9)- pappyAlt9_3 e9 =- case pappyResult11 of- Parsed jz d11 e11 ->- case testPappyn d11 of- NoParse e13 ->- case testPappyliquid d11 of- NoParse e15 ->- Parsed ( jz ) d11 (maximum [e15,e13,e11,e9])- Parsed _ _ e15 -> pappyAlt9_4 (maximum [e15,e13,e11,e9])- Parsed _ _ e13 -> pappyAlt9_4 (maximum [e13,e11,e9])- NoParse e11 -> pappyAlt9_4 (max e11 e9)- where- pappyResult11 =- pappyAlt13_1 (ParseError (testPappyPos d) []) where- pappyAlt13_1 e13 =- case testPappyj d of- Parsed v15 d15 e15 -> Parsed v15 d15 (max e15 e13)- NoParse e15 -> pappyAlt13_2 (max e15 e13)- pappyAlt13_2 e13 =- case testPappyz d of- Parsed v15 d15 e15 -> Parsed v15 d15 (max e15 e13)- NoParse e15 -> pappyAlt13_3 (max e15 e13)- pappyAlt13_3 e13 = NoParse e13- pappyAlt9_4 e9 = NoParse e9- pappyAlt3_3 e3 = NoParse e3--testPappyaffricate :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyaffricate d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyt d of- Parsed t d3 e3 ->- case testPappyc d3 of- Parsed c d5 e5 ->- Parsed ( [t, c] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyt d of- Parsed t d3 e3 ->- case testPappys d3 of- Parsed s d5 e5 ->- Parsed ( [t, s] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyd d of- Parsed d d3 e3 ->- case testPappyj d3 of- Parsed j d5 e5 ->- Parsed ( [d, j] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case testPappyd d of- Parsed d d3 e3 ->- case testPappyz d3 of- Parsed z d5 e5 ->- Parsed ( [d, z] ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 = NoParse e1--testPappyliquid :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyliquid d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyl d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyr d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyconsonant :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyconsonant d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyvoiced d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyunvoiced d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappysyllabic d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 = NoParse e1--testPappysyllabic :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappysyllabic d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyl d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappym d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyn d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case testPappyr d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 = NoParse e1--testPappyvoiced :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyvoiced d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyb d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyd d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyg d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case testPappyj d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 =- case testPappyv d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_6 (max e3 e1)- pappyAlt1_6 e1 =- case testPappyz d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_7 (max e3 e1)- pappyAlt1_7 e1 = NoParse e1--testPappyunvoiced :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyunvoiced d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyc d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyf d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 =- case testPappyk d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_4 (max e3 e1)- pappyAlt1_4 e1 =- case testPappyp d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_5 (max e3 e1)- pappyAlt1_5 e1 =- case testPappys d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_6 (max e3 e1)- pappyAlt1_6 e1 =- case testPappyt d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_7 (max e3 e1)- pappyAlt1_7 e1 =- case testPappyx d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_8 (max e3 e1)- pappyAlt1_8 e1 = NoParse e1--testPappyParsel :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParsel d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed l d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappyl d3 of- NoParse e7 ->- Parsed ( l ) d3 (maximum [e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'l' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'L' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsem :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParsem d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed m d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappym d3 of- NoParse e7 ->- case testPappyz d3 of- NoParse e9 ->- Parsed ( m ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'm' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'M' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsen :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParsen d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed n d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappyn d3 of- NoParse e7 ->- case testPappyaffricate d3 of- NoParse e9 ->- Parsed ( n ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'n' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'N' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParser :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParser d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed r d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappyr d3 of- NoParse e7 ->- Parsed ( r ) d3 (maximum [e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'r' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'R' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseb :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParseb d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed b d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappyb d3 of- NoParse e7 ->- case testPappyunvoiced d3 of- NoParse e9 ->- Parsed ( b ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'b' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'B' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsed :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParsed d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed d d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappyd d3 of- NoParse e7 ->- case testPappyunvoiced d3 of- NoParse e9 ->- Parsed ( d ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'd' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'D' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseg :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParseg d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed g d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappyg d3 of- NoParse e7 ->- case testPappyunvoiced d3 of- NoParse e9 ->- Parsed ( g ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'g' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'G' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsev :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParsev d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappyv d3 of- NoParse e7 ->- case testPappyunvoiced d3 of- NoParse e9 ->- Parsed ( v ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'v' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'V' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsej :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParsej d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed j d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappyj d3 of- NoParse e7 ->- case testPappyz d3 of- NoParse e9 ->- case testPappyunvoiced d3 of- NoParse e11 ->- Parsed ( j ) d3 (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'j' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'J' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsez :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParsez d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed z d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappyz d3 of- NoParse e7 ->- case testPappyj d3 of- NoParse e9 ->- case testPappyunvoiced d3 of- NoParse e11 ->- Parsed ( z ) d3 (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'z' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'Z' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParses :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParses d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed s d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappys d3 of- NoParse e7 ->- case testPappyc d3 of- NoParse e9 ->- case testPappyvoiced d3 of- NoParse e11 ->- Parsed ( s ) d3 (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 's' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'S' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsec :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParsec d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed c d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappyc d3 of- NoParse e7 ->- case testPappys d3 of- NoParse e9 ->- case testPappyx d3 of- NoParse e11 ->- case testPappyvoiced d3 of- NoParse e13 ->- Parsed ( c ) d3 (maximum [e13,e11,e9,e7,e5,e3,e1])- Parsed _ _ e13 -> NoParse (maximum [e13,e11,e9,e7,e5,e3,e1])- Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'c' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'C' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsex :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParsex d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed x d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappyx d3 of- NoParse e7 ->- case testPappyc d3 of- NoParse e9 ->- case testPappyk d3 of- NoParse e11 ->- case testPappyvoiced d3 of- NoParse e13 ->- Parsed ( x ) d3 (maximum [e13,e11,e9,e7,e5,e3,e1])- Parsed _ _ e13 -> NoParse (maximum [e13,e11,e9,e7,e5,e3,e1])- Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'x' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'X' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsek :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParsek d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed k d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappyk d3 of- NoParse e7 ->- case testPappyx d3 of- NoParse e9 ->- case testPappyvoiced d3 of- NoParse e11 ->- Parsed ( k ) d3 (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'k' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'K' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsef :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParsef d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed f d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappyf d3 of- NoParse e7 ->- case testPappyvoiced d3 of- NoParse e9 ->- Parsed ( f ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'f' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'F' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsep :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParsep d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed p d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappyp d3 of- NoParse e7 ->- case testPappyvoiced d3 of- NoParse e9 ->- Parsed ( p ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'p' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'P' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParset :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParset d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed t d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappyt d3 of- NoParse e7 ->- case testPappyvoiced d3 of- NoParse e9 ->- Parsed ( t ) d3 (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 't' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed 'T' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyh :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyh d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed h d3 e3 ->- case testPappynucleus d3 of- Parsed _ _ e5 ->- Parsed ( h ) d3 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed 'h' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed '\'' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsedigit :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyParsedigit d =- case testPappyStarRule236 d of- Parsed _ d1 e1 ->- case pappyResult3 of- Parsed d d3 e3 ->- case testPappyh d3 of- NoParse e5 ->- case testPappynucleus d3 of- NoParse e7 ->- Parsed ( d ) d3 (maximum [e7,e5,e3,e1])- Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])- Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d1) []) where- pappyAlt5_1 e5 =- case testPappyChar d1 of- r @ (Parsed '0' _ _) -> r- _ -> pappyAlt5_2 e5- pappyAlt5_2 e5 =- case testPappyChar d1 of- r @ (Parsed '1' _ _) -> r- _ -> pappyAlt5_3 e5- pappyAlt5_3 e5 =- case testPappyChar d1 of- r @ (Parsed '2' _ _) -> r- _ -> pappyAlt5_4 e5- pappyAlt5_4 e5 =- case testPappyChar d1 of- r @ (Parsed '3' _ _) -> r- _ -> pappyAlt5_5 e5- pappyAlt5_5 e5 =- case testPappyChar d1 of- r @ (Parsed '4' _ _) -> r- _ -> pappyAlt5_6 e5- pappyAlt5_6 e5 =- case testPappyChar d1 of- r @ (Parsed '5' _ _) -> r- _ -> pappyAlt5_7 e5- pappyAlt5_7 e5 =- case testPappyChar d1 of- r @ (Parsed '6' _ _) -> r- _ -> pappyAlt5_8 e5- pappyAlt5_8 e5 =- case testPappyChar d1 of- r @ (Parsed '7' _ _) -> r- _ -> pappyAlt5_9 e5- pappyAlt5_9 e5 =- case testPappyChar d1 of- r @ (Parsed '8' _ _) -> r- _ -> pappyAlt5_10 e5- pappyAlt5_10 e5 =- case testPappyChar d1 of- r @ (Parsed '9' _ _) -> r- _ -> pappyAlt5_11 e5- pappyAlt5_11 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsepost_word :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsepost_word d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappypause d of- Parsed _ d3 e3 ->- Parsed ( "" ) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappynucleus d of- NoParse e3 ->- case testPappylojban_word d of- Parsed l d5 e5 ->- Parsed ( l ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- Parsed _ _ e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappypause :: TestPappyDerivs -> Result TestPappyDerivs ( () )-testPappypause d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyStarRule236 d of- Parsed _ d3 e3 ->- case testPappyspace_char d3 of- Parsed _ d5 e5 ->- Parsed ( () ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyanyChar d of- NoParse e3 ->- Parsed ( () ) d (max e3 e1)- Parsed _ _ e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyanyChar :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyanyChar d =- case testPappyChar d of- Parsed c d1 e1 ->- case ( True ) of- True ->- Parsed ( c ) d1 e1- False -> NoParse e1- NoParse e1 -> NoParse e1--testPappyParsePlusRule22 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])-testPappyParsePlusRule22 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappynon_space d of- Parsed v d3 e3 ->- case testPappyPlusRule22 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappynon_space d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappynon_space :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappynon_space d =- case testPappyspace_char d of- NoParse e1 ->- case testPappyanyChar d of- Parsed c d3 e3 ->- case ( c /= '\NUL' ) of- True ->- Parsed ( c ) d3 (max e3 e1)- False -> NoParse (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- Parsed _ _ e1 -> NoParse e1--testPappyspace_char :: TestPappyDerivs -> Result TestPappyDerivs (Char)-testPappyspace_char d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyChar d of- r @ (Parsed '.' _ _) -> r- _ -> pappyAlt1_2 e1- pappyAlt1_2 e1 =- case testPappyChar d of- r @ (Parsed '?' _ _) -> r- _ -> pappyAlt1_3 e1- pappyAlt1_3 e1 =- case testPappyChar d of- r @ (Parsed '!' _ _) -> r- _ -> pappyAlt1_4 e1- pappyAlt1_4 e1 =- case testPappyChar d of- r @ (Parsed ' ' _ _) -> r- _ -> pappyAlt1_5 e1- pappyAlt1_5 e1 =- case testPappyChar d of- r @ (Parsed '\t' _ _) -> r- _ -> pappyAlt1_6 e1- pappyAlt1_6 e1 =- case testPappyChar d of- r @ (Parsed '\r' _ _) -> r- _ -> pappyAlt1_7 e1- pappyAlt1_7 e1 =- case testPappyChar d of- r @ (Parsed '\n' _ _) -> r- _ -> pappyAlt1_8 e1- pappyAlt1_8 e1 = NoParse e1--testPappyspaces :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyspaces d =- case testPappyY d of- NoParse e1 ->- case pappyResult3 of- Parsed i d3 e3 ->- Parsed ( i ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyPlusRule23 d of- Parsed csy d7 e7 ->- case pappyResult9 of- Parsed _ d9 e9 ->- Parsed ( concat csy ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- where- pappyResult9 =- case pappyResult11 of- Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11- NoParse e11 -> Parsed (Nothing) d7 e11- where- pappyResult11 =- case testPappyanyChar d7 of- NoParse e13 ->- Parsed ( () ) d7 e13- Parsed _ _ e13 -> NoParse e13- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyanyChar d of- NoParse e7 ->- Parsed ( "" ) d (max e7 e5)- Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- Parsed _ _ e1 -> NoParse e1--testPappyParsePlusRule23 :: TestPappyDerivs -> Result TestPappyDerivs ([ String ])-testPappyParsePlusRule23 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyPlusRule23 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappycomma_space_char d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyybu d of- NoParse e7 ->- case testPappyY d of- Parsed y d9 e9 ->- Parsed ( y ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_2 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappycomma_space_char d of- Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyybu d of- NoParse e7 ->- case testPappyY d of- Parsed y d9 e9 ->- Parsed ( y ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- pappyAlt1_3 e1 = NoParse e1--testPappyParseStarRule236 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])-testPappyParseStarRule236 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case pappyResult3 of- Parsed v d3 e3 ->- case testPappyStarRule236 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- where- pappyResult3 =- case testPappyChar d of- r @ (Parsed ',' _ _) -> r- _ -> NoParse (ParseError (testPappyPos d) [])- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappycomma_space_char :: TestPappyDerivs -> Result TestPappyDerivs ( String )-testPappycomma_space_char d =- case testPappyStarRule236 d of- Parsed c d1 e1 ->- case testPappyspace_char d1 of- Parsed s d3 e3 ->- Parsed ( c ++ [s] ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseStarRule237 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])-testPappyParseStarRule237 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyspace_char d of- Parsed v d3 e3 ->- case testPappyStarRule237 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- Parsed ([]) d e1- pappyAlt1_3 e1 = NoParse e1--testPappyybu :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyybu d =- case testPappyY d of- Parsed y d1 e1 ->- case testPappyStarRule237 d1 of- Parsed _ d3 e3 ->- case testPappyBU d3 of- Parsed b d5 e5 ->- Parsed ( y ++ b ) d5 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed a d3 e3 ->- Parsed ( a ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappya d of- Parsed a d7 e7 ->- Parsed ( [a] ) d7 (max e7 e5)- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappye d of- Parsed e d7 e7 ->- Parsed ( [e] ) d7 (max e7 e5)- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [j, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyo d of- Parsed o d7 e7 ->- Parsed ( [o] ) d7 (max e7 e5)- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyu d of- Parsed u d7 e7 ->- Parsed ( [u] ) d7 (max e7 e5)- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseBAI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseBAI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed bai d3 e3 ->- Parsed ( bai ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [d, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [s, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [z, a, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [k, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [d, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [c, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- pappyAlt5_7 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [t, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [t, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_9 (max e7 e5)- pappyAlt5_9 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [d, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_10 (max e7 e5)- pappyAlt5_10 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [j, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_11 (max e7 e5)- pappyAlt5_11 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [r, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_12 (max e7 e5)- pappyAlt5_12 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [n, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_13 (max e7 e5)- pappyAlt5_13 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [m, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_14 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_14 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_14 (max e7 e5)- pappyAlt5_14 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [k, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_15 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_15 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_15 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_15 (max e7 e5)- pappyAlt5_15 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [v, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_16 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_16 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_16 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_16 (max e7 e5)- pappyAlt5_16 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [k, o, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_17 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_17 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_17 (max e7 e5)- pappyAlt5_17 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [c, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_18 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_18 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_18 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_18 (max e7 e5)- pappyAlt5_18 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [t, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_19 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_19 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_19 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_19 (max e7 e5)- pappyAlt5_19 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [p, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_20 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_20 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_20 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_20 (max e7 e5)- pappyAlt5_20 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [j, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_21 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_21 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_21 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_21 (max e7 e5)- pappyAlt5_21 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [k, a, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_22 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_22 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_22 (max e7 e5)- pappyAlt5_22 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [b, a, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_23 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_23 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_23 (max e7 e5)- pappyAlt5_23 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [f, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_24 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_24 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_24 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_24 (max e7 e5)- pappyAlt5_24 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [d, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_25 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_25 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_25 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_25 (max e7 e5)- pappyAlt5_25 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [c, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_26 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_26 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_26 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_26 (max e7 e5)- pappyAlt5_26 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [m, a, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_27 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_27 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_27 (max e7 e5)- pappyAlt5_27 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [m, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_28 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_28 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_28 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_28 (max e7 e5)- pappyAlt5_28 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [r, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_29 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_29 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_29 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_29 (max e7 e5)- pappyAlt5_29 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [r, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_30 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_30 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_30 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_30 (max e7 e5)- pappyAlt5_30 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [k, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_31 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_31 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_31 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_31 (max e7 e5)- pappyAlt5_31 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [p, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_32 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_32 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_32 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_32 (max e7 e5)- pappyAlt5_32 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [p, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_33 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_33 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_33 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_33 (max e7 e5)- pappyAlt5_33 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [l, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_34 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_34 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_34 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_34 (max e7 e5)- pappyAlt5_34 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [k, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_35 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_35 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_35 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_35 (max e7 e5)- pappyAlt5_35 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [t, a, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_36 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_36 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_36 (max e7 e5)- pappyAlt5_36 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [b, a, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_37 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_37 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_37 (max e7 e5)- pappyAlt5_37 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [m, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_38 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_38 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_38 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_38 (max e7 e5)- pappyAlt5_38 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [c, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_39 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_39 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_39 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_39 (max e7 e5)- pappyAlt5_39 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [f, a, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_40 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_40 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_40 (max e7 e5)- pappyAlt5_40 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [p, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_41 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_41 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_41 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_41 (max e7 e5)- pappyAlt5_41 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [c, a, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_42 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_42 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_42 (max e7 e5)- pappyAlt5_42 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [m, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_43 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_43 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_43 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_43 (max e7 e5)- pappyAlt5_43 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [c, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_44 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_44 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_44 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_44 (max e7 e5)- pappyAlt5_44 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [r, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_45 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_45 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_45 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_45 (max e7 e5)- pappyAlt5_45 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [p, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_46 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_46 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_46 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_46 (max e7 e5)- pappyAlt5_46 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [l, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_47 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_47 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_47 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_47 (max e7 e5)- pappyAlt5_47 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [l, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_48 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_48 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_48 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_48 (max e7 e5)- pappyAlt5_48 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [b, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_49 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_49 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_49 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_49 (max e7 e5)- pappyAlt5_49 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [k, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_50 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_50 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_50 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_50 (max e7 e5)- pappyAlt5_50 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [s, a, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_51 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_51 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_51 (max e7 e5)- pappyAlt5_51 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [f, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_52 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_52 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_52 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_52 (max e7 e5)- pappyAlt5_52 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [b, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_53 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_53 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_53 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_53 (max e7 e5)- pappyAlt5_53 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [t, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_54 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_54 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_54 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_54 (max e7 e5)- pappyAlt5_54 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [j, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_55 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_55 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_55 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_55 (max e7 e5)- pappyAlt5_55 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [g, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_56 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_56 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_56 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_56 (max e7 e5)- pappyAlt5_56 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [v, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_57 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_57 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_57 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_57 (max e7 e5)- pappyAlt5_57 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [j, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_58 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_58 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_58 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_58 (max e7 e5)- pappyAlt5_58 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [m, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_59 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_59 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_59 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_59 (max e7 e5)- pappyAlt5_59 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [d, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_60 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_60 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_60 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_60 (max e7 e5)- pappyAlt5_60 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [j, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_61 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_61 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_61 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_61 (max e7 e5)- pappyAlt5_61 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [p, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_62 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_62 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_62 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_62 (max e7 e5)- pappyAlt5_62 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [g, a, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_63 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_63 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_63 (max e7 e5)- pappyAlt5_63 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [z, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_64 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_64 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_64 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_64 (max e7 e5)- pappyAlt5_64 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [m, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_65 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_65 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_65 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_65 (max e7 e5)- pappyAlt5_65 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [r, a, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_66 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_66 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_66 (max e7 e5)- pappyAlt5_66 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseBAhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseBAhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed bahe d3 e3 ->- Parsed ( bahe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [b, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [z, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyBE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyBE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed be d3 e3 ->- Parsed ( be ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyb d of- Parsed b d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- Parsed ( [b, e] ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyBEI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyBEI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed bei d3 e3 ->- Parsed ( bei ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyb d of- Parsed b d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [b, e, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseBEhO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseBEhO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed beho d3 e3 ->- Parsed ( beho ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyb d of- Parsed b d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [b, e, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseBIhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseBIhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed bihe d3 e3 ->- Parsed ( bihe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyb d of- Parsed b d5 e5 ->- case testPappyi d5 of- Parsed i d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [b, i, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseBIhI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseBIhI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed bihi d3 e3 ->- Parsed ( bihi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [m, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [b, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [b, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyBO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyBO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed bo d3 e3 ->- Parsed ( bo ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyb d of- Parsed b d5 e5 ->- case testPappyo d5 of- Parsed o d7 e7 ->- Parsed ( [b, o] ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyBOI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyBOI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed boi d3 e3 ->- Parsed ( boi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyb d of- Parsed b d5 e5 ->- case testPappyo d5 of- Parsed o d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [b, o, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyBU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyBU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed bu d3 e3 ->- Parsed ( bu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyb d of- Parsed b d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- Parsed ( [b, u] ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseBY :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseBY d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyybu d of- Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappycmavo d of- Parsed _ _ e3 ->- case pappyResult5 of- Parsed by d5 e5 ->- Parsed ( by ) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])- where- pappyResult5 =- pappyAlt7_1 (ParseError (testPappyPos d) []) where- pappyAlt7_1 e7 =- case testPappyj d of- Parsed j d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- case testPappyh d11 of- Parsed h d13 e13 ->- case testPappyo d13 of- Parsed o d15 e15 ->- Parsed ( [j, o, h, o] ) d15 (maximum [e15,e13,e11,e9,e7])- NoParse e15 -> pappyAlt7_2 (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> pappyAlt7_2 (maximum [e13,e11,e9,e7])- NoParse e11 -> pappyAlt7_2 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_2 (max e9 e7)- pappyAlt7_2 e7 =- case testPappyr d of- Parsed r d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- case testPappyh d11 of- Parsed h d13 e13 ->- case testPappyo d13 of- Parsed o d15 e15 ->- Parsed ( [r, u, h, o] ) d15 (maximum [e15,e13,e11,e9,e7])- NoParse e15 -> pappyAlt7_3 (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> pappyAlt7_3 (maximum [e13,e11,e9,e7])- NoParse e11 -> pappyAlt7_3 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_3 (max e9 e7)- pappyAlt7_3 e7 =- case testPappyg d of- Parsed g d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- case testPappyh d11 of- Parsed h d13 e13 ->- case testPappyo d13 of- Parsed o d15 e15 ->- Parsed ( [g, e, h, o] ) d15 (maximum [e15,e13,e11,e9,e7])- NoParse e15 -> pappyAlt7_4 (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> pappyAlt7_4 (maximum [e13,e11,e9,e7])- NoParse e11 -> pappyAlt7_4 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_4 (max e9 e7)- pappyAlt7_4 e7 =- case testPappyj d of- Parsed j d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- case testPappyh d11 of- Parsed h d13 e13 ->- case testPappyo d13 of- Parsed o d15 e15 ->- Parsed ( [j, e, h, o] ) d15 (maximum [e15,e13,e11,e9,e7])- NoParse e15 -> pappyAlt7_5 (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> pappyAlt7_5 (maximum [e13,e11,e9,e7])- NoParse e11 -> pappyAlt7_5 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_5 (max e9 e7)- pappyAlt7_5 e7 =- case testPappyl d of- Parsed l d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- case testPappyh d11 of- Parsed h d13 e13 ->- case testPappya d13 of- Parsed a d15 e15 ->- Parsed ( [l, o, h, a] ) d15 (maximum [e15,e13,e11,e9,e7])- NoParse e15 -> pappyAlt7_6 (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> pappyAlt7_6 (maximum [e13,e11,e9,e7])- NoParse e11 -> pappyAlt7_6 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_6 (max e9 e7)- pappyAlt7_6 e7 =- case testPappyn d of- Parsed n d9 e9 ->- case testPappya d9 of- Parsed a d11 e11 ->- case testPappyh d11 of- Parsed h d13 e13 ->- case testPappya d13 of- Parsed a d15 e15 ->- Parsed ( [n, a, h, a] ) d15 (maximum [e15,e13,e11,e9,e7])- NoParse e15 -> pappyAlt7_7 (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> pappyAlt7_7 (maximum [e13,e11,e9,e7])- NoParse e11 -> pappyAlt7_7 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_7 (max e9 e7)- pappyAlt7_7 e7 =- case testPappys d of- Parsed s d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- case testPappyh d11 of- Parsed h d13 e13 ->- case testPappye d13 of- Parsed e d15 e15 ->- Parsed ( [s, e, h, e] ) d15 (maximum [e15,e13,e11,e9,e7])- NoParse e15 -> pappyAlt7_8 (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> pappyAlt7_8 (maximum [e13,e11,e9,e7])- NoParse e11 -> pappyAlt7_8 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_8 (max e9 e7)- pappyAlt7_8 e7 =- case testPappyt d of- Parsed t d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- case testPappyh d11 of- Parsed h d13 e13 ->- case testPappya d13 of- Parsed a d15 e15 ->- Parsed ( [t, o, h, a] ) d15 (maximum [e15,e13,e11,e9,e7])- NoParse e15 -> pappyAlt7_9 (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> pappyAlt7_9 (maximum [e13,e11,e9,e7])- NoParse e11 -> pappyAlt7_9 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_9 (max e9 e7)- pappyAlt7_9 e7 =- case testPappyg d of- Parsed g d9 e9 ->- case testPappya d9 of- Parsed a d11 e11 ->- case testPappyh d11 of- Parsed h d13 e13 ->- case testPappye d13 of- Parsed e d15 e15 ->- Parsed ( [g, a, h, e] ) d15 (maximum [e15,e13,e11,e9,e7])- NoParse e15 -> pappyAlt7_10 (maximum [e15,e13,e11,e9,e7])- NoParse e13 -> pappyAlt7_10 (maximum [e13,e11,e9,e7])- NoParse e11 -> pappyAlt7_10 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_10 (max e9 e7)- pappyAlt7_10 e7 =- case testPappyy d of- Parsed y d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyy d11 of- Parsed y d13 e13 ->- Parsed ( [y, h, y] ) d13 (maximum [e13,e11,e9,e7])- NoParse e13 -> pappyAlt7_11 (maximum [e13,e11,e9,e7])- NoParse e11 -> pappyAlt7_11 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_11 (max e9 e7)- pappyAlt7_11 e7 =- case testPappyb d of- Parsed b d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [b, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_12 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_12 (max e9 e7)- pappyAlt7_12 e7 =- case testPappyc d of- Parsed c d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [c, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_13 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_13 (max e9 e7)- pappyAlt7_13 e7 =- case testPappyd d of- Parsed d d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [d, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_14 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_14 (max e9 e7)- pappyAlt7_14 e7 =- case testPappyf d of- Parsed f d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [f, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_15 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_15 (max e9 e7)- pappyAlt7_15 e7 =- case testPappyg d of- Parsed g d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [g, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_16 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_16 (max e9 e7)- pappyAlt7_16 e7 =- case testPappyj d of- Parsed j d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [j, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_17 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_17 (max e9 e7)- pappyAlt7_17 e7 =- case testPappyk d of- Parsed k d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [k, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_18 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_18 (max e9 e7)- pappyAlt7_18 e7 =- case testPappyl d of- Parsed l d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [l, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_19 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_19 (max e9 e7)- pappyAlt7_19 e7 =- case testPappym d of- Parsed m d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [m, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_20 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_20 (max e9 e7)- pappyAlt7_20 e7 =- case testPappyn d of- Parsed n d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [n, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_21 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_21 (max e9 e7)- pappyAlt7_21 e7 =- case testPappyp d of- Parsed p d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [p, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_22 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_22 (max e9 e7)- pappyAlt7_22 e7 =- case testPappyr d of- Parsed r d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [r, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_23 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_23 (max e9 e7)- pappyAlt7_23 e7 =- case testPappys d of- Parsed s d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [s, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_24 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_24 (max e9 e7)- pappyAlt7_24 e7 =- case testPappyt d of- Parsed t d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [t, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_25 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_25 (max e9 e7)- pappyAlt7_25 e7 =- case testPappyv d of- Parsed v d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [v, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_26 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_26 (max e9 e7)- pappyAlt7_26 e7 =- case testPappyx d of- Parsed x d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [x, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_27 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_27 (max e9 e7)- pappyAlt7_27 e7 =- case testPappyz d of- Parsed z d9 e9 ->- case testPappyy d9 of- Parsed y d11 e11 ->- Parsed ( [z, y] ) d11 (maximum [e11,e9,e7])- NoParse e11 -> pappyAlt7_28 (maximum [e11,e9,e7])- NoParse e9 -> pappyAlt7_28 (max e9 e7)- pappyAlt7_28 e7 = NoParse e7- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyParseCAhA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseCAhA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed caha d3 e3 ->- Parsed ( caha ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [c, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [p, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [n, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [k, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseCAI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseCAI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed cai d3 e3 ->- Parsed ( cai ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [p, e, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [c, a, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [c, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [s, a, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [r, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyCEI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyCEI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed cei d3 e3 ->- Parsed ( cei ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyc d of- Parsed c d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [c, e, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseCEhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseCEhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed cehe d3 e3 ->- Parsed ( cehe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyc d of- Parsed c d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [c, e, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyCO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyCO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed co d3 e3 ->- Parsed ( co ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyc d of- Parsed c d5 e5 ->- case testPappyo d5 of- Parsed o d7 e7 ->- Parsed ( [c, o] ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseCOI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseCOI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed coi d3 e3 ->- Parsed ( coi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [j, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [c, o, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [f, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [t, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [m, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [f, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- pappyAlt5_7 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [c, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [p, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_9 (max e7 e5)- pappyAlt5_9 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [k, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_10 (max e7 e5)- pappyAlt5_10 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [n, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_11 (max e7 e5)- pappyAlt5_11 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [r, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_12 (max e7 e5)- pappyAlt5_12 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [b, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_13 (max e7 e5)- pappyAlt5_13 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [j, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_14 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_14 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_14 (max e7 e5)- pappyAlt5_14 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [m, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_15 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_15 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_15 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_15 (max e7 e5)- pappyAlt5_15 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [k, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_16 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_16 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_16 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_16 (max e7 e5)- pappyAlt5_16 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [v, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_17 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_17 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_17 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_17 (max e7 e5)- pappyAlt5_17 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyCU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyCU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed cu d3 e3 ->- Parsed ( cu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyc d of- Parsed c d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- Parsed ( [c, u] ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseCUhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseCUhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed cuhe d3 e3 ->- Parsed ( cuhe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [c, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [n, a, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseDAhO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseDAhO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed daho d3 e3 ->- Parsed ( daho ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyd d of- Parsed d d5 e5 ->- case testPappya d5 of- Parsed a d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [d, a, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyDOI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyDOI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed doi d3 e3 ->- Parsed ( doi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyd d of- Parsed d d5 e5 ->- case testPappyo d5 of- Parsed o d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [d, o, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseDOhU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseDOhU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed dohu d3 e3 ->- Parsed ( dohu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyd d of- Parsed d d5 e5 ->- case testPappyo d5 of- Parsed o d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [d, o, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseFA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseFA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed fa d3 e3 ->- Parsed ( fa ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [f, a, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- case testPappyvowel d9 of- NoParse e13 ->- Parsed ( [f, a] ) d9 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- case testPappyvowel d9 of- NoParse e13 ->- Parsed ( [f, e] ) d9 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- case testPappyvowel d9 of- NoParse e13 ->- Parsed ( [f, o] ) d9 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- case testPappyvowel d9 of- NoParse e13 ->- Parsed ( [f, u] ) d9 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [f, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- pappyAlt5_7 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- case testPappyvowel d9 of- NoParse e13 ->- Parsed ( [f, i] ) d9 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseFAhA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseFAhA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed faha d3 e3 ->- Parsed ( faha ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [d, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [b, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [n, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [v, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [g, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [t, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- pappyAlt5_7 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [n, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [c, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_9 (max e7 e5)- pappyAlt5_9 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [z, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_10 (max e7 e5)- pappyAlt5_10 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [r, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_11 (max e7 e5)- pappyAlt5_11 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [r, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_12 (max e7 e5)- pappyAlt5_12 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [r, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_13 (max e7 e5)- pappyAlt5_13 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [t, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_14 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_14 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_14 (max e7 e5)- pappyAlt5_14 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [b, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_15 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_15 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_15 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_15 (max e7 e5)- pappyAlt5_15 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [n, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_16 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_16 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_16 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_16 (max e7 e5)- pappyAlt5_16 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [p, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_17 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_17 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_17 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_17 (max e7 e5)- pappyAlt5_17 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [n, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_18 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_18 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_18 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_18 (max e7 e5)- pappyAlt5_18 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [t, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_19 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_19 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_19 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_19 (max e7 e5)- pappyAlt5_19 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [z, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_20 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_20 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_20 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_20 (max e7 e5)- pappyAlt5_20 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [z, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_21 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_21 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_21 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_21 (max e7 e5)- pappyAlt5_21 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [z, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_22 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_22 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_22 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_22 (max e7 e5)- pappyAlt5_22 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [f, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_23 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_23 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_23 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_23 (max e7 e5)- pappyAlt5_23 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseFAhO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseFAhO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed faho d3 e3 ->- Parsed ( faho ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyf d of- Parsed f d5 e5 ->- case testPappya d5 of- Parsed a d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [f, a, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseFEhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseFEhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed fehe d3 e3 ->- Parsed ( fehe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyf d of- Parsed f d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [f, e, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseFEhU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseFEhU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed fehu d3 e3 ->- Parsed ( fehu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyf d of- Parsed f d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [f, e, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseFIhO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseFIhO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed fiho d3 e3 ->- Parsed ( fiho ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyf d of- Parsed f d5 e5 ->- case testPappyi d5 of- Parsed i d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [f, i, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyFOI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyFOI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed foi d3 e3 ->- Parsed ( foi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyf d of- Parsed f d5 e5 ->- case testPappyo d5 of- Parsed o d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [f, o, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseFUhA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseFUhA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed fuha d3 e3 ->- Parsed ( fuha ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyf d of- Parsed f d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappya d9 of- Parsed a d11 e11 ->- Parsed ( [f, u, h, a] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseFUhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseFUhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed fuhe d3 e3 ->- Parsed ( fuhe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyf d of- Parsed f d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [f, u, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseFUhO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseFUhO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed fuho d3 e3 ->- Parsed ( fuho ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyf d of- Parsed f d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [f, u, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseGA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseGA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed ga d3 e3 ->- Parsed ( ga ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [g, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- Parsed ( [g, e] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- Parsed ( [g, o] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- Parsed ( [g, a] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- Parsed ( [g, u] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseGAhO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseGAhO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed gaho d3 e3 ->- Parsed ( gaho ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [k, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [g, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseGEhU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseGEhU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed gehu d3 e3 ->- Parsed ( gehu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyg d of- Parsed g d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [g, e, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyGI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyGI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed gi d3 e3 ->- Parsed ( gi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyg d of- Parsed g d5 e5 ->- case testPappyi d5 of- Parsed i d7 e7 ->- Parsed ( [g, i] ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseGIhA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseGIhA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed giha d3 e3 ->- Parsed ( giha ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [g, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [g, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [g, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [g, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [g, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseGOI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseGOI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed goi d3 e3 ->- Parsed ( goi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [n, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- Parsed ( [n, e] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [g, o, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [p, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- Parsed ( [p, e] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [p, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- pappyAlt5_7 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- Parsed ( [p, o] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseGOhA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseGOhA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed goha d3 e3 ->- Parsed ( goha ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- Parsed ( [m, o] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [n, e, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [g, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [g, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [g, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [n, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- pappyAlt5_7 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [g, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [g, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_9 (max e7 e5)- pappyAlt5_9 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- case testPappyvowel d9 of- NoParse e13 ->- Parsed ( [d, u] ) d9 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_10 (max e7 e5)- pappyAlt5_10 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [b, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_11 (max e7 e5)- pappyAlt5_11 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [b, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_12 (max e7 e5)- pappyAlt5_12 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [b, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_13 (max e7 e5)- pappyAlt5_13 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [c, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_14 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_14 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_14 (max e7 e5)- pappyAlt5_14 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseGUhA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseGUhA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed guha d3 e3 ->- Parsed ( guha ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [g, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [g, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [g, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [g, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [g, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed i d3 e3 ->- Parsed ( i ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyi d of- Parsed i d5 e5 ->- Parsed ( [i] ) d5 e5- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseJA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseJA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed ja d3 e3 ->- Parsed ( ja ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [j, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- Parsed ( [j, e] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- case testPappyvowel d9 of- NoParse e13 ->- Parsed ( [j, o] ) d9 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- Parsed ( [j, a] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- Parsed ( [j, u] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyJAI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyJAI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed jai d3 e3 ->- Parsed ( jai ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyj d of- Parsed j d5 e5 ->- case testPappya d5 of- Parsed a d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [j, a, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseJOhI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseJOhI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed johi d3 e3 ->- Parsed ( johi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyj d of- Parsed j d5 e5 ->- case testPappyo d5 of- Parsed o d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [j, o, h, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseJOI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseJOI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed joi d3 e3 ->- Parsed ( joi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [f, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [p, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [j, o, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [c, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- Parsed ( [c, e] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [j, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- pappyAlt5_7 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [k, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [j, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_9 (max e7 e5)- pappyAlt5_9 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [j, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_10 (max e7 e5)- pappyAlt5_10 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyKE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyKE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed ke d3 e3 ->- Parsed ( ke ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyk d of- Parsed k d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- Parsed ( [k, e] ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseKEhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseKEhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed kehe d3 e3 ->- Parsed ( kehe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyk d of- Parsed k d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [k, e, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyKEI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyKEI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed kei d3 e3 ->- Parsed ( kei ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyk d of- Parsed k d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [k, e, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyKI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyKI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed ki d3 e3 ->- Parsed ( ki ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyk d of- Parsed k d5 e5 ->- case testPappyi d5 of- Parsed i d7 e7 ->- Parsed ( [k, i] ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseKOhA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseKOhA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed koha d3 e3 ->- Parsed ( koha ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [d, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [d, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [d, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [d, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [d, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [d, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- pappyAlt5_7 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [d, e, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [d, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_9 (max e7 e5)- pappyAlt5_9 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [m, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_10 (max e7 e5)- pappyAlt5_10 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [m, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_11 (max e7 e5)- pappyAlt5_11 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [m, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_12 (max e7 e5)- pappyAlt5_12 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [d, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_13 (max e7 e5)- pappyAlt5_13 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [k, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_14 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_14 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_14 (max e7 e5)- pappyAlt5_14 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [f, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_15 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_15 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_15 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_15 (max e7 e5)- pappyAlt5_15 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [k, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_16 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_16 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_16 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_16 (max e7 e5)- pappyAlt5_16 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [k, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_17 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_17 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_17 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_17 (max e7 e5)- pappyAlt5_17 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [k, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_18 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_18 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_18 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_18 (max e7 e5)- pappyAlt5_18 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [k, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_19 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_19 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_19 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_19 (max e7 e5)- pappyAlt5_19 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [f, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_20 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_20 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_20 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_20 (max e7 e5)- pappyAlt5_20 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [f, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_21 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_21 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_21 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_21 (max e7 e5)- pappyAlt5_21 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [f, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_22 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_22 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_22 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_22 (max e7 e5)- pappyAlt5_22 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [f, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_23 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_23 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_23 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_23 (max e7 e5)- pappyAlt5_23 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [v, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_24 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_24 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_24 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_24 (max e7 e5)- pappyAlt5_24 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [v, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_25 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_25 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_25 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_25 (max e7 e5)- pappyAlt5_25 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [v, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_26 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_26 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_26 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_26 (max e7 e5)- pappyAlt5_26 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [v, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_27 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_27 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_27 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_27 (max e7 e5)- pappyAlt5_27 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [v, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_28 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_28 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_28 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_28 (max e7 e5)- pappyAlt5_28 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- Parsed ( [r, u] ) d9 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_29 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_29 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_29 (max e7 e5)- pappyAlt5_29 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [r, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_30 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_30 (max e7 e5)- pappyAlt5_30 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- Parsed ( [r, a] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_31 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_31 (max e7 e5)- pappyAlt5_31 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- Parsed ( [t, a] ) d9 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_32 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_32 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_32 (max e7 e5)- pappyAlt5_32 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- case testPappyvowel d9 of- NoParse e13 ->- Parsed ( [t, u] ) d9 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e13 -> pappyAlt5_33 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_33 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_33 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_33 (max e7 e5)- pappyAlt5_33 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [t, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_34 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_34 (max e7 e5)- pappyAlt5_34 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [z, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_35 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_35 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_35 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_35 (max e7 e5)- pappyAlt5_35 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [k, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_36 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_36 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_36 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_36 (max e7 e5)- pappyAlt5_36 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- Parsed ( [m, a] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_37 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_37 (max e7 e5)- pappyAlt5_37 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [z, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_38 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_38 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_38 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_38 (max e7 e5)- pappyAlt5_38 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [z, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_39 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_39 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_39 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_39 (max e7 e5)- pappyAlt5_39 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [c, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_40 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_40 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_40 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_40 (max e7 e5)- pappyAlt5_40 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- Parsed ( [d, a] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_41 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_41 (max e7 e5)- pappyAlt5_41 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- Parsed ( [d, e] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_42 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_42 (max e7 e5)- pappyAlt5_42 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- Parsed ( [d, i] ) d9 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_43 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_43 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_43 (max e7 e5)- pappyAlt5_43 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- Parsed ( [k, o] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_44 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_44 (max e7 e5)- pappyAlt5_44 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [m, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_45 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_45 (max e7 e5)- pappyAlt5_45 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- Parsed ( [d, o] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_46 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_46 (max e7 e5)- pappyAlt5_46 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyKU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyKU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed ku d3 e3 ->- Parsed ( ku ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyk d of- Parsed k d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- Parsed ( [k, u] ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseKUhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseKUhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed kuhe d3 e3 ->- Parsed ( kuhe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyk d of- Parsed k d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [k, u, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseKUhO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseKUhO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed kuho d3 e3 ->- Parsed ( kuho ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyk d of- Parsed k d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [k, u, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseLA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseLA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed la d3 e3 ->- Parsed ( la ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [l, a, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [l, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- Parsed ( [l, a] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseLAU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseLAU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed lau d3 e3 ->- Parsed ( lau ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [c, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [l, a, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [z, a, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [t, a, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseLAhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseLAhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed lahe d3 e3 ->- Parsed ( lahe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [t, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [l, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [l, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [l, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [v, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [l, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- pappyAlt5_7 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [l, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseLE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseLE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed le d3 e3 ->- Parsed ( le ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [l, e, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [l, o, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [l, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [l, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [l, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [l, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- pappyAlt5_7 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- Parsed ( [l, o] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- Parsed ( [l, e] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_9 (max e7 e5)- pappyAlt5_9 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseLEhU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseLEhU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed lehu d3 e3 ->- Parsed ( lehu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyl d of- Parsed l d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [l, e, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseLI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseLI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed li d3 e3 ->- Parsed ( li ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [m, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [l, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseLIhU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseLIhU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed lihu d3 e3 ->- Parsed ( lihu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyl d of- Parsed l d5 e5 ->- case testPappyi d5 of- Parsed i d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [l, i, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseLOhO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseLOhO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed loho d3 e3 ->- Parsed ( loho ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyl d of- Parsed l d5 e5 ->- case testPappyo d5 of- Parsed o d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [l, o, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseLOhU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseLOhU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed lohu d3 e3 ->- Parsed ( lohu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyl d of- Parsed l d5 e5 ->- case testPappyo d5 of- Parsed o d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [l, o, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyLU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyLU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed lu d3 e3 ->- Parsed ( lu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyl d of- Parsed l d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- Parsed ( [l, u] ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseLUhU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseLUhU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed luhu d3 e3 ->- Parsed ( luhu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyl d of- Parsed l d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [l, u, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseMAhO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseMAhO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed maho d3 e3 ->- Parsed ( maho ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappym d of- Parsed m d5 e5 ->- case testPappya d5 of- Parsed a d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [m, a, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseMAI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseMAI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed mai d3 e3 ->- Parsed ( mai ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [m, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [m, a, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyME :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyME d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed me d3 e3 ->- Parsed ( me ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappym d of- Parsed m d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- Parsed ( [m, e] ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseMEhU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseMEhU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed mehu d3 e3 ->- Parsed ( mehu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappym d of- Parsed m d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [m, e, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseMOhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseMOhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed mohe d3 e3 ->- Parsed ( mohe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappym d of- Parsed m d5 e5 ->- case testPappyo d5 of- Parsed o d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [m, o, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseMOhI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseMOhI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed mohi d3 e3 ->- Parsed ( mohi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappym d of- Parsed m d5 e5 ->- case testPappyo d5 of- Parsed o d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [m, o, h, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseMOI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseMOI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed moi d3 e3 ->- Parsed ( moi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [m, e, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [m, o, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [s, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [c, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [v, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseNA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseNA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed na d3 e3 ->- Parsed ( na ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [j, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- Parsed ( [n, a] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyNAI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyNAI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed nai d3 e3 ->- Parsed ( nai ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyn d of- Parsed n d5 e5 ->- case testPappya d5 of- Parsed a d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [n, a, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseNAhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseNAhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed nahe d3 e3 ->- Parsed ( nahe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [t, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [j, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [n, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [n, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseNAhU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseNAhU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed nahu d3 e3 ->- Parsed ( nahu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyn d of- Parsed n d5 e5 ->- case testPappya d5 of- Parsed a d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [n, a, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseNIhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseNIhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed nihe d3 e3 ->- Parsed ( nihe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyn d of- Parsed n d5 e5 ->- case testPappyi d5 of- Parsed i d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [n, i, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseNIhO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseNIhO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed niho d3 e3 ->- Parsed ( niho ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [n, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [n, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseNOI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseNOI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed noi d3 e3 ->- Parsed ( noi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [v, o, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [n, o, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [p, o, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseNU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseNU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed nu d3 e3 ->- Parsed ( nu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [n, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [d, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [s, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- Parsed ( [n, u] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [l, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- Parsed ( [k, a] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- pappyAlt5_7 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [j, e, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [s, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_9 (max e7 e5)- pappyAlt5_9 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [z, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_10 (max e7 e5)- pappyAlt5_10 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [m, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_11 (max e7 e5)- pappyAlt5_11 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [p, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_12 (max e7 e5)- pappyAlt5_12 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [z, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_13 (max e7 e5)- pappyAlt5_13 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseNUhA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseNUhA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed nuha d3 e3 ->- Parsed ( nuha ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyn d of- Parsed n d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappya d9 of- Parsed a d11 e11 ->- Parsed ( [n, u, h, a] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseNUhI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseNUhI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed nuhi d3 e3 ->- Parsed ( nuhi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyn d of- Parsed n d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [n, u, h, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseNUhU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseNUhU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed nuhu d3 e3 ->- Parsed ( nuhu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyn d of- Parsed n d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [n, u, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParsePA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsePA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed pa d3 e3 ->- Parsed ( pa ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [d, a, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [f, e, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [g, a, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [j, a, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [r, e, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [v, a, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- pappyAlt5_7 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [p, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [p, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_9 (max e7 e5)- pappyAlt5_9 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [f, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_10 (max e7 e5)- pappyAlt5_10 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [z, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_11 (max e7 e5)- pappyAlt5_11 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [m, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_12 (max e7 e5)- pappyAlt5_12 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [n, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_13 (max e7 e5)- pappyAlt5_13 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [k, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_14 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_14 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_14 (max e7 e5)- pappyAlt5_14 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [c, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_15 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_15 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_15 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_15 (max e7 e5)- pappyAlt5_15 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [m, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_16 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_16 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_16 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_16 (max e7 e5)- pappyAlt5_16 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [r, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_17 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_17 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_17 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_17 (max e7 e5)- pappyAlt5_17 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [d, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_18 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_18 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_18 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_18 (max e7 e5)- pappyAlt5_18 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [s, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_19 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_19 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_19 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_19 (max e7 e5)- pappyAlt5_19 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [j, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_20 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_20 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_20 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_20 (max e7 e5)- pappyAlt5_20 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [s, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_21 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_21 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_21 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_21 (max e7 e5)- pappyAlt5_21 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [s, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_22 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_22 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_22 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_22 (max e7 e5)- pappyAlt5_22 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyvowel d9 of- NoParse e11 ->- Parsed ( [r, o] ) d9 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_23 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_23 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_23 (max e7 e5)- pappyAlt5_23 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [r, a, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_24 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_24 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_24 (max e7 e5)- pappyAlt5_24 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [s, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_25 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_25 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_25 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_25 (max e7 e5)- pappyAlt5_25 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [s, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_26 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_26 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_26 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_26 (max e7 e5)- pappyAlt5_26 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [s, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_27 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_27 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_27 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_27 (max e7 e5)- pappyAlt5_27 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [s, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_28 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_28 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_28 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_28 (max e7 e5)- pappyAlt5_28 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [m, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_29 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_29 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_29 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_29 (max e7 e5)- pappyAlt5_29 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [d, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_30 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_30 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_30 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_30 (max e7 e5)- pappyAlt5_30 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [t, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_31 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_31 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_31 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_31 (max e7 e5)- pappyAlt5_31 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [k, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_32 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_32 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_32 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_32 (max e7 e5)- pappyAlt5_32 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [c, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_33 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_33 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_33 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_33 (max e7 e5)- pappyAlt5_33 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [t, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_34 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_34 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_34 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_34 (max e7 e5)- pappyAlt5_34 e5 =- case testPappyx d of- Parsed x d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- Parsed ( [x, o] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_35 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_35 (max e7 e5)- pappyAlt5_35 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [p, a, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_36 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_36 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_36 (max e7 e5)- pappyAlt5_36 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [n, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_37 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_37 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_37 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_37 (max e7 e5)- pappyAlt5_37 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- case testPappyvowel d9 of- NoParse e13 ->- Parsed ( [n, o] ) d9 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e13 -> pappyAlt5_38 (maximum [e13,e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_38 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_38 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_38 (max e7 e5)- pappyAlt5_38 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- Parsed ( [p, a] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_39 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_39 (max e7 e5)- pappyAlt5_39 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- Parsed ( [r, e] ) d9 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_40 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_40 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_40 (max e7 e5)- pappyAlt5_40 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [c, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_41 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_41 (max e7 e5)- pappyAlt5_41 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- Parsed ( [v, o] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_42 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_42 (max e7 e5)- pappyAlt5_42 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- Parsed ( [m, u] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_43 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_43 (max e7 e5)- pappyAlt5_43 e5 =- case testPappyx d of- Parsed x d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- Parsed ( [x, a] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_44 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_44 (max e7 e5)- pappyAlt5_44 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- Parsed ( [z, e] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_45 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_45 (max e7 e5)- pappyAlt5_45 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- Parsed ( [b, i] ) d9 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_46 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_46 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_46 (max e7 e5)- pappyAlt5_46 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- Parsed ( [s, o] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_47 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_47 (max e7 e5)- pappyAlt5_47 e5 =- case testPappydigit d of- Parsed d d7 e7 ->- Parsed ( [d] ) d7 (max e7 e5)- NoParse e7 -> pappyAlt5_48 (max e7 e5)- pappyAlt5_48 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParsePEhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsePEhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed pehe d3 e3 ->- Parsed ( pehe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyp d of- Parsed p d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [p, e, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParsePEhO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsePEhO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed peho d3 e3 ->- Parsed ( peho ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyp d of- Parsed p d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [p, e, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParsePU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParsePU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed pu d3 e3 ->- Parsed ( pu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- Parsed ( [b, a] ) d9 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- Parsed ( [p, u] ) d9 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- Parsed ( [c, a] ) d9 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseRAhO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseRAhO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed raho d3 e3 ->- Parsed ( raho ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyr d of- Parsed r d5 e5 ->- case testPappya d5 of- Parsed a d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [r, a, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseROI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseROI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed roi d3 e3 ->- Parsed ( roi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [r, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [r, o, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappySA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappySA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed sa d3 e3 ->- Parsed ( sa ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappys d of- Parsed s d5 e5 ->- case testPappya d5 of- Parsed a d7 e7 ->- Parsed ( [s, a] ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseSE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseSE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed se d3 e3 ->- Parsed ( se ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- Parsed ( [s, e] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- Parsed ( [t, e] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- Parsed ( [v, e] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyx d of- Parsed x d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- Parsed ( [x, e] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseSEI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseSEI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed sei d3 e3 ->- Parsed ( sei ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [s, e, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [t, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseSEhU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseSEhU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed sehu d3 e3 ->- Parsed ( sehu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappys d of- Parsed s d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [s, e, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseSI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseSI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed si d3 e3 ->- Parsed ( si ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappys d of- Parsed s d5 e5 ->- case testPappyi d5 of- Parsed i d7 e7 ->- case testPappyh d7 of- NoParse e9 ->- case testPappyvowel d7 of- NoParse e11 ->- Parsed ( [s, i] ) d7 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappySOI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappySOI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed soi d3 e3 ->- Parsed ( soi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappys d of- Parsed s d5 e5 ->- case testPappyo d5 of- Parsed o d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [s, o, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseSU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseSU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed su d3 e3 ->- Parsed ( su ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappys d of- Parsed s d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- case testPappyh d7 of- NoParse e9 ->- Parsed ( [s, u] ) d7 (maximum [e9,e7,e5])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseTAhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseTAhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed tahe d3 e3 ->- Parsed ( tahe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [r, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [t, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [d, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [n, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseTEhU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseTEhU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed tehu d3 e3 ->- Parsed ( tehu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyt d of- Parsed t d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [t, e, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyTEI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyTEI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed tei d3 e3 ->- Parsed ( tei ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyt d of- Parsed t d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [t, e, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseTO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseTO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed to d3 e3 ->- Parsed ( to ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [t, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- Parsed ( [t, o] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyTOI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyTOI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed toi d3 e3 ->- Parsed ( toi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyt d of- Parsed t d5 e5 ->- case testPappyo d5 of- Parsed o d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [t, o, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseTUhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseTUhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed tuhe d3 e3 ->- Parsed ( tuhe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyt d of- Parsed t d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [t, u, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseTUhU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseTUhU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed tuhu d3 e3 ->- Parsed ( tuhu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyt d of- Parsed t d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [t, u, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseUI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseUI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed ui d3 e3 ->- Parsed ( ui ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyi d of- Parsed i d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappya d9 of- Parsed a d11 e11 ->- Parsed ( [i, h, a] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyi d of- Parsed i d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- Parsed ( [i, e] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappya d of- Parsed a d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [a, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyu d of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [u, h, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyi d of- Parsed i d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [i, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case testPappyi d of- Parsed i d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [i, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- pappyAlt5_7 e5 =- case testPappya d of- Parsed a d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappya d9 of- Parsed a d11 e11 ->- Parsed ( [a, h, a] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 =- case testPappyi d of- Parsed i d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- Parsed ( [i, a] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_9 (max e7 e5)- pappyAlt5_9 e5 =- case testPappyo d of- Parsed o d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [o, h, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_10 (max e7 e5)- pappyAlt5_10 e5 =- case testPappyo d of- Parsed o d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [o, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_11 (max e7 e5)- pappyAlt5_11 e5 =- case testPappye d of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [e, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_12 (max e7 e5)- pappyAlt5_12 e5 =- case testPappyo d of- Parsed o d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [o, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_13 (max e7 e5)- pappyAlt5_13 e5 =- case testPappyu d of- Parsed u d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- Parsed ( [u, o] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_14 (max e7 e5)- pappyAlt5_14 e5 =- case testPappye d of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [e, h, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_15 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_15 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_15 (max e7 e5)- pappyAlt5_15 e5 =- case testPappyu d of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [u, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_16 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_16 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_16 (max e7 e5)- pappyAlt5_16 e5 =- case testPappya d of- Parsed a d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- Parsed ( [a, u] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_17 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_17 (max e7 e5)- pappyAlt5_17 e5 =- case testPappyu d of- Parsed u d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- Parsed ( [u, a] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_18 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_18 (max e7 e5)- pappyAlt5_18 e5 =- case testPappya d of- Parsed a d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [a, h, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_19 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_19 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_19 (max e7 e5)- pappyAlt5_19 e5 =- case testPappyi d of- Parsed i d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [i, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_20 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_20 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_20 (max e7 e5)- pappyAlt5_20 e5 =- case testPappyi d of- Parsed i d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [i, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_21 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_21 (max e7 e5)- pappyAlt5_21 e5 =- case testPappyu d of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappya d9 of- Parsed a d11 e11 ->- Parsed ( [u, h, a] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_22 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_22 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_22 (max e7 e5)- pappyAlt5_22 e5 =- case testPappyu d of- Parsed u d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [u, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_23 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_23 (max e7 e5)- pappyAlt5_23 e5 =- case testPappya d of- Parsed a d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [a, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_24 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_24 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_24 (max e7 e5)- pappyAlt5_24 e5 =- case testPappya d of- Parsed a d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [a, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_25 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_25 (max e7 e5)- pappyAlt5_25 e5 =- case testPappya d of- Parsed a d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [a, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_26 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_26 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_26 (max e7 e5)- pappyAlt5_26 e5 =- case testPappyi d of- Parsed i d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- Parsed ( [i, u] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_27 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_27 (max e7 e5)- pappyAlt5_27 e5 =- case testPappye d of- Parsed e d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [e, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_28 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_28 (max e7 e5)- pappyAlt5_28 e5 =- case testPappyo d of- Parsed o d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [o, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_29 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_29 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_29 (max e7 e5)- pappyAlt5_29 e5 =- case testPappye d of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappya d9 of- Parsed a d11 e11 ->- Parsed ( [e, h, a] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_30 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_30 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_30 (max e7 e5)- pappyAlt5_30 e5 =- case testPappyu d of- Parsed u d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- Parsed ( [u, u] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_31 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_31 (max e7 e5)- pappyAlt5_31 e5 =- case testPappyo d of- Parsed o d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappya d9 of- Parsed a d11 e11 ->- Parsed ( [o, h, a] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_32 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_32 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_32 (max e7 e5)- pappyAlt5_32 e5 =- case testPappyo d of- Parsed o d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [o, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_33 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_33 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_33 (max e7 e5)- pappyAlt5_33 e5 =- case testPappyu d of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [u, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_34 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_34 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_34 (max e7 e5)- pappyAlt5_34 e5 =- case testPappye d of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [e, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_35 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_35 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_35 (max e7 e5)- pappyAlt5_35 e5 =- case testPappyi d of- Parsed i d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- Parsed ( [i, o] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_36 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_36 (max e7 e5)- pappyAlt5_36 e5 =- case testPappye d of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [e, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_37 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_37 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_37 (max e7 e5)- pappyAlt5_37 e5 =- case testPappyu d of- Parsed u d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- Parsed ( [u, e] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_38 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_38 (max e7 e5)- pappyAlt5_38 e5 =- case testPappyi d of- Parsed i d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [i, h, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_39 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_39 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_39 (max e7 e5)- pappyAlt5_39 e5 =- case testPappyu d of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [u, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_40 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_40 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_40 (max e7 e5)- pappyAlt5_40 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [b, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_41 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_41 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_41 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_41 (max e7 e5)- pappyAlt5_41 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [j, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_42 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_42 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_42 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_42 (max e7 e5)- pappyAlt5_42 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [c, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_43 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_43 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_43 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_43 (max e7 e5)- pappyAlt5_43 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [s, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_44 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_44 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_44 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_44 (max e7 e5)- pappyAlt5_44 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [t, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_45 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_45 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_45 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_45 (max e7 e5)- pappyAlt5_45 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [k, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_46 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_46 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_46 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_46 (max e7 e5)- pappyAlt5_46 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [s, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_47 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_47 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_47 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_47 (max e7 e5)- pappyAlt5_47 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [z, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_48 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_48 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_48 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_48 (max e7 e5)- pappyAlt5_48 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [p, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_49 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_49 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_49 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_49 (max e7 e5)- pappyAlt5_49 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [r, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_50 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_50 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_50 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_50 (max e7 e5)- pappyAlt5_50 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [j, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_51 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_51 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_51 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_51 (max e7 e5)- pappyAlt5_51 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [t, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_52 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_52 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_52 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_52 (max e7 e5)- pappyAlt5_52 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [r, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_53 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_53 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_53 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_53 (max e7 e5)- pappyAlt5_53 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [l, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_54 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_54 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_54 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_54 (max e7 e5)- pappyAlt5_54 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [b, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_55 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_55 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_55 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_55 (max e7 e5)- pappyAlt5_55 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [m, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_56 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_56 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_56 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_56 (max e7 e5)- pappyAlt5_56 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [d, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_57 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_57 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_57 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_57 (max e7 e5)- pappyAlt5_57 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [t, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_58 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_58 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_58 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_58 (max e7 e5)- pappyAlt5_58 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [v, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_59 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_59 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_59 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_59 (max e7 e5)- pappyAlt5_59 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [p, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_60 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_60 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_60 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_60 (max e7 e5)- pappyAlt5_60 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [z, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_61 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_61 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_61 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_61 (max e7 e5)- pappyAlt5_61 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [s, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_62 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_62 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_62 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_62 (max e7 e5)- pappyAlt5_62 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [l, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_63 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_63 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_63 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_63 (max e7 e5)- pappyAlt5_63 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [k, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_64 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_64 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_64 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_64 (max e7 e5)- pappyAlt5_64 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [s, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_65 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_65 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_65 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_65 (max e7 e5)- pappyAlt5_65 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [d, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_66 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_66 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_66 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_66 (max e7 e5)- pappyAlt5_66 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [j, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_67 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_67 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_67 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_67 (max e7 e5)- pappyAlt5_67 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [s, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_68 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_68 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_68 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_68 (max e7 e5)- pappyAlt5_68 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [k, a, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_69 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_69 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_69 (max e7 e5)- pappyAlt5_69 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [t, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_70 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_70 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_70 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_70 (max e7 e5)- pappyAlt5_70 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [n, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_71 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_71 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_71 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_71 (max e7 e5)- pappyAlt5_71 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [j, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_72 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_72 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_72 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_72 (max e7 e5)- pappyAlt5_72 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [b, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_73 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_73 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_73 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_73 (max e7 e5)- pappyAlt5_73 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [l, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_74 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_74 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_74 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_74 (max e7 e5)- pappyAlt5_74 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [p, a, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_75 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_75 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_75 (max e7 e5)- pappyAlt5_75 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [m, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_76 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_76 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_76 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_76 (max e7 e5)- pappyAlt5_76 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [k, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_77 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_77 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_77 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_77 (max e7 e5)- pappyAlt5_77 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [j, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_78 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_78 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_78 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_78 (max e7 e5)- pappyAlt5_78 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [s, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_79 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_79 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_79 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_79 (max e7 e5)- pappyAlt5_79 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [p, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_80 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_80 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_80 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_80 (max e7 e5)- pappyAlt5_80 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [p, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_81 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_81 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_81 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_81 (max e7 e5)- pappyAlt5_81 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [r, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_82 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_82 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_82 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_82 (max e7 e5)- pappyAlt5_82 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [r, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_83 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_83 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_83 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_83 (max e7 e5)- pappyAlt5_83 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [r, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_84 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_84 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_84 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_84 (max e7 e5)- pappyAlt5_84 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [r, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_85 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_85 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_85 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_85 (max e7 e5)- pappyAlt5_85 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [r, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_86 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_86 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_86 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_86 (max e7 e5)- pappyAlt5_86 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [r, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_87 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_87 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_87 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_87 (max e7 e5)- pappyAlt5_87 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [l, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_88 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_88 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_88 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_88 (max e7 e5)- pappyAlt5_88 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [j, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_89 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_89 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_89 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_89 (max e7 e5)- pappyAlt5_89 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [f, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_90 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_90 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_90 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_90 (max e7 e5)- pappyAlt5_90 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [d, a, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_91 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_91 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_91 (max e7 e5)- pappyAlt5_91 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [g, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_92 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_92 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_92 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_92 (max e7 e5)- pappyAlt5_92 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [z, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_93 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_93 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_93 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_93 (max e7 e5)- pappyAlt5_93 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [b, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_94 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_94 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_94 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_94 (max e7 e5)- pappyAlt5_94 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [r, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_95 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_95 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_95 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_95 (max e7 e5)- pappyAlt5_95 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [s, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_96 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_96 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_96 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_96 (max e7 e5)- pappyAlt5_96 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [s, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_97 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_97 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_97 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_97 (max e7 e5)- pappyAlt5_97 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [v, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_98 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_98 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_98 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_98 (max e7 e5)- pappyAlt5_98 e5 =- case testPappyk d of- Parsed k d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [k, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_99 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_99 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_99 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_99 (max e7 e5)- pappyAlt5_99 e5 =- case testPappyx d of- Parsed x d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- Parsed ( [x, u] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> pappyAlt5_100 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_100 (max e7 e5)- pappyAlt5_100 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [g, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_101 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_101 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_101 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_101 (max e7 e5)- pappyAlt5_101 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [b, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_102 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_102 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_102 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_102 (max e7 e5)- pappyAlt5_102 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseVA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseVA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed va d3 e3 ->- Parsed ( va ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- Parsed ( [v, i] ) d9 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- Parsed ( [v, a] ) d9 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- Parsed ( [v, u] ) d9 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyVAU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyVAU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed vau d3 e3 ->- Parsed ( vau ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyv d of- Parsed v d5 e5 ->- case testPappya d5 of- Parsed a d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- Parsed ( [v, a, u] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyVEI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyVEI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed vei d3 e3 ->- Parsed ( vei ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyv d of- Parsed v d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [v, e, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseVEhO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseVEhO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed veho d3 e3 ->- Parsed ( veho ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyv d of- Parsed v d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [v, e, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseVUhU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseVUhU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed vuhu d3 e3 ->- Parsed ( vuhu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [g, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [f, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [p, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [f, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [v, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [s, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- pappyAlt5_7 e5 =- case testPappyj d of- Parsed j d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [j, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 =- case testPappyg d of- Parsed g d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [g, e, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_9 (max e7 e5)- pappyAlt5_9 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [p, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_10 (max e7 e5)- pappyAlt5_10 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [f, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_11 (max e7 e5)- pappyAlt5_11 e5 =- case testPappyt d of- Parsed t d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [t, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_12 (max e7 e5)- pappyAlt5_12 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [c, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_13 (max e7 e5)- pappyAlt5_13 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [v, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_14 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_14 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_14 (max e7 e5)- pappyAlt5_14 e5 =- case testPappyn d of- Parsed n d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [n, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_15 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_15 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_15 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_15 (max e7 e5)- pappyAlt5_15 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [d, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_16 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_16 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_16 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_16 (max e7 e5)- pappyAlt5_16 e5 =- case testPappyf d of- Parsed f d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [f, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_17 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_17 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_17 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_17 (max e7 e5)- pappyAlt5_17 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [s, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_18 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_18 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_18 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_18 (max e7 e5)- pappyAlt5_18 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [r, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_19 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_19 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_19 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_19 (max e7 e5)- pappyAlt5_19 e5 =- case testPappyr d of- Parsed r d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [r, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_20 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_20 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_20 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_20 (max e7 e5)- pappyAlt5_20 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [s, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_21 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_21 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_21 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_21 (max e7 e5)- pappyAlt5_21 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [p, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_22 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_22 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_22 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_22 (max e7 e5)- pappyAlt5_22 e5 =- case testPappys d of- Parsed s d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [s, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_23 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_23 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_23 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_23 (max e7 e5)- pappyAlt5_23 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseVEhA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseVEhA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed veha d3 e3 ->- Parsed ( veha ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [v, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [v, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [v, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [v, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseVIhA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseVIhA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed viha d3 e3 ->- Parsed ( viha ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [v, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [v, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [v, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyv d of- Parsed v d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [v, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseVUhO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseVUhO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed vuho d3 e3 ->- Parsed ( vuho ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyv d of- Parsed v d5 e5 ->- case testPappyu d5 of- Parsed u d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyo d9 of- Parsed o d11 e11 ->- Parsed ( [v, u, h, o] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyXI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyXI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed xi d3 e3 ->- Parsed ( xi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyx d of- Parsed x d5 e5 ->- case testPappyi d5 of- Parsed i d7 e7 ->- Parsed ( [x, i] ) d7 (max e7 e5)- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParsePlusRule24 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])-testPappyParsePlusRule24 d =- pappyAlt1_1 (ParseError (testPappyPos d) []) where- pappyAlt1_1 e1 =- case testPappyy d of- Parsed v d3 e3 ->- case testPappyPlusRule24 d3 of- Parsed vs d5 e5 ->- Parsed (v : vs) d5 (maximum [e5,e3,e1])- NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])- NoParse e3 -> pappyAlt1_2 (max e3 e1)- pappyAlt1_2 e1 =- case testPappyy d of- Parsed v d3 e3 ->- Parsed ([v]) d3 (max e3 e1)- NoParse e3 -> pappyAlt1_3 (max e3 e1)- pappyAlt1_3 e1 = NoParse e1--testPappyY :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyY d =- case testPappycmavo d of- Parsed _ _ e1 ->- case testPappyPlusRule24 d of- Parsed y d3 e3 ->- case testPappypost_word d3 of- Parsed _ _ e5 ->- Parsed ( y ) d3 (maximum [e5,e3,e1])- NoParse e5 -> NoParse (maximum [e5,e3,e1])- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1--testPappyParseZAhO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseZAhO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed zaho d3 e3 ->- Parsed ( zaho ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [c, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyp d of- Parsed p d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [p, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [c, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappym d of- Parsed m d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [m, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [c, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_6 (max e7 e5)- pappyAlt5_6 e5 =- case testPappyc d of- Parsed c d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [c, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_7 (max e7 e5)- pappyAlt5_7 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [d, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_8 (max e7 e5)- pappyAlt5_8 e5 =- case testPappyb d of- Parsed b d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [b, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_9 (max e7 e5)- pappyAlt5_9 e5 =- case testPappyd d of- Parsed d d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [d, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_10 (max e7 e5)- pappyAlt5_10 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [z, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_11 (max e7 e5)- pappyAlt5_11 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseZEhA :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseZEhA d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed zeha d3 e3 ->- Parsed ( zeha ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyu d11 of- Parsed u d13 e13 ->- Parsed ( [z, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappya d11 of- Parsed a d13 e13 ->- Parsed ( [z, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyi d11 of- Parsed i d13 e13 ->- Parsed ( [z, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappye d7 of- Parsed e d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappye d11 of- Parsed e d13 e13 ->- Parsed ( [z, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_5 (max e7 e5)- pappyAlt5_5 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyZEI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyZEI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed zei d3 e3 ->- Parsed ( zei ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyz d of- Parsed z d5 e5 ->- case testPappye d5 of- Parsed e d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- Parsed ( [z, e, i] ) d9 (maximum [e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseZI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseZI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed zi d3 e3 ->- Parsed ( zi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappyu d7 of- Parsed u d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- Parsed ( [z, u] ) d9 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- Parsed ( [z, a] ) d9 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappyi d7 of- Parsed i d9 e9 ->- case testPappyh d9 of- NoParse e11 ->- Parsed ( [z, i] ) d9 (maximum [e11,e9,e7,e5])- Parsed _ _ e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_4 (max e7 e5)- pappyAlt5_4 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseZIhE :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseZIhE d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed zihe d3 e3 ->- Parsed ( zihe ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyz d of- Parsed z d5 e5 ->- case testPappyi d5 of- Parsed i d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappye d9 of- Parsed e d11 e11 ->- Parsed ( [z, i, h, e] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyZO :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyZO d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed zo d3 e3 ->- Parsed ( zo ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyz d of- Parsed z d5 e5 ->- case testPappyo d5 of- Parsed o d7 e7 ->- case testPappyi d7 of- NoParse e9 ->- Parsed ( [z, o] ) d7 (maximum [e9,e7,e5])- Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParseZOI :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseZOI d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed zoi d3 e3 ->- Parsed ( zoi ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- pappyAlt5_1 (ParseError (testPappyPos d) []) where- pappyAlt5_1 e5 =- case testPappyz d of- Parsed z d7 e7 ->- case testPappyo d7 of- Parsed o d9 e9 ->- case testPappyi d9 of- Parsed i d11 e11 ->- Parsed ( [z, o, i] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_2 (max e7 e5)- pappyAlt5_2 e5 =- case testPappyl d of- Parsed l d7 e7 ->- case testPappya d7 of- Parsed a d9 e9 ->- case testPappyh d9 of- Parsed h d11 e11 ->- case testPappyo d11 of- Parsed o d13 e13 ->- Parsed ( [l, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])- NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])- NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])- NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])- NoParse e7 -> pappyAlt5_3 (max e7 e5)- pappyAlt5_3 e5 = NoParse e5- NoParse e1 -> NoParse e1--testPappyParseZOhU :: TestPappyDerivs -> Result TestPappyDerivs (String)-testPappyParseZOhU d =- case testPappycmavo d of- Parsed _ _ e1 ->- case pappyResult3 of- Parsed zohu d3 e3 ->- Parsed ( zohu ) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- where- pappyResult3 =- case testPappyz d of- Parsed z d5 e5 ->- case testPappyo d5 of- Parsed o d7 e7 ->- case testPappyh d7 of- Parsed h d9 e9 ->- case testPappyu d9 of- Parsed u d11 e11 ->- Parsed ( [z, o, h, u] ) d11 (maximum [e11,e9,e7,e5])- NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])- NoParse e9 -> NoParse (maximum [e9,e7,e5])- NoParse e7 -> NoParse (max e7 e5)- NoParse e5 -> NoParse e5- NoParse e1 -> NoParse e1--testPappyParsedummyTail :: TestPappyDerivs -> Result TestPappyDerivs ((() -> ()))-testPappyParsedummyTail d =- case testPappyChar d of- Parsed 'a' d1 _ ->- case testPappydummy d1 of- Parsed _ d3 e3 ->- case testPappydummyTail d3 of- Parsed pappyTail d5 e5 ->- Parsed (\l -> pappyTail ( () )) d5 (max e5 e3)- NoParse e5 -> NoParse (max e5 e3)- NoParse e3 -> NoParse e3- _ ->- Parsed (\v -> v) d (ParseError (testPappyPos d) [])--testPappyParsedummy :: TestPappyDerivs -> Result TestPappyDerivs (())-testPappyParsedummy d =- case pappyResult1 of- Parsed l d1 e1 ->- case testPappydummyTail d1 of- Parsed t d3 e3 ->- Parsed (t l) d3 (max e3 e1)- NoParse e3 -> NoParse (max e3 e1)- NoParse e1 -> NoParse e1- where- pappyResult1 =- case testPappyChar d of- Parsed 'a' d3 _ ->- case testPappydummy d3 of- Parsed _ d5 e5 ->- Parsed ( () ) d5 e5- NoParse e5 -> NoParse e5- _ -> NoParse (ParseError (testPappyPos d) [])-
lojbanParser.cabal view
@@ -2,7 +2,7 @@ cabal-version: >= 1.6 name: lojbanParser-version: 0.1.2+version: 0.1.3 stability: experimental author: .iocikun.juj. <PAF01143@nifty.ne.jp> maintainer: .iocikun.juj. <PAF01143@nifty.ne.jp>@@ -20,9 +20,11 @@ location: git://github.com/YoshikuniJujo/lojban_parser.git library+ hs-source-dirs: src exposed-modules: Language.Lojban.Parser other-modules: Preprocess LexerPappy Pos Parse TestPappy executable testParser+ hs-source-dirs: src main-is: testParser.hs build-depends: base > 3 && < 5
+ src/Language/Lojban/Parser.hs view
@@ -0,0 +1,37 @@+module Language.Lojban.Parser (+ parse,+ ParseError,+ Text,++ Sentence(..),+ Sumti(..),+ TermsGikTerms(..),+ SumtiTail(..),+ Selbri(..),+ RelativeClause(..),+ Linkargs(..),+ Links(..),+ MexOperator(..),+ Operand(..),+ RPExpression(..),+ RPExpressionTail(..),+ Free(..),+ JoikJek(..),+ Gek(..),+ IntervalProperty(..),+ Tag(..),+ SpaceInterval(..),+ SpaceOffset(..)+) where++import TestPappy+import Parse+import Preprocess+import Data.Maybe++parse :: String -> Either ParseError Text+parse src = case testPappytest $ testPappyParse "test" p of+ Parsed v _ _ -> Right v+ NoParse e -> Left e+ where+ p = fromMaybe (error "can't lex") $ preprocess src
+ src/LexerPappy.hs view
@@ -0,0 +1,3327 @@+-- Parser generated by Pappy - do not edit+module LexerPappy where++import Pos+import Parse+++import System.Environment+import Data.Maybe++ml = maybeToList+++++type TailTerms = ([Term], Maybe Clause, [Free])+type Term = Sumti++type Text = Sentence+type Paragraphs = Sentence+type Paragraph = Sentence+type Fragment = Sentence+type Statement = Sentence++data Sentence+ = SelbriTailTerms Selbri [Term] (Maybe Clause) [Free]+ | GihekBO Sentence Gihek (Maybe Tag) Clause [Free] Sentence [Term]+ (Maybe Clause) [Free]+ | GihekSentence Sentence+ [(Gihek, [Free], Sentence, [Term], Maybe Clause, [Free])]+ | GihekKE Sentence Gihek (Maybe Tag) Clause [Free] Sentence (Maybe Clause)+ [Free] [Term] (Maybe Clause) [Free]+ | TermsBridiTail [Term] (Maybe Clause) [Free] Sentence+ | TUhE (Maybe Tag) Clause [Free] Text (Maybe Clause) [Free]+ | IBO Statement Clause (Maybe JoikJek) (Maybe Tag) Clause [Free] Statement+ | IJoikJek Statement [(Clause, JoikJek, [Free], Maybe Statement)]+ | Prenex [Term] Clause [Free] Statement+ | FPrenex [Term] Clause [Free]+ | StatementI Statement [(Clause, [Free], Maybe Statement)]+ | NIhO Paragraph [Clause] [Free] Paragraphs+ | IText_1 Clause (Maybe JoikJek) (Maybe (Maybe Tag, Clause)) [Free]+ (Maybe Text)+ | HeadNIhO [Clause] [Free] (Maybe Paragraphs)+ | TopText [Clause] (Either [Clause] (Maybe [([String], String)])) [Free]+ (Maybe (JoikJek, [Free])) (Maybe Text) (Maybe Pre)+ deriving Show++data Sumti+ = LOhU [String] String [String] Pre Indicators [Free]+ | LerfuString LerfuString (Maybe Clause) [Free]+ | LU Clause Text (Maybe Clause) [Free]+ | LAhE_NAhE Clause (Maybe Clause) [Free] (Maybe RelativeClauses)+ Sumti (Maybe Clause) [Free]+ | KOhA Clause [Free]+ | LALE Clause [Free] SumtiTail (Maybe Clause) [Free]+ | LA Clause [Free] (Maybe RelativeClauses) [Clause] [Free]+ | LI Clause [Free] Mex (Maybe Clause) [Free]+ | OuterQuantifier (Maybe Quantifier) Sumti (Maybe RelativeClauses)+ | SQuantifierSelbri Quantifier Selbri (Maybe Clause) [Free]+ (Maybe RelativeClauses)+ | GekSumti Gek Sumti Gik Sumti+ | JoikEkBOSumti Sumti JoikEk [Free] (Maybe Tag) Clause [Free] Sumti+ | JoikEkSumti Sumti [(JoikEk, [Free], Sumti)]+ | JoikEkKESumti Sumti JoikEk [Free] (Maybe Tag) Clause [Free] Sumti+ (Maybe Clause) [Free]+ | VUhO Sumti Clause [Free] RelativeClauses+ deriving Show++data SumtiTail+ = SumtiSumtiTail Sumti (Maybe RelativeClauses) SumtiTail+ | RelativeClausesSumtiTail RelativeClauses SumtiTail+ | SelbriRelativeClauses Selbri (Maybe RelativeClauses)+ | STQuantifierSelbri Quantifier Selbri (Maybe RelativeClauses)+ | QuantifierSumti Quantifier Sumti+ deriving Show++data Selbri+ = Brivla Clause [Free]+ | Linkargs Selbri Linkargs+ | CEI Selbri [(Clause, [Free], Selbri)]+ | BO Selbri Clause [Free] Selbri+ | GuhekGik (Maybe Clause) [Free] Guhek Selbri Gik Selbri+ | JekJoikBO Selbri JoikJek (Maybe Tag) Clause [Free] Selbri+ | JoikJek Selbri [JoikJekSelbri5]+ | Tanru [Selbri]+ | CO Selbri Clause [Free] Selbri+ | NA Clause [Free] Selbri+ | Tag Tag Selbri+ deriving Show++type RelativeClauses = String++type JoikJekSelbri5 = Either (JoikJek, [Free], Selbri)+ (Joik, (Maybe Tag), Clause, [Free], Selbri, Maybe Clause, [Free])++type Linkargs = String++type Quantifier = String+type Mex = String+type LerfuString = String++data Free+ = VocativeSumti [Clause] (Maybe Sumti) (Maybe Clause)+ deriving Show++type Clause = ([String], String, Indicators)+type Pre = ([String], String)+type Indicators = [[([String], String)]]++type Ek = JoikJek+type Jek = JoikJek+type Joik = JoikJek+type JoikEk = JoikJek+type Gihek = JoikJek+data JoikJek+ = JOI (Maybe Clause) (Clause) (Maybe Clause)+ | Jek (Maybe Clause) (Maybe Clause) Clause (Maybe Clause)+ | Ek (Maybe Clause) (Maybe Clause) Clause (Maybe Clause)+ | Gihek (Maybe Clause) (Maybe Clause) Clause (Maybe Clause)+ deriving Show+data Gek+ = GA (Maybe Clause) Clause (Maybe Clause) [Free]+ | JoikGI Joik Clause [Free]+ | STagGik Tag Gik+ deriving Show+-- type Guhek = ([Clause], [Free])+-- type Gik = ([Clause], [Free])+type Guhek = (Maybe Clause, Clause, Maybe Clause, [Free])+type Gik = (Clause, Maybe Clause, [Free])++type Tag = String++{-+main = do+ [str] <- getArgs+ case lexerPappytest_words $ lexerPappyParse "test_words" str of+ Parsed v _ _ -> print v+ NoParse e -> error (show e)+-}++uncurry3 :: (a -> b -> c -> d) -> (a, b, c) -> d+uncurry3 f (x, y, z) = f x y z++isSimpleText :: [Clause] -> (Either [Clause] (Maybe [([String], String)]), [Free]) -> + Maybe (JoikJek, [Free]) -> Maybe Text -> Maybe Pre -> Bool+isSimpleText n tp2 jj t f =+ null n && isNothing (fromRight $ fst tp2) && null (snd tp2) &&+ isNothing jj && isJust t && isNothing f++fromRight :: Either a b -> b+fromRight = either (const $ error "not Right") id+++data LexerPappyDerivs = LexerPappyDerivs {+ lexerPappySub0 :: LexerPappyDerivs0,+ lexerPappySub1 :: LexerPappyDerivs1,+ lexerPappySub2 :: LexerPappyDerivs2,+ lexerPappySub3 :: LexerPappyDerivs3,+ lexerPappyChar :: Result LexerPappyDerivs Char,+ lexerPappyPos :: Pos+}++instance Derivs LexerPappyDerivs where+ dvChar d = lexerPappyChar d+ dvPos d = lexerPappyPos d++data LexerPappyDerivs0 = LexerPappyDerivs0 {+ lexerPappySubStarRule0 :: Result LexerPappyDerivs ([ (String, String) ]),+ lexerPappySubPlusRule0 :: Result LexerPappyDerivs ([String]),+ lexerPappySubcmene :: Result LexerPappyDerivs (String),+ lexerPappySubStarRule1 :: Result LexerPappyDerivs ([Char]),+ lexerPappySubcmavo :: Result LexerPappyDerivs (String),+ lexerPappySubStarRule3 :: Result LexerPappyDerivs ([String]),+ lexerPappySubStarRule4 :: Result LexerPappyDerivs ([String]),+ lexerPappySubbrivla_core :: Result LexerPappyDerivs (String),+ lexerPappySubstressed_extended_rafsi :: Result LexerPappyDerivs (String),+ lexerPappySubextended_rafsi :: Result LexerPappyDerivs (String),+ lexerPappySubStarRule6 :: Result LexerPappyDerivs ([String]),+ lexerPappySubStarRule7 :: Result LexerPappyDerivs ([String]),+ lexerPappySubbrivla_head :: Result LexerPappyDerivs (String),+ lexerPappySubStarRule8 :: Result LexerPappyDerivs ([String]),+ lexerPappySubrafsi_string :: Result LexerPappyDerivs (String),+ lexerPappySubCVV_final_rafsi :: Result LexerPappyDerivs (String)}++data LexerPappyDerivs1 = LexerPappyDerivs1 {+ lexerPappySubshort_final_rafsi :: Result LexerPappyDerivs (String),+ lexerPappySubstressed_y_rafsi :: Result LexerPappyDerivs (String),+ lexerPappySubstressed_y_less_rafsi :: Result LexerPappyDerivs (String),+ lexerPappySubstressed_long_rafsi :: Result LexerPappyDerivs (String),+ lexerPappySuby_rafsi :: Result LexerPappyDerivs (String),+ lexerPappySuby_less_rafsi :: Result LexerPappyDerivs (String),+ lexerPappySubr_hyphen :: Result LexerPappyDerivs (Char),+ lexerPappySubfinal_syllable :: Result LexerPappyDerivs (String),+ lexerPappySubstressed_syllable :: Result LexerPappyDerivs (String),+ lexerPappySubstressed_vowel :: Result LexerPappyDerivs (Char),+ lexerPappySubunstressed_syllable :: Result LexerPappyDerivs (String),+ lexerPappySubStarRule9 :: Result LexerPappyDerivs ([Char]),+ lexerPappySubconsonantal_syllable :: Result LexerPappyDerivs (String),+ lexerPappySubcoda :: Result LexerPappyDerivs (String),+ lexerPappySubonset :: Result LexerPappyDerivs (String),+ lexerPappySubglide :: Result LexerPappyDerivs (Char)}++data LexerPappyDerivs2 = LexerPappyDerivs2 {+ lexerPappySubdiphthong :: Result LexerPappyDerivs (String),+ lexerPappySubvowel :: Result LexerPappyDerivs (Char),+ lexerPappySubPlusRule2 :: Result LexerPappyDerivs ([Char]),+ lexerPappySubinitial_pair :: Result LexerPappyDerivs (String),+ lexerPappySubinitial :: Result LexerPappyDerivs (String),+ lexerPappySubl :: Result LexerPappyDerivs (Char),+ lexerPappySubm :: Result LexerPappyDerivs (Char),+ lexerPappySubn :: Result LexerPappyDerivs (Char),+ lexerPappySubr :: Result LexerPappyDerivs (Char),+ lexerPappySubb :: Result LexerPappyDerivs (Char),+ lexerPappySubd :: Result LexerPappyDerivs (Char),+ lexerPappySubg :: Result LexerPappyDerivs (Char),+ lexerPappySubv :: Result LexerPappyDerivs (Char),+ lexerPappySubj :: Result LexerPappyDerivs (Char),+ lexerPappySubz :: Result LexerPappyDerivs (Char),+ lexerPappySubs :: Result LexerPappyDerivs (Char)}++data LexerPappyDerivs3 = LexerPappyDerivs3 {+ lexerPappySubc :: Result LexerPappyDerivs (Char),+ lexerPappySubx :: Result LexerPappyDerivs (Char),+ lexerPappySubk :: Result LexerPappyDerivs (Char),+ lexerPappySubf :: Result LexerPappyDerivs (Char),+ lexerPappySubp :: Result LexerPappyDerivs (Char),+ lexerPappySubt :: Result LexerPappyDerivs (Char),+ lexerPappySubdigit :: Result LexerPappyDerivs (Char),+ lexerPappySubPlusRule3 :: Result LexerPappyDerivs ([Char]),+ lexerPappySubspaces :: Result LexerPappyDerivs ( String ),+ lexerPappySubPlusRule4 :: Result LexerPappyDerivs ([ String ]),+ lexerPappySubStarRule37 :: Result LexerPappyDerivs ([Char]),+ lexerPappySubStarRule38 :: Result LexerPappyDerivs ([ Char ]),+ lexerPappySubybu :: Result LexerPappyDerivs (String),+ lexerPappySubPlusRule5 :: Result LexerPappyDerivs ([Char]),+ lexerPappySubdummyTail :: Result LexerPappyDerivs ((() -> ())),+ lexerPappySubdummy :: Result LexerPappyDerivs (())}++lexerPappyStarRule0 = lexerPappySubStarRule0 . lexerPappySub0+lexerPappyPlusRule0 = lexerPappySubPlusRule0 . lexerPappySub0+lexerPappycmene = lexerPappySubcmene . lexerPappySub0+lexerPappyStarRule1 = lexerPappySubStarRule1 . lexerPappySub0+lexerPappycmavo = lexerPappySubcmavo . lexerPappySub0+lexerPappyStarRule3 = lexerPappySubStarRule3 . lexerPappySub0+lexerPappyStarRule4 = lexerPappySubStarRule4 . lexerPappySub0+lexerPappybrivla_core = lexerPappySubbrivla_core . lexerPappySub0+lexerPappystressed_extended_rafsi = lexerPappySubstressed_extended_rafsi . lexerPappySub0+lexerPappyextended_rafsi = lexerPappySubextended_rafsi . lexerPappySub0+lexerPappyStarRule6 = lexerPappySubStarRule6 . lexerPappySub0+lexerPappyStarRule7 = lexerPappySubStarRule7 . lexerPappySub0+lexerPappybrivla_head = lexerPappySubbrivla_head . lexerPappySub0+lexerPappyStarRule8 = lexerPappySubStarRule8 . lexerPappySub0+lexerPappyrafsi_string = lexerPappySubrafsi_string . lexerPappySub0+lexerPappyCVV_final_rafsi = lexerPappySubCVV_final_rafsi . lexerPappySub0+lexerPappyshort_final_rafsi = lexerPappySubshort_final_rafsi . lexerPappySub1+lexerPappystressed_y_rafsi = lexerPappySubstressed_y_rafsi . lexerPappySub1+lexerPappystressed_y_less_rafsi = lexerPappySubstressed_y_less_rafsi . lexerPappySub1+lexerPappystressed_long_rafsi = lexerPappySubstressed_long_rafsi . lexerPappySub1+lexerPappyy_rafsi = lexerPappySuby_rafsi . lexerPappySub1+lexerPappyy_less_rafsi = lexerPappySuby_less_rafsi . lexerPappySub1+lexerPappyr_hyphen = lexerPappySubr_hyphen . lexerPappySub1+lexerPappyfinal_syllable = lexerPappySubfinal_syllable . lexerPappySub1+lexerPappystressed_syllable = lexerPappySubstressed_syllable . lexerPappySub1+lexerPappystressed_vowel = lexerPappySubstressed_vowel . lexerPappySub1+lexerPappyunstressed_syllable = lexerPappySubunstressed_syllable . lexerPappySub1+lexerPappyStarRule9 = lexerPappySubStarRule9 . lexerPappySub1+lexerPappyconsonantal_syllable = lexerPappySubconsonantal_syllable . lexerPappySub1+lexerPappycoda = lexerPappySubcoda . lexerPappySub1+lexerPappyonset = lexerPappySubonset . lexerPappySub1+lexerPappyglide = lexerPappySubglide . lexerPappySub1+lexerPappydiphthong = lexerPappySubdiphthong . lexerPappySub2+lexerPappyvowel = lexerPappySubvowel . lexerPappySub2+lexerPappyPlusRule2 = lexerPappySubPlusRule2 . lexerPappySub2+lexerPappyinitial_pair = lexerPappySubinitial_pair . lexerPappySub2+lexerPappyinitial = lexerPappySubinitial . lexerPappySub2+lexerPappyl = lexerPappySubl . lexerPappySub2+lexerPappym = lexerPappySubm . lexerPappySub2+lexerPappyn = lexerPappySubn . lexerPappySub2+lexerPappyr = lexerPappySubr . lexerPappySub2+lexerPappyb = lexerPappySubb . lexerPappySub2+lexerPappyd = lexerPappySubd . lexerPappySub2+lexerPappyg = lexerPappySubg . lexerPappySub2+lexerPappyv = lexerPappySubv . lexerPappySub2+lexerPappyj = lexerPappySubj . lexerPappySub2+lexerPappyz = lexerPappySubz . lexerPappySub2+lexerPappys = lexerPappySubs . lexerPappySub2+lexerPappyc = lexerPappySubc . lexerPappySub3+lexerPappyx = lexerPappySubx . lexerPappySub3+lexerPappyk = lexerPappySubk . lexerPappySub3+lexerPappyf = lexerPappySubf . lexerPappySub3+lexerPappyp = lexerPappySubp . lexerPappySub3+lexerPappyt = lexerPappySubt . lexerPappySub3+lexerPappydigit = lexerPappySubdigit . lexerPappySub3+lexerPappyPlusRule3 = lexerPappySubPlusRule3 . lexerPappySub3+lexerPappyspaces = lexerPappySubspaces . lexerPappySub3+lexerPappyPlusRule4 = lexerPappySubPlusRule4 . lexerPappySub3+lexerPappyStarRule37 = lexerPappySubStarRule37 . lexerPappySub3+lexerPappyStarRule38 = lexerPappySubStarRule38 . lexerPappySub3+lexerPappyybu = lexerPappySubybu . lexerPappySub3+lexerPappyPlusRule5 = lexerPappySubPlusRule5 . lexerPappySub3+lexerPappydummyTail = lexerPappySubdummyTail . lexerPappySub3+lexerPappydummy = lexerPappySubdummy . lexerPappySub3++lexerPappyParse :: String -> String -> LexerPappyDerivs+lexerPappyParse name text = lexerPappyDerivs (Pos name 1 1) text++lexerPappyDerivs :: Pos -> String -> LexerPappyDerivs+lexerPappyDerivs pos text = dvs where+ dvs = LexerPappyDerivs+ (lexerPappyDerivs0 dvs)+ (lexerPappyDerivs1 dvs)+ (lexerPappyDerivs2 dvs)+ (lexerPappyDerivs3 dvs)+ chr pos+ chr = case text of+ [] -> NoParse (eofError dvs)+ (c:cs) -> Parsed c (lexerPappyDerivs (nextPos pos c) cs) (nullError dvs)++lexerPappyDerivs0 dvs = LexerPappyDerivs0+ (lexerPappyParseStarRule0 dvs)+ (lexerPappyParsePlusRule0 dvs)+ (lexerPappyParsecmene dvs)+ (lexerPappyParseStarRule1 dvs)+ (lexerPappyParsecmavo dvs)+ (lexerPappyParseStarRule3 dvs)+ (lexerPappyParseStarRule4 dvs)+ (lexerPappyParsebrivla_core dvs)+ (lexerPappyParsestressed_extended_rafsi dvs)+ (lexerPappyParseextended_rafsi dvs)+ (lexerPappyParseStarRule6 dvs)+ (lexerPappyParseStarRule7 dvs)+ (lexerPappyParsebrivla_head dvs)+ (lexerPappyParseStarRule8 dvs)+ (lexerPappyParserafsi_string dvs)+ (lexerPappyParseCVV_final_rafsi dvs)++lexerPappyDerivs1 dvs = LexerPappyDerivs1+ (lexerPappyParseshort_final_rafsi dvs)+ (lexerPappyParsestressed_y_rafsi dvs)+ (lexerPappyParsestressed_y_less_rafsi dvs)+ (lexerPappyParsestressed_long_rafsi dvs)+ (lexerPappyParsey_rafsi dvs)+ (lexerPappyParsey_less_rafsi dvs)+ (lexerPappyParser_hyphen dvs)+ (lexerPappyParsefinal_syllable dvs)+ (lexerPappyParsestressed_syllable dvs)+ (lexerPappyParsestressed_vowel dvs)+ (lexerPappyParseunstressed_syllable dvs)+ (lexerPappyParseStarRule9 dvs)+ (lexerPappyParseconsonantal_syllable dvs)+ (lexerPappyParsecoda dvs)+ (lexerPappyParseonset dvs)+ (lexerPappyParseglide dvs)++lexerPappyDerivs2 dvs = LexerPappyDerivs2+ (lexerPappyParsediphthong dvs)+ (lexerPappyParsevowel dvs)+ (lexerPappyParsePlusRule2 dvs)+ (lexerPappyParseinitial_pair dvs)+ (lexerPappyParseinitial dvs)+ (lexerPappyParsel dvs)+ (lexerPappyParsem dvs)+ (lexerPappyParsen dvs)+ (lexerPappyParser dvs)+ (lexerPappyParseb dvs)+ (lexerPappyParsed dvs)+ (lexerPappyParseg dvs)+ (lexerPappyParsev dvs)+ (lexerPappyParsej dvs)+ (lexerPappyParsez dvs)+ (lexerPappyParses dvs)++lexerPappyDerivs3 dvs = LexerPappyDerivs3+ (lexerPappyParsec dvs)+ (lexerPappyParsex dvs)+ (lexerPappyParsek dvs)+ (lexerPappyParsef dvs)+ (lexerPappyParsep dvs)+ (lexerPappyParset dvs)+ (lexerPappyParsedigit dvs)+ (lexerPappyParsePlusRule3 dvs)+ (lexerPappyParsespaces dvs)+ (lexerPappyParsePlusRule4 dvs)+ (lexerPappyParseStarRule37 dvs)+ (lexerPappyParseStarRule38 dvs)+ (lexerPappyParseybu dvs)+ (lexerPappyParsePlusRule5 dvs)+ (lexerPappyParsedummyTail dvs)+ (lexerPappyParsedummy dvs)++lexerPappytest_words :: LexerPappyDerivs -> Result LexerPappyDerivs ( (String, [(String, String)]) )+lexerPappytest_words d =+ case pappyResult1 of+ Parsed w d1 e1 ->+ case lexerPappyanyChar d1 of+ NoParse e3 ->+ Parsed ( w ) d1 (max e3 e1)+ Parsed _ _ e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case pappyResult3 of+ Parsed p d3 e3 ->+ case lexerPappyStarRule0 d3 of+ Parsed ws d5 e5 ->+ Parsed ( maybe ("", ws) (flip (,) ws) p ) d5 (max e5 e3)+ NoParse e5 -> NoParse (max e5 e3)+ NoParse e3 -> NoParse e3+ where+ pappyResult3 =+ case lexerPappyspaces d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5++lexerPappyParseStarRule0 :: LexerPappyDerivs -> Result LexerPappyDerivs ([ (String, String) ])+lexerPappyParseStarRule0 d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case lexerPappyStarRule0 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed w d5 e5 ->+ case pappyResult7 of+ Parsed ps d7 e7 ->+ Parsed ( maybe (w, "") ((,) w) ps ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ case lexerPappyspaces d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> NoParse e5+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt7_1 e7 =+ case lexerPappylojban_word d of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ case lexerPappylojban_word d of+ NoParse e9 ->+ case lexerPappyPlusRule3 d of+ Parsed ns d11 e11 ->+ Parsed ( ns ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_3 (maximum [e11,e9,e7])+ Parsed _ _ e9 -> pappyAlt7_3 (max e9 e7)+ pappyAlt7_3 e7 = NoParse e7+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++lexerPappylojban_word :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappylojban_word d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappycmene d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappycmavo d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case lexerPappycmavo d of+ NoParse e3 ->+ case lexerPappyStarRule4 d of+ Parsed rs d5 e5 ->+ case lexerPappybrivla_core d5 of+ Parsed b d7 e7 ->+ Parsed ( concat rs ++ b ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ Parsed _ _ e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++lexerPappyParsePlusRule0 :: LexerPappyDerivs -> Result LexerPappyDerivs ([String])+lexerPappyParsePlusRule0 d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case lexerPappyPlusRule0 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt5_1 e5 =+ case lexerPappyany_syllable d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case lexerPappydigit d of+ Parsed d d7 e7 ->+ Parsed ( [d] ) d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt5_1 e5 =+ case lexerPappyany_syllable d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case lexerPappydigit d of+ Parsed d d7 e7 ->+ Parsed ( [d] ) d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_3 e1 = NoParse e1++lexerPappyParsecmene :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParsecmene d =+ case lexerPappyh d of+ NoParse e1 ->+ case pappyResult3 of+ Parsed _ _ e3 ->+ case pappyResult5 of+ Parsed c d5 e5 ->+ case lexerPappyPlusRule0 d5 of+ Parsed r d7 e7 ->+ case lexerPappypause d7 of+ Parsed _ _ e9 ->+ Parsed ( fromMaybe "" c ++ concat r ) d7 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case lexerPappycoda d of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d e7+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case lexerPappyStarRule1 d of+ Parsed s d5 e5 ->+ case lexerPappyconsonant d5 of+ Parsed c d7 e7 ->+ case lexerPappypause d7 of+ Parsed _ _ e9 ->+ Parsed ( s ++ [c] ) d7 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ Parsed _ _ e1 -> NoParse e1++lexerPappyParseStarRule1 :: LexerPappyDerivs -> Result LexerPappyDerivs ([Char])+lexerPappyParseStarRule1 d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case lexerPappyStarRule1 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case lexerPappynon_space d of+ Parsed n d5 e5 ->+ case lexerPappynon_space d5 of+ Parsed _ _ e7 ->+ Parsed ( n ) d5 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++lexerPappyParsecmavo :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParsecmavo d =+ case lexerPappycmene d of+ NoParse e1 ->+ case pappyResult3 of+ NoParse e3 ->+ case pappyResult5 of+ Parsed c d5 e5 ->+ case lexerPappypost_word d5 of+ Parsed _ _ e7 ->+ Parsed ( c ) d5 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt7_1 e7 =+ case lexerPappyh d of+ NoParse e9 ->+ case lexerPappycluster d of+ NoParse e11 ->+ case lexerPappyonset d of+ Parsed o d13 e13 ->+ case lexerPappyStarRule3 d13 of+ Parsed nh d15 e15 ->+ case pappyResult17 of+ Parsed nn d17 e17 ->+ Parsed ( o ++ concat nh ++ nn ) d17 (maximum [e17,e15,e13,e11,e9,e7])+ NoParse e17 -> pappyAlt7_2 (maximum [e17,e15,e13,e11,e9,e7])+ where+ pappyResult17 =+ pappyAlt19_1 (ParseError (lexerPappyPos d15) []) where+ pappyAlt19_1 e19 =+ case lexerPappystressed d15 of+ NoParse e21 ->+ case lexerPappynucleus d15 of+ Parsed n d23 e23 ->+ Parsed ( n ) d23 (maximum [e23,e21,e19])+ NoParse e23 -> pappyAlt19_2 (maximum [e23,e21,e19])+ Parsed _ _ e21 -> pappyAlt19_2 (max e21 e19)+ pappyAlt19_2 e19 =+ case lexerPappynucleus d15 of+ Parsed n d21 e21 ->+ case lexerPappycluster d21 of+ NoParse e23 ->+ Parsed ( n ) d21 (maximum [e23,e21,e19])+ Parsed _ _ e23 -> pappyAlt19_3 (maximum [e23,e21,e19])+ NoParse e21 -> pappyAlt19_3 (max e21 e19)+ pappyAlt19_3 e19 = NoParse e19+ NoParse e15 -> pappyAlt7_2 (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> pappyAlt7_2 (maximum [e13,e11,e9,e7])+ Parsed _ _ e11 -> pappyAlt7_2 (maximum [e11,e9,e7])+ Parsed _ _ e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ case lexerPappyPlusRule5 d of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_3 (max e9 e7)+ pappyAlt7_3 e7 =+ case lexerPappydigit d of+ Parsed d d9 e9 ->+ Parsed ( [d] ) d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_4 (max e9 e7)+ pappyAlt7_4 e7 = NoParse e7+ Parsed _ _ e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt5_1 e5 =+ case lexerPappyCVC_rafsi d of+ Parsed r d7 e7 ->+ case lexerPappyy d7 of+ Parsed y d9 e9 ->+ case pappyResult11 of+ Parsed h d11 e11 ->+ case lexerPappyStarRule4 d11 of+ Parsed rs d13 e13 ->+ case lexerPappybrivla_core d13 of+ Parsed b d15 e15 ->+ Parsed ( r ++ [y] ++ ml h ++ concat rs ++ b ) d15 (maximum [e15,e13,e11,e9,e7,e5])+ NoParse e15 -> pappyAlt5_2 (maximum [e15,e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ where+ pappyResult11 =+ case lexerPappyh d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case lexerPappystressed_CVC_rafsi d of+ Parsed r d7 e7 ->+ case lexerPappyy d7 of+ Parsed y d9 e9 ->+ case lexerPappyshort_final_rafsi d9 of+ Parsed f d11 e11 ->+ Parsed ( r ++ [y] ++ f ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ Parsed _ _ e1 -> NoParse e1++lexerPappyParseStarRule3 :: LexerPappyDerivs -> Result LexerPappyDerivs ([String])+lexerPappyParseStarRule3 d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case lexerPappyStarRule3 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case lexerPappynucleus d of+ Parsed n d5 e5 ->+ case lexerPappyh d5 of+ Parsed h d7 e7 ->+ Parsed ( n ++ [h] ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++lexerPappyParseStarRule4 :: LexerPappyDerivs -> Result LexerPappyDerivs ([String])+lexerPappyParseStarRule4 d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case lexerPappyStarRule4 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt5_1 e5 =+ case lexerPappyextended_rafsi d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case lexerPappyy_rafsi d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case lexerPappyany_extended_rafsi d of+ NoParse e7 ->+ case lexerPappyy_less_rafsi d of+ Parsed r d9 e9 ->+ Parsed ( r ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ Parsed _ _ e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 = NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++lexerPappyParsebrivla_core :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParsebrivla_core d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyfuhivla d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappygismu d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case lexerPappyCVV_final_rafsi d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case pappyResult3 of+ Parsed i d3 e3 ->+ case lexerPappyshort_final_rafsi d3 of+ Parsed f d5 e5 ->+ Parsed ( i ++ f ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt5_1 e5 =+ case lexerPappystressed_extended_rafsi d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case lexerPappystressed_y_rafsi d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case lexerPappystressed_y_less_rafsi d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 = NoParse e5+ pappyAlt1_5 e1 = NoParse e1++lexerPappyany_extended_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyany_extended_rafsi d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyfuhivla d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappyextended_rafsi d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case lexerPappystressed_extended_rafsi d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++lexerPappyfuhivla :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyfuhivla d =+ case lexerPappyfuhivla_head d of+ Parsed f d1 e1 ->+ case lexerPappystressed_syllable d1 of+ Parsed s d3 e3 ->+ case lexerPappyStarRule6 d3 of+ Parsed ss d5 e5 ->+ case lexerPappyfinal_syllable d5 of+ Parsed t d7 e7 ->+ Parsed ( f ++ s ++ concat ss ++ t ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappyParsestressed_extended_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParsestressed_extended_rafsi d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyunstressed_syllable d of+ Parsed _ _ e3 ->+ case lexerPappybrivla_head d of+ Parsed b d5 e5 ->+ case lexerPappystressed_syllable d5 of+ Parsed s d7 e7 ->+ case lexerPappyh d7 of+ Parsed h d9 e9 ->+ case lexerPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( b ++ s ++ [h, y] ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappyfuhivla_head d of+ Parsed f d3 e3 ->+ case lexerPappystressed_syllable d3 of+ Parsed s d5 e5 ->+ case lexerPappyconsonant d5 of+ Parsed _ _ e7 ->+ case lexerPappyonset d5 of+ Parsed o d9 e9 ->+ case lexerPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( f ++ s ++ o ++ [y] ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++lexerPappyParseextended_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParseextended_rafsi d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed _ _ e3 ->+ case lexerPappybrivla_head d of+ Parsed b d5 e5 ->+ case lexerPappyh d5 of+ Parsed h d7 e7 ->+ case lexerPappyy d7 of+ Parsed y d9 e9 ->+ case pappyResult11 of+ Parsed i d11 e11 ->+ Parsed ( b ++ [h, y] ++ ml i ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])+ where+ pappyResult11 =+ case lexerPappyh d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case lexerPappysyllable d of+ Parsed _ d5 e5 ->+ case lexerPappyStarRule6 d5 of+ Parsed _ d7 e7 ->+ case lexerPappysyllable d7 of+ Parsed _ d9 e9 ->+ Parsed ( () ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ case lexerPappyunstressed_syllable d of+ Parsed _ _ e3 ->+ case lexerPappyfuhivla_head d of+ Parsed f d5 e5 ->+ case lexerPappyconsonant d5 of+ Parsed _ _ e7 ->+ case lexerPappyonset d5 of+ Parsed o d9 e9 ->+ case lexerPappyy d9 of+ Parsed y d11 e11 ->+ case pappyResult13 of+ Parsed h d13 e13 ->+ Parsed ( f ++ o ++ [y] ++ ml h ) d13 (maximum [e13,e11,e9,e7,e5,e3,e1])+ NoParse e13 -> pappyAlt1_3 (maximum [e13,e11,e9,e7,e5,e3,e1])+ where+ pappyResult13 =+ case lexerPappyh d11 of+ Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15+ NoParse e15 -> Parsed (Nothing) d11 e15+ NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++lexerPappyParseStarRule6 :: LexerPappyDerivs -> Result LexerPappyDerivs ([String])+lexerPappyParseStarRule6 d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyconsonantal_syllable d of+ Parsed v d3 e3 ->+ case lexerPappyStarRule6 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++lexerPappyfuhivla_head :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyfuhivla_head d =+ case lexerPappyrafsi_string d of+ NoParse e1 ->+ case lexerPappybrivla_head d of+ Parsed b d3 e3 ->+ Parsed ( b ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ Parsed _ _ e1 -> NoParse e1++lexerPappyParseStarRule7 :: LexerPappyDerivs -> Result LexerPappyDerivs ([String])+lexerPappyParseStarRule7 d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyunstressed_syllable d of+ Parsed v d3 e3 ->+ case lexerPappyStarRule7 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++lexerPappyParsebrivla_head :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParsebrivla_head d =+ case lexerPappycmavo d of+ NoParse e1 ->+ case pappyResult3 of+ NoParse e3 ->+ case lexerPappyh d of+ NoParse e5 ->+ case lexerPappyonset d of+ Parsed _ _ e7 ->+ case lexerPappyStarRule7 d of+ Parsed ss d9 e9 ->+ Parsed ( concat ss ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ Parsed _ _ e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case lexerPappyconsonant d of+ Parsed c d5 e5 ->+ case lexerPappyrafsi_string d5 of+ Parsed r d7 e7 ->+ Parsed ( c : r ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ Parsed _ _ e1 -> NoParse e1++lexerPappyParseStarRule8 :: LexerPappyDerivs -> Result LexerPappyDerivs ([String])+lexerPappyParseStarRule8 d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyy_less_rafsi d of+ Parsed v d3 e3 ->+ case lexerPappyStarRule8 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++lexerPappyParserafsi_string :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParserafsi_string d =+ case lexerPappyStarRule8 d of+ Parsed ylrs d1 e1 ->+ case pappyResult3 of+ Parsed r d3 e3 ->+ Parsed ( concat ylrs ++ r ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappygismu d1 of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case lexerPappyCVV_final_rafsi d1 of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case lexerPappystressed_y_less_rafsi d1 of+ Parsed ylr d7 e7 ->+ case lexerPappyshort_final_rafsi d7 of+ Parsed sfr d9 e9 ->+ Parsed ( ylr ++ sfr ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case lexerPappyy_rafsi d1 of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case lexerPappystressed_y_rafsi d1 of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case pappyResult7 of+ Parsed ylr d7 e7 ->+ case lexerPappyinitial_pair d7 of+ Parsed p d9 e9 ->+ case lexerPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( fromMaybe "" ylr ++ p ++ [y] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ where+ pappyResult7 =+ case lexerPappystressed_y_less_rafsi d1 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d1 e9+ pappyAlt5_7 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappygismu :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappygismu d =+ case lexerPappystressed_long_rafsi d of+ Parsed r d1 e1 ->+ case lexerPappyfinal_syllable d1 of+ Parsed _ _ e3 ->+ case lexerPappyvowel d1 of+ Parsed v d5 e5 ->+ case lexerPappypost_word d5 of+ Parsed _ _ e7 ->+ Parsed ( r ++ [v] ) d5 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappyParseCVV_final_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParseCVV_final_rafsi d =+ case lexerPappyconsonant d of+ Parsed c d1 e1 ->+ case lexerPappystressed_vowel d1 of+ Parsed v d3 e3 ->+ case lexerPappyh d3 of+ Parsed h d5 e5 ->+ case lexerPappyfinal_syllable d5 of+ Parsed _ _ e7 ->+ case lexerPappyvowel d5 of+ Parsed w d9 e9 ->+ case lexerPappypost_word d9 of+ Parsed _ _ e11 ->+ Parsed ( c : v : h : w : [] ) d9 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappyParseshort_final_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParseshort_final_rafsi d =+ case lexerPappyfinal_syllable d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed r d3 e3 ->+ case lexerPappypost_word d3 of+ Parsed _ _ e5 ->+ Parsed ( r ) d3 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt5_1 e5 =+ case lexerPappyconsonant d of+ Parsed c d7 e7 ->+ case lexerPappydiphthong d7 of+ Parsed d d9 e9 ->+ Parsed ( c : d ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case lexerPappyinitial_pair d of+ Parsed p d7 e7 ->+ case lexerPappyvowel d7 of+ Parsed v d9 e9 ->+ Parsed ( p ++ [v] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParsestressed_y_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParsestressed_y_rafsi d =+ case pappyResult1 of+ Parsed r d1 e1 ->+ case lexerPappyy d1 of+ Parsed y d3 e3 ->+ Parsed ( r ++ [y] ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt3_1 e3 =+ case lexerPappystressed_long_rafsi d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case lexerPappystressed_CVC_rafsi d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 = NoParse e3++lexerPappyParsestressed_y_less_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParsestressed_y_less_rafsi d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappystressed_CVC_rafsi d of+ Parsed r d3 e3 ->+ case lexerPappyy d3 of+ NoParse e5 ->+ Parsed ( r ) d3 (maximum [e5,e3,e1])+ Parsed _ _ e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappystressed_CCV_rafsi d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case lexerPappyconsonant d of+ Parsed c d3 e3 ->+ case pappyResult5 of+ Parsed vv d5 e5 ->+ case pappyResult7 of+ Parsed r d7 e7 ->+ Parsed ( c : vv ++ ml r ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case lexerPappyr_hyphen d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (lexerPappyPos d3) []) where+ pappyAlt7_1 e7 =+ case lexerPappyunstressed_vowel d3 of+ Parsed v d9 e9 ->+ case lexerPappyh d9 of+ Parsed h d11 e11 ->+ case lexerPappystressed_vowel d11 of+ Parsed w d13 e13 ->+ Parsed ( [v, h, w] ) d13 (maximum [e13,e11,e9,e7])+ NoParse e13 -> pappyAlt7_2 (maximum [e13,e11,e9,e7])+ NoParse e11 -> pappyAlt7_2 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ pappyAlt9_1 e7 where+ pappyAlt9_1 e9 =+ case lexerPappystressed d3 of+ Parsed _ _ e11 ->+ case lexerPappydiphthong d3 of+ Parsed d d13 e13 ->+ Parsed ( d ) d13 (maximum [e13,e11,e9])+ NoParse e13 -> pappyAlt9_2 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case lexerPappydiphthong d3 of+ Parsed d d11 e11 ->+ case lexerPappystress d11 of+ Parsed _ _ e13 ->+ Parsed ( d ) d11 (maximum [e13,e11,e9])+ NoParse e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = pappyAlt7_3 e9+ pappyAlt7_3 e7 = NoParse e7+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++lexerPappyParsestressed_long_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParsestressed_long_rafsi d =+ case pappyResult1 of+ Parsed r d1 e1 ->+ case lexerPappyconsonant d1 of+ Parsed c d3 e3 ->+ Parsed ( r ++ [c] ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt3_1 e3 =+ case lexerPappystressed_CCV_rafsi d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case lexerPappystressed_CVC_rafsi d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 = NoParse e3++lexerPappystressed_CVC_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappystressed_CVC_rafsi d =+ case lexerPappyconsonant d of+ Parsed c d1 e1 ->+ case lexerPappystressed_vowel d1 of+ Parsed v d3 e3 ->+ case lexerPappyconsonant d3 of+ Parsed d d5 e5 ->+ Parsed ( [c, v, d] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappystressed_CCV_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappystressed_CCV_rafsi d =+ case lexerPappyinitial_pair d of+ Parsed p d1 e1 ->+ case lexerPappystressed_vowel d1 of+ Parsed v d3 e3 ->+ Parsed ( p ++ [v] ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappyParsey_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParsey_rafsi d =+ case pappyResult1 of+ Parsed r d1 e1 ->+ case lexerPappyy d1 of+ Parsed y d3 e3 ->+ case pappyResult5 of+ Parsed h d5 e5 ->+ Parsed ( r ++ [y] ++ ml h ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case lexerPappyh d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt3_1 e3 =+ case pappyResult5 of+ Parsed r d5 e5 ->+ case lexerPappyconsonant d5 of+ Parsed c d7 e7 ->+ Parsed ( r ++ [c] ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> pappyAlt3_2 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt7_1 e7 =+ case lexerPappyCCV_rafsi d of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ case lexerPappyCVC_rafsi d of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_3 (max e9 e7)+ pappyAlt7_3 e7 = NoParse e7+ pappyAlt3_2 e3 =+ case lexerPappyCVC_rafsi d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 = NoParse e3++lexerPappyParsey_less_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParsey_less_rafsi d =+ case lexerPappyy_rafsi d of+ NoParse e1 ->+ case pappyResult3 of+ Parsed r d3 e3 ->+ case lexerPappyany_extended_rafsi d3 of+ NoParse e5 ->+ Parsed ( r ) d3 (maximum [e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt5_1 e5 =+ case lexerPappyCVC_rafsi d of+ Parsed cvcr d7 e7 ->+ case lexerPappyy d7 of+ NoParse e9 ->+ Parsed ( cvcr ) d7 (maximum [e9,e7,e5])+ Parsed _ _ e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case lexerPappyCCV_rafsi d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case lexerPappyconsonant d of+ Parsed c d7 e7 ->+ case pappyResult9 of+ Parsed vv d9 e9 ->+ case pappyResult11 of+ Parsed r d11 e11 ->+ Parsed ( c : vv ++ ml r ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ where+ pappyResult11 =+ case lexerPappyr_hyphen d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ where+ pappyResult9 =+ pappyAlt11_1 (ParseError (lexerPappyPos d7) []) where+ pappyAlt11_1 e11 =+ case lexerPappyunstressed_vowel d7 of+ Parsed v d13 e13 ->+ case lexerPappyh d13 of+ Parsed h d15 e15 ->+ case lexerPappyunstressed_vowel d15 of+ Parsed w d17 e17 ->+ Parsed ( [v, h, w] ) d17 (maximum [e17,e15,e13,e11])+ NoParse e17 -> pappyAlt11_2 (maximum [e17,e15,e13,e11])+ NoParse e15 -> pappyAlt11_2 (maximum [e15,e13,e11])+ NoParse e13 -> pappyAlt11_2 (max e13 e11)+ pappyAlt11_2 e11 =+ case pappyResult13 of+ Parsed d d13 e13 ->+ Parsed ( d ) d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_3 (max e13 e11)+ where+ pappyResult13 =+ case lexerPappystressed d7 of+ NoParse e15 ->+ case lexerPappydiphthong d7 of+ Parsed d d17 e17 ->+ case lexerPappystress d17 of+ NoParse e19 ->+ Parsed ( d ) d17 (maximum [e19,e17,e15])+ Parsed _ _ e19 -> NoParse (maximum [e19,e17,e15])+ NoParse e17 -> NoParse (max e17 e15)+ Parsed _ _ e15 -> NoParse e15+ pappyAlt11_3 e11 = NoParse e11+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 = NoParse e5+ Parsed _ _ e1 -> NoParse e1++lexerPappyCVC_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyCVC_rafsi d =+ case lexerPappyconsonant d of+ Parsed c d1 e1 ->+ case lexerPappyunstressed_vowel d1 of+ Parsed v d3 e3 ->+ case lexerPappyconsonant d3 of+ Parsed d d5 e5 ->+ Parsed ( [c, v, d] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappyCCV_rafsi :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyCCV_rafsi d =+ case lexerPappyinitial_pair d of+ Parsed i d1 e1 ->+ case lexerPappyunstressed_vowel d1 of+ Parsed v d3 e3 ->+ Parsed ( i ++ [v] ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappyParser_hyphen :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParser_hyphen d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyr d of+ Parsed r d3 e3 ->+ case lexerPappyconsonant d3 of+ Parsed _ _ e5 ->+ Parsed ( r ) d3 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappyn d of+ Parsed n d3 e3 ->+ case lexerPappyr d3 of+ Parsed _ _ e5 ->+ Parsed ( n ) d3 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++lexerPappyParsefinal_syllable :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParsefinal_syllable d =+ case lexerPappyonset d of+ Parsed o d1 e1 ->+ case lexerPappyy d1 of+ NoParse e3 ->+ case lexerPappystressed d1 of+ NoParse e5 ->+ case lexerPappynucleus d1 of+ Parsed n d7 e7 ->+ case lexerPappycmene d7 of+ NoParse e9 ->+ case lexerPappypost_word d7 of+ Parsed _ _ e11 ->+ Parsed ( o ++ n ) d7 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ Parsed _ _ e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappyParsestressed_syllable :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParsestressed_syllable d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappystressed d of+ Parsed _ _ e3 ->+ case lexerPappysyllable d of+ Parsed s d5 e5 ->+ Parsed ( s ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappysyllable d of+ Parsed s d3 e3 ->+ case lexerPappystress d3 of+ Parsed _ _ e5 ->+ Parsed ( s ) d3 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++lexerPappyParsestressed_vowel :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParsestressed_vowel d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappystressed d of+ Parsed _ _ e3 ->+ case lexerPappyvowel d of+ Parsed v d5 e5 ->+ Parsed ( v ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappyvowel d of+ Parsed v d3 e3 ->+ case lexerPappystress d3 of+ Parsed _ _ e5 ->+ Parsed ( v ) d3 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++lexerPappyParseunstressed_syllable :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParseunstressed_syllable d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappystressed d of+ NoParse e3 ->+ case lexerPappysyllable d of+ Parsed s d5 e5 ->+ case lexerPappystress d5 of+ NoParse e7 ->+ Parsed ( s ) d5 (maximum [e7,e5,e3,e1])+ Parsed _ _ e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ Parsed _ _ e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappyconsonantal_syllable d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++lexerPappyunstressed_vowel :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyunstressed_vowel d =+ case lexerPappystressed d of+ NoParse e1 ->+ case lexerPappyvowel d of+ Parsed v d3 e3 ->+ case lexerPappystress d3 of+ NoParse e5 ->+ Parsed ( v ) d3 (maximum [e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ Parsed _ _ e1 -> NoParse e1++lexerPappyParseStarRule9 :: LexerPappyDerivs -> Result LexerPappyDerivs ([Char])+lexerPappyParseStarRule9 d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyconsonant d of+ Parsed v d3 e3 ->+ case lexerPappyStarRule9 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++lexerPappystress :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappystress d =+ case lexerPappyStarRule9 d of+ Parsed c d1 e1 ->+ case pappyResult3 of+ Parsed y d3 e3 ->+ case lexerPappysyllable d3 of+ Parsed s d5 e5 ->+ case lexerPappypause d5 of+ Parsed _ d7 e7 ->+ Parsed ( c ++ ml y ++ s ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case lexerPappyy d1 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ NoParse e1 -> NoParse e1++lexerPappystressed :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappystressed d =+ case lexerPappyonset d of+ Parsed o d1 e1 ->+ case lexerPappyStarRule37 d1 of+ Parsed _ d3 e3 ->+ case pappyResult5 of+ Parsed v d5 e5 ->+ Parsed ( o ++ [v] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (lexerPappyPos d3) []) where+ pappyAlt7_1 e7 =+ case lexerPappyChar d3 of+ r @ (Parsed 'A' _ _) -> r+ _ -> pappyAlt7_2 e7+ pappyAlt7_2 e7 =+ case lexerPappyChar d3 of+ r @ (Parsed 'E' _ _) -> r+ _ -> pappyAlt7_3 e7+ pappyAlt7_3 e7 =+ case lexerPappyChar d3 of+ r @ (Parsed 'I' _ _) -> r+ _ -> pappyAlt7_4 e7+ pappyAlt7_4 e7 =+ case lexerPappyChar d3 of+ r @ (Parsed 'O' _ _) -> r+ _ -> pappyAlt7_5 e7+ pappyAlt7_5 e7 =+ case lexerPappyChar d3 of+ r @ (Parsed 'U' _ _) -> r+ _ -> pappyAlt7_6 e7+ pappyAlt7_6 e7 = NoParse e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappyany_syllable :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyany_syllable d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyonset d of+ Parsed o d3 e3 ->+ case lexerPappynucleus d3 of+ Parsed n d5 e5 ->+ case pappyResult7 of+ Parsed c d7 e7 ->+ Parsed ( o ++ n ++ fromMaybe "" c ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case lexerPappycoda d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappyconsonantal_syllable d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++lexerPappysyllable :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappysyllable d =+ case lexerPappyonset d of+ Parsed o d1 e1 ->+ case lexerPappyy d1 of+ NoParse e3 ->+ case lexerPappynucleus d1 of+ Parsed n d5 e5 ->+ case pappyResult7 of+ Parsed c d7 e7 ->+ Parsed ( o ++ n ++ fromMaybe "" c ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case lexerPappycoda d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ Parsed _ _ e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappyParseconsonantal_syllable :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParseconsonantal_syllable d =+ case lexerPappyconsonant d of+ Parsed c d1 e1 ->+ case lexerPappysyllabic d1 of+ Parsed s d3 e3 ->+ case pappyResult5 of+ Parsed _ _ e5 ->+ case pappyResult7 of+ Parsed c' d7 e7 ->+ Parsed ( c : s : ml c' ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case pappyResult9 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d3 e9+ where+ pappyResult9 =+ case lexerPappyconsonant d3 of+ Parsed cin d11 e11 ->+ case lexerPappyspaces d11 of+ Parsed _ _ e13 ->+ Parsed ( c ) d11 (max e13 e11)+ NoParse e13 -> NoParse (max e13 e11)+ NoParse e11 -> NoParse e11+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (lexerPappyPos d3) []) where+ pappyAlt7_1 e7 =+ case lexerPappyconsonantal_syllable d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ case lexerPappyonset d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_3 (max e9 e7)+ pappyAlt7_3 e7 = NoParse e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappyParsecoda :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParsecoda d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyany_syllable d of+ NoParse e3 ->+ case lexerPappyconsonant d of+ Parsed c d5 e5 ->+ case lexerPappyany_syllable d5 of+ Parsed _ _ e7 ->+ Parsed ( [c] ) d5 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ Parsed _ _ e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed s d3 e3 ->+ case pappyResult5 of+ Parsed c d5 e5 ->+ case lexerPappypause d5 of+ Parsed _ _ e7 ->+ Parsed ( ml s ++ ml c ) d5 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case lexerPappyconsonant d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ case lexerPappysyllabic d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_3 e1 = NoParse e1++lexerPappyParseonset :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParseonset d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyh d of+ Parsed h d3 e3 ->+ Parsed ( [h] ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed c d3 e3 ->+ case lexerPappyglide d3 of+ Parsed g d5 e5 ->+ Parsed ( ml c ++ [g] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ case lexerPappyconsonant d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_3 e1 =+ case lexerPappyinitial d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++lexerPappynucleus :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappynucleus d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyvowel d of+ Parsed v d3 e3 ->+ Parsed ( [v] ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappydiphthong d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case lexerPappyy d of+ Parsed y d3 e3 ->+ Parsed ( [y] ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++lexerPappyParseglide :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParseglide d =+ case pappyResult1 of+ Parsed v d1 e1 ->+ case lexerPappynucleus d1 of+ Parsed _ _ e3 ->+ case lexerPappyglide d1 of+ NoParse e5 ->+ Parsed ( v ) d1 (maximum [e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt3_1 e3 =+ case lexerPappyi d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case lexerPappyu d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 = NoParse e3++lexerPappyParsediphthong :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParsediphthong d =+ case pappyResult1 of+ Parsed d d1 e1 ->+ case lexerPappynucleus d1 of+ NoParse e3 ->+ case lexerPappyglide d1 of+ NoParse e5 ->+ Parsed ( d ) d1 (maximum [e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ Parsed _ _ e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt3_1 e3 =+ case lexerPappya d of+ Parsed v d5 e5 ->+ case lexerPappyi d5 of+ Parsed w d7 e7 ->+ Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> pappyAlt3_2 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case lexerPappya d of+ Parsed v d5 e5 ->+ case lexerPappyu d5 of+ Parsed w d7 e7 ->+ Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> pappyAlt3_3 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 =+ case lexerPappye d of+ Parsed v d5 e5 ->+ case lexerPappyi d5 of+ Parsed w d7 e7 ->+ Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> pappyAlt3_4 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_4 (max e5 e3)+ pappyAlt3_4 e3 =+ case lexerPappyo d of+ Parsed v d5 e5 ->+ case lexerPappyi d5 of+ Parsed w d7 e7 ->+ Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> pappyAlt3_5 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_5 (max e5 e3)+ pappyAlt3_5 e3 = NoParse e3++lexerPappyParsevowel :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParsevowel d =+ case pappyResult1 of+ Parsed v d1 e1 ->+ case lexerPappynucleus d1 of+ NoParse e3 ->+ Parsed ( v ) d1 (max e3 e1)+ Parsed _ _ e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt3_1 e3 =+ case lexerPappya d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case lexerPappye d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 =+ case lexerPappyi d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_4 (max e5 e3)+ pappyAlt3_4 e3 =+ case lexerPappyo d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_5 (max e5 e3)+ pappyAlt3_5 e3 =+ case lexerPappyu d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_6 (max e5 e3)+ pappyAlt3_6 e3 = NoParse e3++lexerPappya :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappya d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed a d3 e3 ->+ Parsed ( a ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'a' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'A' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappye :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappye d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed e d3 e3 ->+ Parsed ( e ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'e' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'E' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyi :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyi d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed i d3 e3 ->+ Parsed ( i ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'i' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'I' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyo :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyo d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed o d3 e3 ->+ Parsed ( o ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'o' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'O' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyu :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyu d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed u d3 e3 ->+ Parsed ( u ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'u' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'U' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyy :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyy d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed y d3 e3 ->+ Parsed ( y ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'y' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'Y' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParsePlusRule2 :: LexerPappyDerivs -> Result LexerPappyDerivs ([Char])+lexerPappyParsePlusRule2 d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyconsonant d of+ Parsed v d3 e3 ->+ case lexerPappyPlusRule2 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappyconsonant d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++lexerPappycluster :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappycluster d =+ case lexerPappyconsonant d of+ Parsed c d1 e1 ->+ case lexerPappyPlusRule2 d1 of+ Parsed cs d3 e3 ->+ Parsed ( c : cs ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappyParseinitial_pair :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParseinitial_pair d =+ case lexerPappyinitial d of+ Parsed _ _ e1 ->+ case lexerPappyconsonant d of+ Parsed c d3 e3 ->+ case lexerPappyconsonant d3 of+ Parsed d d5 e5 ->+ case lexerPappyconsonant d5 of+ NoParse e7 ->+ Parsed ( [c, d] ) d5 (maximum [e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappyParseinitial :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParseinitial d =+ case pappyResult1 of+ Parsed i d1 e1 ->+ case lexerPappyconsonant d1 of+ NoParse e3 ->+ case lexerPappyglide d1 of+ NoParse e5 ->+ Parsed ( i ) d1 (maximum [e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ Parsed _ _ e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt3_1 e3 =+ case lexerPappyaffricate d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case pappyResult5 of+ Parsed s d5 e5 ->+ case pappyResult7 of+ Parsed o d7 e7 ->+ case pappyResult9 of+ Parsed l d9 e9 ->+ Parsed ( ml s ++ ml o ++ ml l ) d9 (maximum [e9,e7,e5,e3])+ NoParse e9 -> pappyAlt3_3 (maximum [e9,e7,e5,e3])+ where+ pappyResult9 =+ case lexerPappyliquid d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt3_3 (maximum [e7,e5,e3])+ where+ pappyResult7 =+ case pappyResult9 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ where+ pappyResult9 =+ pappyAlt11_1 (ParseError (lexerPappyPos d5) []) where+ pappyAlt11_1 e11 =+ case lexerPappyp d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_2 (max e13 e11)+ pappyAlt11_2 e11 =+ case lexerPappyt d5 of+ Parsed t d13 e13 ->+ case lexerPappyl d13 of+ NoParse e15 ->+ Parsed ( t ) d13 (maximum [e15,e13,e11])+ Parsed _ _ e15 -> pappyAlt11_3 (maximum [e15,e13,e11])+ NoParse e13 -> pappyAlt11_3 (max e13 e11)+ pappyAlt11_3 e11 =+ case lexerPappyk d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_4 (max e13 e11)+ pappyAlt11_4 e11 =+ case lexerPappyf d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_5 (max e13 e11)+ pappyAlt11_5 e11 =+ case lexerPappyx d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_6 (max e13 e11)+ pappyAlt11_6 e11 =+ case lexerPappyb d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_7 (max e13 e11)+ pappyAlt11_7 e11 =+ case lexerPappyd d5 of+ Parsed d d13 e13 ->+ case lexerPappyl d13 of+ NoParse e15 ->+ Parsed ( d ) d13 (maximum [e15,e13,e11])+ Parsed _ _ e15 -> pappyAlt11_8 (maximum [e15,e13,e11])+ NoParse e13 -> pappyAlt11_8 (max e13 e11)+ pappyAlt11_8 e11 =+ case lexerPappyg d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_9 (max e13 e11)+ pappyAlt11_9 e11 =+ case lexerPappyv d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_10 (max e13 e11)+ pappyAlt11_10 e11 =+ case lexerPappym d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_11 (max e13 e11)+ pappyAlt11_11 e11 =+ case lexerPappyn d5 of+ Parsed n d13 e13 ->+ case lexerPappyliquid d13 of+ NoParse e15 ->+ Parsed ( n ) d13 (maximum [e15,e13,e11])+ Parsed _ _ e15 -> pappyAlt11_12 (maximum [e15,e13,e11])+ NoParse e13 -> pappyAlt11_12 (max e13 e11)+ pappyAlt11_12 e11 = NoParse e11+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ where+ pappyResult5 =+ case pappyResult7 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d e7+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt9_1 e9 =+ case lexerPappyc d of+ Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case lexerPappys d of+ Parsed s d11 e11 ->+ case lexerPappyx d11 of+ NoParse e13 ->+ Parsed ( s ) d11 (maximum [e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 =+ case pappyResult11 of+ Parsed jz d11 e11 ->+ case lexerPappyn d11 of+ NoParse e13 ->+ case lexerPappyliquid d11 of+ NoParse e15 ->+ Parsed ( jz ) d11 (maximum [e15,e13,e11,e9])+ Parsed _ _ e15 -> pappyAlt9_4 (maximum [e15,e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_4 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_4 (max e11 e9)+ where+ pappyResult11 =+ pappyAlt13_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt13_1 e13 =+ case lexerPappyj d of+ Parsed v15 d15 e15 -> Parsed v15 d15 (max e15 e13)+ NoParse e15 -> pappyAlt13_2 (max e15 e13)+ pappyAlt13_2 e13 =+ case lexerPappyz d of+ Parsed v15 d15 e15 -> Parsed v15 d15 (max e15 e13)+ NoParse e15 -> pappyAlt13_3 (max e15 e13)+ pappyAlt13_3 e13 = NoParse e13+ pappyAlt9_4 e9 = NoParse e9+ pappyAlt3_3 e3 = NoParse e3++lexerPappyaffricate :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyaffricate d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyt d of+ Parsed t d3 e3 ->+ case lexerPappyc d3 of+ Parsed c d5 e5 ->+ Parsed ( [t, c] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappyt d of+ Parsed t d3 e3 ->+ case lexerPappys d3 of+ Parsed s d5 e5 ->+ Parsed ( [t, s] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case lexerPappyd d of+ Parsed d d3 e3 ->+ case lexerPappyj d3 of+ Parsed j d5 e5 ->+ Parsed ( [d, j] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case lexerPappyd d of+ Parsed d d3 e3 ->+ case lexerPappyz d3 of+ Parsed z d5 e5 ->+ Parsed ( [d, z] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 = NoParse e1++lexerPappyliquid :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyliquid d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyl d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappyr d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++lexerPappyconsonant :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyconsonant d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyvoiced d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappyunvoiced d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case lexerPappysyllabic d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++lexerPappysyllabic :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappysyllabic d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyl d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappym d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case lexerPappyn d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case lexerPappyr d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 = NoParse e1++lexerPappyvoiced :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyvoiced d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyb d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappyd d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case lexerPappyg d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case lexerPappyj d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 =+ case lexerPappyv d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_6 (max e3 e1)+ pappyAlt1_6 e1 =+ case lexerPappyz d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_7 (max e3 e1)+ pappyAlt1_7 e1 = NoParse e1++lexerPappyunvoiced :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyunvoiced d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyc d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappyf d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case lexerPappyk d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case lexerPappyp d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 =+ case lexerPappys d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_6 (max e3 e1)+ pappyAlt1_6 e1 =+ case lexerPappyt d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_7 (max e3 e1)+ pappyAlt1_7 e1 =+ case lexerPappyx d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_8 (max e3 e1)+ pappyAlt1_8 e1 = NoParse e1++lexerPappyParsel :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParsel d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed l d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappyl d3 of+ NoParse e7 ->+ Parsed ( l ) d3 (maximum [e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'l' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'L' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParsem :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParsem d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed m d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappym d3 of+ NoParse e7 ->+ case lexerPappyz d3 of+ NoParse e9 ->+ Parsed ( m ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'm' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'M' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParsen :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParsen d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed n d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappyn d3 of+ NoParse e7 ->+ case lexerPappyaffricate d3 of+ NoParse e9 ->+ Parsed ( n ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'n' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'N' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParser :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParser d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed r d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappyr d3 of+ NoParse e7 ->+ Parsed ( r ) d3 (maximum [e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'r' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'R' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParseb :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParseb d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed b d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappyb d3 of+ NoParse e7 ->+ case lexerPappyunvoiced d3 of+ NoParse e9 ->+ Parsed ( b ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'b' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'B' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParsed :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParsed d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed d d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappyd d3 of+ NoParse e7 ->+ case lexerPappyunvoiced d3 of+ NoParse e9 ->+ Parsed ( d ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'd' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'D' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParseg :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParseg d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed g d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappyg d3 of+ NoParse e7 ->+ case lexerPappyunvoiced d3 of+ NoParse e9 ->+ Parsed ( g ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'g' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'G' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParsev :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParsev d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed v d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappyv d3 of+ NoParse e7 ->+ case lexerPappyunvoiced d3 of+ NoParse e9 ->+ Parsed ( v ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'v' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'V' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParsej :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParsej d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed j d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappyj d3 of+ NoParse e7 ->+ case lexerPappyz d3 of+ NoParse e9 ->+ case lexerPappyunvoiced d3 of+ NoParse e11 ->+ Parsed ( j ) d3 (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'j' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'J' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParsez :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParsez d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed z d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappyz d3 of+ NoParse e7 ->+ case lexerPappyj d3 of+ NoParse e9 ->+ case lexerPappyunvoiced d3 of+ NoParse e11 ->+ Parsed ( z ) d3 (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'z' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'Z' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParses :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParses d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed s d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappys d3 of+ NoParse e7 ->+ case lexerPappyc d3 of+ NoParse e9 ->+ case lexerPappyvoiced d3 of+ NoParse e11 ->+ Parsed ( s ) d3 (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 's' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'S' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParsec :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParsec d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed c d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappyc d3 of+ NoParse e7 ->+ case lexerPappys d3 of+ NoParse e9 ->+ case lexerPappyx d3 of+ NoParse e11 ->+ case lexerPappyvoiced d3 of+ NoParse e13 ->+ Parsed ( c ) d3 (maximum [e13,e11,e9,e7,e5,e3,e1])+ Parsed _ _ e13 -> NoParse (maximum [e13,e11,e9,e7,e5,e3,e1])+ Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'c' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'C' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParsex :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParsex d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed x d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappyx d3 of+ NoParse e7 ->+ case lexerPappyc d3 of+ NoParse e9 ->+ case lexerPappyk d3 of+ NoParse e11 ->+ case lexerPappyvoiced d3 of+ NoParse e13 ->+ Parsed ( x ) d3 (maximum [e13,e11,e9,e7,e5,e3,e1])+ Parsed _ _ e13 -> NoParse (maximum [e13,e11,e9,e7,e5,e3,e1])+ Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'x' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'X' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParsek :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParsek d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed k d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappyk d3 of+ NoParse e7 ->+ case lexerPappyx d3 of+ NoParse e9 ->+ case lexerPappyvoiced d3 of+ NoParse e11 ->+ Parsed ( k ) d3 (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'k' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'K' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParsef :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParsef d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed f d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappyf d3 of+ NoParse e7 ->+ case lexerPappyvoiced d3 of+ NoParse e9 ->+ Parsed ( f ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'f' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'F' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParsep :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParsep d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed p d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappyp d3 of+ NoParse e7 ->+ case lexerPappyvoiced d3 of+ NoParse e9 ->+ Parsed ( p ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'p' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'P' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParset :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParset d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed t d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappyt d3 of+ NoParse e7 ->+ case lexerPappyvoiced d3 of+ NoParse e9 ->+ Parsed ( t ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 't' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'T' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyh :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyh d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed h d3 e3 ->+ case lexerPappynucleus d3 of+ Parsed _ _ e5 ->+ Parsed ( h ) d3 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed 'h' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed '\'' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappyParsedigit :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyParsedigit d =+ case lexerPappyStarRule37 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed d d3 e3 ->+ case lexerPappyh d3 of+ NoParse e5 ->+ case lexerPappynucleus d3 of+ NoParse e7 ->+ Parsed ( d ) d3 (maximum [e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed '0' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed '1' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed '2' _ _) -> r+ _ -> pappyAlt5_4 e5+ pappyAlt5_4 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed '3' _ _) -> r+ _ -> pappyAlt5_5 e5+ pappyAlt5_5 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed '4' _ _) -> r+ _ -> pappyAlt5_6 e5+ pappyAlt5_6 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed '5' _ _) -> r+ _ -> pappyAlt5_7 e5+ pappyAlt5_7 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed '6' _ _) -> r+ _ -> pappyAlt5_8 e5+ pappyAlt5_8 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed '7' _ _) -> r+ _ -> pappyAlt5_9 e5+ pappyAlt5_9 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed '8' _ _) -> r+ _ -> pappyAlt5_10 e5+ pappyAlt5_10 e5 =+ case lexerPappyChar d1 of+ r @ (Parsed '9' _ _) -> r+ _ -> pappyAlt5_11 e5+ pappyAlt5_11 e5 = NoParse e5+ NoParse e1 -> NoParse e1++lexerPappypost_word :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappypost_word d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappypause d of+ Parsed _ d3 e3 ->+ Parsed ( "" ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappynucleus d of+ NoParse e3 ->+ case lexerPappylojban_word d of+ Parsed l d5 e5 ->+ Parsed ( l ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ Parsed _ _ e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++lexerPappypause :: LexerPappyDerivs -> Result LexerPappyDerivs ( String )+lexerPappypause d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyStarRule37 d of+ Parsed cs d3 e3 ->+ case lexerPappyspace_char d3 of+ Parsed s d5 e5 ->+ Parsed ( cs ++ [s] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappyanyChar d of+ NoParse e3 ->+ Parsed ( "" ) d (max e3 e1)+ Parsed _ _ e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++lexerPappyanyChar :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappyanyChar d =+ case lexerPappyChar d of+ Parsed c d1 e1 ->+ case ( True ) of+ True ->+ Parsed ( c ) d1 e1+ False -> NoParse e1+ NoParse e1 -> NoParse e1++lexerPappyParsePlusRule3 :: LexerPappyDerivs -> Result LexerPappyDerivs ([Char])+lexerPappyParsePlusRule3 d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappynon_space d of+ Parsed v d3 e3 ->+ case lexerPappyPlusRule3 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappynon_space d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++lexerPappynon_space :: LexerPappyDerivs -> Result LexerPappyDerivs (Char)+lexerPappynon_space d =+ case lexerPappyspace_char d of+ NoParse e1 ->+ case lexerPappyanyChar d of+ Parsed c d3 e3 ->+ Parsed ( c ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ Parsed _ _ e1 -> NoParse e1++lexerPappyspace_char :: LexerPappyDerivs -> Result LexerPappyDerivs ( Char )+lexerPappyspace_char d =+ case pappyResult1 of+ Parsed c d1 e1 ->+ Parsed ( c ) d1 e1+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt3_1 e3 =+ case lexerPappyChar d of+ r @ (Parsed '.' _ _) -> r+ _ -> pappyAlt3_2 e3+ pappyAlt3_2 e3 =+ case lexerPappyChar d of+ r @ (Parsed '?' _ _) -> r+ _ -> pappyAlt3_3 e3+ pappyAlt3_3 e3 =+ case lexerPappyChar d of+ r @ (Parsed '!' _ _) -> r+ _ -> pappyAlt3_4 e3+ pappyAlt3_4 e3 =+ case lexerPappyChar d of+ r @ (Parsed ' ' _ _) -> r+ _ -> pappyAlt3_5 e3+ pappyAlt3_5 e3 =+ case lexerPappyChar d of+ r @ (Parsed '\t' _ _) -> r+ _ -> pappyAlt3_6 e3+ pappyAlt3_6 e3 =+ case lexerPappyChar d of+ r @ (Parsed '\r' _ _) -> r+ _ -> pappyAlt3_7 e3+ pappyAlt3_7 e3 =+ case lexerPappyChar d of+ r @ (Parsed '\n' _ _) -> r+ _ -> pappyAlt3_8 e3+ pappyAlt3_8 e3 = NoParse e3++lexerPappyParsespaces :: LexerPappyDerivs -> Result LexerPappyDerivs ( String )+lexerPappyParsespaces d =+ case lexerPappyY d of+ NoParse e1 ->+ case pappyResult3 of+ Parsed i d3 e3 ->+ Parsed ( i ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt5_1 e5 =+ case lexerPappyPlusRule4 d of+ Parsed csy d7 e7 ->+ case pappyResult9 of+ Parsed _ d9 e9 ->+ Parsed ( concat csy ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ where+ pappyResult9 =+ case pappyResult11 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ where+ pappyResult11 =+ case lexerPappyanyChar d7 of+ NoParse e13 ->+ Parsed ( () ) d7 e13+ Parsed _ _ e13 -> NoParse e13+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case lexerPappyanyChar d of+ NoParse e7 ->+ Parsed ( "" ) d (max e7 e5)+ Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ Parsed _ _ e1 -> NoParse e1++lexerPappyParsePlusRule4 :: LexerPappyDerivs -> Result LexerPappyDerivs ([ String ])+lexerPappyParsePlusRule4 d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case lexerPappyPlusRule4 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt5_1 e5 =+ case lexerPappycomma_space_char d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case lexerPappyybu d of+ NoParse e7 ->+ case lexerPappyY d of+ Parsed y d9 e9 ->+ Parsed ( y ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt5_1 e5 =+ case lexerPappycomma_space_char d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case lexerPappyybu d of+ NoParse e7 ->+ case lexerPappyY d of+ Parsed y d9 e9 ->+ Parsed ( y ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_3 e1 = NoParse e1++lexerPappyParseStarRule37 :: LexerPappyDerivs -> Result LexerPappyDerivs ([Char])+lexerPappyParseStarRule37 d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case lexerPappyStarRule37 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case lexerPappyChar d of+ r @ (Parsed ',' _ _) -> r+ _ -> NoParse (ParseError (lexerPappyPos d) [])+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++lexerPappycomma_space_char :: LexerPappyDerivs -> Result LexerPappyDerivs ( String )+lexerPappycomma_space_char d =+ case lexerPappyStarRule37 d of+ Parsed c d1 e1 ->+ case lexerPappyspace_char d1 of+ Parsed s d3 e3 ->+ Parsed ( c ++ [s] ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappyParseStarRule38 :: LexerPappyDerivs -> Result LexerPappyDerivs ([ Char ])+lexerPappyParseStarRule38 d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyspace_char d of+ Parsed v d3 e3 ->+ case lexerPappyStarRule38 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++lexerPappyParseybu :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyParseybu d =+ case lexerPappyY d of+ Parsed y d1 e1 ->+ case lexerPappyStarRule38 d1 of+ Parsed _ d3 e3 ->+ case pappyResult5 of+ Parsed b d5 e5 ->+ Parsed ( y ++ b ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case lexerPappycmavo d3 of+ Parsed _ _ e7 ->+ case pappyResult9 of+ Parsed bu d9 e9 ->+ Parsed ( bu ) d9 (max e9 e7)+ NoParse e9 -> NoParse (max e9 e7)+ where+ pappyResult9 =+ case lexerPappyb d3 of+ Parsed b d11 e11 ->+ case lexerPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [b, u] ) d13 (max e13 e11)+ NoParse e13 -> NoParse (max e13 e11)+ NoParse e11 -> NoParse e11+ NoParse e7 -> NoParse e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappyParsePlusRule5 :: LexerPappyDerivs -> Result LexerPappyDerivs ([Char])+lexerPappyParsePlusRule5 d =+ pappyAlt1_1 (ParseError (lexerPappyPos d) []) where+ pappyAlt1_1 e1 =+ case lexerPappyy d of+ Parsed v d3 e3 ->+ case lexerPappyPlusRule5 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case lexerPappyy d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++lexerPappyY :: LexerPappyDerivs -> Result LexerPappyDerivs (String)+lexerPappyY d =+ case lexerPappycmavo d of+ Parsed _ _ e1 ->+ case lexerPappyPlusRule5 d of+ Parsed y d3 e3 ->+ case lexerPappypost_word d3 of+ Parsed _ _ e5 ->+ Parsed ( y ) d3 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++lexerPappyParsedummyTail :: LexerPappyDerivs -> Result LexerPappyDerivs ((() -> ()))+lexerPappyParsedummyTail d =+ case lexerPappyChar d of+ Parsed 'a' d1 _ ->+ case lexerPappydummy d1 of+ Parsed _ d3 e3 ->+ case lexerPappydummyTail d3 of+ Parsed pappyTail d5 e5 ->+ Parsed (\l -> pappyTail ( () )) d5 (max e5 e3)+ NoParse e5 -> NoParse (max e5 e3)+ NoParse e3 -> NoParse e3+ _ ->+ Parsed (\v -> v) d (ParseError (lexerPappyPos d) [])++lexerPappyParsedummy :: LexerPappyDerivs -> Result LexerPappyDerivs (())+lexerPappyParsedummy d =+ case pappyResult1 of+ Parsed l d1 e1 ->+ case lexerPappydummyTail d1 of+ Parsed t d3 e3 ->+ Parsed (t l) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case lexerPappyChar d of+ Parsed 'a' d3 _ ->+ case lexerPappydummy d3 of+ Parsed _ d5 e5 ->+ Parsed ( () ) d5 e5+ NoParse e5 -> NoParse e5+ _ -> NoParse (ParseError (lexerPappyPos d) [])+
+ src/Parse.hs view
@@ -0,0 +1,420 @@+module Parse (+ Derivs(..),+ ParseError(..),+ ErrorDescriptor(..),+ Result(..),+ eofError,+ nullError,+ isDigit,+ digitToInt,+ isSpace+) where++import Data.Char+import Data.List++import Pos+++---------- Data types used for parsing++data ErrorDescriptor =+ Expected String+ | Message String++data ParseError = ParseError {+ errorPos :: Pos,+ errorDescrs :: [ErrorDescriptor]+ }++data Result d v =+ Parsed v d ParseError+ | NoParse ParseError++newtype Parser d v = Parser (d -> Result d v)+++class Derivs d where+ dvPos :: d -> Pos+ dvChar :: d -> Result d Char+++---------- Basic parsing combinators++infixl 2 </> -- ordered choice+infixl 1 <?> -- error labeling+infixl 1 <?!> -- unconditional error labeling++-- Standard monadic combinators+instance Derivs d => Monad (Parser d) where ++ -- Sequencing combinator+ (Parser p1) >>= f = Parser parse++ where parse dvs = first (p1 dvs)++ first (Parsed val rem err) = + let Parser p2 = f val+ in second err (p2 rem)+ first (NoParse err) = NoParse err++ second err1 (Parsed val rem err) =+ Parsed val rem (joinErrors err1 err)+ second err1 (NoParse err) =+ NoParse (joinErrors err1 err)++ -- Result-producing combinator+ return x = Parser (\dvs -> Parsed x dvs (nullError dvs))++ -- Failure combinator+ fail [] = Parser (\dvs -> NoParse (nullError dvs))+ fail msg = Parser (\dvs -> NoParse (msgError (dvPos dvs) msg))++-- Ordered choice+(</>) :: Derivs d => Parser d v -> Parser d v -> Parser d v+(Parser p1) </> (Parser p2) = Parser parse++ where parse dvs = first dvs (p1 dvs)++ first dvs (result @ (Parsed val rem err)) = result+ first dvs (NoParse err) = second err (p2 dvs)++ second err1 (Parsed val rem err) =+ Parsed val rem (joinErrors err1 err)+ second err1 (NoParse err) =+ NoParse (joinErrors err1 err)++-- Semantic predicate: 'satisfy <parser> <pred>' acts like <parser>+-- but only succeeds if the result it generates satisfies <pred>.+satisfy :: Derivs d => Parser d v -> (v -> Bool) -> Parser d v+satisfy (Parser p) test = Parser parse++ where parse dvs = check dvs (p dvs)++ check dvs (result @ (Parsed val rem err)) =+ if test val then result+ else NoParse (nullError dvs)+ check dvs none = none++-- Syntactic predicate: 'followedBy <parser>' acts like <parser>+-- but does not consume any input.+followedBy :: Derivs d => Parser d v -> Parser d v+followedBy (Parser p) = Parser parse++ where parse dvs = case (p dvs) of+ Parsed val rem err -> Parsed val dvs (nullError dvs)+ err -> err++-- Negative syntactic predicate: 'followedBy <parser>' invokes <parser>,+-- then succeeds without consuming any input if <parser> fails,+-- and fails if <parser> succeeds.+notFollowedBy :: Derivs d => Parser d v -> Parser d ()+notFollowedBy (Parser p) = Parser parse++ where parse dvs = case (p dvs) of+ Parsed val rem err -> NoParse (nullError dvs)+ NoParse err -> Parsed () dvs (nullError dvs)++-- Optional combinator: 'optional <parser>' invokes <parser>,+-- then produces the result 'Just <v>' if <parser> produced <v>,+-- or else produces the success result 'Nothing'+-- without consuming any input if <parser> failed.+optional :: Derivs d => Parser d v -> Parser d (Maybe v)+optional p = (do v <- p; return (Just v)) </> return Nothing+++---------- Iterative combinators+-- Note: use of these combinators can break+-- a packrat parser's linear-time guarantee.++-- Zero or more repetition combinator:+-- 'many <parser>' invokes <parser> repeatedly until it fails,+-- collecting all success result values into a list.+-- Always succeeds, producing an empty list in the degenerate case.+many :: Derivs d => Parser d v -> Parser d [v]+many p = (do { v <- p; vs <- many p; return (v : vs) } )+ </> return []++-- One or more repetition combinator:+-- 'many1 <parser>' invokes <parser> repeatedly until it fails,+-- collecting all success result values into a list.+-- Fails if <parser> does not succeed even once.+many1 :: Derivs d => Parser d v -> Parser d [v]+many1 p = do { v <- p; vs <- many p; return (v : vs) }++-- One or more repetitions with a separator:+-- 'sepBy1 <parser> <separator>' scans one or more iterations of <parser>,+-- with a match of <separator> between each instance.+-- Only the results of <parser> are collected into the final result list.+sepBy1 :: Derivs d => Parser d v -> Parser d vsep -> Parser d [v]+sepBy1 p psep = do v <- p+ vs <- many (do { psep; p })+ return (v : vs)++-- Zero or more repetitions with a separator:+-- like sepBy1, but succeeds with an empty list if nothing can be parsed.+sepBy :: Derivs d => Parser d v -> Parser d vsep -> Parser d [v]+sepBy p psep = sepBy1 p psep </> return []++-- Zero or more repetitions with a terminator+endBy :: Derivs d => Parser d v -> Parser d vend -> Parser d [v]+endBy p pend = many (do { v <- p; pend; return v })++-- One or more repetitions with a terminator+endBy1 :: Derivs d => Parser d v -> Parser d vend -> Parser d [v]+endBy1 p pend = many1 (do { v <- p; pend; return v })++-- One or more repetitions with a separator or terminator:+-- 'sepEndBy1 <parser> <septerm>' scans for a sequence of <parser> matches+-- in which instances are separated by <septerm>,+-- and if a <septerm> is found following the last <parser> match+-- then it is consumed as well.+sepEndBy1 :: Derivs d => Parser d v -> Parser d vsep -> Parser d [v]+sepEndBy1 p psep = do v <- sepBy1 p psep; optional psep; return v++-- Zero or more repetitions with a separator or terminator.+sepEndBy :: Derivs d => Parser d v -> Parser d vsep -> Parser d [v]+sepEndBy p psep = do v <- sepBy p psep; optional psep; return v++-- One or more repetitions separated by left-associative operators.+-- 'chainl1 <term> <oper>' matches instances of <term> separated by <oper>,+-- but uses the result of <oper> as a left-associative binary combinator:+-- e.g., 't1 op t2 op t3' is interpreted as '(t1 op t2) op t3'+chainl1 :: Derivs d => Parser d v -> Parser d (v->v->v) -> Parser d v+chainl1 p psep =+ let psuffix z = (do f <- psep+ v <- p+ psuffix (f z v))+ </> return z+ in do v <- p+ psuffix v++-- Zero or more repetitions separated by left-associative operators.+chainl :: Derivs d => Parser d v -> Parser d (v->v->v) -> v -> Parser d v+chainl p psep z = chainl1 p psep </> return z++-- One or more repetitions separated by left-associative operators:+-- e.g., 't1 op t2 op t3' is interpreted as 't1 op (t2 op t3)'+chainr1 :: Derivs d => Parser d v -> Parser d (v->v->v) -> Parser d v+chainr1 p psep = (do v <- p+ f <- psep+ w <- chainr1 p psep+ return (f v w))+ </> p++-- Zero or more repetitions separated by left-associative operators.+chainr :: Derivs d => Parser d v -> Parser d (v->v->v) -> v -> Parser d v+chainr p psep z = chainr1 p psep </> return z++-- N-ary ordered choice:+-- given a list of parsers producing results of the same type,+-- try them all in order and use the first successful result.+choice :: Derivs d => [Parser d v] -> Parser d v+choice [p] = p+choice (p:ps) = p </> choice ps+++---------- Error handling+instance Eq ErrorDescriptor where+ Expected e1 == Expected e2 = e1 == e2+ Message m1 == Message m2 = m1 == m2+ _ == _ = False++failAt :: Derivs d => Pos -> String -> Parser d v+failAt pos msg = Parser (\dvs -> NoParse (msgError pos msg))++-- Annotate a parser with a description of the construct to be parsed.+-- The resulting parser yields an "expected" error message+-- if the construct cannot be parsed+-- and if no error information is already available+-- indicating a position farther right in the source code+-- (which would normally be more localized/detailed information).+(<?>) :: Derivs d => Parser d v -> String -> Parser d v+(Parser p) <?> desc = Parser (\dvs -> munge dvs (p dvs))++ where munge dvs (Parsed v rem err) =+ Parsed v rem (fix dvs err)+ munge dvs (NoParse err) =+ NoParse (fix dvs err)++ fix dvs (err @ (ParseError p ms)) =+ if p > dvPos dvs then err+ else expError (dvPos dvs) desc++-- Stronger version of the <?> error annotation operator above,+-- which unconditionally overrides any existing error information.+(<?!>) :: Derivs d => Parser d v -> String -> Parser d v+(Parser p) <?!> desc = Parser (\dvs -> munge dvs (p dvs))++ where munge dvs (Parsed v rem err) =+ Parsed v rem (fix dvs err)+ munge dvs (NoParse err) =+ NoParse (fix dvs err)++ fix dvs (err @ (ParseError p ms)) =+ expError (dvPos dvs) desc++-- Join two ParseErrors, giving preference to the one farthest right,+-- or merging their descriptor sets if they are at the same position.+joinErrors :: ParseError -> ParseError -> ParseError+joinErrors (e @ (ParseError p m)) (e' @ (ParseError p' m')) =+ if p' > p || null m then e'+ else if p > p' || null m' then e+ else ParseError p (m `union` m')++nullError dvs = ParseError (dvPos dvs) []++expError pos desc = ParseError pos [Expected desc]++msgError pos msg = ParseError pos [Message msg]++eofError dvs = msgError (dvPos dvs) "end of input"++expected :: Derivs d => String -> Parser d v+expected desc = Parser (\dvs -> NoParse (expError (dvPos dvs) desc))++unexpected :: Derivs d => String -> Parser d v+unexpected str = fail ("unexpected " ++ str)++-- Comparison operators for ParseError just compare relative positions.+instance Eq ParseError where+ ParseError p1 m1 == ParseError p2 m2 = p1 == p2+ ParseError p1 m1 /= ParseError p2 m2 = p1 /= p2++instance Ord ParseError where+ ParseError p1 m1 < ParseError p2 m2 = p1 < p2+ ParseError p1 m1 > ParseError p2 m2 = p1 > p2+ ParseError p1 m1 <= ParseError p2 m2 = p1 <= p2+ ParseError p1 m1 >= ParseError p2 m2 = p1 >= p2++ -- Special behavior: "max" joins two errors+ max p1 p2 = joinErrors p1 p2+ min p1 p2 = undefined++-- Show function for error messages+instance Show ParseError where+ show (ParseError pos []) = + show pos ++ ": parse error"+ show (ParseError pos msgs) = expectmsg expects ++ messages msgs+ where+ expects = getExpects msgs+ getExpects [] = []+ getExpects (Expected exp : rest) = exp : getExpects rest+ getExpects (Message msg : rest) = getExpects rest++ expectmsg [] = ""+ expectmsg [exp] = show pos ++ ": expecting " ++ exp ++ "\n"+ expectmsg [e1, e2] = show pos ++ ": expecting either "+ ++ e1 ++ " or " ++ e2 ++ "\n"+ expectmsg (first : rest) = show pos ++ ": expecting one of: "+ ++ first ++ expectlist rest+ ++ "\n"+ expectlist [last] = ", or " ++ last+ expectlist (mid : rest) = ", " ++ mid ++ expectlist rest++ messages [] = []+ messages (Expected exp : rest) = messages rest+ messages (Message msg : rest) =+ show pos ++ ": " ++ msg ++ "\n" ++ messages rest+++---------- Character-oriented parsers++-- 'anyChar' matches any single character.+anyChar :: Derivs d => Parser d Char+anyChar = Parser dvChar++-- 'char <c>' matches the specific character <c>.+char :: Derivs d => Char -> Parser d Char+char ch = satisfy anyChar (\c -> c == ch) <?> show ch++-- 'oneOf <s>' matches any character in string <s>.+oneOf :: Derivs d => [Char] -> Parser d Char+oneOf chs = satisfy anyChar (\c -> c `elem` chs)+ <?> ("one of the characters " ++ show chs)++-- 'noneOf <s>' matches any character not in string <s>.+noneOf :: Derivs d => [Char] -> Parser d Char+noneOf chs = satisfy anyChar (\c -> not (c `elem` chs))+ <?> ("any character not in " ++ show chs)++-- 'string <s>' matches all the characters in <s> in sequence.+string :: Derivs d => String -> Parser d String+string str = p str <?> show str++ where p [] = return str+ p (ch:chs) = do { char ch; p chs }++-- 'stringFrom <ss>' matches any string in the list of strings <ss>.+-- If any strings in <ss> are prefixes of other strings in <ss>,+-- then the prefixes must appear later in the list+-- in order for the longer strings to be recognized at all.+stringFrom :: Derivs d => [String] -> Parser d String+stringFrom [str] = string str+stringFrom (str : strs) = string str </> stringFrom strs++-- Match an uppercase letter.+upper :: Derivs d => Parser d Char+upper = satisfy anyChar isUpper <?> "uppercase letter"++-- Match a lowercase letter.+lower :: Derivs d => Parser d Char+lower = satisfy anyChar isLower <?> "lowercase letter"++-- Match any letter.+letter :: Derivs d => Parser d Char+letter = satisfy anyChar isAlpha <?> "letter"++-- Match any letter or digit.+alphaNum :: Derivs d => Parser d Char+alphaNum = satisfy anyChar isAlphaNum <?> "letter or digit"++-- Match any digit.+digit :: Derivs d => Parser d Char+digit = satisfy anyChar isDigit <?> "digit"++-- Match any hexadecimal digit.+hexDigit :: Derivs d => Parser d Char+hexDigit = satisfy anyChar isHexDigit <?> "hexadecimal digit (0-9, a-f)"++-- Match any octal digit.+octDigit :: Derivs d => Parser d Char+octDigit = satisfy anyChar isOctDigit <?> "octal digit (0-7)"++-- Match a newline.+newline :: Derivs d => Parser d Char+newline = char '\n'++-- Match a tab character.+tab :: Derivs d => Parser d Char+tab = char '\t'++-- Match any whitespace character (space, tab, newline, etc.).+space :: Derivs d => Parser d Char+space = satisfy anyChar isSpace <?> "whitespace character"++-- Match a sequence of zero or more whitespace characters.+spaces :: Derivs d => Parser d [Char]+spaces = many space++-- Match the end of file (i.e., "the absence of a character").+eof :: Derivs d => Parser d ()+eof = notFollowedBy anyChar <?> "end of input"+++---------- Parser state manipulation combinators++-- Combinator to get the Derivs object for the current position:+-- e.g., 'dvs <- getDerivs' as part of a 'do' sequence.+getDerivs :: Derivs d => Parser d d+getDerivs = Parser (\dvs -> Parsed dvs dvs (nullError dvs))++-- Combinator to set the Derivs object used for subsequent parsing;+-- typically used to change parsing state elements in the Derivs tuple.+setDerivs :: Derivs d => d -> Parser d ()+setDerivs newdvs = Parser (\dvs -> Parsed () newdvs (nullError dvs))++-- Get the current position in the input text.+getPos :: Derivs d => Parser d Pos+getPos = Parser (\dvs -> Parsed (dvPos dvs) dvs (nullError dvs))+
+ src/Pos.hs view
@@ -0,0 +1,47 @@+-- Simple data type to keep track of character positions+-- within a text file or other text stream.+module Pos where+++-- Basic position indicator data type: filename, line number, column number.+data Pos = Pos {+ posFile :: !String,+ posLine :: !Int,+ posCol :: !Int+ }++-- Incrementally compute the next position in a text file+-- if 'c' is the character at the current position.+-- Follows the standard convention of 8-character tab stops.+nextPos (Pos file line col) c =+ if c == '\n' then Pos file (line + 1) 1+ else if c == '\t' then Pos file line ((div (col + 8 - 1) 8) * 8 + 1)+ else Pos file line (col + 1)++-- Two positions are equal if each of their elements are equal.+instance Eq Pos where+ Pos f1 l1 c1 == Pos f2 l2 c2 =+ f1 == f2 && l1 == l2 && c1 == c2++-- Two positions are ordered by line number, then column number.+instance Ord Pos where+ Pos f1 l1 c1 <= Pos f2 l2 c2 =+ (l1 < l2) || (l1 == l2 && c1 <= c2)++-- Standard way to display positions - "file:line:col"+instance Show Pos where+ show (Pos file line col) = file ++ ":" ++ show line ++ ":" ++ show col++-- Show a position relative to a base position.+-- If the new position is in the same line, just show its column number;+-- otherwise if the new position is in the same file,+-- just show its line and column numbers;+-- otherwise show the complete new position.+showPosRel (Pos file line col) (Pos file' line' col') =+ if (file == file')+ then if (line == line')+ then "column " ++ show col'+ else "line " ++ show line' ++ ", column " ++ show col'+ else show (Pos file' line' col')++
+ src/Preprocess.hs view
@@ -0,0 +1,32 @@+module Preprocess (preprocess) where++import Pos+import Parse+import System.Environment++import LexerPappy++preprocess :: String -> Maybe String+preprocess src = do+ (is, ws) <- lexwords src+ return $ is ++ wordsToString ws++wordsToString :: [(String, String)] -> String+wordsToString [] = ""+wordsToString (("zoi", s1) : (q, s2) : rest) =+ "zoi" ++ s1 ++ " \NUL" ++ s2 ++ quoteInside q rest+wordsToString ((w, s) : rest) = w ++ s ++ wordsToString rest++quoteInside :: String -> [(String, String)] -> String+quoteInside q0 ((q1, s) : rest)+ | q0 == q1 = "\NUL" ++ s ++ wordsToString rest+ | otherwise = q1 ++ s ++ quoteInside q0 rest++lexwords :: String -> Maybe (String, [(String, String)])+lexwords src = case lexerPappytest_words $ lexerPappyParse "test_words" src of+ Parsed v _ _ -> Just v+ NoParse e -> Nothing++main = do+ [str] <- getArgs+ print $ preprocess str
+ src/TestPappy.hs view
@@ -0,0 +1,24239 @@+-- Parser generated by Pappy - do not edit+module TestPappy where++import Pos+import Parse+++import System.Environment+import Data.Maybe+import Preprocess++ml = maybeToList+++++type TailTerms = ([Term], Maybe Clause, [Free])+type Term = Sumti++type Text = Sentence+type Paragraphs = Sentence+type Paragraph = Sentence+type Fragment = Sentence+type Statement = Sentence++data Sentence+ = Selbri Selbri+ | SelbriTailTerms Selbri [Term] (Maybe Clause) [Free]+ | GekSentence Gek Sentence Gik Sentence [Term] (Maybe Clause) [Free]+ | KEGekSentence (Maybe Tag) Clause [Free] Sentence (Maybe Clause) [Free]+ | NAGekSentence Clause [Free] Sentence+ | GihekBO Sentence Gihek (Maybe Tag) Clause [Free] Sentence [Term]+ (Maybe Clause) [Free]+ | GihekSentence Sentence+ [(Gihek, [Free], Sentence, [Term], Maybe Clause, [Free])]+ | GihekKE Sentence Gihek (Maybe Tag) Clause [Free] Sentence (Maybe Clause)+ [Free] [Term] (Maybe Clause) [Free]+ | TermsBridiTail [Term] (Maybe Clause) [Free] Sentence+ | PrenexSentence [Term] Clause [Free] Sentence+ | TUhE (Maybe Tag) Clause [Free] Text (Maybe Clause) [Free]+ | IBOStatement Statement Clause (Maybe JoikJek) (Maybe Tag) Clause [Free]+ Statement+ | IBO Statement Clause (Maybe JoikJek) (Maybe Tag) Clause [Free]+ | IJoikJek Statement [(Clause, JoikJek, [Free], Maybe Statement)]+ | Prenex [Term] Clause [Free] Statement+ | FPrenex [Term] Clause [Free]+ | FTermsVAU [Term] (Maybe Clause) [Free]+ | FEk Ek [Free]+ | FGihek Gihek [Free]+ | FQuantifier Quantifier+ | FNA Clause [Free]+ | FRelativeClause RelativeClause+ | FLinks Links+ | FLinkargs Linkargs+ | StatementI Statement [(Clause, [Free], Maybe Statement)]+ | NIhO Paragraph [Clause] [Free] Paragraphs+ | IText_1 Clause (Maybe JoikJek) (Maybe (Maybe Tag, Clause)) [Free]+ (Maybe Text)+ | HeadNIhO [Clause] [Free] (Maybe Paragraphs)+ | TopText [Clause] (Either [Clause] (Maybe [([String], String)])) [Free]+ (Maybe (JoikJek, [Free])) (Maybe Text) (Maybe Pre)+ deriving Show++data Sumti+ = TermsPEhETerms Term [(Clause, [Free], JoikJek, [Free], Term)]+ | TermCEhETerm Term [(Clause, [Free], Term)]+ | TagSumti Tag Sumti+ | KU (Maybe Clause) [Free]+ | NAKU Clause Clause [Free]+ | NUhIGek Clause [Free] Gek [Term] (Maybe Clause) [Free] Gik [Term]+ (Maybe Clause) [Free]+ | NUhI Clause [Free] [Term] (Maybe Clause) [Free]+ | Gek Gek TermsGikTerms+ | ZO [String] String String Indicators [Free]+ | ZOI [String] String [String] Indicators [Free]+ | LOhU [String] String [String] Pre Indicators [Free]+ | LerfuString LerfuString (Maybe Clause) [Free]+ | LU Clause Text (Maybe Clause) [Free]+ | LAhE_NAhE Clause (Maybe Clause) [Free] (Maybe RelativeClauses)+ Sumti (Maybe Clause) [Free]+ | KOhA Clause [Free]+ | LALE Clause [Free] SumtiTail (Maybe Clause) [Free]+ | LA Clause [Free] (Maybe RelativeClauses) [Clause] [Free]+ | LI Clause [Free] Mex (Maybe Clause) [Free]+ | OuterQuantifier (Maybe Quantifier) Sumti (Maybe RelativeClauses)+ | SQuantifierSelbri Quantifier Selbri (Maybe Clause) [Free]+ (Maybe RelativeClauses)+ | GekSumti Gek Sumti Gik Sumti+ | JoikEkBOSumti Sumti JoikEk [Free] (Maybe Tag) Clause [Free] Sumti+ | JoikEkSumti Sumti [(JoikEk, [Free], Sumti)]+ | JoikEkKESumti Sumti JoikEk [Free] (Maybe Tag) Clause [Free] Sumti+ (Maybe Clause) [Free]+ | VUhO Sumti Clause [Free] RelativeClauses+ deriving Show++data TermsGikTerms+ = TGT Term TermsGikTerms Term+ | Gik Gik+ deriving Show++data SumtiTail+ = SumtiSumtiTail Sumti (Maybe RelativeClauses) SumtiTail+ | RelativeClausesSumtiTail RelativeClauses SumtiTail+ | SelbriRelativeClauses Selbri (Maybe RelativeClauses)+ | STQuantifierSelbri Quantifier Selbri (Maybe RelativeClauses)+ | QuantifierSumti Quantifier Sumti+ deriving Show++data Selbri+ = Brivla Clause [Free]+ | GOhA Clause (Maybe Clause) [Free]+ | KE Clause [Free] Selbri (Maybe Clause) [Free]+ | ME Clause [Free] Sumti (Maybe Clause) [Free] (Maybe Clause) [Free]+ | MOI NumberLerfuString Clause [Free]+ | NUhA Clause [Free] MexOperator+ | SE Clause [Free] Selbri+ | JAI Clause [Free] (Maybe Tag) Selbri+ | NAhE Clause [Free] Selbri+ | Linkargs Selbri Linkargs+ | CEI Selbri [(Clause, [Free], Selbri)]+ | BO Selbri Clause [Free] Selbri+ | GuhekGik (Maybe Clause) [Free] Guhek Selbri Gik Selbri+ | JekJoikBO Selbri JoikJek (Maybe Tag) Clause [Free] Selbri+ | JoikJek Selbri [JoikJekSelbri5]+ | Tanru [Selbri]+ | CO Selbri Clause [Free] Selbri+ | NA Clause [Free] Selbri+ | Tag Tag Selbri+ | NU Clause (Maybe Clause) [Free]+ [(JoikJek, [Free], Clause, Maybe Clause, [Free])]+ Sentence (Maybe Clause) [Free]+ deriving Show++type RelativeClauses = RelativeClause++data RelativeClause+ = GOI Clause [Free] Term (Maybe Clause) [Free]+ | NOI Clause [Free] Sentence (Maybe Clause) [Free]+ | RelativeClauseZIhE RelativeClause [(Clause, [Free], RelativeClause)]+ deriving Show++type JoikJekSelbri5 = Either (JoikJek, [Free], Selbri)+ (Joik, (Maybe Tag), Clause, [Free], Selbri, Maybe Clause, [Free])++data Linkargs+ = BE Clause [Free] Term (Maybe Links) (Maybe Clause) [Free]+ deriving Show+data Links+ = BEI Clause [Free] Term (Maybe Links)+ deriving Show++type Quantifier = Operand+type Mex = Operand+data MexOperator+ = VUhU Clause [Free]+ | NAhU Clause [Free] Selbri (Maybe Clause) [Free]+ | MAhO Clause [Free] Mex (Maybe Clause) [Free]+ | NAhEOperator Clause [Free] MexOperator+ | SEOperator Clause [Free] MexOperator+ | KEOperator Clause [Free] MexOperator (Maybe Clause) [Free]+ | GuhekOperator Guhek MexOperator Gik MexOperator+ | JekJoikBOOperator MexOperator JoikJek (Maybe Tag) Clause [Free] MexOperator+ | JoikJekJoikKEOperator MexOperator+ [Either (JoikJek, [Free], MexOperator)+ (Joik, Maybe Tag, Clause, [Free], MexOperator,+ Maybe Clause, [Free])]+ deriving Show++data Operand+ = OLerfuString LerfuString (Maybe Clause) [Free]+ | OperandJoikEkBO Operand JoikEk [Free] (Maybe Tag) Clause [Free] Operand+ | OperandJoikEk Operand [(JoikEk, [Free], Operand)]+ | OperandJoikEkKE Operand JoikEk [Free] (Maybe Tag) Clause [Free] Operand+ (Maybe Clause) [Free]+ | MexOperatorMex Mex [(MexOperator, Mex)]+ | FUhA Clause [Free] RPExpression+ | PEhO (Maybe Clause) [Free] MexOperator [Mex] (Maybe Clause) [Free]+ | BIhE Mex Clause [Free] MexOperator Mex+ | VEI Clause [Free] Mex (Maybe Clause) [Free]+ | Number Number (Maybe Clause) [Free]+ | NIhE Clause [Free] Selbri (Maybe Clause) [Free]+ | MOhE Clause [Free] Sumti (Maybe Clause) [Free]+ | JOhI Clause [Free] [Mex] (Maybe Clause) [Free]+ | GekOperand Gek Operand Gik Operand+ | LAhE_NAhEOperand Clause (Maybe Clause) [Free] Operand (Maybe Clause) [Free]+ deriving Show++data RPExpression+ = RPExpression Operand (Maybe RPExpressionTail)+ deriving Show+data RPExpressionTail+ = RPExpressionTail RPExpression MexOperator (Maybe RPExpressionTail)+ deriving Show++type NumberLerfuString = [Clause]+type Number = [Clause]+type LerfuString = [Clause]++data Free+ = VocativeSumti [Clause] (Maybe Sumti) (Maybe Clause)+ | XINumber Clause [Free] NumberLerfuString (Maybe Clause)+ | XIMex Clause [Free] Clause [Free] Mex (Maybe Clause)+ | SEI Clause [Free] (Maybe ([Term], Maybe Clause, [Free])) Selbri (Maybe Clause)+ | SOI Clause [Free] Sumti (Maybe Sumti) (Maybe Clause)+ | TO Clause Text (Maybe Clause)+ | MAI NumberLerfuString Clause+ | VocativeSelbri [Clause] (Maybe RelativeClauses) Selbri+ (Maybe RelativeClauses) (Maybe Clause)+ | VocativeCmene [Clause] (Maybe RelativeClauses) [Clause] [Free]+ (Maybe RelativeClauses) (Maybe Clause)+ deriving Show++type Clause = ([String], String, Indicators)+type Pre = ([String], String)+type Indicators = [[([String], String)]]++type Ek = JoikJek+type Jek = JoikJek+type Joik = JoikJek+type JoikEk = JoikJek+type Gihek = JoikJek+data JoikJek+ = JOI (Maybe Clause) (Clause) (Maybe Clause)+ | Jek (Maybe Clause) (Maybe Clause) Clause (Maybe Clause)+ | Ek (Maybe Clause) (Maybe Clause) Clause (Maybe Clause)+ | Gihek (Maybe Clause) (Maybe Clause) Clause (Maybe Clause)+ | BIhI (Maybe Clause) Clause (Maybe Clause)+ | GAhO Clause JoikJek Clause+ deriving Show+data Gek+ = GA (Maybe Clause) Clause (Maybe Clause) [Free]+ | JoikGI Joik Clause [Free]+ | STagGik Tag Gik+ deriving Show+-- type Guhek = ([Clause], [Free])+-- type Gik = ([Clause], [Free])+type Guhek = (Maybe Clause, Clause, Maybe Clause, [Free])+type Gik = (Clause, Maybe Clause, [Free])++type Tense = Tag+data IntervalProperty+ = ROI Number Clause (Maybe Clause)+ | TAhE Clause (Maybe Clause)+ | ZAhO Clause (Maybe Clause)+ deriving Show++data Tag+ = BAI (Maybe Clause) (Maybe Clause) Clause (Maybe Clause) (Maybe Clause)+ | FA Clause [Free]+ | KI Clause+ | CUhE Clause+ | Time (Maybe Clause) [(Clause, Maybe Clause, Maybe Clause)]+ (Maybe (Clause, Maybe (Clause, Maybe Clause))) [IntervalProperty]+ | Space (Maybe Clause) [SpaceOffset] (Maybe SpaceInterval) (Maybe (Clause, SpaceOffset))+ | SpaceTime Tense Tense+ | TimeSpace Tense Tense+ | TenseCAhA Tense Clause+ | CAhA Clause+ | NAhETenseKI (Maybe Clause) Tense (Maybe Clause)+ | SimpleTenseModalFree Tag [Free]+ | FIhO Clause [Free] Selbri (Maybe Clause) [Free]+ | JoikJekTag Tag [(JoikJek, [Free], Tag)]+ | JekJoikSTag Tag [(JoikJek, Tag)]+ deriving Show++data SpaceInterval+ = FEhE [(Clause, IntervalProperty)]+ | VEhAVIhA (Maybe Clause) (Maybe Clause)+ | VEhAVIhAFAhA (Maybe Clause) (Maybe Clause) Clause (Maybe Clause)+ | VEhAVIhAFEhE (Maybe Clause) (Maybe Clause) SpaceInterval+ | VEhAVIhAFAhAFEhE (Maybe Clause) (Maybe Clause) Clause (Maybe Clause) SpaceInterval+ deriving Show++data SpaceOffset+ = FAhA Clause (Maybe Clause) (Maybe Clause)+ deriving Show++{-+main = do+ [str] <- getArgs+ let p = fromMaybe (error "can't lex") $ preprocess str+ case testPappytest $ testPappyParse "test" p of+ Parsed v _ _ -> print v+ NoParse e -> error (show e)+-}++uncurry3 :: (a -> b -> c -> d) -> (a, b, c) -> d+uncurry3 f (x, y, z) = f x y z++isSimpleText :: [Clause] -> (Either [Clause] (Maybe [([String], String)]), [Free]) -> + Maybe (JoikJek, [Free]) -> Maybe Text -> Maybe Pre -> Bool+isSimpleText n tp2 jj t f =+ null n && isNothing (fromRight $ fst tp2) && null (snd tp2) &&+ isNothing jj && isJust t && isNothing f++fromRight :: Either a b -> b+fromRight = either (const $ error "not Right") id++++data TestPappyDerivs = TestPappyDerivs {+ testPappySub0 :: TestPappyDerivs0,+ testPappySub1 :: TestPappyDerivs1,+ testPappySub2 :: TestPappyDerivs2,+ testPappySub3 :: TestPappyDerivs3,+ testPappySub4 :: TestPappyDerivs4,+ testPappySub5 :: TestPappyDerivs5,+ testPappySub6 :: TestPappyDerivs6,+ testPappySub7 :: TestPappyDerivs7,+ testPappySub8 :: TestPappyDerivs8,+ testPappyChar :: Result TestPappyDerivs Char,+ testPappyPos :: Pos+}++instance Derivs TestPappyDerivs where+ dvChar d = testPappyChar d+ dvPos d = testPappyPos d++data TestPappyDerivs0 = TestPappyDerivs0 {+ testPappySubStarRule0 :: Result TestPappyDerivs ([Clause]),+ testPappySubtext :: Result TestPappyDerivs (Text),+ testPappySubStarRule3 :: Result TestPappyDerivs ([ () ]),+ testPappySubtext_1 :: Result TestPappyDerivs (Text),+ testPappySubparagraphs :: Result TestPappyDerivs (Paragraphs),+ testPappySubPlusRule2 :: Result TestPappyDerivs ([Clause]),+ testPappySubStarRule8 :: Result TestPappyDerivs ([ () ]),+ testPappySubStarRule9 :: Result TestPappyDerivs ([ (Clause, [Free], Maybe Statement) ]),+ testPappySubstatement :: Result TestPappyDerivs (Statement),+ testPappySubStarRule11 :: Result TestPappyDerivs ([ (Clause, JoikJek, [Free], Maybe Statement) ]),+ testPappySubstatement_2 :: Result TestPappyDerivs (Statement),+ testPappySubfragment :: Result TestPappyDerivs (Fragment),+ testPappySubsentence :: Result TestPappyDerivs (Sentence),+ testPappySubStarRule21 :: Result TestPappyDerivs ([ () ]),+ testPappySubStarRule23 :: Result TestPappyDerivs ([ () ]),+ testPappySubsubsentence :: Result TestPappyDerivs (Sentence),+ testPappySubbridi_tail :: Result TestPappyDerivs (Sentence),+ testPappySubStarRule26 :: Result TestPappyDerivs ([ () ]),+ testPappySubbridi_tail_start :: Result TestPappyDerivs ( () ),+ testPappySubStarRule27 :: Result TestPappyDerivs ([ (Gihek, [Free], Sentence, [Term], Maybe Clause, [Free]) ]),+ testPappySubbridi_tail_2 :: Result TestPappyDerivs (Sentence),+ testPappySubgek_sentence :: Result TestPappyDerivs (Sentence),+ testPappySubPlusRule3 :: Result TestPappyDerivs ([Term]),+ testPappySubStarRule34 :: Result TestPappyDerivs ([ (Clause, [Free], JoikJek, [Free], Term) ]),+ testPappySubStarRule35 :: Result TestPappyDerivs ([ () ]),+ testPappySubStarRule37 :: Result TestPappyDerivs ([ (Clause, [Free], Term) ]),+ testPappySubStarRule38 :: Result TestPappyDerivs ([ () ]),+ testPappySubStarRule40 :: Result TestPappyDerivs ([ () ]),+ testPappySubStarRule41 :: Result TestPappyDerivs ([ () ]),+ testPappySubStarRule42 :: Result TestPappyDerivs ([ () ]),+ testPappySubterm_1 :: Result TestPappyDerivs (Term),+ testPappySubStarRule46 :: Result TestPappyDerivs ([ () ]),+ testPappySubterm_start :: Result TestPappyDerivs ( () )}++data TestPappyDerivs1 = TestPappyDerivs1 {+ testPappySubterms_gik_terms :: Result TestPappyDerivs (TermsGikTerms),+ testPappySubsumti :: Result TestPappyDerivs (Sumti),+ testPappySubStarRule55 :: Result TestPappyDerivs ([ (JoikEk, [Free], Sumti) ]),+ testPappySubsumti_3 :: Result TestPappyDerivs (Sumti),+ testPappySubsumti_4 :: Result TestPappyDerivs (Sumti),+ testPappySubsumti_6 :: Result TestPappyDerivs (Sumti),+ testPappySubLAhE_NAhE :: Result TestPappyDerivs ( (Clause, Maybe Clause, [Free]) ),+ testPappySubStarRule73 :: Result TestPappyDerivs ([ (Clause, [Free], RelativeClause) ]),+ testPappySubStarRule75 :: Result TestPappyDerivs ([ () ]),+ testPappySubStarRule76 :: Result TestPappyDerivs ([ () ]),+ testPappySubrelative_clause_1 :: Result TestPappyDerivs (RelativeClause),+ testPappySubselbri :: Result TestPappyDerivs (Selbri),+ testPappySubselbri_2 :: Result TestPappyDerivs (Selbri),+ testPappySubPlusRule5 :: Result TestPappyDerivs ([Selbri]),+ testPappySubStarRule83 :: Result TestPappyDerivs ([JoikJekSelbri5]),+ testPappySubselbri_5 :: Result TestPappyDerivs (Selbri),+ testPappySubselbri_6 :: Result TestPappyDerivs (Selbri),+ testPappySubStarRule89 :: Result TestPappyDerivs ([ (Clause, [Free], Selbri) ]),+ testPappySubStarRule104 :: Result TestPappyDerivs ([ (JoikJek, [Free], Clause, Maybe Clause, [Free]) ]),+ testPappySubtanru_unit_2 :: Result TestPappyDerivs (Selbri),+ testPappySubStarRule107 :: Result TestPappyDerivs ([ () ]),+ testPappySublinkargs_1 :: Result TestPappyDerivs (Linkargs),+ testPappySubStarRule110 :: Result TestPappyDerivs ([ () ]),+ testPappySubStarRule111 :: Result TestPappyDerivs ([ () ]),+ testPappySublinks_1 :: Result TestPappyDerivs (Links),+ testPappySubStarRule113 :: Result TestPappyDerivs ([ () ]),+ testPappySubquantifier :: Result TestPappyDerivs (Quantifier),+ testPappySubStarRule117 :: Result TestPappyDerivs ([ () ]),+ testPappySubStarRule118 :: Result TestPappyDerivs ([ (MexOperator, Mex) ]),+ testPappySubmex_0 :: Result TestPappyDerivs (Mex),+ testPappySubStarRule119 :: Result TestPappyDerivs ([ () ]),+ testPappySubmex_start :: Result TestPappyDerivs ( () ),+ testPappySubmex_1 :: Result TestPappyDerivs (Mex)}++data TestPappyDerivs2 = TestPappyDerivs2 {+ testPappySubmex_2 :: Result TestPappyDerivs (Mex),+ testPappySubrp_expression_tail :: Result TestPappyDerivs ( Maybe RPExpressionTail),+ testPappySubStarRule124 :: Result TestPappyDerivs ([ () ]),+ testPappySubStarRule125 :: Result TestPappyDerivs ([ Either (JoikJek, [Free], MexOperator) (Joik, Maybe Tag, Clause, [Free], MexOperator, Maybe Clause, [Free]) ]),+ testPappySubStarRule128 :: Result TestPappyDerivs ([ () ]),+ testPappySuboperator_start :: Result TestPappyDerivs ( () ),+ testPappySuboperator_1 :: Result TestPappyDerivs (MexOperator),+ testPappySuboperator_2 :: Result TestPappyDerivs (MexOperator),+ testPappySubmex_operator :: Result TestPappyDerivs (MexOperator),+ testPappySubStarRule139 :: Result TestPappyDerivs ([ () ]),+ testPappySuboperand_0 :: Result TestPappyDerivs (Operand),+ testPappySubStarRule142 :: Result TestPappyDerivs ([ () ]),+ testPappySuboperand_start :: Result TestPappyDerivs ( () ),+ testPappySubStarRule143 :: Result TestPappyDerivs ([ (JoikEk, [Free], Operand) ]),+ testPappySuboperand_2 :: Result TestPappyDerivs (Operand),+ testPappySubPlusRule7 :: Result TestPappyDerivs ([Mex]),+ testPappySuboperand_3 :: Result TestPappyDerivs (Operand),+ testPappySubStarRule154 :: Result TestPappyDerivs ([ [Clause] ]),+ testPappySublerfu_word :: Result TestPappyDerivs ( [Clause] ),+ testPappySubek :: Result TestPappyDerivs (Ek),+ testPappySubStarRule155 :: Result TestPappyDerivs ([ () ]),+ testPappySubgihek_1 :: Result TestPappyDerivs (Gihek),+ testPappySubStarRule156 :: Result TestPappyDerivs ([ () ]),+ testPappySubjek :: Result TestPappyDerivs (Jek),+ testPappySubjoik :: Result TestPappyDerivs (Joik),+ testPappySubinterval :: Result TestPappyDerivs (Joik),+ testPappySubStarRule157 :: Result TestPappyDerivs ([ () ]),+ testPappySubStarRule160 :: Result TestPappyDerivs ([ () ]),+ testPappySubgek :: Result TestPappyDerivs (Gek),+ testPappySubguhek :: Result TestPappyDerivs (Guhek),+ testPappySubgik :: Result TestPappyDerivs (Gik),+ testPappySubStarRule168 :: Result TestPappyDerivs ([ (JoikJek, Tag) ]),+ testPappySubStarRule169 :: Result TestPappyDerivs ([ (JoikJek, [Free], Tag) ])}++data TestPappyDerivs3 = TestPappyDerivs3 {+ testPappySubtense_modal :: Result TestPappyDerivs (Tag),+ testPappySubsimple_tense_modal :: Result TestPappyDerivs (Tag),+ testPappySubPlusRule8 :: Result TestPappyDerivs ([ (Clause, Maybe Clause, Maybe Clause) ]),+ testPappySubStarRule177 :: Result TestPappyDerivs ([IntervalProperty]),+ testPappySubStarRule178 :: Result TestPappyDerivs ([ (Clause, Maybe Clause, Maybe Clause) ]),+ testPappySubPlusRule9 :: Result TestPappyDerivs ([IntervalProperty]),+ testPappySubtime :: Result TestPappyDerivs (Tense),+ testPappySubzeha_pu :: Result TestPappyDerivs ( (Clause, Maybe (Clause, Maybe Clause)) ),+ testPappySubtime_offset :: Result TestPappyDerivs ( (Clause, Maybe Clause, Maybe Clause) ),+ testPappySubPlusRule10 :: Result TestPappyDerivs ([SpaceOffset]),+ testPappySubStarRule181 :: Result TestPappyDerivs ([SpaceOffset]),+ testPappySubspace :: Result TestPappyDerivs (Tense),+ testPappySubspace_offset :: Result TestPappyDerivs (SpaceOffset),+ testPappySubspace_interval :: Result TestPappyDerivs (SpaceInterval),+ testPappySubVEhA_VIhA :: Result TestPappyDerivs ( (Maybe Clause, Maybe Clause) ),+ testPappySubPlusRule11 :: Result TestPappyDerivs ([ (Clause, IntervalProperty) ]),+ testPappySubinterval_property :: Result TestPappyDerivs (IntervalProperty),+ testPappySubPlusRule12 :: Result TestPappyDerivs ([Clause]),+ testPappySubStarRule188 :: Result TestPappyDerivs ([Free]),+ testPappySubPlusRule13 :: Result TestPappyDerivs ([ [([String], String, Indicators)] ]),+ testPappySubStarRule189 :: Result TestPappyDerivs ([ [([String], String, Indicators)] ]),+ testPappySubvocative :: Result TestPappyDerivs ( [([String], String, Indicators)] ),+ testPappySubcoi_nai :: Result TestPappyDerivs ( [([String], String, Indicators)] ),+ testPappySubPlusRule14 :: Result TestPappyDerivs ([ [([String], String)] ]),+ testPappySubindicator :: Result TestPappyDerivs ( [([String], String)] ),+ testPappySubStarRule190 :: Result TestPappyDerivs ([String]),+ testPappySubStarRule191 :: Result TestPappyDerivs ([String]),+ testPappySubPlusRule15 :: Result TestPappyDerivs ([ String ]),+ testPappySubPlusRule16 :: Result TestPappyDerivs ([Pre]),+ testPappySubpre_zei_bu :: Result TestPappyDerivs ( String ),+ testPappySubStarRule192 :: Result TestPappyDerivs ([Char]),+ testPappySubStarRule193 :: Result TestPappyDerivs ([ [([String], String)] ]),+ testPappySubpost_clause :: Result TestPappyDerivs ( [[([String], String)]] )}++data TestPappyDerivs4 = TestPappyDerivs4 {+ testPappySubpost_clause_no_ind :: Result TestPappyDerivs ( () ),+ testPappySubany_word_SA_handling :: Result TestPappyDerivs ( ([String], String) ),+ testPappySubStarRule194 :: Result TestPappyDerivs ([ () ]),+ testPappySubPlusRule17 :: Result TestPappyDerivs ([ () ]),+ testPappySubsi_clause_single :: Result TestPappyDerivs ( () ),+ testPappySuberasable_clause :: Result TestPappyDerivs ( () ),+ testPappySubBRIVLA_pre :: Result TestPappyDerivs ( ([String], String) ),+ testPappySubPlusRule18 :: Result TestPappyDerivs ([String]),+ testPappySubBAhE_clause_single :: Result TestPappyDerivs (String),+ testPappySubStarRule195 :: Result TestPappyDerivs ([ () ]),+ testPappySubStarRule196 :: Result TestPappyDerivs ([String]),+ testPappySubStarRule198 :: Result TestPappyDerivs ([String]),+ testPappySubPlusRule19 :: Result TestPappyDerivs ([String]),+ testPappySubcmene :: Result TestPappyDerivs (String),+ testPappySubStarRule200 :: Result TestPappyDerivs ([Char]),+ testPappySubcmavo :: Result TestPappyDerivs (String),+ testPappySubStarRule202 :: Result TestPappyDerivs ([String]),+ testPappySubStarRule203 :: Result TestPappyDerivs ([String]),+ testPappySubstressed_extended_rafsi :: Result TestPappyDerivs (String),+ testPappySubextended_rafsi :: Result TestPappyDerivs (String),+ testPappySubStarRule205 :: Result TestPappyDerivs ([String]),+ testPappySubStarRule206 :: Result TestPappyDerivs ([String]),+ testPappySubbrivla_head :: Result TestPappyDerivs (String),+ testPappySubStarRule207 :: Result TestPappyDerivs ([String]),+ testPappySubCVV_final_rafsi :: Result TestPappyDerivs (String),+ testPappySubshort_final_rafsi :: Result TestPappyDerivs (String),+ testPappySubstressed_y_rafsi :: Result TestPappyDerivs (String),+ testPappySubstressed_y_less_rafsi :: Result TestPappyDerivs (String),+ testPappySubstressed_long_rafsi :: Result TestPappyDerivs (String),+ testPappySuby_rafsi :: Result TestPappyDerivs (String),+ testPappySuby_less_rafsi :: Result TestPappyDerivs (String),+ testPappySubr_hyphen :: Result TestPappyDerivs (Char),+ testPappySubfinal_syllable :: Result TestPappyDerivs (String)}++data TestPappyDerivs5 = TestPappyDerivs5 {+ testPappySubstressed_syllable :: Result TestPappyDerivs (String),+ testPappySubstressed_vowel :: Result TestPappyDerivs (Char),+ testPappySubunstressed_syllable :: Result TestPappyDerivs (String),+ testPappySubStarRule208 :: Result TestPappyDerivs ([Char]),+ testPappySubconsonantal_syllable :: Result TestPappyDerivs (String),+ testPappySubcoda :: Result TestPappyDerivs (String),+ testPappySubonset :: Result TestPappyDerivs (String),+ testPappySubglide :: Result TestPappyDerivs (Char),+ testPappySubdiphthong :: Result TestPappyDerivs (String),+ testPappySubvowel :: Result TestPappyDerivs (Char),+ testPappySubPlusRule21 :: Result TestPappyDerivs ([Char]),+ testPappySubinitial_pair :: Result TestPappyDerivs (String),+ testPappySubinitial :: Result TestPappyDerivs (String),+ testPappySubl :: Result TestPappyDerivs (Char),+ testPappySubm :: Result TestPappyDerivs (Char),+ testPappySubn :: Result TestPappyDerivs (Char),+ testPappySubr :: Result TestPappyDerivs (Char),+ testPappySubb :: Result TestPappyDerivs (Char),+ testPappySubd :: Result TestPappyDerivs (Char),+ testPappySubg :: Result TestPappyDerivs (Char),+ testPappySubv :: Result TestPappyDerivs (Char),+ testPappySubj :: Result TestPappyDerivs (Char),+ testPappySubz :: Result TestPappyDerivs (Char),+ testPappySubs :: Result TestPappyDerivs (Char),+ testPappySubc :: Result TestPappyDerivs (Char),+ testPappySubx :: Result TestPappyDerivs (Char),+ testPappySubk :: Result TestPappyDerivs (Char),+ testPappySubf :: Result TestPappyDerivs (Char),+ testPappySubp :: Result TestPappyDerivs (Char),+ testPappySubt :: Result TestPappyDerivs (Char),+ testPappySubdigit :: Result TestPappyDerivs (Char),+ testPappySubpost_word :: Result TestPappyDerivs (String),+ testPappySubPlusRule22 :: Result TestPappyDerivs ([Char])}++data TestPappyDerivs6 = TestPappyDerivs6 {+ testPappySubPlusRule23 :: Result TestPappyDerivs ([ String ]),+ testPappySubStarRule236 :: Result TestPappyDerivs ([Char]),+ testPappySubStarRule237 :: Result TestPappyDerivs ([Char]),+ testPappySubA :: Result TestPappyDerivs (String),+ testPappySubBAI :: Result TestPappyDerivs (String),+ testPappySubBAhE :: Result TestPappyDerivs (String),+ testPappySubBEhO :: Result TestPappyDerivs (String),+ testPappySubBIhE :: Result TestPappyDerivs (String),+ testPappySubBIhI :: Result TestPappyDerivs (String),+ testPappySubBY :: Result TestPappyDerivs (String),+ testPappySubCAhA :: Result TestPappyDerivs (String),+ testPappySubCAI :: Result TestPappyDerivs (String),+ testPappySubCEhE :: Result TestPappyDerivs (String),+ testPappySubCOI :: Result TestPappyDerivs (String),+ testPappySubCUhE :: Result TestPappyDerivs (String),+ testPappySubDAhO :: Result TestPappyDerivs (String),+ testPappySubDOhU :: Result TestPappyDerivs (String),+ testPappySubFA :: Result TestPappyDerivs (String),+ testPappySubFAhA :: Result TestPappyDerivs (String),+ testPappySubFAhO :: Result TestPappyDerivs (String),+ testPappySubFEhE :: Result TestPappyDerivs (String),+ testPappySubFEhU :: Result TestPappyDerivs (String),+ testPappySubFIhO :: Result TestPappyDerivs (String),+ testPappySubFUhA :: Result TestPappyDerivs (String),+ testPappySubFUhE :: Result TestPappyDerivs (String),+ testPappySubFUhO :: Result TestPappyDerivs (String),+ testPappySubGA :: Result TestPappyDerivs (String),+ testPappySubGAhO :: Result TestPappyDerivs (String),+ testPappySubGEhU :: Result TestPappyDerivs (String),+ testPappySubGIhA :: Result TestPappyDerivs (String),+ testPappySubGOI :: Result TestPappyDerivs (String),+ testPappySubGOhA :: Result TestPappyDerivs (String),+ testPappySubGUhA :: Result TestPappyDerivs (String)}++data TestPappyDerivs7 = TestPappyDerivs7 {+ testPappySubJA :: Result TestPappyDerivs (String),+ testPappySubJOhI :: Result TestPappyDerivs (String),+ testPappySubJOI :: Result TestPappyDerivs (String),+ testPappySubKEhE :: Result TestPappyDerivs (String),+ testPappySubKOhA :: Result TestPappyDerivs (String),+ testPappySubKUhE :: Result TestPappyDerivs (String),+ testPappySubKUhO :: Result TestPappyDerivs (String),+ testPappySubLA :: Result TestPappyDerivs (String),+ testPappySubLAU :: Result TestPappyDerivs (String),+ testPappySubLAhE :: Result TestPappyDerivs (String),+ testPappySubLE :: Result TestPappyDerivs (String),+ testPappySubLEhU :: Result TestPappyDerivs (String),+ testPappySubLI :: Result TestPappyDerivs (String),+ testPappySubLIhU :: Result TestPappyDerivs (String),+ testPappySubLOhO :: Result TestPappyDerivs (String),+ testPappySubLOhU :: Result TestPappyDerivs (String),+ testPappySubLUhU :: Result TestPappyDerivs (String),+ testPappySubMAhO :: Result TestPappyDerivs (String),+ testPappySubMAI :: Result TestPappyDerivs (String),+ testPappySubMEhU :: Result TestPappyDerivs (String),+ testPappySubMOhE :: Result TestPappyDerivs (String),+ testPappySubMOhI :: Result TestPappyDerivs (String),+ testPappySubMOI :: Result TestPappyDerivs (String),+ testPappySubNA :: Result TestPappyDerivs (String),+ testPappySubNAhE :: Result TestPappyDerivs (String),+ testPappySubNAhU :: Result TestPappyDerivs (String),+ testPappySubNIhE :: Result TestPappyDerivs (String),+ testPappySubNIhO :: Result TestPappyDerivs (String),+ testPappySubNOI :: Result TestPappyDerivs (String),+ testPappySubNU :: Result TestPappyDerivs (String),+ testPappySubNUhA :: Result TestPappyDerivs (String),+ testPappySubNUhI :: Result TestPappyDerivs (String),+ testPappySubNUhU :: Result TestPappyDerivs (String)}++data TestPappyDerivs8 = TestPappyDerivs8 {+ testPappySubPA :: Result TestPappyDerivs (String),+ testPappySubPEhE :: Result TestPappyDerivs (String),+ testPappySubPEhO :: Result TestPappyDerivs (String),+ testPappySubPU :: Result TestPappyDerivs (String),+ testPappySubRAhO :: Result TestPappyDerivs (String),+ testPappySubROI :: Result TestPappyDerivs (String),+ testPappySubSE :: Result TestPappyDerivs (String),+ testPappySubSEI :: Result TestPappyDerivs (String),+ testPappySubSEhU :: Result TestPappyDerivs (String),+ testPappySubSI :: Result TestPappyDerivs (String),+ testPappySubSU :: Result TestPappyDerivs (String),+ testPappySubTAhE :: Result TestPappyDerivs (String),+ testPappySubTEhU :: Result TestPappyDerivs (String),+ testPappySubTO :: Result TestPappyDerivs (String),+ testPappySubTUhE :: Result TestPappyDerivs (String),+ testPappySubTUhU :: Result TestPappyDerivs (String),+ testPappySubUI :: Result TestPappyDerivs (String),+ testPappySubVA :: Result TestPappyDerivs (String),+ testPappySubVEhO :: Result TestPappyDerivs (String),+ testPappySubVUhU :: Result TestPappyDerivs (String),+ testPappySubVEhA :: Result TestPappyDerivs (String),+ testPappySubVIhA :: Result TestPappyDerivs (String),+ testPappySubVUhO :: Result TestPappyDerivs (String),+ testPappySubPlusRule24 :: Result TestPappyDerivs ([Char]),+ testPappySubZAhO :: Result TestPappyDerivs (String),+ testPappySubZEhA :: Result TestPappyDerivs (String),+ testPappySubZI :: Result TestPappyDerivs (String),+ testPappySubZIhE :: Result TestPappyDerivs (String),+ testPappySubZOI :: Result TestPappyDerivs (String),+ testPappySubZOhU :: Result TestPappyDerivs (String),+ testPappySubdummyTail :: Result TestPappyDerivs ((() -> ())),+ testPappySubdummy :: Result TestPappyDerivs (())}++testPappyStarRule0 = testPappySubStarRule0 . testPappySub0+testPappytext = testPappySubtext . testPappySub0+testPappyStarRule3 = testPappySubStarRule3 . testPappySub0+testPappytext_1 = testPappySubtext_1 . testPappySub0+testPappyparagraphs = testPappySubparagraphs . testPappySub0+testPappyPlusRule2 = testPappySubPlusRule2 . testPappySub0+testPappyStarRule8 = testPappySubStarRule8 . testPappySub0+testPappyStarRule9 = testPappySubStarRule9 . testPappySub0+testPappystatement = testPappySubstatement . testPappySub0+testPappyStarRule11 = testPappySubStarRule11 . testPappySub0+testPappystatement_2 = testPappySubstatement_2 . testPappySub0+testPappyfragment = testPappySubfragment . testPappySub0+testPappysentence = testPappySubsentence . testPappySub0+testPappyStarRule21 = testPappySubStarRule21 . testPappySub0+testPappyStarRule23 = testPappySubStarRule23 . testPappySub0+testPappysubsentence = testPappySubsubsentence . testPappySub0+testPappybridi_tail = testPappySubbridi_tail . testPappySub0+testPappyStarRule26 = testPappySubStarRule26 . testPappySub0+testPappybridi_tail_start = testPappySubbridi_tail_start . testPappySub0+testPappyStarRule27 = testPappySubStarRule27 . testPappySub0+testPappybridi_tail_2 = testPappySubbridi_tail_2 . testPappySub0+testPappygek_sentence = testPappySubgek_sentence . testPappySub0+testPappyPlusRule3 = testPappySubPlusRule3 . testPappySub0+testPappyStarRule34 = testPappySubStarRule34 . testPappySub0+testPappyStarRule35 = testPappySubStarRule35 . testPappySub0+testPappyStarRule37 = testPappySubStarRule37 . testPappySub0+testPappyStarRule38 = testPappySubStarRule38 . testPappySub0+testPappyStarRule40 = testPappySubStarRule40 . testPappySub0+testPappyStarRule41 = testPappySubStarRule41 . testPappySub0+testPappyStarRule42 = testPappySubStarRule42 . testPappySub0+testPappyterm_1 = testPappySubterm_1 . testPappySub0+testPappyStarRule46 = testPappySubStarRule46 . testPappySub0+testPappyterm_start = testPappySubterm_start . testPappySub0+testPappyterms_gik_terms = testPappySubterms_gik_terms . testPappySub1+testPappysumti = testPappySubsumti . testPappySub1+testPappyStarRule55 = testPappySubStarRule55 . testPappySub1+testPappysumti_3 = testPappySubsumti_3 . testPappySub1+testPappysumti_4 = testPappySubsumti_4 . testPappySub1+testPappysumti_6 = testPappySubsumti_6 . testPappySub1+testPappyLAhE_NAhE = testPappySubLAhE_NAhE . testPappySub1+testPappyStarRule73 = testPappySubStarRule73 . testPappySub1+testPappyStarRule75 = testPappySubStarRule75 . testPappySub1+testPappyStarRule76 = testPappySubStarRule76 . testPappySub1+testPappyrelative_clause_1 = testPappySubrelative_clause_1 . testPappySub1+testPappyselbri = testPappySubselbri . testPappySub1+testPappyselbri_2 = testPappySubselbri_2 . testPappySub1+testPappyPlusRule5 = testPappySubPlusRule5 . testPappySub1+testPappyStarRule83 = testPappySubStarRule83 . testPappySub1+testPappyselbri_5 = testPappySubselbri_5 . testPappySub1+testPappyselbri_6 = testPappySubselbri_6 . testPappySub1+testPappyStarRule89 = testPappySubStarRule89 . testPappySub1+testPappyStarRule104 = testPappySubStarRule104 . testPappySub1+testPappytanru_unit_2 = testPappySubtanru_unit_2 . testPappySub1+testPappyStarRule107 = testPappySubStarRule107 . testPappySub1+testPappylinkargs_1 = testPappySublinkargs_1 . testPappySub1+testPappyStarRule110 = testPappySubStarRule110 . testPappySub1+testPappyStarRule111 = testPappySubStarRule111 . testPappySub1+testPappylinks_1 = testPappySublinks_1 . testPappySub1+testPappyStarRule113 = testPappySubStarRule113 . testPappySub1+testPappyquantifier = testPappySubquantifier . testPappySub1+testPappyStarRule117 = testPappySubStarRule117 . testPappySub1+testPappyStarRule118 = testPappySubStarRule118 . testPappySub1+testPappymex_0 = testPappySubmex_0 . testPappySub1+testPappyStarRule119 = testPappySubStarRule119 . testPappySub1+testPappymex_start = testPappySubmex_start . testPappySub1+testPappymex_1 = testPappySubmex_1 . testPappySub1+testPappymex_2 = testPappySubmex_2 . testPappySub2+testPappyrp_expression_tail = testPappySubrp_expression_tail . testPappySub2+testPappyStarRule124 = testPappySubStarRule124 . testPappySub2+testPappyStarRule125 = testPappySubStarRule125 . testPappySub2+testPappyStarRule128 = testPappySubStarRule128 . testPappySub2+testPappyoperator_start = testPappySuboperator_start . testPappySub2+testPappyoperator_1 = testPappySuboperator_1 . testPappySub2+testPappyoperator_2 = testPappySuboperator_2 . testPappySub2+testPappymex_operator = testPappySubmex_operator . testPappySub2+testPappyStarRule139 = testPappySubStarRule139 . testPappySub2+testPappyoperand_0 = testPappySuboperand_0 . testPappySub2+testPappyStarRule142 = testPappySubStarRule142 . testPappySub2+testPappyoperand_start = testPappySuboperand_start . testPappySub2+testPappyStarRule143 = testPappySubStarRule143 . testPappySub2+testPappyoperand_2 = testPappySuboperand_2 . testPappySub2+testPappyPlusRule7 = testPappySubPlusRule7 . testPappySub2+testPappyoperand_3 = testPappySuboperand_3 . testPappySub2+testPappyStarRule154 = testPappySubStarRule154 . testPappySub2+testPappylerfu_word = testPappySublerfu_word . testPappySub2+testPappyek = testPappySubek . testPappySub2+testPappyStarRule155 = testPappySubStarRule155 . testPappySub2+testPappygihek_1 = testPappySubgihek_1 . testPappySub2+testPappyStarRule156 = testPappySubStarRule156 . testPappySub2+testPappyjek = testPappySubjek . testPappySub2+testPappyjoik = testPappySubjoik . testPappySub2+testPappyinterval = testPappySubinterval . testPappySub2+testPappyStarRule157 = testPappySubStarRule157 . testPappySub2+testPappyStarRule160 = testPappySubStarRule160 . testPappySub2+testPappygek = testPappySubgek . testPappySub2+testPappyguhek = testPappySubguhek . testPappySub2+testPappygik = testPappySubgik . testPappySub2+testPappyStarRule168 = testPappySubStarRule168 . testPappySub2+testPappyStarRule169 = testPappySubStarRule169 . testPappySub2+testPappytense_modal = testPappySubtense_modal . testPappySub3+testPappysimple_tense_modal = testPappySubsimple_tense_modal . testPappySub3+testPappyPlusRule8 = testPappySubPlusRule8 . testPappySub3+testPappyStarRule177 = testPappySubStarRule177 . testPappySub3+testPappyStarRule178 = testPappySubStarRule178 . testPappySub3+testPappyPlusRule9 = testPappySubPlusRule9 . testPappySub3+testPappytime = testPappySubtime . testPappySub3+testPappyzeha_pu = testPappySubzeha_pu . testPappySub3+testPappytime_offset = testPappySubtime_offset . testPappySub3+testPappyPlusRule10 = testPappySubPlusRule10 . testPappySub3+testPappyStarRule181 = testPappySubStarRule181 . testPappySub3+testPappyspace = testPappySubspace . testPappySub3+testPappyspace_offset = testPappySubspace_offset . testPappySub3+testPappyspace_interval = testPappySubspace_interval . testPappySub3+testPappyVEhA_VIhA = testPappySubVEhA_VIhA . testPappySub3+testPappyPlusRule11 = testPappySubPlusRule11 . testPappySub3+testPappyinterval_property = testPappySubinterval_property . testPappySub3+testPappyPlusRule12 = testPappySubPlusRule12 . testPappySub3+testPappyStarRule188 = testPappySubStarRule188 . testPappySub3+testPappyPlusRule13 = testPappySubPlusRule13 . testPappySub3+testPappyStarRule189 = testPappySubStarRule189 . testPappySub3+testPappyvocative = testPappySubvocative . testPappySub3+testPappycoi_nai = testPappySubcoi_nai . testPappySub3+testPappyPlusRule14 = testPappySubPlusRule14 . testPappySub3+testPappyindicator = testPappySubindicator . testPappySub3+testPappyStarRule190 = testPappySubStarRule190 . testPappySub3+testPappyStarRule191 = testPappySubStarRule191 . testPappySub3+testPappyPlusRule15 = testPappySubPlusRule15 . testPappySub3+testPappyPlusRule16 = testPappySubPlusRule16 . testPappySub3+testPappypre_zei_bu = testPappySubpre_zei_bu . testPappySub3+testPappyStarRule192 = testPappySubStarRule192 . testPappySub3+testPappyStarRule193 = testPappySubStarRule193 . testPappySub3+testPappypost_clause = testPappySubpost_clause . testPappySub3+testPappypost_clause_no_ind = testPappySubpost_clause_no_ind . testPappySub4+testPappyany_word_SA_handling = testPappySubany_word_SA_handling . testPappySub4+testPappyStarRule194 = testPappySubStarRule194 . testPappySub4+testPappyPlusRule17 = testPappySubPlusRule17 . testPappySub4+testPappysi_clause_single = testPappySubsi_clause_single . testPappySub4+testPappyerasable_clause = testPappySuberasable_clause . testPappySub4+testPappyBRIVLA_pre = testPappySubBRIVLA_pre . testPappySub4+testPappyPlusRule18 = testPappySubPlusRule18 . testPappySub4+testPappyBAhE_clause_single = testPappySubBAhE_clause_single . testPappySub4+testPappyStarRule195 = testPappySubStarRule195 . testPappySub4+testPappyStarRule196 = testPappySubStarRule196 . testPappySub4+testPappyStarRule198 = testPappySubStarRule198 . testPappySub4+testPappyPlusRule19 = testPappySubPlusRule19 . testPappySub4+testPappycmene = testPappySubcmene . testPappySub4+testPappyStarRule200 = testPappySubStarRule200 . testPappySub4+testPappycmavo = testPappySubcmavo . testPappySub4+testPappyStarRule202 = testPappySubStarRule202 . testPappySub4+testPappyStarRule203 = testPappySubStarRule203 . testPappySub4+testPappystressed_extended_rafsi = testPappySubstressed_extended_rafsi . testPappySub4+testPappyextended_rafsi = testPappySubextended_rafsi . testPappySub4+testPappyStarRule205 = testPappySubStarRule205 . testPappySub4+testPappyStarRule206 = testPappySubStarRule206 . testPappySub4+testPappybrivla_head = testPappySubbrivla_head . testPappySub4+testPappyStarRule207 = testPappySubStarRule207 . testPappySub4+testPappyCVV_final_rafsi = testPappySubCVV_final_rafsi . testPappySub4+testPappyshort_final_rafsi = testPappySubshort_final_rafsi . testPappySub4+testPappystressed_y_rafsi = testPappySubstressed_y_rafsi . testPappySub4+testPappystressed_y_less_rafsi = testPappySubstressed_y_less_rafsi . testPappySub4+testPappystressed_long_rafsi = testPappySubstressed_long_rafsi . testPappySub4+testPappyy_rafsi = testPappySuby_rafsi . testPappySub4+testPappyy_less_rafsi = testPappySuby_less_rafsi . testPappySub4+testPappyr_hyphen = testPappySubr_hyphen . testPappySub4+testPappyfinal_syllable = testPappySubfinal_syllable . testPappySub4+testPappystressed_syllable = testPappySubstressed_syllable . testPappySub5+testPappystressed_vowel = testPappySubstressed_vowel . testPappySub5+testPappyunstressed_syllable = testPappySubunstressed_syllable . testPappySub5+testPappyStarRule208 = testPappySubStarRule208 . testPappySub5+testPappyconsonantal_syllable = testPappySubconsonantal_syllable . testPappySub5+testPappycoda = testPappySubcoda . testPappySub5+testPappyonset = testPappySubonset . testPappySub5+testPappyglide = testPappySubglide . testPappySub5+testPappydiphthong = testPappySubdiphthong . testPappySub5+testPappyvowel = testPappySubvowel . testPappySub5+testPappyPlusRule21 = testPappySubPlusRule21 . testPappySub5+testPappyinitial_pair = testPappySubinitial_pair . testPappySub5+testPappyinitial = testPappySubinitial . testPappySub5+testPappyl = testPappySubl . testPappySub5+testPappym = testPappySubm . testPappySub5+testPappyn = testPappySubn . testPappySub5+testPappyr = testPappySubr . testPappySub5+testPappyb = testPappySubb . testPappySub5+testPappyd = testPappySubd . testPappySub5+testPappyg = testPappySubg . testPappySub5+testPappyv = testPappySubv . testPappySub5+testPappyj = testPappySubj . testPappySub5+testPappyz = testPappySubz . testPappySub5+testPappys = testPappySubs . testPappySub5+testPappyc = testPappySubc . testPappySub5+testPappyx = testPappySubx . testPappySub5+testPappyk = testPappySubk . testPappySub5+testPappyf = testPappySubf . testPappySub5+testPappyp = testPappySubp . testPappySub5+testPappyt = testPappySubt . testPappySub5+testPappydigit = testPappySubdigit . testPappySub5+testPappypost_word = testPappySubpost_word . testPappySub5+testPappyPlusRule22 = testPappySubPlusRule22 . testPappySub5+testPappyPlusRule23 = testPappySubPlusRule23 . testPappySub6+testPappyStarRule236 = testPappySubStarRule236 . testPappySub6+testPappyStarRule237 = testPappySubStarRule237 . testPappySub6+testPappyA = testPappySubA . testPappySub6+testPappyBAI = testPappySubBAI . testPappySub6+testPappyBAhE = testPappySubBAhE . testPappySub6+testPappyBEhO = testPappySubBEhO . testPappySub6+testPappyBIhE = testPappySubBIhE . testPappySub6+testPappyBIhI = testPappySubBIhI . testPappySub6+testPappyBY = testPappySubBY . testPappySub6+testPappyCAhA = testPappySubCAhA . testPappySub6+testPappyCAI = testPappySubCAI . testPappySub6+testPappyCEhE = testPappySubCEhE . testPappySub6+testPappyCOI = testPappySubCOI . testPappySub6+testPappyCUhE = testPappySubCUhE . testPappySub6+testPappyDAhO = testPappySubDAhO . testPappySub6+testPappyDOhU = testPappySubDOhU . testPappySub6+testPappyFA = testPappySubFA . testPappySub6+testPappyFAhA = testPappySubFAhA . testPappySub6+testPappyFAhO = testPappySubFAhO . testPappySub6+testPappyFEhE = testPappySubFEhE . testPappySub6+testPappyFEhU = testPappySubFEhU . testPappySub6+testPappyFIhO = testPappySubFIhO . testPappySub6+testPappyFUhA = testPappySubFUhA . testPappySub6+testPappyFUhE = testPappySubFUhE . testPappySub6+testPappyFUhO = testPappySubFUhO . testPappySub6+testPappyGA = testPappySubGA . testPappySub6+testPappyGAhO = testPappySubGAhO . testPappySub6+testPappyGEhU = testPappySubGEhU . testPappySub6+testPappyGIhA = testPappySubGIhA . testPappySub6+testPappyGOI = testPappySubGOI . testPappySub6+testPappyGOhA = testPappySubGOhA . testPappySub6+testPappyGUhA = testPappySubGUhA . testPappySub6+testPappyJA = testPappySubJA . testPappySub7+testPappyJOhI = testPappySubJOhI . testPappySub7+testPappyJOI = testPappySubJOI . testPappySub7+testPappyKEhE = testPappySubKEhE . testPappySub7+testPappyKOhA = testPappySubKOhA . testPappySub7+testPappyKUhE = testPappySubKUhE . testPappySub7+testPappyKUhO = testPappySubKUhO . testPappySub7+testPappyLA = testPappySubLA . testPappySub7+testPappyLAU = testPappySubLAU . testPappySub7+testPappyLAhE = testPappySubLAhE . testPappySub7+testPappyLE = testPappySubLE . testPappySub7+testPappyLEhU = testPappySubLEhU . testPappySub7+testPappyLI = testPappySubLI . testPappySub7+testPappyLIhU = testPappySubLIhU . testPappySub7+testPappyLOhO = testPappySubLOhO . testPappySub7+testPappyLOhU = testPappySubLOhU . testPappySub7+testPappyLUhU = testPappySubLUhU . testPappySub7+testPappyMAhO = testPappySubMAhO . testPappySub7+testPappyMAI = testPappySubMAI . testPappySub7+testPappyMEhU = testPappySubMEhU . testPappySub7+testPappyMOhE = testPappySubMOhE . testPappySub7+testPappyMOhI = testPappySubMOhI . testPappySub7+testPappyMOI = testPappySubMOI . testPappySub7+testPappyNA = testPappySubNA . testPappySub7+testPappyNAhE = testPappySubNAhE . testPappySub7+testPappyNAhU = testPappySubNAhU . testPappySub7+testPappyNIhE = testPappySubNIhE . testPappySub7+testPappyNIhO = testPappySubNIhO . testPappySub7+testPappyNOI = testPappySubNOI . testPappySub7+testPappyNU = testPappySubNU . testPappySub7+testPappyNUhA = testPappySubNUhA . testPappySub7+testPappyNUhI = testPappySubNUhI . testPappySub7+testPappyNUhU = testPappySubNUhU . testPappySub7+testPappyPA = testPappySubPA . testPappySub8+testPappyPEhE = testPappySubPEhE . testPappySub8+testPappyPEhO = testPappySubPEhO . testPappySub8+testPappyPU = testPappySubPU . testPappySub8+testPappyRAhO = testPappySubRAhO . testPappySub8+testPappyROI = testPappySubROI . testPappySub8+testPappySE = testPappySubSE . testPappySub8+testPappySEI = testPappySubSEI . testPappySub8+testPappySEhU = testPappySubSEhU . testPappySub8+testPappySI = testPappySubSI . testPappySub8+testPappySU = testPappySubSU . testPappySub8+testPappyTAhE = testPappySubTAhE . testPappySub8+testPappyTEhU = testPappySubTEhU . testPappySub8+testPappyTO = testPappySubTO . testPappySub8+testPappyTUhE = testPappySubTUhE . testPappySub8+testPappyTUhU = testPappySubTUhU . testPappySub8+testPappyUI = testPappySubUI . testPappySub8+testPappyVA = testPappySubVA . testPappySub8+testPappyVEhO = testPappySubVEhO . testPappySub8+testPappyVUhU = testPappySubVUhU . testPappySub8+testPappyVEhA = testPappySubVEhA . testPappySub8+testPappyVIhA = testPappySubVIhA . testPappySub8+testPappyVUhO = testPappySubVUhO . testPappySub8+testPappyPlusRule24 = testPappySubPlusRule24 . testPappySub8+testPappyZAhO = testPappySubZAhO . testPappySub8+testPappyZEhA = testPappySubZEhA . testPappySub8+testPappyZI = testPappySubZI . testPappySub8+testPappyZIhE = testPappySubZIhE . testPappySub8+testPappyZOI = testPappySubZOI . testPappySub8+testPappyZOhU = testPappySubZOhU . testPappySub8+testPappydummyTail = testPappySubdummyTail . testPappySub8+testPappydummy = testPappySubdummy . testPappySub8++testPappyParse :: String -> String -> TestPappyDerivs+testPappyParse name text = testPappyDerivs (Pos name 1 1) text++testPappyDerivs :: Pos -> String -> TestPappyDerivs+testPappyDerivs pos text = dvs where+ dvs = TestPappyDerivs+ (testPappyDerivs0 dvs)+ (testPappyDerivs1 dvs)+ (testPappyDerivs2 dvs)+ (testPappyDerivs3 dvs)+ (testPappyDerivs4 dvs)+ (testPappyDerivs5 dvs)+ (testPappyDerivs6 dvs)+ (testPappyDerivs7 dvs)+ (testPappyDerivs8 dvs)+ chr pos+ chr = case text of+ [] -> NoParse (eofError dvs)+ (c:cs) -> Parsed c (testPappyDerivs (nextPos pos c) cs) (nullError dvs)++testPappyDerivs0 dvs = TestPappyDerivs0+ (testPappyParseStarRule0 dvs)+ (testPappyParsetext dvs)+ (testPappyParseStarRule3 dvs)+ (testPappyParsetext_1 dvs)+ (testPappyParseparagraphs dvs)+ (testPappyParsePlusRule2 dvs)+ (testPappyParseStarRule8 dvs)+ (testPappyParseStarRule9 dvs)+ (testPappyParsestatement dvs)+ (testPappyParseStarRule11 dvs)+ (testPappyParsestatement_2 dvs)+ (testPappyParsefragment dvs)+ (testPappyParsesentence dvs)+ (testPappyParseStarRule21 dvs)+ (testPappyParseStarRule23 dvs)+ (testPappyParsesubsentence dvs)+ (testPappyParsebridi_tail dvs)+ (testPappyParseStarRule26 dvs)+ (testPappyParsebridi_tail_start dvs)+ (testPappyParseStarRule27 dvs)+ (testPappyParsebridi_tail_2 dvs)+ (testPappyParsegek_sentence dvs)+ (testPappyParsePlusRule3 dvs)+ (testPappyParseStarRule34 dvs)+ (testPappyParseStarRule35 dvs)+ (testPappyParseStarRule37 dvs)+ (testPappyParseStarRule38 dvs)+ (testPappyParseStarRule40 dvs)+ (testPappyParseStarRule41 dvs)+ (testPappyParseStarRule42 dvs)+ (testPappyParseterm_1 dvs)+ (testPappyParseStarRule46 dvs)+ (testPappyParseterm_start dvs)++testPappyDerivs1 dvs = TestPappyDerivs1+ (testPappyParseterms_gik_terms dvs)+ (testPappyParsesumti dvs)+ (testPappyParseStarRule55 dvs)+ (testPappyParsesumti_3 dvs)+ (testPappyParsesumti_4 dvs)+ (testPappyParsesumti_6 dvs)+ (testPappyParseLAhE_NAhE dvs)+ (testPappyParseStarRule73 dvs)+ (testPappyParseStarRule75 dvs)+ (testPappyParseStarRule76 dvs)+ (testPappyParserelative_clause_1 dvs)+ (testPappyParseselbri dvs)+ (testPappyParseselbri_2 dvs)+ (testPappyParsePlusRule5 dvs)+ (testPappyParseStarRule83 dvs)+ (testPappyParseselbri_5 dvs)+ (testPappyParseselbri_6 dvs)+ (testPappyParseStarRule89 dvs)+ (testPappyParseStarRule104 dvs)+ (testPappyParsetanru_unit_2 dvs)+ (testPappyParseStarRule107 dvs)+ (testPappyParselinkargs_1 dvs)+ (testPappyParseStarRule110 dvs)+ (testPappyParseStarRule111 dvs)+ (testPappyParselinks_1 dvs)+ (testPappyParseStarRule113 dvs)+ (testPappyParsequantifier dvs)+ (testPappyParseStarRule117 dvs)+ (testPappyParseStarRule118 dvs)+ (testPappyParsemex_0 dvs)+ (testPappyParseStarRule119 dvs)+ (testPappyParsemex_start dvs)+ (testPappyParsemex_1 dvs)++testPappyDerivs2 dvs = TestPappyDerivs2+ (testPappyParsemex_2 dvs)+ (testPappyParserp_expression_tail dvs)+ (testPappyParseStarRule124 dvs)+ (testPappyParseStarRule125 dvs)+ (testPappyParseStarRule128 dvs)+ (testPappyParseoperator_start dvs)+ (testPappyParseoperator_1 dvs)+ (testPappyParseoperator_2 dvs)+ (testPappyParsemex_operator dvs)+ (testPappyParseStarRule139 dvs)+ (testPappyParseoperand_0 dvs)+ (testPappyParseStarRule142 dvs)+ (testPappyParseoperand_start dvs)+ (testPappyParseStarRule143 dvs)+ (testPappyParseoperand_2 dvs)+ (testPappyParsePlusRule7 dvs)+ (testPappyParseoperand_3 dvs)+ (testPappyParseStarRule154 dvs)+ (testPappyParselerfu_word dvs)+ (testPappyParseek dvs)+ (testPappyParseStarRule155 dvs)+ (testPappyParsegihek_1 dvs)+ (testPappyParseStarRule156 dvs)+ (testPappyParsejek dvs)+ (testPappyParsejoik dvs)+ (testPappyParseinterval dvs)+ (testPappyParseStarRule157 dvs)+ (testPappyParseStarRule160 dvs)+ (testPappyParsegek dvs)+ (testPappyParseguhek dvs)+ (testPappyParsegik dvs)+ (testPappyParseStarRule168 dvs)+ (testPappyParseStarRule169 dvs)++testPappyDerivs3 dvs = TestPappyDerivs3+ (testPappyParsetense_modal dvs)+ (testPappyParsesimple_tense_modal dvs)+ (testPappyParsePlusRule8 dvs)+ (testPappyParseStarRule177 dvs)+ (testPappyParseStarRule178 dvs)+ (testPappyParsePlusRule9 dvs)+ (testPappyParsetime dvs)+ (testPappyParsezeha_pu dvs)+ (testPappyParsetime_offset dvs)+ (testPappyParsePlusRule10 dvs)+ (testPappyParseStarRule181 dvs)+ (testPappyParsespace dvs)+ (testPappyParsespace_offset dvs)+ (testPappyParsespace_interval dvs)+ (testPappyParseVEhA_VIhA dvs)+ (testPappyParsePlusRule11 dvs)+ (testPappyParseinterval_property dvs)+ (testPappyParsePlusRule12 dvs)+ (testPappyParseStarRule188 dvs)+ (testPappyParsePlusRule13 dvs)+ (testPappyParseStarRule189 dvs)+ (testPappyParsevocative dvs)+ (testPappyParsecoi_nai dvs)+ (testPappyParsePlusRule14 dvs)+ (testPappyParseindicator dvs)+ (testPappyParseStarRule190 dvs)+ (testPappyParseStarRule191 dvs)+ (testPappyParsePlusRule15 dvs)+ (testPappyParsePlusRule16 dvs)+ (testPappyParsepre_zei_bu dvs)+ (testPappyParseStarRule192 dvs)+ (testPappyParseStarRule193 dvs)+ (testPappyParsepost_clause dvs)++testPappyDerivs4 dvs = TestPappyDerivs4+ (testPappyParsepost_clause_no_ind dvs)+ (testPappyParseany_word_SA_handling dvs)+ (testPappyParseStarRule194 dvs)+ (testPappyParsePlusRule17 dvs)+ (testPappyParsesi_clause_single dvs)+ (testPappyParseerasable_clause dvs)+ (testPappyParseBRIVLA_pre dvs)+ (testPappyParsePlusRule18 dvs)+ (testPappyParseBAhE_clause_single dvs)+ (testPappyParseStarRule195 dvs)+ (testPappyParseStarRule196 dvs)+ (testPappyParseStarRule198 dvs)+ (testPappyParsePlusRule19 dvs)+ (testPappyParsecmene dvs)+ (testPappyParseStarRule200 dvs)+ (testPappyParsecmavo dvs)+ (testPappyParseStarRule202 dvs)+ (testPappyParseStarRule203 dvs)+ (testPappyParsestressed_extended_rafsi dvs)+ (testPappyParseextended_rafsi dvs)+ (testPappyParseStarRule205 dvs)+ (testPappyParseStarRule206 dvs)+ (testPappyParsebrivla_head dvs)+ (testPappyParseStarRule207 dvs)+ (testPappyParseCVV_final_rafsi dvs)+ (testPappyParseshort_final_rafsi dvs)+ (testPappyParsestressed_y_rafsi dvs)+ (testPappyParsestressed_y_less_rafsi dvs)+ (testPappyParsestressed_long_rafsi dvs)+ (testPappyParsey_rafsi dvs)+ (testPappyParsey_less_rafsi dvs)+ (testPappyParser_hyphen dvs)+ (testPappyParsefinal_syllable dvs)++testPappyDerivs5 dvs = TestPappyDerivs5+ (testPappyParsestressed_syllable dvs)+ (testPappyParsestressed_vowel dvs)+ (testPappyParseunstressed_syllable dvs)+ (testPappyParseStarRule208 dvs)+ (testPappyParseconsonantal_syllable dvs)+ (testPappyParsecoda dvs)+ (testPappyParseonset dvs)+ (testPappyParseglide dvs)+ (testPappyParsediphthong dvs)+ (testPappyParsevowel dvs)+ (testPappyParsePlusRule21 dvs)+ (testPappyParseinitial_pair dvs)+ (testPappyParseinitial dvs)+ (testPappyParsel dvs)+ (testPappyParsem dvs)+ (testPappyParsen dvs)+ (testPappyParser dvs)+ (testPappyParseb dvs)+ (testPappyParsed dvs)+ (testPappyParseg dvs)+ (testPappyParsev dvs)+ (testPappyParsej dvs)+ (testPappyParsez dvs)+ (testPappyParses dvs)+ (testPappyParsec dvs)+ (testPappyParsex dvs)+ (testPappyParsek dvs)+ (testPappyParsef dvs)+ (testPappyParsep dvs)+ (testPappyParset dvs)+ (testPappyParsedigit dvs)+ (testPappyParsepost_word dvs)+ (testPappyParsePlusRule22 dvs)++testPappyDerivs6 dvs = TestPappyDerivs6+ (testPappyParsePlusRule23 dvs)+ (testPappyParseStarRule236 dvs)+ (testPappyParseStarRule237 dvs)+ (testPappyParseA dvs)+ (testPappyParseBAI dvs)+ (testPappyParseBAhE dvs)+ (testPappyParseBEhO dvs)+ (testPappyParseBIhE dvs)+ (testPappyParseBIhI dvs)+ (testPappyParseBY dvs)+ (testPappyParseCAhA dvs)+ (testPappyParseCAI dvs)+ (testPappyParseCEhE dvs)+ (testPappyParseCOI dvs)+ (testPappyParseCUhE dvs)+ (testPappyParseDAhO dvs)+ (testPappyParseDOhU dvs)+ (testPappyParseFA dvs)+ (testPappyParseFAhA dvs)+ (testPappyParseFAhO dvs)+ (testPappyParseFEhE dvs)+ (testPappyParseFEhU dvs)+ (testPappyParseFIhO dvs)+ (testPappyParseFUhA dvs)+ (testPappyParseFUhE dvs)+ (testPappyParseFUhO dvs)+ (testPappyParseGA dvs)+ (testPappyParseGAhO dvs)+ (testPappyParseGEhU dvs)+ (testPappyParseGIhA dvs)+ (testPappyParseGOI dvs)+ (testPappyParseGOhA dvs)+ (testPappyParseGUhA dvs)++testPappyDerivs7 dvs = TestPappyDerivs7+ (testPappyParseJA dvs)+ (testPappyParseJOhI dvs)+ (testPappyParseJOI dvs)+ (testPappyParseKEhE dvs)+ (testPappyParseKOhA dvs)+ (testPappyParseKUhE dvs)+ (testPappyParseKUhO dvs)+ (testPappyParseLA dvs)+ (testPappyParseLAU dvs)+ (testPappyParseLAhE dvs)+ (testPappyParseLE dvs)+ (testPappyParseLEhU dvs)+ (testPappyParseLI dvs)+ (testPappyParseLIhU dvs)+ (testPappyParseLOhO dvs)+ (testPappyParseLOhU dvs)+ (testPappyParseLUhU dvs)+ (testPappyParseMAhO dvs)+ (testPappyParseMAI dvs)+ (testPappyParseMEhU dvs)+ (testPappyParseMOhE dvs)+ (testPappyParseMOhI dvs)+ (testPappyParseMOI dvs)+ (testPappyParseNA dvs)+ (testPappyParseNAhE dvs)+ (testPappyParseNAhU dvs)+ (testPappyParseNIhE dvs)+ (testPappyParseNIhO dvs)+ (testPappyParseNOI dvs)+ (testPappyParseNU dvs)+ (testPappyParseNUhA dvs)+ (testPappyParseNUhI dvs)+ (testPappyParseNUhU dvs)++testPappyDerivs8 dvs = TestPappyDerivs8+ (testPappyParsePA dvs)+ (testPappyParsePEhE dvs)+ (testPappyParsePEhO dvs)+ (testPappyParsePU dvs)+ (testPappyParseRAhO dvs)+ (testPappyParseROI dvs)+ (testPappyParseSE dvs)+ (testPappyParseSEI dvs)+ (testPappyParseSEhU dvs)+ (testPappyParseSI dvs)+ (testPappyParseSU dvs)+ (testPappyParseTAhE dvs)+ (testPappyParseTEhU dvs)+ (testPappyParseTO dvs)+ (testPappyParseTUhE dvs)+ (testPappyParseTUhU dvs)+ (testPappyParseUI dvs)+ (testPappyParseVA dvs)+ (testPappyParseVEhO dvs)+ (testPappyParseVUhU dvs)+ (testPappyParseVEhA dvs)+ (testPappyParseVIhA dvs)+ (testPappyParseVUhO dvs)+ (testPappyParsePlusRule24 dvs)+ (testPappyParseZAhO dvs)+ (testPappyParseZEhA dvs)+ (testPappyParseZI dvs)+ (testPappyParseZIhE dvs)+ (testPappyParseZOI dvs)+ (testPappyParseZOhU dvs)+ (testPappyParsedummyTail dvs)+ (testPappyParsedummy dvs)++testPappytest :: TestPappyDerivs -> Result TestPappyDerivs (Text)+testPappytest d =+ case testPappytext d of+ Parsed t d1 e1 ->+ case testPappyanyChar d1 of+ NoParse e3 ->+ Parsed ( t ) d1 (max e3 e1)+ Parsed _ _ e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule0 :: TestPappyDerivs -> Result TestPappyDerivs ([Clause])+testPappyParseStarRule0 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyNAI_clause d of+ Parsed v d3 e3 ->+ case testPappyStarRule0 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsetext :: TestPappyDerivs -> Result TestPappyDerivs (Text)+testPappyParsetext d =+ case pappyResult1 of+ Parsed _ d1 e1 ->+ case testPappyStarRule8 d1 of+ Parsed _ d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ case testPappyStarRule3 d5 of+ Parsed _ d7 e7 ->+ case testPappyStarRule0 d7 of+ Parsed n d9 e9 ->+ case pappyResult11 of+ Parsed tp2 d11 e11 ->+ case pappyResult13 of+ Parsed jj d13 e13 ->+ case pappyResult15 of+ Parsed t d15 e15 ->+ case pappyResult17 of+ Parsed f d17 e17 ->+ case pappyResult19 of+ Parsed _ d19 e19 ->+ Parsed ( if isSimpleText n tp2 jj t f then fromJust t else TopText n (fst tp2) (snd tp2) jj t f ) d19 (maximum [e19,e17,e15,e13,e11,e9,e7,e5,e3,e1])+ NoParse e19 -> NoParse (maximum [e19,e17,e15,e13,e11,e9,e7,e5,e3,e1])+ where+ pappyResult19 =+ case pappyResult21 of+ Parsed v21 d21 e21 -> Parsed (Just v21) d21 e21+ NoParse e21 -> Parsed (Nothing) d17 e21+ where+ pappyResult21 =+ case testPappyanyChar d17 of+ NoParse e23 ->+ Parsed ( () ) d17 e23+ Parsed _ _ e23 -> NoParse e23+ NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9,e7,e5,e3,e1])+ where+ pappyResult17 =+ case pappyResult19 of+ Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19+ NoParse e19 -> Parsed (Nothing) d15 e19+ where+ pappyResult19 =+ case testPappyFAhO_clause d15 of+ Parsed f d21 e21 ->+ case testPappyStarRule192 d21 of+ Parsed _ d23 e23 ->+ Parsed ( f ) d23 (max e23 e21)+ NoParse e23 -> NoParse (max e23 e21)+ NoParse e21 -> NoParse e21+ NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7,e5,e3,e1])+ where+ pappyResult15 =+ case testPappytext_1 d13 of+ Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17+ NoParse e17 -> Parsed (Nothing) d13 e17+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7,e5,e3,e1])+ where+ pappyResult13 =+ case pappyResult15 of+ Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15+ NoParse e15 -> Parsed (Nothing) d11 e15+ where+ pappyResult15 =+ case testPappytext_1 d11 of+ NoParse e17 ->+ case testPappyjoik_jek d11 of+ Parsed j d19 e19 ->+ Parsed ( j ) d19 (max e19 e17)+ NoParse e19 -> NoParse (max e19 e17)+ Parsed _ _ e17 -> NoParse e17+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ where+ pappyResult11 =+ case pappyResult13 of+ Parsed e d13 e13 ->+ case testPappyStarRule188 d13 of+ Parsed f d15 e15 ->+ Parsed ( (e, f) ) d15 (max e15 e13)+ NoParse e15 -> NoParse (max e15 e13)+ NoParse e13 -> NoParse e13+ where+ pappyResult13 =+ pappyAlt15_1 (ParseError (testPappyPos d9) []) where+ pappyAlt15_1 e15 =+ case testPappyPlusRule12 d9 of+ Parsed c d17 e17 ->+ Parsed ( Left c ) d17 (max e17 e15)+ NoParse e17 -> pappyAlt15_2 (max e17 e15)+ pappyAlt15_2 e15 =+ case pappyResult17 of+ Parsed i d17 e17 ->+ Parsed ( Right i ) d17 (max e17 e15)+ NoParse e17 -> pappyAlt15_3 (max e17 e15)+ where+ pappyResult17 =+ case testPappyindicators d9 of+ Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19+ NoParse e19 -> Parsed (Nothing) d9 e19+ pappyAlt15_3 e15 = NoParse e15+ NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case pappyResult7 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ where+ pappyResult7 =+ case testPappyPlusRule17 d3 of+ Parsed _ d9 e9 ->+ Parsed ( () ) d9 e9+ NoParse e9 -> NoParse e9+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyspaces d of+ Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3+ NoParse e3 -> Parsed (Nothing) d e3++testPappyParseStarRule3 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule3 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappySI_clause d of+ Parsed v d3 e3 ->+ case testPappyStarRule3 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsetext_1 :: TestPappyDerivs -> Result TestPappyDerivs (Text)+testPappyParsetext_1 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyI_clause d of+ Parsed i d3 e3 ->+ case pappyResult5 of+ Parsed j d5 e5 ->+ case pappyResult7 of+ Parsed b d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ case pappyResult11 of+ Parsed t d11 e11 ->+ Parsed ( IText_1 i j b f t ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])+ where+ pappyResult11 =+ case testPappytext_1 d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case pappyResult9 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ where+ pappyResult9 =+ case pappyResult11 of+ Parsed s d11 e11 ->+ case testPappyBO_clause d11 of+ Parsed b d13 e13 ->+ Parsed ( (s, b) ) d13 (max e13 e11)+ NoParse e13 -> NoParse (max e13 e11)+ NoParse e11 -> NoParse e11+ where+ pappyResult11 =+ case testPappystag d5 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d5 e13+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case pappyResult7 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d3) []) where+ pappyAlt9_1 e9 =+ case testPappyjek d3 of+ Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappyjoik d3 of+ Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyPlusRule2 d of+ Parsed n d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappyStarRule8 d5 of+ Parsed _ d7 e7 ->+ case pappyResult9 of+ Parsed p d9 e9 ->+ Parsed ( HeadNIhO n f p ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case testPappyparagraphs d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyparagraphs d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappyParseparagraphs :: TestPappyDerivs -> Result TestPappyDerivs (Paragraphs)+testPappyParseparagraphs d =+ case pappyResult1 of+ Parsed p d1 e1 ->+ case pappyResult3 of+ Parsed n d3 e3 ->+ Parsed ( maybe p (uncurry3 $ NIhO p) n ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case testPappyPlusRule2 d1 of+ Parsed n d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ case testPappyStarRule8 d9 of+ Parsed _ d11 e11 ->+ case testPappyparagraphs d11 of+ Parsed p d13 e13 ->+ Parsed ( (n, f, p) ) d13 (maximum [e13,e11,e9,e7])+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])+ NoParse e11 -> NoParse (maximum [e11,e9,e7])+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case pappyResult3 of+ Parsed s d3 e3 ->+ case testPappyStarRule9 d3 of+ Parsed i d5 e5 ->+ Parsed ( if null i then s else StatementI s i ) d5 (max e5 e3)+ NoParse e5 -> NoParse (max e5 e3)+ NoParse e3 -> NoParse e3+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappystatement d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyfragment d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5++testPappyParsePlusRule2 :: TestPappyDerivs -> Result TestPappyDerivs ([Clause])+testPappyParsePlusRule2 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyNIhO_clause d of+ Parsed v d3 e3 ->+ case testPappyPlusRule2 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyNIhO_clause d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule8 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule8 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule8 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyStarRule194 d of+ Parsed _ d5 e5 ->+ case testPappySU_clause d5 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule9 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, [Free], Maybe Statement) ])+testPappyParseStarRule9 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule9 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyI_clause d of+ Parsed i d5 e5 ->+ case testPappyjek d5 of+ NoParse e7 ->+ case testPappyjoik d5 of+ NoParse e9 ->+ case testPappyjoik_jek d5 of+ NoParse e11 ->+ case testPappyStarRule188 d5 of+ Parsed f d13 e13 ->+ case pappyResult15 of+ Parsed s d15 e15 ->+ Parsed ( (i, f, s) ) d15 (maximum [e15,e13,e11,e9,e7,e5])+ NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7,e5])+ where+ pappyResult15 =+ case pappyResult17 of+ Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17+ NoParse e17 -> Parsed (Nothing) d13 e17+ where+ pappyResult17 =+ pappyAlt19_1 (ParseError (testPappyPos d13) []) where+ pappyAlt19_1 e19 =+ case testPappystatement d13 of+ Parsed v21 d21 e21 -> Parsed v21 d21 (max e21 e19)+ NoParse e21 -> pappyAlt19_2 (max e21 e19)+ pappyAlt19_2 e19 =+ case testPappyfragment d13 of+ Parsed v21 d21 e21 -> Parsed v21 d21 (max e21 e19)+ NoParse e21 -> pappyAlt19_3 (max e21 e19)+ pappyAlt19_3 e19 = NoParse e19+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5])+ Parsed _ _ e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsestatement :: TestPappyDerivs -> Result TestPappyDerivs (Statement)+testPappyParsestatement d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappystatement_2 d of+ Parsed s d3 e3 ->+ case testPappyStarRule11 d3 of+ Parsed i d5 e5 ->+ Parsed ( if null i then s else IJoikJek s i ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyprenex d of+ Parsed p d3 e3 ->+ case testPappystatement d3 of+ Parsed s d5 e5 ->+ Parsed ( let (t, z, f) = p in Prenex t z f s ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule11 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, JoikJek, [Free], Maybe Statement) ])+testPappyParseStarRule11 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule11 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyI_clause d of+ Parsed i d5 e5 ->+ case testPappyjoik_jek d5 of+ Parsed j d7 e7 ->+ case pappyResult9 of+ Parsed s d9 e9 ->+ Parsed ( (i, fst j, snd j, s) ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ where+ pappyResult9 =+ case testPappystatement_2 d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsestatement_2 :: TestPappyDerivs -> Result TestPappyDerivs (Statement)+testPappyParsestatement_2 d =+ case pappyResult1 of+ Parsed s3 d1 e1 ->+ case pappyResult3 of+ Parsed ib d3 e3 ->+ Parsed ( maybe s3 ($ s3) ib ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case testPappyI_clause d1 of+ Parsed i d7 e7 ->+ case pappyResult9 of+ Parsed j d9 e9 ->+ case pappyResult11 of+ Parsed t d11 e11 ->+ case testPappyBO_clause d11 of+ Parsed b d13 e13 ->+ case testPappyStarRule188 d13 of+ Parsed f d15 e15 ->+ case pappyResult17 of+ Parsed s d17 e17 ->+ Parsed ( \s3 -> maybe (IBO s3 i j t b f) (IBOStatement s3 i j t b f) s ) d17 (maximum [e17,e15,e13,e11,e9,e7])+ NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9,e7])+ where+ pappyResult17 =+ case testPappystatement_2 d15 of+ Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19+ NoParse e19 -> Parsed (Nothing) d15 e19+ NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])+ NoParse e11 -> NoParse (maximum [e11,e9,e7])+ where+ pappyResult11 =+ case testPappystag d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> NoParse (max e9 e7)+ where+ pappyResult9 =+ case pappyResult11 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ where+ pappyResult11 =+ pappyAlt13_1 (ParseError (testPappyPos d7) []) where+ pappyAlt13_1 e13 =+ case testPappyjek d7 of+ Parsed v15 d15 e15 -> Parsed v15 d15 (max e15 e13)+ NoParse e15 -> pappyAlt13_2 (max e15 e13)+ pappyAlt13_2 e13 =+ case testPappyjoik d7 of+ Parsed v15 d15 e15 -> Parsed v15 d15 (max e15 e13)+ NoParse e15 -> pappyAlt13_3 (max e15 e13)+ pappyAlt13_3 e13 = NoParse e13+ NoParse e7 -> NoParse e7+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (testPappyPos d) []) where+ pappyAlt3_1 e3 =+ case testPappysentence d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case pappyResult5 of+ Parsed tag d5 e5 ->+ case testPappyTUhE_clause d5 of+ Parsed tuhe d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ case testPappytext_1 d9 of+ Parsed text d11 e11 ->+ case pappyResult13 of+ Parsed tuhu d13 e13 ->+ case testPappyStarRule188 d13 of+ Parsed g d15 e15 ->+ Parsed ( TUhE tag tuhe f text tuhu g ) d15 (maximum [e15,e13,e11,e9,e7,e5,e3])+ NoParse e15 -> pappyAlt3_3 (maximum [e15,e13,e11,e9,e7,e5,e3])+ NoParse e13 -> pappyAlt3_3 (maximum [e13,e11,e9,e7,e5,e3])+ where+ pappyResult13 =+ case pappyResult15 of+ Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15+ NoParse e15 -> Parsed (Nothing) d11 e15+ where+ pappyResult15 =+ case testPappyTUhU_pre d11 of+ Parsed p d17 e17 ->+ case testPappypost_clause d17 of+ Parsed q d19 e19 ->+ Parsed ( (fst p, snd p, q) ) d19 (max e19 e17)+ NoParse e19 -> NoParse (max e19 e17)+ NoParse e17 -> NoParse e17+ NoParse e11 -> pappyAlt3_3 (maximum [e11,e9,e7,e5,e3])+ NoParse e9 -> pappyAlt3_3 (maximum [e9,e7,e5,e3])+ NoParse e7 -> pappyAlt3_3 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ where+ pappyResult5 =+ case testPappytag d of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d e7+ pappyAlt3_3 e3 = NoParse e3++testPappyParsefragment :: TestPappyDerivs -> Result TestPappyDerivs (Fragment)+testPappyParsefragment d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyprenex d of+ Parsed p d3 e3 ->+ Parsed ( uncurry3 FPrenex p ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyPlusRule3 d of+ Parsed t d3 e3 ->+ case pappyResult5 of+ Parsed v d5 e5 ->+ case testPappyStarRule188 d5 of+ Parsed f d7 e7 ->+ Parsed ( FTermsVAU t v f ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyVAU_clause d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyek d of+ Parsed e d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( FEk e f ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case testPappygihek d of+ Parsed g d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( FGihek g f ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 =+ case testPappyquantifier d of+ Parsed q d3 e3 ->+ Parsed ( FQuantifier q ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_6 (max e3 e1)+ pappyAlt1_6 e1 =+ case testPappyNA_clause d of+ Parsed n d3 e3 ->+ case testPappyJA_clause d3 of+ NoParse e5 ->+ case testPappyStarRule188 d3 of+ Parsed f d7 e7 ->+ Parsed ( FNA n f ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_7 (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> pappyAlt1_7 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_7 (max e3 e1)+ pappyAlt1_7 e1 =+ case testPappyrelative_clause d of+ Parsed r d3 e3 ->+ Parsed ( FRelativeClause r ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_8 (max e3 e1)+ pappyAlt1_8 e1 =+ case testPappylinks d of+ Parsed l d3 e3 ->+ Parsed ( FLinks l ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_9 (max e3 e1)+ pappyAlt1_9 e1 =+ case testPappylinkargs d of+ Parsed l d3 e3 ->+ Parsed ( FLinkargs l ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_10 (max e3 e1)+ pappyAlt1_10 e1 = NoParse e1++testPappyprenex :: TestPappyDerivs -> Result TestPappyDerivs ( ([Term], Clause, [Free]) )+testPappyprenex d =+ case testPappyPlusRule3 d of+ Parsed t d1 e1 ->+ case pappyResult3 of+ Parsed z d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( (t, z, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyZOhU_pre d1 of+ Parsed p d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsesentence :: TestPappyDerivs -> Result TestPappyDerivs (Sentence)+testPappyParsesentence d =+ case pappyResult1 of+ Parsed h d1 e1 ->+ case testPappyStarRule21 d1 of+ Parsed _ d3 e3 ->+ case testPappybridi_tail d3 of+ Parsed bt d5 e5 ->+ Parsed ( maybe bt (\(ts, c, f) -> TermsBridiTail ts c f bt) h ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case pappyResult3 of+ Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3+ NoParse e3 -> Parsed (Nothing) d e3+ where+ pappyResult3 =+ case testPappyPlusRule3 d of+ Parsed t d5 e5 ->+ case testPappyStarRule21 d5 of+ Parsed _ d7 e7 ->+ case pappyResult9 of+ Parsed c d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed f d11 e11 ->+ Parsed ( (t, c, f) ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ where+ pappyResult9 =+ case testPappyCU_clause d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5++testPappyParseStarRule21 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule21 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule21 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappybridi_tail_start d of+ Parsed _ d5 e5 ->+ case testPappyStarRule26 d5 of+ Parsed _ d7 e7 ->+ case testPappySA_clause d7 of+ Parsed _ d9 e9 ->+ case testPappybridi_tail d9 of+ Parsed _ _ e11 ->+ Parsed ( () ) d9 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule23 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule23 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule23 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappysentence_start d of+ NoParse e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d) []) where+ pappyAlt9_1 e9 =+ case testPappypre_zei_bu d of+ Parsed _ d11 e11 ->+ Parsed ( () ) d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappySA_clause d of+ Parsed _ d11 e11 ->+ case testPappysentence_start d11 of+ NoParse e13 ->+ Parsed ( () ) d11 (maximum [e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ Parsed _ _ e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappysentence_start :: TestPappyDerivs -> Result TestPappyDerivs ( () )+testPappysentence_start d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyI_pre d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyNIhO_pre d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParsesubsentence :: TestPappyDerivs -> Result TestPappyDerivs (Sentence)+testPappyParsesubsentence d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappysentence d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyprenex d of+ Parsed p d3 e3 ->+ case testPappysubsentence d3 of+ Parsed s d5 e5 ->+ Parsed ( uncurry3 PrenexSentence p s ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParsebridi_tail :: TestPappyDerivs -> Result TestPappyDerivs (Sentence)+testPappyParsebridi_tail d =+ case pappyResult1 of+ Parsed b d1 e1 ->+ case pappyResult3 of+ Parsed g d3 e3 ->+ Parsed ( maybe b (\(g, t, ke, f, b, kehe, h, (u, v, i)) ->+ GihekKE b g t ke f b kehe h u v i) g ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case testPappygihek d1 of+ Parsed g d7 e7 ->+ case pappyResult9 of+ Parsed t d9 e9 ->+ case testPappyKE_clause d9 of+ Parsed ke d11 e11 ->+ case testPappyStarRule188 d11 of+ Parsed f d13 e13 ->+ case testPappybridi_tail d13 of+ Parsed b d15 e15 ->+ case pappyResult17 of+ Parsed kehe d17 e17 ->+ case testPappyStarRule188 d17 of+ Parsed h d19 e19 ->+ case testPappytail_terms d19 of+ Parsed tts d21 e21 ->+ Parsed ( (g, t, ke, f, b, kehe, h, tts) ) d21 (maximum [e21,e19,e17,e15,e13,e11,e9,e7])+ NoParse e21 -> NoParse (maximum [e21,e19,e17,e15,e13,e11,e9,e7])+ NoParse e19 -> NoParse (maximum [e19,e17,e15,e13,e11,e9,e7])+ NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9,e7])+ where+ pappyResult17 =+ case testPappyKEhE_clause d15 of+ Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19+ NoParse e19 -> Parsed (Nothing) d15 e19+ NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])+ NoParse e11 -> NoParse (maximum [e11,e9,e7])+ NoParse e9 -> NoParse (max e9 e7)+ where+ pappyResult9 =+ case testPappystag d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> NoParse e7+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappybridi_tail_2 d of+ Parsed b d3 e3 ->+ case testPappyStarRule27 d3 of+ Parsed g d5 e5 ->+ Parsed ( if null g then b else GihekSentence b g ) d5 (max e5 e3)+ NoParse e5 -> NoParse (max e5 e3)+ NoParse e3 -> NoParse e3++testPappyParseStarRule26 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule26 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule26 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyterm d of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappybridi_tail_start d of+ NoParse e7 ->+ case pappyResult9 of+ Parsed _ d9 e9 ->+ Parsed ( () ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ where+ pappyResult9 =+ pappyAlt11_1 (ParseError (testPappyPos d) []) where+ pappyAlt11_1 e11 =+ case testPappypre_zei_bu d of+ Parsed _ d13 e13 ->+ Parsed ( () ) d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_2 (max e13 e11)+ pappyAlt11_2 e11 =+ case testPappySA_clause d of+ Parsed _ d13 e13 ->+ case testPappybridi_tail_start d13 of+ NoParse e15 ->+ Parsed ( () ) d13 (maximum [e15,e13,e11])+ Parsed _ _ e15 -> pappyAlt11_3 (maximum [e15,e13,e11])+ NoParse e13 -> pappyAlt11_3 (max e13 e11)+ pappyAlt11_3 e11 = NoParse e11+ Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsebridi_tail_start :: TestPappyDerivs -> Result TestPappyDerivs ( () )+testPappyParsebridi_tail_start d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyME_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyNUhA_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyNU_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case testPappyNA_clause d of+ Parsed _ d3 e3 ->+ case testPappyKU_clause d3 of+ NoParse e5 ->+ Parsed ( () ) d3 (maximum [e5,e3,e1])+ Parsed _ _ e5 -> pappyAlt1_5 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 =+ case testPappyNAhE_clause d of+ Parsed _ d3 e3 ->+ case testPappyBO_clause d3 of+ NoParse e5 ->+ Parsed ( () ) d3 (maximum [e5,e3,e1])+ Parsed _ _ e5 -> pappyAlt1_6 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_6 (max e3 e1)+ pappyAlt1_6 e1 =+ case testPappyselbri d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_7 (max e3 e1)+ pappyAlt1_7 e1 =+ case testPappytag d of+ Parsed _ d3 e3 ->+ case testPappybridi_tail_start d3 of+ Parsed _ d5 e5 ->+ Parsed ( () ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_8 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_8 (max e3 e1)+ pappyAlt1_8 e1 =+ case testPappyKE_clause d of+ Parsed _ d3 e3 ->+ case testPappybridi_tail_start d3 of+ Parsed _ d5 e5 ->+ Parsed ( () ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_9 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_9 (max e3 e1)+ pappyAlt1_9 e1 =+ case testPappybridi_tail d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_10 (max e3 e1)+ pappyAlt1_10 e1 = NoParse e1++testPappyParseStarRule27 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Gihek, [Free], Sentence, [Term], Maybe Clause, [Free]) ])+testPappyParseStarRule27 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule27 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappygihek d of+ Parsed g d5 e5 ->+ case pappyResult7 of+ NoParse e7 ->+ case pappyResult9 of+ NoParse e9 ->+ case testPappyStarRule188 d5 of+ Parsed f d11 e11 ->+ case testPappybridi_tail_2 d11 of+ Parsed b d13 e13 ->+ case testPappytail_terms d13 of+ Parsed tvi d15 e15 ->+ Parsed ( let (t, v, i) = tvi in (g, f, b, t, v, i) ) d15 (maximum [e15,e13,e11,e9,e7,e5])+ NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7,e5])+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5])+ where+ pappyResult9 =+ case pappyResult11 of+ Parsed _ d11 e11 ->+ case testPappyKE_clause d11 of+ Parsed _ d13 e13 ->+ Parsed ( () ) d13 (max e13 e11)+ NoParse e13 -> NoParse (max e13 e11)+ NoParse e11 -> NoParse e11+ where+ pappyResult11 =+ case testPappystag d5 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d5 e13+ Parsed _ _ e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ case pappyResult9 of+ Parsed _ d9 e9 ->+ case testPappyBO_clause d9 of+ Parsed _ d11 e11 ->+ Parsed ( () ) d11 (max e11 e9)+ NoParse e11 -> NoParse (max e11 e9)+ NoParse e9 -> NoParse e9+ where+ pappyResult9 =+ case testPappystag d5 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d5 e11+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsebridi_tail_2 :: TestPappyDerivs -> Result TestPappyDerivs (Sentence)+testPappyParsebridi_tail_2 d =+ case pappyResult1 of+ Parsed b3 d1 e1 ->+ case pappyResult3 of+ Parsed g d3 e3 ->+ Parsed ( maybe b3 (\(h, s, bo, f, bt, (t, v, i)) -> GihekBO b3 h s bo f bt t v i) g ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case testPappygihek d1 of+ Parsed g d7 e7 ->+ case pappyResult9 of+ Parsed s d9 e9 ->+ case testPappyBO_clause d9 of+ Parsed bo d11 e11 ->+ case testPappyStarRule188 d11 of+ Parsed f d13 e13 ->+ case testPappybridi_tail_2 d13 of+ Parsed bt d15 e15 ->+ case testPappytail_terms d15 of+ Parsed t d17 e17 ->+ Parsed ( (g, s, bo, f, bt, t) ) d17 (maximum [e17,e15,e13,e11,e9,e7])+ NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9,e7])+ NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])+ NoParse e11 -> NoParse (maximum [e11,e9,e7])+ NoParse e9 -> NoParse (max e9 e7)+ where+ pappyResult9 =+ case testPappystag d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> NoParse e7+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (testPappyPos d) []) where+ pappyAlt3_1 e3 =+ case testPappyselbri d of+ Parsed s d5 e5 ->+ case testPappytail_terms d5 of+ Parsed tvf d7 e7 ->+ Parsed ( case tvf of ([], Nothing, []) -> Selbri s; (t, v, f) -> SelbriTailTerms s t v f ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> pappyAlt3_2 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case testPappygek_sentence d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 = NoParse e3++testPappyParsegek_sentence :: TestPappyDerivs -> Result TestPappyDerivs (Sentence)+testPappyParsegek_sentence d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappygek d of+ Parsed gek d3 e3 ->+ case testPappysubsentence d3 of+ Parsed s d5 e5 ->+ case testPappygik d5 of+ Parsed gik d7 e7 ->+ case testPappysubsentence d7 of+ Parsed t d9 e9 ->+ case testPappytail_terms d9 of+ Parsed tts d11 e11 ->+ Parsed ( uncurry3 (GekSentence gek s gik t) tts ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed t d3 e3 ->+ case testPappyKE_clause d3 of+ Parsed ke d5 e5 ->+ case testPappyStarRule188 d5 of+ Parsed f d7 e7 ->+ case testPappygek_sentence d7 of+ Parsed gs d9 e9 ->+ case pappyResult11 of+ Parsed kehe d11 e11 ->+ case testPappyStarRule188 d11 of+ Parsed g d13 e13 ->+ Parsed ( KEGekSentence t ke f gs kehe g ) d13 (maximum [e13,e11,e9,e7,e5,e3,e1])+ NoParse e13 -> pappyAlt1_3 (maximum [e13,e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])+ where+ pappyResult11 =+ case testPappyKEhE_clause d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ case testPappytag d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_3 e1 =+ case testPappyNA_clause d of+ Parsed n d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappygek_sentence d5 of+ Parsed gs d7 e7 ->+ Parsed ( NAGekSentence n f gs ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappytail_terms :: TestPappyDerivs -> Result TestPappyDerivs ( ([Term], Maybe Clause, [Free]) )+testPappytail_terms d =+ case pappyResult1 of+ Parsed t d1 e1 ->+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( (fromMaybe [] t, v, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyVAU_clause d1 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyPlusRule3 d of+ Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3+ NoParse e3 -> Parsed (Nothing) d e3++testPappyParsePlusRule3 :: TestPappyDerivs -> Result TestPappyDerivs ([Term])+testPappyParsePlusRule3 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyterms_1 d of+ Parsed v d3 e3 ->+ case testPappyPlusRule3 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyterms_1 d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule34 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, [Free], JoikJek, [Free], Term) ])+testPappyParseStarRule34 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule34 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyStarRule35 d of+ Parsed _ d5 e5 ->+ case testPappyPEhE_clause d5 of+ Parsed p d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ case testPappyjoik_jek d9 of+ Parsed j d11 e11 ->+ case testPappyterms_2 d11 of+ Parsed t d13 e13 ->+ Parsed ( (p, f, fst j, snd j, t) ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyterms_1 :: TestPappyDerivs -> Result TestPappyDerivs (Term)+testPappyterms_1 d =+ case testPappyterms_2 d of+ Parsed t d1 e1 ->+ case testPappyStarRule34 d1 of+ Parsed pfjt d3 e3 ->+ Parsed ( if null pfjt then t else TermsPEhETerms t pfjt ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule35 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule35 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule35 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyPEhE_clause d of+ Parsed _ d5 e5 ->+ case testPappyStarRule40 d5 of+ Parsed _ d7 e7 ->+ case testPappySA_clause d7 of+ Parsed _ d9 e9 ->+ Parsed ( () ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule37 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, [Free], Term) ])+testPappyParseStarRule37 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule37 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyStarRule38 d of+ Parsed _ d5 e5 ->+ case testPappyCEhE_clause d5 of+ Parsed c d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ case testPappyterm d9 of+ Parsed t d11 e11 ->+ Parsed ( (c, f, t) ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyterms_2 :: TestPappyDerivs -> Result TestPappyDerivs (Term)+testPappyterms_2 d =+ case testPappyterm d of+ Parsed t d1 e1 ->+ case testPappyStarRule37 d1 of+ Parsed cft d3 e3 ->+ Parsed ( if null cft then t else TermCEhETerm t cft ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule38 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule38 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule38 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyCEhE_clause d of+ Parsed _ d5 e5 ->+ case testPappyStarRule41 d5 of+ Parsed _ d7 e7 ->+ case testPappySA_clause d7 of+ Parsed _ d9 e9 ->+ Parsed ( () ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule40 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule40 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule40 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyPEhE_clause d of+ NoParse e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d) []) where+ pappyAlt9_1 e9 =+ case testPappypre_zei_bu d of+ Parsed _ d11 e11 ->+ Parsed ( () ) d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappySA_clause d of+ Parsed _ d11 e11 ->+ case testPappyPEhE_clause d11 of+ NoParse e13 ->+ Parsed ( () ) d11 (maximum [e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ Parsed _ _ e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule41 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule41 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule41 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyCEhE_clause d of+ NoParse e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d) []) where+ pappyAlt9_1 e9 =+ case testPappypre_zei_bu d of+ Parsed _ d11 e11 ->+ Parsed ( () ) d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappySA_clause d of+ Parsed _ d11 e11 ->+ case testPappyCEhE_clause d11 of+ NoParse e13 ->+ Parsed ( () ) d11 (maximum [e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ Parsed _ _ e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule42 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule42 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule42 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyterm_start d of+ Parsed _ d5 e5 ->+ case testPappyStarRule46 d5 of+ Parsed _ d7 e7 ->+ case testPappySA_clause d7 of+ Parsed _ d9 e9 ->+ case testPappyterm_1 d9 of+ Parsed _ _ e11 ->+ Parsed ( () ) d9 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyterm :: TestPappyDerivs -> Result TestPappyDerivs (Term)+testPappyterm d =+ case testPappyStarRule42 d of+ Parsed _ d1 e1 ->+ case testPappyterm_1 d1 of+ Parsed t d3 e3 ->+ Parsed ( t ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseterm_1 :: TestPappyDerivs -> Result TestPappyDerivs (Term)+testPappyParseterm_1 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappysumti d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappygek d of+ NoParse e3 ->+ case pappyResult5 of+ Parsed t d5 e5 ->+ case pappyResult7 of+ Parsed s d7 e7 ->+ Parsed ( TagSumti t s ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d5) []) where+ pappyAlt9_1 e9 =+ case testPappysumti d5 of+ Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case pappyResult11 of+ Parsed k d11 e11 ->+ case testPappyStarRule188 d11 of+ Parsed f d13 e13 ->+ Parsed ( KU k f ) d13 (maximum [e13,e11,e9])+ NoParse e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ where+ pappyResult11 =+ case testPappyKU_clause d5 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d5 e13+ pappyAlt9_3 e9 = NoParse e9+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (testPappyPos d) []) where+ pappyAlt7_1 e7 =+ case testPappytag d of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ case testPappyFA_clause d of+ Parsed fa d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed f d11 e11 ->+ Parsed ( FA fa f ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_3 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_3 (max e9 e7)+ pappyAlt7_3 e7 = NoParse e7+ Parsed _ _ e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ pappyAlt3_1 e1 where+ pappyAlt3_1 e3 =+ case testPappygek d of+ Parsed g d5 e5 ->+ case testPappyterms_gik_terms d5 of+ Parsed tgt d7 e7 ->+ Parsed ( Gek g tgt ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> pappyAlt3_2 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case testPappyNUhI_clause d of+ Parsed nuhi d5 e5 ->+ case testPappyStarRule188 d5 of+ Parsed f d7 e7 ->+ case testPappygek d7 of+ Parsed gek d9 e9 ->+ case testPappyPlusRule3 d9 of+ Parsed t d11 e11 ->+ case pappyResult13 of+ Parsed nuhu d13 e13 ->+ case testPappyStarRule188 d13 of+ Parsed g d15 e15 ->+ case testPappygik d15 of+ Parsed gik d17 e17 ->+ case testPappyPlusRule3 d17 of+ Parsed u d19 e19 ->+ case pappyResult21 of+ Parsed nuhu2 d21 e21 ->+ case testPappyStarRule188 d21 of+ Parsed h d23 e23 ->+ Parsed ( NUhIGek nuhi f gek t nuhu g gik u nuhu2 h ) d23 (maximum [e23,e21,e19,e17,e15,e13,e11,e9,e7,e5,e3])+ NoParse e23 -> pappyAlt3_3 (maximum [e23,e21,e19,e17,e15,e13,e11,e9,e7,e5,e3])+ NoParse e21 -> pappyAlt3_3 (maximum [e21,e19,e17,e15,e13,e11,e9,e7,e5,e3])+ where+ pappyResult21 =+ case testPappyNUhU_clause d19 of+ Parsed v23 d23 e23 -> Parsed (Just v23) d23 e23+ NoParse e23 -> Parsed (Nothing) d19 e23+ NoParse e19 -> pappyAlt3_3 (maximum [e19,e17,e15,e13,e11,e9,e7,e5,e3])+ NoParse e17 -> pappyAlt3_3 (maximum [e17,e15,e13,e11,e9,e7,e5,e3])+ NoParse e15 -> pappyAlt3_3 (maximum [e15,e13,e11,e9,e7,e5,e3])+ NoParse e13 -> pappyAlt3_3 (maximum [e13,e11,e9,e7,e5,e3])+ where+ pappyResult13 =+ case testPappyNUhU_clause d11 of+ Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15+ NoParse e15 -> Parsed (Nothing) d11 e15+ NoParse e11 -> pappyAlt3_3 (maximum [e11,e9,e7,e5,e3])+ NoParse e9 -> pappyAlt3_3 (maximum [e9,e7,e5,e3])+ NoParse e7 -> pappyAlt3_3 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 =+ case testPappyNUhI_clause d of+ Parsed nuhi d5 e5 ->+ case testPappyStarRule188 d5 of+ Parsed f d7 e7 ->+ case testPappyPlusRule3 d7 of+ Parsed t d9 e9 ->+ case pappyResult11 of+ Parsed nuhu d11 e11 ->+ case testPappyStarRule188 d11 of+ Parsed g d13 e13 ->+ Parsed ( NUhI nuhi f t nuhu g ) d13 (maximum [e13,e11,e9,e7,e5,e3])+ NoParse e13 -> pappyAlt3_4 (maximum [e13,e11,e9,e7,e5,e3])+ NoParse e11 -> pappyAlt3_4 (maximum [e11,e9,e7,e5,e3])+ where+ pappyResult11 =+ case testPappyNUhU_clause d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> pappyAlt3_4 (maximum [e9,e7,e5,e3])+ NoParse e7 -> pappyAlt3_4 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_4 (max e5 e3)+ pappyAlt3_4 e3 = pappyAlt1_4 e3+ pappyAlt1_4 e1 =+ case testPappyNA_clause d of+ Parsed n d3 e3 ->+ case testPappyKU_clause d3 of+ Parsed k d5 e5 ->+ case testPappyStarRule188 d5 of+ Parsed f d7 e7 ->+ Parsed ( NAKU n k f ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_5 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 = NoParse e1++testPappyParseStarRule46 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule46 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule46 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyterm_start d of+ NoParse e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d) []) where+ pappyAlt9_1 e9 =+ case testPappypre_zei_bu d of+ Parsed _ d11 e11 ->+ Parsed ( () ) d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappySA_clause d of+ Parsed _ d11 e11 ->+ case testPappyterm_start d11 of+ NoParse e13 ->+ Parsed ( () ) d11 (maximum [e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ Parsed _ _ e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseterm_start :: TestPappyDerivs -> Result TestPappyDerivs ( () )+testPappyParseterm_start d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyterm_1 d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyLA_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyLE_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case testPappyLI_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 =+ case testPappyLU_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_6 (max e3 e1)+ pappyAlt1_6 e1 =+ case testPappyLAhE_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_7 (max e3 e1)+ pappyAlt1_7 e1 =+ case testPappyquantifier d of+ Parsed _ d3 e3 ->+ case testPappyterm_start d3 of+ Parsed _ d5 e5 ->+ Parsed ( () ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_8 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_8 (max e3 e1)+ pappyAlt1_8 e1 =+ case testPappygek d of+ Parsed _ d3 e3 ->+ case testPappysumti d3 of+ Parsed _ d5 e5 ->+ case testPappygik d5 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_9 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_9 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_9 (max e3 e1)+ pappyAlt1_9 e1 =+ case testPappyFA_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_10 (max e3 e1)+ pappyAlt1_10 e1 =+ case testPappytag d of+ Parsed _ d3 e3 ->+ case testPappyterm_start d3 of+ Parsed _ d5 e5 ->+ Parsed ( () ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_11 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_11 (max e3 e1)+ pappyAlt1_11 e1 = NoParse e1++testPappyParseterms_gik_terms :: TestPappyDerivs -> Result TestPappyDerivs (TermsGikTerms)+testPappyParseterms_gik_terms d =+ case testPappyterm d of+ Parsed t1 d1 e1 ->+ case pappyResult3 of+ Parsed tgt d3 e3 ->+ case testPappyterm d3 of+ Parsed t2 d5 e5 ->+ Parsed ( TGT t1 tgt t2 ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappygik d1 of+ Parsed g d7 e7 ->+ Parsed ( Gik g ) d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyterms_gik_terms d1 of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsesumti :: TestPappyDerivs -> Result TestPappyDerivs (Sumti)+testPappyParsesumti d =+ case pappyResult1 of+ Parsed s d1 e1 ->+ case pappyResult3 of+ Parsed vr d3 e3 ->+ Parsed ( maybe s (\(v, f, r) -> VUhO s v f r) vr ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case pappyResult7 of+ Parsed v d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ case testPappyrelative_clauses d9 of+ Parsed r d11 e11 ->+ Parsed ( (v, f, r) ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> NoParse (maximum [e11,e9,e7])+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ where+ pappyResult7 =+ case testPappyVUhO_pre d1 of+ Parsed p d9 e9 ->+ case testPappypost_clause d9 of+ Parsed q d11 e11 ->+ Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)+ NoParse e11 -> NoParse (max e11 e9)+ NoParse e9 -> NoParse e9+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case pappyResult3 of+ Parsed s2 d3 e3 ->+ case pappyResult5 of+ Parsed s d5 e5 ->+ Parsed ( maybe s2 (\((je, f), t, k, g, s, l, h) -> JoikEkKESumti s2 je f t k g s l h) s ) d5 (max e5 e3)+ NoParse e5 -> NoParse (max e5 e3)+ where+ pappyResult5 =+ case pappyResult7 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ where+ pappyResult7 =+ case testPappyjoik_ek d3 of+ Parsed je d9 e9 ->+ case pappyResult11 of+ Parsed t d11 e11 ->+ case testPappyKE_clause d11 of+ Parsed k d13 e13 ->+ case testPappyStarRule188 d13 of+ Parsed f d15 e15 ->+ case testPappysumti d15 of+ Parsed s d17 e17 ->+ case pappyResult19 of+ Parsed l d19 e19 ->+ case testPappyStarRule188 d19 of+ Parsed g d21 e21 ->+ Parsed ( (je, t, k, f, s, l, g) ) d21 (maximum [e21,e19,e17,e15,e13,e11,e9])+ NoParse e21 -> NoParse (maximum [e21,e19,e17,e15,e13,e11,e9])+ NoParse e19 -> NoParse (maximum [e19,e17,e15,e13,e11,e9])+ where+ pappyResult19 =+ case testPappyKEhE_clause d17 of+ Parsed v21 d21 e21 -> Parsed (Just v21) d21 e21+ NoParse e21 -> Parsed (Nothing) d17 e21+ NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9])+ NoParse e15 -> NoParse (maximum [e15,e13,e11,e9])+ NoParse e13 -> NoParse (maximum [e13,e11,e9])+ NoParse e11 -> NoParse (max e11 e9)+ where+ pappyResult11 =+ case testPappystag d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> NoParse e9+ NoParse e3 -> NoParse e3+ where+ pappyResult3 =+ case testPappysumti_3 d of+ Parsed s d5 e5 ->+ case testPappyStarRule55 d5 of+ Parsed ss d7 e7 ->+ Parsed ( if null ss then s else JoikEkSumti s ss ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5++testPappyParseStarRule55 :: TestPappyDerivs -> Result TestPappyDerivs ([ (JoikEk, [Free], Sumti) ])+testPappyParseStarRule55 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule55 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyjoik_ek d of+ Parsed jf d5 e5 ->+ case testPappysumti_3 d5 of+ Parsed s d7 e7 ->+ Parsed ( (fst jf, snd jf, s) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsesumti_3 :: TestPappyDerivs -> Result TestPappyDerivs (Sumti)+testPappyParsesumti_3 d =+ case testPappysumti_4 d of+ Parsed s4 d1 e1 ->+ case pappyResult3 of+ Parsed s3 d3 e3 ->+ Parsed ( maybe s4 (\((je, f), t, b, g, s) -> JoikEkBOSumti s4 je f t b g s) s3 ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case testPappyjoik_ek d1 of+ Parsed je d7 e7 ->+ case pappyResult9 of+ Parsed t d9 e9 ->+ case testPappyBO_clause d9 of+ Parsed b d11 e11 ->+ case testPappyStarRule188 d11 of+ Parsed f d13 e13 ->+ case testPappysumti_3 d13 of+ Parsed s d15 e15 ->+ Parsed ( (je, t, b, f, s) ) d15 (maximum [e15,e13,e11,e9,e7])+ NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])+ NoParse e11 -> NoParse (maximum [e11,e9,e7])+ NoParse e9 -> NoParse (max e9 e7)+ where+ pappyResult9 =+ case testPappystag d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> NoParse e7+ NoParse e1 -> NoParse e1++testPappyParsesumti_4 :: TestPappyDerivs -> Result TestPappyDerivs (Sumti)+testPappyParsesumti_4 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed q d3 e3 ->+ case testPappysumti_6 d3 of+ Parsed s d5 e5 ->+ case pappyResult7 of+ Parsed r d7 e7 ->+ Parsed ( if isNothing q && isNothing r then s else OuterQuantifier q s r ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyrelative_clauses d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyquantifier d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_2 e1 =+ case testPappyquantifier d of+ Parsed q d3 e3 ->+ case testPappyselbri d3 of+ Parsed s d5 e5 ->+ case pappyResult7 of+ Parsed k d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ case pappyResult11 of+ Parsed r d11 e11 ->+ Parsed ( SQuantifierSelbri q s k f r ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])+ where+ pappyResult11 =+ case testPappyrelative_clauses d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyKU_clause d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappygek d of+ Parsed ge d3 e3 ->+ case testPappysumti d3 of+ Parsed s d5 e5 ->+ case testPappygik d5 of+ Parsed gi d7 e7 ->+ case testPappysumti_4 d7 of+ Parsed s4 d9 e9 ->+ Parsed ( GekSumti ge s gi s4 ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_4 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappyParsesumti_6 :: TestPappyDerivs -> Result TestPappyDerivs (Sumti)+testPappyParsesumti_6 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed zo d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( let (pre, z, w, q) = zo in ZO pre z w q f ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed p d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( let (pre, z, w) = p in (pre, z, w, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ where+ pappyResult5 =+ case testPappypre_clause d of+ Parsed p d7 e7 ->+ case testPappyZO d7 of+ Parsed z d9 e9 ->+ case pappyResult11 of+ Parsed _ d11 e11 ->+ case testPappyany_word d11 of+ Parsed w d13 e13 ->+ case pappyResult15 of+ Parsed _ d15 e15 ->+ Parsed ( (p, z, w) ) d15 (maximum [e15,e13,e11,e9,e7])+ NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])+ where+ pappyResult15 =+ case testPappyspaces d13 of+ Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17+ NoParse e17 -> Parsed (Nothing) d13 e17+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])+ NoParse e11 -> NoParse (maximum [e11,e9,e7])+ where+ pappyResult11 =+ case testPappyspaces d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed z d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( let (pre, zoi, ws, q) = z in ZOI pre zoi ws q f ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed p d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( let (pre, z, ws) = p in (pre, z, ws, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ where+ pappyResult5 =+ case testPappypre_clause d of+ Parsed p d7 e7 ->+ case testPappyZOI d7 of+ Parsed z d9 e9 ->+ case pappyResult11 of+ Parsed _ d11 e11 ->+ case testPappyChar d11 of+ Parsed w d13 e13 ->+ case ( w == '\NUL' ) of+ True ->+ case pappyResult17 of+ Parsed s d17 e17 ->+ case testPappyStarRule198 d17 of+ Parsed ws d19 e19 ->+ case testPappyChar d19 of+ Parsed v d21 e21 ->+ case ( v == '\NUL' ) of+ True ->+ case pappyResult25 of+ Parsed _ d25 e25 ->+ Parsed ( (p, z, maybe ws (: ws) s) ) d25 (maximum [e25,e21,e19,e17,e13,e11,e9,e7])+ NoParse e25 -> NoParse (maximum [e25,e21,e19,e17,e13,e11,e9,e7])+ where+ pappyResult25 =+ case testPappyspaces d21 of+ Parsed v27 d27 e27 -> Parsed (Just v27) d27 e27+ NoParse e27 -> Parsed (Nothing) d21 e27+ False -> NoParse (maximum [e21,e19,e17,e13,e11,e9,e7])+ NoParse e21 -> NoParse (maximum [e21,e19,e17,e13,e11,e9,e7])+ NoParse e19 -> NoParse (maximum [e19,e17,e13,e11,e9,e7])+ NoParse e17 -> NoParse (maximum [e17,e13,e11,e9,e7])+ where+ pappyResult17 =+ case testPappyspaces d13 of+ Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19+ NoParse e19 -> Parsed (Nothing) d13 e19+ False -> NoParse (maximum [e13,e11,e9,e7])+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])+ NoParse e11 -> NoParse (maximum [e11,e9,e7])+ where+ pappyResult11 =+ case testPappyspaces d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ pappyAlt1_3 e1 =+ case pappyResult3 of+ Parsed l d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( let (p, lohu, ws, lehu, q) = l in LOhU p lohu ws lehu q f ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed lp d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( let (p, lohu, ws, lehu) = lp in (p, lohu, ws, lehu, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ where+ pappyResult5 =+ case testPappypre_clause d of+ Parsed p d7 e7 ->+ case testPappyLOhU d7 of+ Parsed lohu d9 e9 ->+ case pappyResult11 of+ Parsed _ d11 e11 ->+ case testPappyStarRule196 d11 of+ Parsed ws d13 e13 ->+ case testPappyLEhU_pre d13 of+ Parsed lehu d15 e15 ->+ case pappyResult17 of+ Parsed _ d17 e17 ->+ Parsed ( (p, lohu, ws, lehu) ) d17 (maximum [e17,e15,e13,e11,e9,e7])+ NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9,e7])+ where+ pappyResult17 =+ case testPappyspaces d15 of+ Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19+ NoParse e19 -> Parsed (Nothing) d15 e19+ NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])+ NoParse e11 -> NoParse (maximum [e11,e9,e7])+ where+ pappyResult11 =+ case testPappyspaces d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ pappyAlt1_4 e1 =+ case testPappylerfu_string d of+ Parsed l d3 e3 ->+ case testPappyMOI_clause d3 of+ NoParse e5 ->+ case pappyResult7 of+ Parsed b d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ Parsed ( LerfuString l b f ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_5 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_5 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyBOI_clause d3 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d3 e9+ Parsed _ _ e5 -> pappyAlt1_5 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 =+ case testPappyLU_clause d of+ Parsed lu d3 e3 ->+ case testPappytext d3 of+ Parsed t d5 e5 ->+ case pappyResult7 of+ Parsed lihu d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ Parsed ( LU lu t lihu f ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_6 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_6 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case pappyResult9 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ where+ pappyResult9 =+ case pappyResult11 of+ Parsed p d11 e11 ->+ case testPappypost_clause d11 of+ Parsed q d13 e13 ->+ Parsed ( (fst p, snd p, q) ) d13 (max e13 e11)+ NoParse e13 -> NoParse (max e13 e11)+ NoParse e11 -> NoParse e11+ where+ pappyResult11 =+ case testPappypre_clause d5 of+ Parsed p d13 e13 ->+ case testPappyLIhU d13 of+ Parsed l d15 e15 ->+ case pappyResult17 of+ Parsed _ d17 e17 ->+ Parsed ( (p, l) ) d17 (maximum [e17,e15,e13])+ NoParse e17 -> NoParse (maximum [e17,e15,e13])+ where+ pappyResult17 =+ case testPappyspaces d15 of+ Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19+ NoParse e19 -> Parsed (Nothing) d15 e19+ NoParse e15 -> NoParse (max e15 e13)+ NoParse e13 -> NoParse e13+ NoParse e5 -> pappyAlt1_6 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_6 (max e3 e1)+ pappyAlt1_6 e1 =+ case testPappyLAhE_NAhE d of+ Parsed lnbf d3 e3 ->+ case pappyResult5 of+ Parsed r d5 e5 ->+ case testPappysumti d5 of+ Parsed s d7 e7 ->+ case pappyResult9 of+ Parsed l d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ Parsed ( let (ln, b, f) = lnbf in LAhE_NAhE ln b f r s l g ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_7 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_7 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case testPappyLUhU_clause d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt1_7 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_7 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyrelative_clauses d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> pappyAlt1_7 (max e3 e1)+ pappyAlt1_7 e1 =+ case pappyResult3 of+ Parsed k d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( KOhA k f ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_8 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_8 (max e3 e1)+ where+ pappyResult3 =+ case testPappyKOhA_pre d of+ Parsed p d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_8 e1 =+ case testPappyLA_clause d of+ Parsed l d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case pappyResult7 of+ Parsed r d7 e7 ->+ case testPappyPlusRule12 d7 of+ Parsed c d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ Parsed ( LA l f r c g ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_9 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_9 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_9 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyrelative_clauses d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_9 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_9 (max e3 e1)+ pappyAlt1_9 e1 =+ case pappyResult3 of+ Parsed l d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case pappyResult7 of+ Parsed s d7 e7 ->+ case pappyResult9 of+ Parsed k d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ Parsed ( LALE l f s k g ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_10 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_10 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case testPappyKU_clause d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt1_10 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d5) []) where+ pappyAlt9_1 e9 =+ case pappyResult11 of+ Parsed s6 d11 e11 ->+ case testPappysumti_tail_1 d11 of+ Parsed st d13 e13 ->+ Parsed ( maybe st (\(s, r) -> SumtiSumtiTail s r st) s6 ) d13 (maximum [e13,e11,e9])+ NoParse e13 -> pappyAlt9_2 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ where+ pappyResult11 =+ case pappyResult13 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d5 e13+ where+ pappyResult13 =+ case testPappysumti_6 d5 of+ Parsed s d15 e15 ->+ case pappyResult17 of+ Parsed r d17 e17 ->+ Parsed ( (s, r) ) d17 (max e17 e15)+ NoParse e17 -> NoParse (max e17 e15)+ where+ pappyResult17 =+ case testPappyrelative_clauses d15 of+ Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19+ NoParse e19 -> Parsed (Nothing) d15 e19+ NoParse e15 -> NoParse e15+ pappyAlt9_2 e9 =+ case testPappyrelative_clauses d5 of+ Parsed r d11 e11 ->+ case testPappysumti_tail_1 d11 of+ Parsed s d13 e13 ->+ Parsed ( RelativeClausesSumtiTail r s ) d13 (maximum [e13,e11,e9])+ NoParse e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ NoParse e5 -> pappyAlt1_10 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_10 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyLA_clause d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyLE_clause d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_10 e1 =+ case pappyResult3 of+ Parsed l d3 e3 ->+ Parsed ( let (li, f, m, loho, g) = l in LI li f m loho g ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_11 (max e3 e1)+ where+ pappyResult3 =+ case testPappyLI_clause d of+ Parsed li d5 e5 ->+ case testPappyStarRule188 d5 of+ Parsed f d7 e7 ->+ case testPappymex d7 of+ Parsed m d9 e9 ->+ case pappyResult11 of+ Parsed loho d11 e11 ->+ case testPappyStarRule188 d11 of+ Parsed g d13 e13 ->+ Parsed ( (li, f, m, loho, g) ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ where+ pappyResult11 =+ case pappyResult13 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ where+ pappyResult13 =+ case pappyResult15 of+ Parsed p d15 e15 ->+ case testPappypost_clause d15 of+ Parsed q d17 e17 ->+ Parsed ( (fst p, snd p, q) ) d17 (max e17 e15)+ NoParse e17 -> NoParse (max e17 e15)+ NoParse e15 -> NoParse e15+ where+ pappyResult15 =+ case testPappypre_clause d9 of+ Parsed p d17 e17 ->+ case testPappyLOhO d17 of+ Parsed l d19 e19 ->+ case pappyResult21 of+ Parsed _ d21 e21 ->+ Parsed ( (p, l) ) d21 (maximum [e21,e19,e17])+ NoParse e21 -> NoParse (maximum [e21,e19,e17])+ where+ pappyResult21 =+ case testPappyspaces d19 of+ Parsed v23 d23 e23 -> Parsed (Just v23) d23 e23+ NoParse e23 -> Parsed (Nothing) d19 e23+ NoParse e19 -> NoParse (max e19 e17)+ NoParse e17 -> NoParse e17+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_11 e1 = NoParse e1++testPappyParseLAhE_NAhE :: TestPappyDerivs -> Result TestPappyDerivs ( (Clause, Maybe Clause, [Free]) )+testPappyParseLAhE_NAhE d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyLAhE_clause d of+ Parsed l d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( (l, Nothing, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyNAhE_clause d of+ Parsed n d3 e3 ->+ case testPappyBO_clause d3 of+ Parsed b d5 e5 ->+ case testPappyStarRule188 d5 of+ Parsed f d7 e7 ->+ Parsed ( (n, Just b, f) ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappysumti_tail_1 :: TestPappyDerivs -> Result TestPappyDerivs (SumtiTail)+testPappysumti_tail_1 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyselbri d of+ Parsed s d3 e3 ->+ case pappyResult5 of+ Parsed r d5 e5 ->+ Parsed ( SelbriRelativeClauses s r ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyrelative_clauses d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyquantifier d of+ Parsed q d3 e3 ->+ case testPappyselbri d3 of+ Parsed s d5 e5 ->+ case pappyResult7 of+ Parsed r d7 e7 ->+ Parsed ( STQuantifierSelbri q s r ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyrelative_clauses d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyquantifier d of+ Parsed q d3 e3 ->+ case testPappysumti d3 of+ Parsed s d5 e5 ->+ Parsed ( QuantifierSumti q s ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappyParseStarRule73 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, [Free], RelativeClause) ])+testPappyParseStarRule73 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule73 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed z d5 e5 ->+ case testPappyStarRule188 d5 of+ Parsed f d7 e7 ->+ case testPappyrelative_clause d7 of+ Parsed rc d9 e9 ->+ Parsed ( (z, f, rc) ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ where+ pappyResult5 =+ case testPappyZIhE_pre d of+ Parsed p d7 e7 ->+ case testPappypost_clause d7 of+ Parsed q d9 e9 ->+ Parsed ( (fst p, snd p, q) ) d9 (max e9 e7)+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyrelative_clauses :: TestPappyDerivs -> Result TestPappyDerivs (RelativeClauses)+testPappyrelative_clauses d =+ case testPappyrelative_clause d of+ Parsed rc d1 e1 ->+ case testPappyStarRule73 d1 of+ Parsed z d3 e3 ->+ Parsed ( if null z then rc else RelativeClauseZIhE rc z ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule75 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule75 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule75 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyrelative_clause_start d of+ Parsed _ d5 e5 ->+ case testPappyStarRule76 d5 of+ Parsed _ d7 e7 ->+ case testPappySA_clause d7 of+ Parsed _ d9 e9 ->+ case testPappyrelative_clause_1 d9 of+ Parsed _ _ e11 ->+ Parsed ( () ) d9 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyrelative_clause :: TestPappyDerivs -> Result TestPappyDerivs (RelativeClause)+testPappyrelative_clause d =+ case testPappyStarRule75 d of+ Parsed _ d1 e1 ->+ case testPappyrelative_clause_1 d1 of+ Parsed rc d3 e3 ->+ Parsed ( rc ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule76 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule76 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule76 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyrelative_clause_start d of+ NoParse e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d) []) where+ pappyAlt9_1 e9 =+ case testPappypre_zei_bu d of+ Parsed _ d11 e11 ->+ Parsed ( () ) d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappySA_clause d of+ Parsed _ d11 e11 ->+ case testPappyrelative_clause_start d11 of+ NoParse e13 ->+ Parsed ( () ) d11 (maximum [e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ Parsed _ _ e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParserelative_clause_1 :: TestPappyDerivs -> Result TestPappyDerivs (RelativeClause)+testPappyParserelative_clause_1 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyGOI_clause d of+ Parsed goi d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappyterm d5 of+ Parsed t d7 e7 ->+ case pappyResult9 of+ Parsed gehu d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ Parsed ( GOI goi f t gehu g ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case pappyResult11 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ where+ pappyResult11 =+ case testPappyGEhU_pre d7 of+ Parsed p d13 e13 ->+ case testPappypost_clause d13 of+ Parsed q d15 e15 ->+ Parsed ( (fst p, snd p, q) ) d15 (max e15 e13)+ NoParse e15 -> NoParse (max e15 e13)+ NoParse e13 -> NoParse e13+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyNOI_clause d of+ Parsed noi d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappysubsentence d5 of+ Parsed s d7 e7 ->+ case pappyResult9 of+ Parsed kuho d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ Parsed ( NOI noi f s kuho g ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case pappyResult11 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ where+ pappyResult11 =+ case testPappyKUhO_pre d7 of+ Parsed p d13 e13 ->+ case testPappypost_clause d13 of+ Parsed q d15 e15 ->+ Parsed ( (fst p, snd p, q) ) d15 (max e15 e13)+ NoParse e15 -> NoParse (max e15 e13)+ NoParse e13 -> NoParse e13+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyrelative_clause_start :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyrelative_clause_start d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyGOI_clause d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyNOI_clause d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseselbri :: TestPappyDerivs -> Result TestPappyDerivs (Selbri)+testPappyParseselbri d =+ case pappyResult1 of+ Parsed t d1 e1 ->+ case pappyResult3 of+ Parsed s d3 e3 ->+ Parsed ( maybe s (flip Tag s) t ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyselbri_2 d1 of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyNA_clause d1 of+ Parsed n d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ case testPappyselbri d9 of+ Parsed s d11 e11 ->+ Parsed ( NA n f s ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappytag d of+ Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3+ NoParse e3 -> Parsed (Nothing) d e3++testPappyParseselbri_2 :: TestPappyDerivs -> Result TestPappyDerivs (Selbri)+testPappyParseselbri_2 d =+ case pappyResult1 of+ Parsed s3 d1 e1 ->+ case pappyResult3 of+ Parsed s2 d3 e3 ->+ Parsed ( maybe s3 (uncurry3 $ CO s3) s2 ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case pappyResult7 of+ Parsed c d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ case testPappyselbri_2 d9 of+ Parsed s d11 e11 ->+ Parsed ( (c, f, s) ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> NoParse (maximum [e11,e9,e7])+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ where+ pappyResult7 =+ case testPappyCO_pre d1 of+ Parsed p d9 e9 ->+ case testPappypost_clause d9 of+ Parsed q d11 e11 ->+ Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)+ NoParse e11 -> NoParse (max e11 e9)+ NoParse e9 -> NoParse e9+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyPlusRule5 d of+ Parsed s d3 e3 ->+ Parsed ( case s of [t] -> t; _ -> Tanru s ) d3 e3+ NoParse e3 -> NoParse e3++testPappyParsePlusRule5 :: TestPappyDerivs -> Result TestPappyDerivs ([Selbri])+testPappyParsePlusRule5 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyselbri_4 d of+ Parsed v d3 e3 ->+ case testPappyPlusRule5 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyselbri_4 d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule83 :: TestPappyDerivs -> Result TestPappyDerivs ([JoikJekSelbri5])+testPappyParseStarRule83 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule83 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyjoik_jek d of+ Parsed jf d7 e7 ->+ case testPappyselbri_5 d7 of+ Parsed s d9 e9 ->+ Parsed ( let (j, f) = jf in Left (j, f, s) ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyjoik d of+ Parsed j d7 e7 ->+ case pappyResult9 of+ Parsed t d9 e9 ->+ case testPappyKE_clause d9 of+ Parsed k d11 e11 ->+ case testPappyStarRule188 d11 of+ Parsed f d13 e13 ->+ case pappyResult15 of+ Parsed s d15 e15 ->+ case pappyResult17 of+ Parsed l d17 e17 ->+ case testPappyStarRule188 d17 of+ Parsed g d19 e19 ->+ Parsed ( Right (j, t, k, f, s, l, g) ) d19 (maximum [e19,e17,e15,e13,e11,e9,e7,e5])+ NoParse e19 -> pappyAlt5_3 (maximum [e19,e17,e15,e13,e11,e9,e7,e5])+ NoParse e17 -> pappyAlt5_3 (maximum [e17,e15,e13,e11,e9,e7,e5])+ where+ pappyResult17 =+ case testPappyKEhE_clause d15 of+ Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19+ NoParse e19 -> Parsed (Nothing) d15 e19+ NoParse e15 -> pappyAlt5_3 (maximum [e15,e13,e11,e9,e7,e5])+ where+ pappyResult15 =+ case testPappyPlusRule5 d13 of+ Parsed s d17 e17 ->+ Parsed ( case s of [t] -> t; _ -> Tanru s ) d17 e17+ NoParse e17 -> NoParse e17+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ where+ pappyResult9 =+ case testPappystag d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyselbri_4 :: TestPappyDerivs -> Result TestPappyDerivs (Selbri)+testPappyselbri_4 d =+ case testPappyselbri_5 d of+ Parsed s d1 e1 ->+ case testPappyStarRule83 d1 of+ Parsed js d3 e3 ->+ Parsed ( if null js then s else JoikJek s js ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseselbri_5 :: TestPappyDerivs -> Result TestPappyDerivs (Selbri)+testPappyParseselbri_5 d =+ case testPappyselbri_6 d of+ Parsed s6 d1 e1 ->+ case pappyResult3 of+ Parsed jb d3 e3 ->+ Parsed ( maybe s6 (\(j, t, b, f, s5) -> JekJoikBO s6 j t b f s5) jb ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case pappyResult7 of+ Parsed j d7 e7 ->+ case pappyResult9 of+ Parsed t d9 e9 ->+ case testPappyBO_clause d9 of+ Parsed b d11 e11 ->+ case testPappyStarRule188 d11 of+ Parsed f d13 e13 ->+ case testPappyselbri_5 d13 of+ Parsed s d15 e15 ->+ Parsed ( (j, t, b, f, s) ) d15 (maximum [e15,e13,e11,e9,e7])+ NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])+ NoParse e11 -> NoParse (maximum [e11,e9,e7])+ NoParse e9 -> NoParse (max e9 e7)+ where+ pappyResult9 =+ case testPappystag d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> NoParse e7+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d1) []) where+ pappyAlt9_1 e9 =+ case testPappyjek d1 of+ Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappyjoik d1 of+ Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ NoParse e1 -> NoParse e1++testPappyParseselbri_6 :: TestPappyDerivs -> Result TestPappyDerivs (Selbri)+testPappyParseselbri_6 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed t d3 e3 ->+ case pappyResult5 of+ Parsed b d5 e5 ->+ Parsed ( maybe t (uncurry3 $ BO t) b ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case pappyResult7 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ where+ pappyResult7 =+ case testPappyBO_clause d3 of+ Parsed b d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed f d11 e11 ->+ case testPappyselbri_6 d11 of+ Parsed s d13 e13 ->+ Parsed ( (b, f, s) ) d13 (maximum [e13,e11,e9])+ NoParse e13 -> NoParse (maximum [e13,e11,e9])+ NoParse e11 -> NoParse (max e11 e9)+ NoParse e9 -> NoParse e9+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappytanru_unit_1 d of+ Parsed t d5 e5 ->+ case testPappyStarRule89 d5 of+ Parsed cs d7 e7 ->+ Parsed ( if null cs then t else CEI t cs ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed n d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappyguhek d5 of+ Parsed gu d7 e7 ->+ case testPappyselbri d7 of+ Parsed s d9 e9 ->+ case testPappygik d9 of+ Parsed gi d11 e11 ->+ case testPappyselbri_6 d11 of+ Parsed s6 d13 e13 ->+ Parsed ( GuhekGik n f gu s gi s6 ) d13 (maximum [e13,e11,e9,e7,e5,e3,e1])+ NoParse e13 -> pappyAlt1_3 (maximum [e13,e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ case testPappyNAhE_clause d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule89 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, [Free], Selbri) ])+testPappyParseStarRule89 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule89 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed c d5 e5 ->+ case testPappyStarRule188 d5 of+ Parsed f d7 e7 ->+ case testPappytanru_unit_1 d7 of+ Parsed u d9 e9 ->+ Parsed ( (c, f, u) ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ where+ pappyResult5 =+ case testPappyCEI_pre d of+ Parsed p d7 e7 ->+ case testPappypost_clause d7 of+ Parsed q d9 e9 ->+ Parsed ( (fst p, snd p, q) ) d9 (max e9 e7)+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappytanru_unit_1 :: TestPappyDerivs -> Result TestPappyDerivs (Selbri)+testPappytanru_unit_1 d =+ case testPappytanru_unit_2 d of+ Parsed t d1 e1 ->+ case pappyResult3 of+ Parsed l d3 e3 ->+ Parsed ( maybe t (Linkargs t) l ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappylinkargs d1 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ NoParse e1 -> NoParse e1++testPappyParseStarRule104 :: TestPappyDerivs -> Result TestPappyDerivs ([ (JoikJek, [Free], Clause, Maybe Clause, [Free]) ])+testPappyParseStarRule104 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule104 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyjoik_jek d of+ Parsed j d5 e5 ->+ case testPappyNU_clause d5 of+ Parsed nu d7 e7 ->+ case pappyResult9 of+ Parsed nai d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed f d11 e11 ->+ Parsed ( (fst j, snd j, nu, nai, f) ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ where+ pappyResult9 =+ case testPappyNAI_clause d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsetanru_unit_2 :: TestPappyDerivs -> Result TestPappyDerivs (Selbri)+testPappyParsetanru_unit_2 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed b d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( Brivla b f ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyBRIVLA_pre d of+ Parsed pre d7 e7 ->+ case testPappypost_clause d7 of+ Parsed post d9 e9 ->+ Parsed ( let (bahe, brivla) = pre in (bahe, brivla, post) ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappypre_clause d of+ Parsed p d7 e7 ->+ case testPappyzei_clause_no_pre d7 of+ Parsed z d9 e9 ->+ Parsed ( (p, fst z, snd z) ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed g d3 e3 ->+ case pappyResult5 of+ Parsed r d5 e5 ->+ case testPappyStarRule188 d5 of+ Parsed f d7 e7 ->+ Parsed ( GOhA g r f ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case pappyResult7 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ where+ pappyResult7 =+ case testPappyRAhO_pre d3 of+ Parsed p d9 e9 ->+ case testPappypost_clause d9 of+ Parsed q d11 e11 ->+ Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)+ NoParse e11 -> NoParse (max e11 e9)+ NoParse e9 -> NoParse e9+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ case testPappyGOhA_pre d of+ Parsed p d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_3 e1 =+ case testPappyKE_clause d of+ Parsed ke d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case pappyResult7 of+ Parsed s d7 e7 ->+ case pappyResult9 of+ Parsed kehe d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ Parsed ( KE ke f s kehe g ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_4 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_4 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case testPappyKEhE_clause d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyPlusRule5 d5 of+ Parsed s d9 e9 ->+ Parsed ( case s of [t] -> t; _ -> Tanru s ) d9 e9+ NoParse e9 -> NoParse e9+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case testPappyME_clause d of+ Parsed me d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case pappyResult7 of+ Parsed s d7 e7 ->+ case pappyResult9 of+ Parsed mehu d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ case pappyResult13 of+ Parsed m d13 e13 ->+ case testPappyStarRule188 d13 of+ Parsed h d15 e15 ->+ Parsed ( ME me f s mehu g m h ) d15 (maximum [e15,e13,e11,e9,e7,e5,e3,e1])+ NoParse e15 -> pappyAlt1_5 (maximum [e15,e13,e11,e9,e7,e5,e3,e1])+ NoParse e13 -> pappyAlt1_5 (maximum [e13,e11,e9,e7,e5,e3,e1])+ where+ pappyResult13 =+ case testPappyMOI_clause d11 of+ Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15+ NoParse e15 -> Parsed (Nothing) d11 e15+ NoParse e11 -> pappyAlt1_5 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_5 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case pappyResult11 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ where+ pappyResult11 =+ case testPappyMEhU_pre d7 of+ Parsed p d13 e13 ->+ case testPappypost_clause d13 of+ Parsed q d15 e15 ->+ Parsed ( (fst p, snd p, q) ) d15 (max e15 e13)+ NoParse e15 -> NoParse (max e15 e13)+ NoParse e13 -> NoParse e13+ NoParse e7 -> pappyAlt1_5 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d5) []) where+ pappyAlt9_1 e9 =+ case testPappysumti d5 of+ Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappylerfu_string d5 of+ Parsed l d11 e11 ->+ Parsed ( LerfuString l Nothing [] ) d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 =+ case pappyResult3 of+ Parsed n d3 e3 ->+ case testPappyMOI_clause d3 of+ Parsed m d5 e5 ->+ case testPappyStarRule188 d5 of+ Parsed f d7 e7 ->+ Parsed ( MOI n m f ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_6 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_6 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_6 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappynumber d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappylerfu_string d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_6 e1 =+ case testPappyNUhA_clause d of+ Parsed n d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappymex_operator d5 of+ Parsed m d7 e7 ->+ Parsed ( NUhA n f m ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_7 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_7 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_7 (max e3 e1)+ pappyAlt1_7 e1 =+ case testPappySE_clause d of+ Parsed s d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappytanru_unit_2 d5 of+ Parsed t d7 e7 ->+ Parsed ( SE s f t ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_8 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_8 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_8 (max e3 e1)+ pappyAlt1_8 e1 =+ case pappyResult3 of+ Parsed j d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case pappyResult7 of+ Parsed t d7 e7 ->+ case testPappytanru_unit_2 d7 of+ Parsed tu d9 e9 ->+ Parsed ( JAI j f t tu ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_9 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_9 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappytag d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_9 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_9 (max e3 e1)+ where+ pappyResult3 =+ case testPappyJAI_pre d of+ Parsed p d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_9 e1 =+ case testPappyNAhE_clause d of+ Parsed n d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappytanru_unit_2 d5 of+ Parsed t d7 e7 ->+ Parsed ( NAhE n f t ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_10 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_10 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_10 (max e3 e1)+ pappyAlt1_10 e1 =+ case testPappyNU_clause d of+ Parsed nu d3 e3 ->+ case pappyResult5 of+ Parsed nai d5 e5 ->+ case testPappyStarRule188 d5 of+ Parsed f d7 e7 ->+ case testPappyStarRule104 d7 of+ Parsed j d9 e9 ->+ case testPappysubsentence d9 of+ Parsed s d11 e11 ->+ case pappyResult13 of+ Parsed k d13 e13 ->+ case testPappyStarRule188 d13 of+ Parsed g d15 e15 ->+ Parsed ( NU nu nai f j s k g ) d15 (maximum [e15,e13,e11,e9,e7,e5,e3,e1])+ NoParse e15 -> pappyAlt1_11 (maximum [e15,e13,e11,e9,e7,e5,e3,e1])+ NoParse e13 -> pappyAlt1_11 (maximum [e13,e11,e9,e7,e5,e3,e1])+ where+ pappyResult13 =+ case pappyResult15 of+ Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15+ NoParse e15 -> Parsed (Nothing) d11 e15+ where+ pappyResult15 =+ case testPappyKEI_pre d11 of+ Parsed p d17 e17 ->+ case testPappypost_clause d17 of+ Parsed q d19 e19 ->+ Parsed ( (fst p, snd p, q) ) d19 (max e19 e17)+ NoParse e19 -> NoParse (max e19 e17)+ NoParse e17 -> NoParse e17+ NoParse e11 -> pappyAlt1_11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_11 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_11 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_11 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyNAI_clause d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> pappyAlt1_11 (max e3 e1)+ pappyAlt1_11 e1 = NoParse e1++testPappyParseStarRule107 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule107 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule107 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyBE_clause d of+ Parsed _ d5 e5 ->+ case testPappyStarRule110 d5 of+ Parsed _ d7 e7 ->+ case testPappySA_clause d7 of+ Parsed _ d9 e9 ->+ case testPappylinkargs_1 d9 of+ Parsed _ _ e11 ->+ Parsed ( () ) d9 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappylinkargs :: TestPappyDerivs -> Result TestPappyDerivs (Linkargs)+testPappylinkargs d =+ case testPappyStarRule107 d of+ Parsed _ d1 e1 ->+ case testPappylinkargs_1 d1 of+ Parsed l d3 e3 ->+ Parsed ( l ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParselinkargs_1 :: TestPappyDerivs -> Result TestPappyDerivs (Linkargs)+testPappyParselinkargs_1 d =+ case testPappyBE_clause d of+ Parsed be d1 e1 ->+ case testPappyStarRule188 d1 of+ Parsed f d3 e3 ->+ case testPappyterm d3 of+ Parsed t d5 e5 ->+ case pappyResult7 of+ Parsed l d7 e7 ->+ case pappyResult9 of+ Parsed beho d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ Parsed ( BE be f t l beho g ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case pappyResult11 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ where+ pappyResult11 =+ case testPappyBEhO_pre d7 of+ Parsed p d13 e13 ->+ case testPappypost_clause d13 of+ Parsed q d15 e15 ->+ Parsed ( (fst p, snd p, q) ) d15 (max e15 e13)+ NoParse e15 -> NoParse (max e15 e13)+ NoParse e13 -> NoParse e13+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappylinks d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule110 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule110 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule110 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ NoParse e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d) []) where+ pappyAlt9_1 e9 =+ case testPappypre_zei_bu d of+ Parsed _ d11 e11 ->+ Parsed ( () ) d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappySA_clause d of+ Parsed _ d11 e11 ->+ case pappyResult13 of+ NoParse e13 ->+ Parsed ( () ) d11 (maximum [e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ where+ pappyResult13 =+ case testPappyBE_clause d11 of+ Parsed _ d15 e15 ->+ Parsed ( () ) d15 e15+ NoParse e15 -> NoParse e15+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ Parsed _ _ e5 -> NoParse e5+ where+ pappyResult5 =+ case testPappyBE_clause d of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 e7+ NoParse e7 -> NoParse e7+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule111 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule111 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule111 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyBEI_clause d of+ Parsed _ d5 e5 ->+ case testPappyStarRule113 d5 of+ Parsed _ d7 e7 ->+ case testPappySA_clause d7 of+ Parsed _ d9 e9 ->+ case testPappylinks_1 d9 of+ Parsed _ _ e11 ->+ Parsed ( () ) d9 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappylinks :: TestPappyDerivs -> Result TestPappyDerivs (Links)+testPappylinks d =+ case testPappyStarRule111 d of+ Parsed _ d1 e1 ->+ case testPappylinks_1 d1 of+ Parsed l d3 e3 ->+ Parsed ( l ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParselinks_1 :: TestPappyDerivs -> Result TestPappyDerivs (Links)+testPappyParselinks_1 d =+ case testPappyBEI_clause d of+ Parsed b d1 e1 ->+ case testPappyStarRule188 d1 of+ Parsed f d3 e3 ->+ case testPappyterm d3 of+ Parsed t d5 e5 ->+ case pappyResult7 of+ Parsed l d7 e7 ->+ Parsed ( BEI b f t l ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappylinks d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule113 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule113 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule113 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ NoParse e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d) []) where+ pappyAlt9_1 e9 =+ case testPappypre_zei_bu d of+ Parsed _ d11 e11 ->+ Parsed ( () ) d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappySA_clause d of+ Parsed _ d11 e11 ->+ case pappyResult13 of+ NoParse e13 ->+ Parsed ( () ) d11 (maximum [e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ where+ pappyResult13 =+ case testPappyBEI_clause d11 of+ Parsed _ d15 e15 ->+ Parsed ( () ) d15 e15+ NoParse e15 -> NoParse e15+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ Parsed _ _ e5 -> NoParse e5+ where+ pappyResult5 =+ case testPappyBEI_clause d of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 e7+ NoParse e7 -> NoParse e7+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsequantifier :: TestPappyDerivs -> Result TestPappyDerivs (Quantifier)+testPappyParsequantifier d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappynumber d of+ Parsed n d3 e3 ->+ case testPappyMOI_clause d3 of+ NoParse e5 ->+ case pappyResult7 of+ Parsed b d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ Parsed ( Number n b f ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyBOI_clause d3 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d3 e9+ Parsed _ _ e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyVEI_clause d of+ Parsed vei d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappymex d5 of+ Parsed m d7 e7 ->+ case pappyResult9 of+ Parsed veho d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ Parsed ( VEI vei f m veho g ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case testPappyVEhO_clause d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule117 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule117 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule117 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappymex_start d of+ Parsed _ d5 e5 ->+ case testPappyStarRule119 d5 of+ Parsed _ d7 e7 ->+ case testPappySA_clause d7 of+ Parsed _ d9 e9 ->+ case testPappymex_0 d9 of+ Parsed _ _ e11 ->+ Parsed ( () ) d9 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappymex :: TestPappyDerivs -> Result TestPappyDerivs (Mex)+testPappymex d =+ case testPappyStarRule117 d of+ Parsed _ d1 e1 ->+ case testPappymex_0 d1 of+ Parsed m0 d3 e3 ->+ Parsed ( m0 ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule118 :: TestPappyDerivs -> Result TestPappyDerivs ([ (MexOperator, Mex) ])+testPappyParseStarRule118 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule118 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyoperator d of+ Parsed o d5 e5 ->+ case testPappymex_1 d5 of+ Parsed m d7 e7 ->+ Parsed ( (o, m) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsemex_0 :: TestPappyDerivs -> Result TestPappyDerivs (Mex)+testPappyParsemex_0 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappymex_1 d of+ Parsed m d3 e3 ->+ case testPappyStarRule118 d3 of+ Parsed oms d5 e5 ->+ Parsed ( if null oms then m else MexOperatorMex m oms ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyFUhA_clause d of+ Parsed fuha d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappyrp_expression d5 of+ Parsed r d7 e7 ->+ Parsed ( FUhA fuha f r ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule119 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule119 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule119 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappymex_start d of+ NoParse e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d) []) where+ pappyAlt9_1 e9 =+ case testPappypre_zei_bu d of+ Parsed _ d11 e11 ->+ Parsed ( () ) d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappySA_clause d of+ Parsed _ d11 e11 ->+ case testPappymex_start d11 of+ NoParse e13 ->+ Parsed ( () ) d11 (maximum [e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ Parsed _ _ e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsemex_start :: TestPappyDerivs -> Result TestPappyDerivs ( () )+testPappyParsemex_start d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyFUhA_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyPEhO_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyoperand_start d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappyParsemex_1 :: TestPappyDerivs -> Result TestPappyDerivs (Mex)+testPappyParsemex_1 d =+ case testPappymex_2 d of+ Parsed m2 d1 e1 ->+ case pappyResult3 of+ Parsed bfom d3 e3 ->+ Parsed ( maybe m2 (\(b, f, o, m1) -> BIhE m2 b f o m1) bfom ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case pappyResult7 of+ Parsed b d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ case testPappyoperator d9 of+ Parsed o d11 e11 ->+ case testPappymex_1 d11 of+ Parsed m d13 e13 ->+ Parsed ( (b, f, o, m) ) d13 (maximum [e13,e11,e9,e7])+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])+ NoParse e11 -> NoParse (maximum [e11,e9,e7])+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ where+ pappyResult7 =+ case testPappyBIhE_pre d1 of+ Parsed p d9 e9 ->+ case testPappypost_clause d9 of+ Parsed q d11 e11 ->+ Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)+ NoParse e11 -> NoParse (max e11 e9)+ NoParse e9 -> NoParse e9+ NoParse e1 -> NoParse e1++testPappyParsemex_2 :: TestPappyDerivs -> Result TestPappyDerivs (Mex)+testPappyParsemex_2 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyoperand d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed p d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappyoperator d5 of+ Parsed o d7 e7 ->+ case testPappyPlusRule7 d7 of+ Parsed fo d9 e9 ->+ case pappyResult11 of+ Parsed k d11 e11 ->+ case testPappyStarRule188 d11 of+ Parsed g d13 e13 ->+ Parsed ( PEhO p f o fo k g ) d13 (maximum [e13,e11,e9,e7,e5,e3,e1])+ NoParse e13 -> pappyAlt1_3 (maximum [e13,e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])+ where+ pappyResult11 =+ case pappyResult13 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ where+ pappyResult13 =+ case testPappyKUhE_pre d9 of+ Parsed p d15 e15 ->+ case testPappypost_clause d15 of+ Parsed q d17 e17 ->+ Parsed ( (fst p, snd p, q) ) d17 (max e17 e15)+ NoParse e17 -> NoParse (max e17 e15)+ NoParse e15 -> NoParse e15+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ case testPappyPEhO_clause d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_3 e1 = NoParse e1++testPappyrp_expression :: TestPappyDerivs -> Result TestPappyDerivs (RPExpression)+testPappyrp_expression d =+ case testPappyoperand d of+ Parsed o d1 e1 ->+ case testPappyrp_expression_tail d1 of+ Parsed rt d3 e3 ->+ Parsed ( RPExpression o rt ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParserp_expression_tail :: TestPappyDerivs -> Result TestPappyDerivs ( Maybe RPExpressionTail)+testPappyParserp_expression_tail d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyrp_expression d of+ Parsed r d3 e3 ->+ case testPappyoperator d3 of+ Parsed o d5 e5 ->+ case testPappyrp_expression_tail d5 of+ Parsed rt d7 e7 ->+ Parsed ( Just (RPExpressionTail r o rt) ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ( Nothing ) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule124 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule124 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule124 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyoperator_start d of+ Parsed _ d5 e5 ->+ case testPappyStarRule128 d5 of+ Parsed _ d7 e7 ->+ case testPappySA_clause d7 of+ Parsed _ d9 e9 ->+ case testPappyoperator_0 d9 of+ Parsed _ _ e11 ->+ Parsed ( () ) d9 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyoperator :: TestPappyDerivs -> Result TestPappyDerivs (MexOperator)+testPappyoperator d =+ case testPappyStarRule124 d of+ Parsed _ d1 e1 ->+ case testPappyoperator_0 d1 of+ Parsed o0 d3 e3 ->+ Parsed ( o0 ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule125 :: TestPappyDerivs -> Result TestPappyDerivs ([ Either (JoikJek, [Free], MexOperator) (Joik, Maybe Tag, Clause, [Free], MexOperator, Maybe Clause, [Free]) ])+testPappyParseStarRule125 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule125 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyjoik_jek d of+ Parsed jf d7 e7 ->+ case testPappyoperator_1 d7 of+ Parsed o1 d9 e9 ->+ Parsed ( Left (fst jf, snd jf, o1) ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyjoik d of+ Parsed j d7 e7 ->+ case pappyResult9 of+ Parsed t d9 e9 ->+ case testPappyKE_clause d9 of+ Parsed ke d11 e11 ->+ case testPappyStarRule188 d11 of+ Parsed f d13 e13 ->+ case testPappyoperator d13 of+ Parsed o d15 e15 ->+ case pappyResult17 of+ Parsed kehe d17 e17 ->+ case testPappyStarRule188 d17 of+ Parsed g d19 e19 ->+ Parsed ( Right (j, t, ke, f, o, kehe, g) ) d19 (maximum [e19,e17,e15,e13,e11,e9,e7,e5])+ NoParse e19 -> pappyAlt5_3 (maximum [e19,e17,e15,e13,e11,e9,e7,e5])+ NoParse e17 -> pappyAlt5_3 (maximum [e17,e15,e13,e11,e9,e7,e5])+ where+ pappyResult17 =+ case testPappyKEhE_clause d15 of+ Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19+ NoParse e19 -> Parsed (Nothing) d15 e19+ NoParse e15 -> pappyAlt5_3 (maximum [e15,e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ where+ pappyResult9 =+ case testPappystag d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyoperator_0 :: TestPappyDerivs -> Result TestPappyDerivs (MexOperator)+testPappyoperator_0 d =+ case testPappyoperator_1 d of+ Parsed o1 d1 e1 ->+ case testPappyStarRule125 d1 of+ Parsed j d3 e3 ->+ Parsed ( JoikJekJoikKEOperator o1 j ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule128 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule128 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule128 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyoperator_start d of+ NoParse e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d) []) where+ pappyAlt9_1 e9 =+ case testPappypre_zei_bu d of+ Parsed _ d11 e11 ->+ Parsed ( () ) d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappySA_clause d of+ Parsed _ d11 e11 ->+ case testPappyoperator_start d11 of+ NoParse e13 ->+ Parsed ( () ) d11 (maximum [e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ Parsed _ _ e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseoperator_start :: TestPappyDerivs -> Result TestPappyDerivs ( () )+testPappyParseoperator_start d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyguhek d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyKE_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case pappyResult3 of+ Parsed _ d3 e3 ->+ case testPappyNAhE_clause d3 of+ Parsed _ d5 e5 ->+ Parsed ( () ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ where+ pappyResult3 =+ case testPappySE_clause d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_4 e1 =+ case pappyResult3 of+ Parsed _ d3 e3 ->+ case testPappyMAhO_clause d3 of+ Parsed _ d5 e5 ->+ Parsed ( () ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ where+ pappyResult3 =+ case testPappySE_clause d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_5 e1 =+ case pappyResult3 of+ Parsed _ d3 e3 ->+ case testPappyVUhU_clause d3 of+ Parsed _ d5 e5 ->+ Parsed ( () ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_6 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_6 (max e3 e1)+ where+ pappyResult3 =+ case testPappySE_clause d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_6 e1 = NoParse e1++testPappyParseoperator_1 :: TestPappyDerivs -> Result TestPappyDerivs (MexOperator)+testPappyParseoperator_1 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyoperator_2 d of+ Parsed o2 d3 e3 ->+ case pappyResult5 of+ Parsed jtbfo1 d5 e5 ->+ Parsed ( maybe o2 (\(j, t, b, f, o1) -> JekJoikBOOperator o2 j t b f o1) jtbfo1 ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case pappyResult7 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ where+ pappyResult7 =+ case pappyResult9 of+ Parsed j d9 e9 ->+ case pappyResult11 of+ Parsed t d11 e11 ->+ case testPappyBO_clause d11 of+ Parsed b d13 e13 ->+ case testPappyStarRule188 d13 of+ Parsed f d15 e15 ->+ case testPappyoperator_1 d15 of+ Parsed o1 d17 e17 ->+ Parsed ( (j, t, b, f, o1) ) d17 (maximum [e17,e15,e13,e11,e9])+ NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9])+ NoParse e15 -> NoParse (maximum [e15,e13,e11,e9])+ NoParse e13 -> NoParse (maximum [e13,e11,e9])+ NoParse e11 -> NoParse (max e11 e9)+ where+ pappyResult11 =+ case testPappystag d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> NoParse e9+ where+ pappyResult9 =+ pappyAlt11_1 (ParseError (testPappyPos d3) []) where+ pappyAlt11_1 e11 =+ case testPappyjek d3 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_2 (max e13 e11)+ pappyAlt11_2 e11 =+ case testPappyjoik d3 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_3 (max e13 e11)+ pappyAlt11_3 e11 = NoParse e11+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyguhek d of+ Parsed guhek d3 e3 ->+ case testPappyoperator_1 d3 of+ Parsed o1 d5 e5 ->+ case testPappygik d5 of+ Parsed gik d7 e7 ->+ case testPappyoperator_2 d7 of+ Parsed o2 d9 e9 ->+ Parsed ( GuhekOperator guhek o1 gik o2 ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseoperator_2 :: TestPappyDerivs -> Result TestPappyDerivs (MexOperator)+testPappyParseoperator_2 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappymex_operator d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyKE_clause d of+ Parsed ke d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappyoperator d5 of+ Parsed o d7 e7 ->+ case pappyResult9 of+ Parsed kehe d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ Parsed ( KEOperator ke f o kehe g ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case testPappyKEhE_clause d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParsemex_operator :: TestPappyDerivs -> Result TestPappyDerivs (MexOperator)+testPappyParsemex_operator d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappySE_clause d of+ Parsed s d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappymex_operator d5 of+ Parsed m d7 e7 ->+ Parsed ( SEOperator s f m ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyNAhE_clause d of+ Parsed n d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappymex_operator d5 of+ Parsed m d7 e7 ->+ Parsed ( NAhEOperator n f m ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyMAhO_clause d of+ Parsed maho d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappymex d5 of+ Parsed m d7 e7 ->+ case pappyResult9 of+ Parsed t d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ Parsed ( MAhO maho f m t g ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_4 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_4 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case testPappyTEhU_clause d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case pappyResult3 of+ Parsed n d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappyselbri d5 of+ Parsed s d7 e7 ->+ case pappyResult9 of+ Parsed t d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ Parsed ( NAhU n f s t g ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_5 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_5 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case testPappyTEhU_clause d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt1_5 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ where+ pappyResult3 =+ case testPappyNAhU_pre d of+ Parsed p d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_5 e1 =+ case testPappyVUhU_clause d of+ Parsed v d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( VUhU v f ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_6 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_6 (max e3 e1)+ pappyAlt1_6 e1 = NoParse e1++testPappyParseStarRule139 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule139 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule139 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyoperand_start d of+ Parsed _ d5 e5 ->+ case testPappyStarRule142 d5 of+ Parsed _ d7 e7 ->+ case testPappySA_clause d7 of+ Parsed _ d9 e9 ->+ case testPappyoperand_0 d9 of+ Parsed _ _ e11 ->+ Parsed ( () ) d9 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyoperand :: TestPappyDerivs -> Result TestPappyDerivs (Operand)+testPappyoperand d =+ case testPappyStarRule139 d of+ Parsed _ d1 e1 ->+ case testPappyoperand_0 d1 of+ Parsed o0 d3 e3 ->+ Parsed ( o0 ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseoperand_0 :: TestPappyDerivs -> Result TestPappyDerivs (Operand)+testPappyParseoperand_0 d =+ case pappyResult1 of+ Parsed o1 d1 e1 ->+ case pappyResult3 of+ Parsed jftkefokeheg d3 e3 ->+ Parsed ( maybe o1 (\(j, f, t, ke, g, o, kehe, h) -> OperandJoikEkKE o1 j f t ke g o kehe h) jftkefokeheg ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case testPappyjoik_ek d1 of+ Parsed jf d7 e7 ->+ case pappyResult9 of+ Parsed t d9 e9 ->+ case testPappyKE_clause d9 of+ Parsed ke d11 e11 ->+ case testPappyStarRule188 d11 of+ Parsed f d13 e13 ->+ case testPappyoperand d13 of+ Parsed o d15 e15 ->+ case pappyResult17 of+ Parsed kehe d17 e17 ->+ case testPappyStarRule188 d17 of+ Parsed g d19 e19 ->+ Parsed ( (fst jf, snd jf, t, ke, f, o, kehe, g) ) d19 (maximum [e19,e17,e15,e13,e11,e9,e7])+ NoParse e19 -> NoParse (maximum [e19,e17,e15,e13,e11,e9,e7])+ NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9,e7])+ where+ pappyResult17 =+ case testPappyKEhE_clause d15 of+ Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19+ NoParse e19 -> Parsed (Nothing) d15 e19+ NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])+ NoParse e11 -> NoParse (maximum [e11,e9,e7])+ NoParse e9 -> NoParse (max e9 e7)+ where+ pappyResult9 =+ case testPappystag d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> NoParse e7+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyoperand_2 d of+ Parsed o2 d3 e3 ->+ case testPappyStarRule143 d3 of+ Parsed jeo2 d5 e5 ->+ Parsed ( if null jeo2 then o2 else OperandJoikEk o2 jeo2 ) d5 (max e5 e3)+ NoParse e5 -> NoParse (max e5 e3)+ NoParse e3 -> NoParse e3++testPappyParseStarRule142 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule142 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule142 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyoperand_start d of+ NoParse e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d) []) where+ pappyAlt9_1 e9 =+ case testPappypre_zei_bu d of+ Parsed _ d11 e11 ->+ Parsed ( () ) d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappySA_clause d of+ Parsed _ d11 e11 ->+ case testPappyoperand_start d11 of+ NoParse e13 ->+ Parsed ( () ) d11 (maximum [e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ Parsed _ _ e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseoperand_start :: TestPappyDerivs -> Result TestPappyDerivs ( () )+testPappyParseoperand_start d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyquantifier d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappylerfu_word d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyNIhE_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case testPappyMOhE_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 =+ case testPappyJOhI_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_6 (max e3 e1)+ pappyAlt1_6 e1 =+ case testPappygek d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_7 (max e3 e1)+ pappyAlt1_7 e1 =+ case testPappyLAhE_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_8 (max e3 e1)+ pappyAlt1_8 e1 =+ case testPappyNAhE_clause d of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_9 (max e3 e1)+ pappyAlt1_9 e1 = NoParse e1++testPappyParseStarRule143 :: TestPappyDerivs -> Result TestPappyDerivs ([ (JoikEk, [Free], Operand) ])+testPappyParseStarRule143 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule143 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyjoik_ek d of+ Parsed j d5 e5 ->+ case testPappyoperand_2 d5 of+ Parsed o d7 e7 ->+ Parsed ( (fst j, snd j, o) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseoperand_2 :: TestPappyDerivs -> Result TestPappyDerivs (Operand)+testPappyParseoperand_2 d =+ case testPappyoperand_3 d of+ Parsed o3 d1 e1 ->+ case pappyResult3 of+ Parsed jtbfo d3 e3 ->+ Parsed ( maybe o3 (\(j, f, t, b, g, o2) -> OperandJoikEkBO o3 j f t b g o2) jtbfo ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case testPappyjoik_ek d1 of+ Parsed j d7 e7 ->+ case pappyResult9 of+ Parsed t d9 e9 ->+ case testPappyBO_clause d9 of+ Parsed b d11 e11 ->+ case testPappyStarRule188 d11 of+ Parsed f d13 e13 ->+ case testPappyoperand_2 d13 of+ Parsed o d15 e15 ->+ Parsed ( (fst j, snd j, t, b, f, o) ) d15 (maximum [e15,e13,e11,e9,e7])+ NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> NoParse (maximum [e13,e11,e9,e7])+ NoParse e11 -> NoParse (maximum [e11,e9,e7])+ NoParse e9 -> NoParse (max e9 e7)+ where+ pappyResult9 =+ case testPappystag d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> NoParse e7+ NoParse e1 -> NoParse e1++testPappyParsePlusRule7 :: TestPappyDerivs -> Result TestPappyDerivs ([Mex])+testPappyParsePlusRule7 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappymex_2 d of+ Parsed v d3 e3 ->+ case testPappyPlusRule7 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappymex_2 d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseoperand_3 :: TestPappyDerivs -> Result TestPappyDerivs (Operand)+testPappyParseoperand_3 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyquantifier d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappylerfu_string d of+ Parsed l d3 e3 ->+ case testPappyMOI_clause d3 of+ NoParse e5 ->+ case pappyResult7 of+ Parsed b d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ Parsed ( OLerfuString l b f ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyBOI_clause d3 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d3 e9+ Parsed _ _ e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyNIhE_clause d of+ Parsed n d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappyselbri d5 of+ Parsed s d7 e7 ->+ case pappyResult9 of+ Parsed t d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ Parsed ( NIhE n f s t g ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_4 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_4 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case testPappyTEhU_clause d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case testPappyMOhE_clause d of+ Parsed m d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappysumti d5 of+ Parsed s d7 e7 ->+ case pappyResult9 of+ Parsed t d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ Parsed ( MOhE m f s t g ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_5 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_5 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case testPappyTEhU_clause d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt1_5 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 =+ case testPappyJOhI_clause d of+ Parsed j d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappyPlusRule7 d5 of+ Parsed m d7 e7 ->+ case pappyResult9 of+ Parsed t d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ Parsed ( JOhI j f m t g ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_6 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_6 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case testPappyTEhU_clause d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt1_6 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_6 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_6 (max e3 e1)+ pappyAlt1_6 e1 =+ case testPappygek d of+ Parsed gek d3 e3 ->+ case testPappyoperand d3 of+ Parsed o d5 e5 ->+ case testPappygik d5 of+ Parsed gik d7 e7 ->+ case testPappyoperand_3 d7 of+ Parsed o3 d9 e9 ->+ Parsed ( GekOperand gek o gik o3 ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_7 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_7 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_7 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_7 (max e3 e1)+ pappyAlt1_7 e1 =+ case testPappyLAhE_NAhE d of+ Parsed lnbf d3 e3 ->+ case testPappyoperand d3 of+ Parsed o d5 e5 ->+ case pappyResult7 of+ Parsed l d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed g d9 e9 ->+ Parsed ( let (ln, b, f) = lnbf in LAhE_NAhEOperand ln b f o l g ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_8 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_8 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyLUhU_clause d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_8 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_8 (max e3 e1)+ pappyAlt1_8 e1 = NoParse e1++testPappynumber :: TestPappyDerivs -> Result TestPappyDerivs (Number)+testPappynumber d =+ case testPappyPA_clause d of+ Parsed p d1 e1 ->+ case testPappyStarRule154 d1 of+ Parsed pls d3 e3 ->+ Parsed ( p : concat pls ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule154 :: TestPappyDerivs -> Result TestPappyDerivs ([ [Clause] ])+testPappyParseStarRule154 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule154 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyPA_clause d of+ Parsed p d7 e7 ->+ Parsed ( [p] ) d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappylerfu_word d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappylerfu_string :: TestPappyDerivs -> Result TestPappyDerivs (LerfuString)+testPappylerfu_string d =+ case testPappylerfu_word d of+ Parsed l d1 e1 ->+ case testPappyStarRule154 d1 of+ Parsed pls d3 e3 ->+ Parsed ( l ++ concat pls ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParselerfu_word :: TestPappyDerivs -> Result TestPappyDerivs ( [Clause] )+testPappyParselerfu_word d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed b d3 e3 ->+ Parsed ( [b] ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyBY_pre d of+ Parsed p d7 e7 ->+ case testPappypost_clause d7 of+ Parsed q d9 e9 ->+ Parsed ( (fst p, snd p, q) ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappypre_clause d of+ Parsed p d7 e7 ->+ case testPappybu_clause_no_pre d7 of+ Parsed b d9 e9 ->+ Parsed ( (p, fst b, snd b) ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed lau d3 e3 ->+ case testPappylerfu_word d3 of+ Parsed l d5 e5 ->+ Parsed ( lau : l ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ case testPappyLAU_pre d of+ Parsed p d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_3 e1 =+ case pappyResult3 of+ Parsed tei d3 e3 ->+ case testPappylerfu_string d3 of+ Parsed l d5 e5 ->+ case pappyResult7 of+ Parsed f d7 e7 ->+ Parsed ( tei : l ++ [f] ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyFOI_pre d5 of+ Parsed p d9 e9 ->+ case testPappypost_clause d9 of+ Parsed q d11 e11 ->+ Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)+ NoParse e11 -> NoParse (max e11 e9)+ NoParse e9 -> NoParse e9+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ where+ pappyResult3 =+ case testPappyTEI_pre d of+ Parsed p d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_4 e1 = NoParse e1++testPappyParseek :: TestPappyDerivs -> Result TestPappyDerivs (Ek)+testPappyParseek d =+ case pappyResult1 of+ Parsed na d1 e1 ->+ case pappyResult3 of+ Parsed s d3 e3 ->+ case pappyResult5 of+ Parsed a d5 e5 ->+ case pappyResult7 of+ Parsed nai d7 e7 ->+ Parsed ( Ek na s a nai ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyNAI_clause d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyA_pre d3 of+ Parsed p d7 e7 ->+ case testPappypost_clause d7 of+ Parsed q d9 e9 ->+ Parsed ( (fst p, snd p, q) ) d9 (max e9 e7)+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappySE_clause d1 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyNA_clause d of+ Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3+ NoParse e3 -> Parsed (Nothing) d e3++testPappyParseStarRule155 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule155 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule155 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappygihek_1 d of+ Parsed _ d5 e5 ->+ case testPappyStarRule156 d5 of+ Parsed _ d7 e7 ->+ case testPappySA_clause d7 of+ Parsed _ d9 e9 ->+ case testPappygihek d9 of+ Parsed _ _ e11 ->+ Parsed ( () ) d9 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappygihek :: TestPappyDerivs -> Result TestPappyDerivs (Gihek)+testPappygihek d =+ case testPappyStarRule155 d of+ Parsed _ d1 e1 ->+ case testPappygihek_1 d1 of+ Parsed g d3 e3 ->+ Parsed ( g ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParsegihek_1 :: TestPappyDerivs -> Result TestPappyDerivs (Gihek)+testPappyParsegihek_1 d =+ case pappyResult1 of+ Parsed na d1 e1 ->+ case pappyResult3 of+ Parsed s d3 e3 ->+ case pappyResult5 of+ Parsed g d5 e5 ->+ case pappyResult7 of+ Parsed nai d7 e7 ->+ Parsed ( Gihek na s g nai ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyNAI_clause d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyGIhA_pre d3 of+ Parsed p d7 e7 ->+ case testPappypost_clause d7 of+ Parsed q d9 e9 ->+ Parsed ( (fst p, snd p, q) ) d9 (max e9 e7)+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappySE_clause d1 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyNA_clause d of+ Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3+ NoParse e3 -> Parsed (Nothing) d e3++testPappyParseStarRule156 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule156 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule156 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappygihek_1 d of+ NoParse e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d) []) where+ pappyAlt9_1 e9 =+ case testPappypre_zei_bu d of+ Parsed _ d11 e11 ->+ Parsed ( () ) d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappySA_clause d of+ Parsed _ d11 e11 ->+ case testPappygihek_1 d11 of+ NoParse e13 ->+ Parsed ( () ) d11 (maximum [e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ Parsed _ _ e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsejek :: TestPappyDerivs -> Result TestPappyDerivs (Jek)+testPappyParsejek d =+ case pappyResult1 of+ Parsed na d1 e1 ->+ case pappyResult3 of+ Parsed s d3 e3 ->+ case testPappyJA_clause d3 of+ Parsed j d5 e5 ->+ case pappyResult7 of+ Parsed nai d7 e7 ->+ Parsed ( Jek na s j nai ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyNAI_clause d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappySE_clause d1 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyNA_clause d of+ Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3+ NoParse e3 -> Parsed (Nothing) d e3++testPappyParsejoik :: TestPappyDerivs -> Result TestPappyDerivs (Joik)+testPappyParsejoik d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed s d3 e3 ->+ case pappyResult5 of+ Parsed j d5 e5 ->+ case pappyResult7 of+ Parsed n d7 e7 ->+ Parsed ( JOI s j n ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyNAI_clause d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyJOI_pre d3 of+ Parsed p d7 e7 ->+ case testPappypost_clause d7 of+ Parsed q d9 e9 ->+ Parsed ( (fst p, snd p, q) ) d9 (max e9 e7)+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappySE_clause d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_2 e1 =+ case testPappyinterval d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyGAhO_clause d of+ Parsed g1 d3 e3 ->+ case testPappyinterval d3 of+ Parsed i d5 e5 ->+ case testPappyGAhO_clause d5 of+ Parsed g2 d7 e7 ->+ Parsed ( GAhO g1 i g2 ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappyParseinterval :: TestPappyDerivs -> Result TestPappyDerivs (Joik)+testPappyParseinterval d =+ case pappyResult1 of+ Parsed s d1 e1 ->+ case pappyResult3 of+ Parsed b d3 e3 ->+ case pappyResult5 of+ Parsed n d5 e5 ->+ Parsed ( BIhI s b n ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyNAI_clause d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyBIhI_pre d1 of+ Parsed p d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappySE_clause d of+ Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3+ NoParse e3 -> Parsed (Nothing) d e3++testPappyParseStarRule157 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule157 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule157 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyjoik_ek_1 d of+ Parsed _ d5 e5 ->+ case testPappyStarRule160 d5 of+ Parsed _ d7 e7 ->+ case testPappySA_clause d7 of+ Parsed _ d9 e9 ->+ case testPappyjoik_ek d9 of+ Parsed _ _ e11 ->+ Parsed ( () ) d9 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyjoik_ek :: TestPappyDerivs -> Result TestPappyDerivs ( (JoikEk, [Free]) )+testPappyjoik_ek d =+ case testPappyStarRule157 d of+ Parsed _ d1 e1 ->+ case testPappyjoik_ek_1 d1 of+ Parsed j d3 e3 ->+ Parsed ( j ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyjoik_ek_1 :: TestPappyDerivs -> Result TestPappyDerivs ( (JoikEk, [Free]) )+testPappyjoik_ek_1 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyjoik d of+ Parsed j d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( (j, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyek d of+ Parsed e d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( (e, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule160 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule160 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule160 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyjoik_ek_1 d of+ NoParse e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d) []) where+ pappyAlt9_1 e9 =+ case testPappypre_zei_bu d of+ Parsed _ d11 e11 ->+ Parsed ( () ) d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappySA_clause d of+ Parsed _ d11 e11 ->+ case testPappyjoik_ek_1 d11 of+ NoParse e13 ->+ Parsed ( () ) d11 (maximum [e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ Parsed _ _ e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyjoik_jek :: TestPappyDerivs -> Result TestPappyDerivs ( (JoikJek, [Free]) )+testPappyjoik_jek d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyjoik d of+ Parsed j d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( (j, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyjek d of+ Parsed j d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( (j, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParsegek :: TestPappyDerivs -> Result TestPappyDerivs (Gek)+testPappyParsegek d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed s d3 e3 ->+ case pappyResult5 of+ Parsed g d5 e5 ->+ case pappyResult7 of+ Parsed n d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ Parsed ( GA s g n f ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyNAI_clause d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyGA_pre d3 of+ Parsed p d7 e7 ->+ case testPappypost_clause d7 of+ Parsed q d9 e9 ->+ Parsed ( (fst p, snd p, q) ) d9 (max e9 e7)+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappySE_clause d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_2 e1 =+ case testPappyjoik d of+ Parsed j d3 e3 ->+ case testPappyGI_clause d3 of+ Parsed g d5 e5 ->+ case testPappyStarRule188 d5 of+ Parsed f d7 e7 ->+ Parsed ( JoikGI j g f ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappystag d of+ Parsed s d3 e3 ->+ case testPappygik d3 of+ Parsed g d5 e5 ->+ Parsed ( STagGik s g ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappyParseguhek :: TestPappyDerivs -> Result TestPappyDerivs (Guhek)+testPappyParseguhek d =+ case pappyResult1 of+ Parsed s d1 e1 ->+ case pappyResult3 of+ Parsed g d3 e3 ->+ case pappyResult5 of+ Parsed n d5 e5 ->+ case testPappyStarRule188 d5 of+ Parsed f d7 e7 ->+ Parsed ( (s, g, n, f) ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyNAI_clause d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyGUhA_pre d1 of+ Parsed p d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappySE_clause d of+ Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3+ NoParse e3 -> Parsed (Nothing) d e3++testPappyParsegik :: TestPappyDerivs -> Result TestPappyDerivs (Gik)+testPappyParsegik d =+ case testPappyGI_clause d of+ Parsed g d1 e1 ->+ case pappyResult3 of+ Parsed n d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( (g, n, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyNAI_clause d1 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ NoParse e1 -> NoParse e1++testPappytag :: TestPappyDerivs -> Result TestPappyDerivs (Tag)+testPappytag d =+ case testPappytense_modal d of+ Parsed t1 d1 e1 ->+ case testPappyStarRule169 d1 of+ Parsed jt d3 e3 ->+ Parsed ( if null jt then t1 else JoikJekTag t1 jt ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule168 :: TestPappyDerivs -> Result TestPappyDerivs ([ (JoikJek, Tag) ])+testPappyParseStarRule168 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule168 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed j d5 e5 ->+ case testPappysimple_tense_modal d5 of+ Parsed s d7 e7 ->+ Parsed ( (j, s) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (testPappyPos d) []) where+ pappyAlt7_1 e7 =+ case testPappyjek d of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ case testPappyjoik d of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_3 (max e9 e7)+ pappyAlt7_3 e7 = NoParse e7+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule169 :: TestPappyDerivs -> Result TestPappyDerivs ([ (JoikJek, [Free], Tag) ])+testPappyParseStarRule169 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule169 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyjoik_jek d of+ Parsed jf d5 e5 ->+ case testPappytense_modal d5 of+ Parsed t d7 e7 ->+ Parsed ( (fst jf, snd jf, t) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappystag :: TestPappyDerivs -> Result TestPappyDerivs (Tag)+testPappystag d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappysimple_tense_modal d of+ Parsed st d3 e3 ->+ case testPappyStarRule168 d3 of+ Parsed jst d5 e5 ->+ Parsed ( if null jst then st else JekJoikSTag st jst ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappytense_modal d of+ Parsed t d3 e3 ->+ case testPappyStarRule169 d3 of+ Parsed jt d5 e5 ->+ Parsed ( if null jt then t else JoikJekTag t jt ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParsetense_modal :: TestPappyDerivs -> Result TestPappyDerivs (Tag)+testPappyParsetense_modal d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappysimple_tense_modal d of+ Parsed s d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ Parsed ( if null f then s else SimpleTenseModalFree s f ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed fiho d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed f d5 e5 ->+ case testPappyselbri d5 of+ Parsed s d7 e7 ->+ case pappyResult9 of+ Parsed fehu d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed g d11 e11 ->+ Parsed ( FIhO fiho f s fehu g ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case pappyResult11 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ where+ pappyResult11 =+ case testPappyFEhU_pre d7 of+ Parsed p d13 e13 ->+ case testPappypost_clause d13 of+ Parsed q d15 e15 ->+ Parsed ( (fst p, snd p, q) ) d15 (max e15 e13)+ NoParse e15 -> NoParse (max e15 e13)+ NoParse e13 -> NoParse e13+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ case testPappyFIhO_pre d of+ Parsed p d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_3 e1 = NoParse e1++testPappyParsesimple_tense_modal :: TestPappyDerivs -> Result TestPappyDerivs (Tag)+testPappyParsesimple_tense_modal d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed nahe d3 e3 ->+ case pappyResult5 of+ Parsed s d5 e5 ->+ case pappyResult7 of+ Parsed b d7 e7 ->+ case pappyResult9 of+ Parsed nai d9 e9 ->+ case pappyResult11 of+ Parsed ki d11 e11 ->+ Parsed ( BAI nahe s b nai ki ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])+ where+ pappyResult11 =+ case testPappyKI_clause d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case testPappyNAI_clause d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyBAI_pre d5 of+ Parsed p d9 e9 ->+ case testPappypost_clause d9 of+ Parsed q d11 e11 ->+ Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)+ NoParse e11 -> NoParse (max e11 e9)+ NoParse e9 -> NoParse e9+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappySE_clause d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyNAhE_clause d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed n d3 e3 ->+ case pappyResult5 of+ Parsed tsc d5 e5 ->+ case pappyResult7 of+ Parsed k d7 e7 ->+ Parsed ( if isNothing n && isNothing k then tsc else NAhETenseKI n tsc k ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyKI_clause d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (testPappyPos d3) []) where+ pappyAlt7_1 e7 =+ case testPappytime_space d3 of+ Parsed t d9 e9 ->+ case testPappyCAhA_clause d9 of+ Parsed c d11 e11 ->+ Parsed ( TenseCAhA t c ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_2 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ case testPappytime_space d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_3 (max e9 e7)+ pappyAlt7_3 e7 =+ case testPappyCAhA_clause d3 of+ Parsed c d9 e9 ->+ Parsed ( CAhA c ) d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_4 (max e9 e7)+ pappyAlt7_4 e7 = NoParse e7+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ case testPappyNAhE_clause d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_3 e1 =+ case testPappyKI_clause d of+ Parsed k d3 e3 ->+ Parsed ( KI k ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case pappyResult3 of+ Parsed c d3 e3 ->+ Parsed ( CUhE c ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ where+ pappyResult3 =+ case testPappyCUhE_pre d of+ Parsed p d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_5 e1 = NoParse e1++testPappytime_space :: TestPappyDerivs -> Result TestPappyDerivs (Tense)+testPappytime_space d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappytime d of+ Parsed t d3 e3 ->+ case pappyResult5 of+ Parsed s d5 e5 ->+ Parsed ( maybe t (TimeSpace t) s ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspace d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyspace d of+ Parsed s d3 e3 ->+ case pappyResult5 of+ Parsed t d5 e5 ->+ Parsed ( maybe s (SpaceTime s) t ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappytime d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParsePlusRule8 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, Maybe Clause, Maybe Clause) ])+testPappyParsePlusRule8 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappytime_offset d of+ Parsed v d3 e3 ->+ case testPappyPlusRule8 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappytime_offset d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule177 :: TestPappyDerivs -> Result TestPappyDerivs ([IntervalProperty])+testPappyParseStarRule177 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyinterval_property d of+ Parsed v d3 e3 ->+ case testPappyStarRule177 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule178 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, Maybe Clause, Maybe Clause) ])+testPappyParseStarRule178 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappytime_offset d of+ Parsed v d3 e3 ->+ case testPappyStarRule178 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsePlusRule9 :: TestPappyDerivs -> Result TestPappyDerivs ([IntervalProperty])+testPappyParsePlusRule9 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyinterval_property d of+ Parsed v d3 e3 ->+ case testPappyPlusRule9 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyinterval_property d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParsetime :: TestPappyDerivs -> Result TestPappyDerivs (Tense)+testPappyParsetime d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyZI_clause d of+ Parsed zi d3 e3 ->+ case testPappyStarRule178 d3 of+ Parsed t d5 e5 ->+ case pappyResult7 of+ Parsed zeha d7 e7 ->+ case testPappyStarRule177 d7 of+ Parsed i d9 e9 ->+ Parsed ( Time (Just zi) t zeha i ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyzeha_pu d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed zi d3 e3 ->+ case testPappyPlusRule8 d3 of+ Parsed t d5 e5 ->+ case pappyResult7 of+ Parsed zeha d7 e7 ->+ case testPappyStarRule177 d7 of+ Parsed i d9 e9 ->+ Parsed ( Time zi t zeha i ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyzeha_pu d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ case testPappyZI_clause d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_3 e1 =+ case pappyResult3 of+ Parsed zi d3 e3 ->+ case testPappyStarRule178 d3 of+ Parsed t d5 e5 ->+ case testPappyzeha_pu d5 of+ Parsed zeha d7 e7 ->+ case testPappyStarRule177 d7 of+ Parsed i d9 e9 ->+ Parsed ( Time zi t (Just zeha) i ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_4 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ where+ pappyResult3 =+ case testPappyZI_clause d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_4 e1 =+ case pappyResult3 of+ Parsed zi d3 e3 ->+ case testPappyStarRule178 d3 of+ Parsed t d5 e5 ->+ case pappyResult7 of+ Parsed zeha d7 e7 ->+ case testPappyPlusRule9 d7 of+ Parsed i d9 e9 ->+ Parsed ( Time zi t zeha i ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_5 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_5 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyzeha_pu d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ where+ pappyResult3 =+ case testPappyZI_clause d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_5 e1 = NoParse e1++testPappyParsezeha_pu :: TestPappyDerivs -> Result TestPappyDerivs ( (Clause, Maybe (Clause, Maybe Clause)) )+testPappyParsezeha_pu d =+ case pappyResult1 of+ Parsed z d1 e1 ->+ case pappyResult3 of+ Parsed pn d3 e3 ->+ Parsed ( (z, pn) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case testPappyPU_clause d1 of+ Parsed p d7 e7 ->+ case pappyResult9 of+ Parsed n d9 e9 ->+ Parsed ( (p, n) ) d9 (max e9 e7)+ NoParse e9 -> NoParse (max e9 e7)+ where+ pappyResult9 =+ case testPappyNAI_clause d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> NoParse e7+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyZEhA_pre d of+ Parsed p d3 e3 ->+ case testPappypost_clause d3 of+ Parsed q d5 e5 ->+ Parsed ( (fst p, snd p, q) ) d5 (max e5 e3)+ NoParse e5 -> NoParse (max e5 e3)+ NoParse e3 -> NoParse e3++testPappyParsetime_offset :: TestPappyDerivs -> Result TestPappyDerivs ( (Clause, Maybe Clause, Maybe Clause) )+testPappyParsetime_offset d =+ case testPappyPU_clause d of+ Parsed p d1 e1 ->+ case pappyResult3 of+ Parsed n d3 e3 ->+ case pappyResult5 of+ Parsed z d5 e5 ->+ Parsed ( (p, n, z) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyZI_clause d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyNAI_clause d1 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ NoParse e1 -> NoParse e1++testPappyParsePlusRule10 :: TestPappyDerivs -> Result TestPappyDerivs ([SpaceOffset])+testPappyParsePlusRule10 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyspace_offset d of+ Parsed v d3 e3 ->+ case testPappyPlusRule10 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyspace_offset d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule181 :: TestPappyDerivs -> Result TestPappyDerivs ([SpaceOffset])+testPappyParseStarRule181 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyspace_offset d of+ Parsed v d3 e3 ->+ case testPappyStarRule181 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsespace :: TestPappyDerivs -> Result TestPappyDerivs (Tense)+testPappyParsespace d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyVA_clause d of+ Parsed v d3 e3 ->+ case testPappyStarRule181 d3 of+ Parsed so d5 e5 ->+ case pappyResult7 of+ Parsed si d7 e7 ->+ case pappyResult9 of+ Parsed m d9 e9 ->+ Parsed ( Space (Just v) so si m ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case testPappymohi_space_offset d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyspace_interval d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyPlusRule10 d3 of+ Parsed so d5 e5 ->+ case pappyResult7 of+ Parsed si d7 e7 ->+ case pappyResult9 of+ Parsed m d9 e9 ->+ Parsed ( Space v so si m ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case testPappymohi_space_offset d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyspace_interval d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ case testPappyVA_clause d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_3 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule181 d3 of+ Parsed so d5 e5 ->+ case testPappyspace_interval d5 of+ Parsed si d7 e7 ->+ case pappyResult9 of+ Parsed m d9 e9 ->+ Parsed ( Space v so (Just si) m ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_4 (maximum [e9,e7,e5,e3,e1])+ where+ pappyResult9 =+ case testPappymohi_space_offset d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ where+ pappyResult3 =+ case testPappyVA_clause d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_4 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule181 d3 of+ Parsed so d5 e5 ->+ case pappyResult7 of+ Parsed si d7 e7 ->+ case testPappymohi_space_offset d7 of+ Parsed m d9 e9 ->+ Parsed ( Space v so si (Just m) ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_5 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_5 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyspace_interval d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ where+ pappyResult3 =+ case testPappyVA_clause d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_5 e1 = NoParse e1++testPappymohi_space_offset :: TestPappyDerivs -> Result TestPappyDerivs ( (Clause, SpaceOffset) )+testPappymohi_space_offset d =+ case pappyResult1 of+ Parsed m d1 e1 ->+ case testPappyspace_offset d1 of+ Parsed s d3 e3 ->+ Parsed ( (m, s) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyMOhI_pre d of+ Parsed p d3 e3 ->+ case testPappypost_clause d3 of+ Parsed q d5 e5 ->+ Parsed ( (fst p, snd p, q) ) d5 (max e5 e3)+ NoParse e5 -> NoParse (max e5 e3)+ NoParse e3 -> NoParse e3++testPappyParsespace_offset :: TestPappyDerivs -> Result TestPappyDerivs (SpaceOffset)+testPappyParsespace_offset d =+ case testPappyFAhA_clause d of+ Parsed f d1 e1 ->+ case pappyResult3 of+ Parsed n d3 e3 ->+ case pappyResult5 of+ Parsed v d5 e5 ->+ Parsed ( FAhA f n v ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyVA_clause d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyNAI_clause d1 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ NoParse e1 -> NoParse e1++testPappyParsespace_interval :: TestPappyDerivs -> Result TestPappyDerivs (SpaceInterval)+testPappyParsespace_interval d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyVEhA_VIhA d of+ Parsed vv d3 e3 ->+ case pappyResult5 of+ Parsed fn d5 e5 ->+ case pappyResult7 of+ Parsed s d7 e7 ->+ Parsed ( maybe (uncurry VEhAVIhAFEhE vv s) (\(f, n) -> uncurry VEhAVIhAFAhAFEhE vv f n s) fn ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyPlusRule11 d5 of+ Parsed s d9 e9 ->+ Parsed ( FEhE s ) d9 e9+ NoParse e9 -> NoParse e9+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyFAhA_NAI d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyVEhA_VIhA d of+ Parsed vv d3 e3 ->+ case pappyResult5 of+ Parsed fn d5 e5 ->+ Parsed ( maybe (uncurry VEhAVIhA vv) (\(f, n) -> uncurry VEhAVIhAFAhA vv f n) fn ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyFAhA_NAI d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyPlusRule11 d of+ Parsed s d3 e3 ->+ Parsed ( FEhE s ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappyParseVEhA_VIhA :: TestPappyDerivs -> Result TestPappyDerivs ( (Maybe Clause, Maybe Clause) )+testPappyParseVEhA_VIhA d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyVEhA_clause d of+ Parsed veha d3 e3 ->+ case testPappyVIhA_clause d3 of+ NoParse e5 ->+ Parsed ( (Just veha, Nothing) ) d3 (maximum [e5,e3,e1])+ Parsed _ _ e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyVIhA_clause d of+ Parsed viha d3 e3 ->+ Parsed ( (Nothing, Just viha) ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyVEhA_clause d of+ Parsed veha d3 e3 ->+ case testPappyVIhA_clause d3 of+ Parsed viha d5 e5 ->+ Parsed ( (Just veha, Just viha) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappyFAhA_NAI :: TestPappyDerivs -> Result TestPappyDerivs ( (Clause, Maybe Clause) )+testPappyFAhA_NAI d =+ case testPappyFAhA_clause d of+ Parsed f d1 e1 ->+ case pappyResult3 of+ Parsed n d3 e3 ->+ Parsed ( (f, n) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyNAI_clause d1 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ NoParse e1 -> NoParse e1++testPappyParsePlusRule11 :: TestPappyDerivs -> Result TestPappyDerivs ([ (Clause, IntervalProperty) ])+testPappyParsePlusRule11 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyspace_int_prop d of+ Parsed v d3 e3 ->+ case testPappyPlusRule11 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyspace_int_prop d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyspace_int_prop :: TestPappyDerivs -> Result TestPappyDerivs ( (Clause, IntervalProperty) )+testPappyspace_int_prop d =+ case pappyResult1 of+ Parsed f d1 e1 ->+ case testPappyinterval_property d1 of+ Parsed ip d3 e3 ->+ Parsed ( (f, ip) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyFEhE_pre d of+ Parsed p d3 e3 ->+ case testPappypost_clause d3 of+ Parsed q d5 e5 ->+ Parsed ( (fst p, snd p, q) ) d5 (max e5 e3)+ NoParse e5 -> NoParse (max e5 e3)+ NoParse e3 -> NoParse e3++testPappyParseinterval_property :: TestPappyDerivs -> Result TestPappyDerivs (IntervalProperty)+testPappyParseinterval_property d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappynumber d of+ Parsed n d3 e3 ->+ case pappyResult5 of+ Parsed r d5 e5 ->+ case pappyResult7 of+ Parsed nai d7 e7 ->+ Parsed ( ROI n r nai ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyNAI_clause d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyROI_pre d3 of+ Parsed p d7 e7 ->+ case testPappypost_clause d7 of+ Parsed q d9 e9 ->+ Parsed ( (fst p, snd p, q) ) d9 (max e9 e7)+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed t d3 e3 ->+ case pappyResult5 of+ Parsed n d5 e5 ->+ Parsed ( TAhE t n ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyNAI_clause d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ case testPappyTAhE_pre d of+ Parsed p d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_3 e1 =+ case pappyResult3 of+ Parsed z d3 e3 ->+ case pappyResult5 of+ Parsed n d5 e5 ->+ Parsed ( ZAhO z n ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyNAI_clause d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ where+ pappyResult3 =+ case testPappyZAhO_pre d of+ Parsed p d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( (fst p, snd p, q) ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_4 e1 = NoParse e1++testPappyParsePlusRule12 :: TestPappyDerivs -> Result TestPappyDerivs ([Clause])+testPappyParsePlusRule12 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyCMENE_clause d of+ Parsed v d3 e3 ->+ case testPappyPlusRule12 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyCMENE_clause d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule188 :: TestPappyDerivs -> Result TestPappyDerivs ([Free])+testPappyParseStarRule188 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule188 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case pappyResult7 of+ Parsed sei d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ case pappyResult11 of+ Parsed t d11 e11 ->+ case testPappyselbri d11 of+ Parsed s d13 e13 ->+ case pappyResult15 of+ Parsed sehu d15 e15 ->+ Parsed ( SEI sei f t s sehu ) d15 (maximum [e15,e13,e11,e9,e7,e5])+ NoParse e15 -> pappyAlt5_2 (maximum [e15,e13,e11,e9,e7,e5])+ where+ pappyResult15 =+ case testPappySEhU_clause d13 of+ Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17+ NoParse e17 -> Parsed (Nothing) d13 e17+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ where+ pappyResult11 =+ case pappyResult13 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ where+ pappyResult13 =+ case testPappyPlusRule3 d9 of+ Parsed t d15 e15 ->+ case pappyResult17 of+ Parsed c d17 e17 ->+ case testPappyStarRule188 d17 of+ Parsed f d19 e19 ->+ Parsed ( (t, c, f) ) d19 (maximum [e19,e17,e15])+ NoParse e19 -> NoParse (maximum [e19,e17,e15])+ NoParse e17 -> NoParse (max e17 e15)+ where+ pappyResult17 =+ case testPappyCU_clause d15 of+ Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19+ NoParse e19 -> Parsed (Nothing) d15 e19+ NoParse e15 -> NoParse e15+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ where+ pappyResult7 =+ case testPappySEI_pre d of+ Parsed p d9 e9 ->+ case testPappypost_clause d9 of+ Parsed q d11 e11 ->+ Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)+ NoParse e11 -> NoParse (max e11 e9)+ NoParse e9 -> NoParse e9+ pappyAlt5_2 e5 =+ case pappyResult7 of+ Parsed soi d7 e7 ->+ case testPappyStarRule188 d7 of+ Parsed f d9 e9 ->+ case testPappysumti d9 of+ Parsed s d11 e11 ->+ case pappyResult13 of+ Parsed t d13 e13 ->+ case pappyResult15 of+ Parsed sehu d15 e15 ->+ Parsed ( SOI soi f s t sehu ) d15 (maximum [e15,e13,e11,e9,e7,e5])+ NoParse e15 -> pappyAlt5_3 (maximum [e15,e13,e11,e9,e7,e5])+ where+ pappyResult15 =+ case testPappySEhU_clause d13 of+ Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17+ NoParse e17 -> Parsed (Nothing) d13 e17+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ where+ pappyResult13 =+ case testPappysumti d11 of+ Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15+ NoParse e15 -> Parsed (Nothing) d11 e15+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ where+ pappyResult7 =+ case testPappySOI_pre d of+ Parsed p d9 e9 ->+ case testPappypost_clause d9 of+ Parsed q d11 e11 ->+ Parsed ( (fst p, snd p, q) ) d11 (max e11 e9)+ NoParse e11 -> NoParse (max e11 e9)+ NoParse e9 -> NoParse e9+ pappyAlt5_3 e5 =+ case testPappyvocative d of+ Parsed v d7 e7 ->+ case pappyResult9 of+ Parsed r1 d9 e9 ->+ case testPappyselbri d9 of+ Parsed s d11 e11 ->+ case pappyResult13 of+ Parsed r2 d13 e13 ->+ case pappyResult15 of+ Parsed d d15 e15 ->+ Parsed ( VocativeSelbri v r1 s r2 d ) d15 (maximum [e15,e13,e11,e9,e7,e5])+ NoParse e15 -> pappyAlt5_4 (maximum [e15,e13,e11,e9,e7,e5])+ where+ pappyResult15 =+ case testPappyDOhU_clause d13 of+ Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17+ NoParse e17 -> Parsed (Nothing) d13 e17+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ where+ pappyResult13 =+ case testPappyrelative_clauses d11 of+ Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15+ NoParse e15 -> Parsed (Nothing) d11 e15+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ where+ pappyResult9 =+ case testPappyrelative_clauses d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyvocative d of+ Parsed v d7 e7 ->+ case pappyResult9 of+ Parsed r1 d9 e9 ->+ case testPappyPlusRule12 d9 of+ Parsed c d11 e11 ->+ case testPappyStarRule188 d11 of+ Parsed f d13 e13 ->+ case pappyResult15 of+ Parsed r2 d15 e15 ->+ case pappyResult17 of+ Parsed d d17 e17 ->+ Parsed ( VocativeCmene v r1 c f r2 d ) d17 (maximum [e17,e15,e13,e11,e9,e7,e5])+ NoParse e17 -> pappyAlt5_5 (maximum [e17,e15,e13,e11,e9,e7,e5])+ where+ pappyResult17 =+ case testPappyDOhU_clause d15 of+ Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19+ NoParse e19 -> Parsed (Nothing) d15 e19+ NoParse e15 -> pappyAlt5_5 (maximum [e15,e13,e11,e9,e7,e5])+ where+ pappyResult15 =+ case testPappyrelative_clauses d13 of+ Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17+ NoParse e17 -> Parsed (Nothing) d13 e17+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ where+ pappyResult9 =+ case testPappyrelative_clauses d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyvocative d of+ Parsed v d7 e7 ->+ case pappyResult9 of+ Parsed s d9 e9 ->+ case pappyResult11 of+ Parsed d d11 e11 ->+ Parsed ( VocativeSumti v s d ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ where+ pappyResult11 =+ case testPappyDOhU_clause d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ where+ pappyResult9 =+ case testPappysumti d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case pappyResult7 of+ Parsed nl d7 e7 ->+ case pappyResult9 of+ Parsed m d9 e9 ->+ Parsed ( MAI nl m ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ where+ pappyResult9 =+ case testPappyMAI_pre d7 of+ Parsed p d11 e11 ->+ case testPappypost_clause d11 of+ Parsed q d13 e13 ->+ Parsed ( (fst p, snd p, q) ) d13 (max e13 e11)+ NoParse e13 -> NoParse (max e13 e11)+ NoParse e11 -> NoParse e11+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d) []) where+ pappyAlt9_1 e9 =+ case testPappynumber d of+ Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappylerfu_string d of+ Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = NoParse e9+ pappyAlt5_7 e5 =+ case testPappyTO_clause d of+ Parsed to d7 e7 ->+ case testPappytext d7 of+ Parsed t d9 e9 ->+ case pappyResult11 of+ Parsed toi d11 e11 ->+ Parsed ( TO to t toi ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])+ where+ pappyResult11 =+ case pappyResult13 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ where+ pappyResult13 =+ case testPappyTOI_pre d9 of+ Parsed p d15 e15 ->+ case testPappypost_clause d15 of+ Parsed q d17 e17 ->+ Parsed ( (fst p, snd p, q) ) d17 (max e17 e15)+ NoParse e17 -> NoParse (max e17 e15)+ NoParse e15 -> NoParse e15+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 =+ pappyAlt7_1 e5 where+ pappyAlt7_1 e7 =+ case testPappyXI_clause d of+ Parsed x d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed f d11 e11 ->+ case pappyResult13 of+ Parsed n d13 e13 ->+ case pappyResult15 of+ Parsed b d15 e15 ->+ Parsed ( XINumber x f n b ) d15 (maximum [e15,e13,e11,e9,e7])+ NoParse e15 -> pappyAlt7_2 (maximum [e15,e13,e11,e9,e7])+ where+ pappyResult15 =+ case testPappyBOI_clause d13 of+ Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17+ NoParse e17 -> Parsed (Nothing) d13 e17+ NoParse e13 -> pappyAlt7_2 (maximum [e13,e11,e9,e7])+ where+ pappyResult13 =+ pappyAlt15_1 (ParseError (testPappyPos d11) []) where+ pappyAlt15_1 e15 =+ case testPappynumber d11 of+ Parsed v17 d17 e17 -> Parsed v17 d17 (max e17 e15)+ NoParse e17 -> pappyAlt15_2 (max e17 e15)+ pappyAlt15_2 e15 =+ case testPappylerfu_string d11 of+ Parsed v17 d17 e17 -> Parsed v17 d17 (max e17 e15)+ NoParse e17 -> pappyAlt15_3 (max e17 e15)+ pappyAlt15_3 e15 = NoParse e15+ NoParse e11 -> pappyAlt7_2 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ case testPappyXI_clause d of+ Parsed x d9 e9 ->+ case testPappyStarRule188 d9 of+ Parsed f d11 e11 ->+ case testPappyVEI_clause d11 of+ Parsed vei d13 e13 ->+ case testPappyStarRule188 d13 of+ Parsed g d15 e15 ->+ case testPappymex d15 of+ Parsed m d17 e17 ->+ case pappyResult19 of+ Parsed veho d19 e19 ->+ Parsed ( XIMex x f vei g m veho ) d19 (maximum [e19,e17,e15,e13,e11,e9,e7])+ NoParse e19 -> pappyAlt7_3 (maximum [e19,e17,e15,e13,e11,e9,e7])+ where+ pappyResult19 =+ case testPappyVEhO_clause d17 of+ Parsed v21 d21 e21 -> Parsed (Just v21) d21 e21+ NoParse e21 -> Parsed (Nothing) d17 e21+ NoParse e17 -> pappyAlt7_3 (maximum [e17,e15,e13,e11,e9,e7])+ NoParse e15 -> pappyAlt7_3 (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> pappyAlt7_3 (maximum [e13,e11,e9,e7])+ NoParse e11 -> pappyAlt7_3 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_3 (max e9 e7)+ pappyAlt7_3 e7 = pappyAlt5_9 e7+ pappyAlt5_9 e5 = NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsePlusRule13 :: TestPappyDerivs -> Result TestPappyDerivs ([ [([String], String, Indicators)] ])+testPappyParsePlusRule13 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappycoi_nai d of+ Parsed v d3 e3 ->+ case testPappyPlusRule13 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappycoi_nai d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule189 :: TestPappyDerivs -> Result TestPappyDerivs ([ [([String], String, Indicators)] ])+testPappyParseStarRule189 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappycoi_nai d of+ Parsed v d3 e3 ->+ case testPappyStarRule189 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsevocative :: TestPappyDerivs -> Result TestPappyDerivs ( [([String], String, Indicators)] )+testPappyParsevocative d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyPlusRule13 d of+ Parsed cns d3 e3 ->+ case testPappyDOI_clause d3 of+ Parsed d d5 e5 ->+ Parsed ( concat cns ++ [d] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappycoi_nai d of+ Parsed cn d3 e3 ->+ case testPappyStarRule189 d3 of+ Parsed cns d5 e5 ->+ Parsed ( cn ++ concat cns ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyDOI_clause d of+ Parsed d d3 e3 ->+ Parsed ( [d] ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappyParsecoi_nai :: TestPappyDerivs -> Result TestPappyDerivs ( [([String], String, Indicators)] )+testPappyParsecoi_nai d =+ case pappyResult1 of+ Parsed c d1 e1 ->+ case pappyResult3 of+ Parsed n d3 e3 ->+ Parsed ( c : ml n ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyNAI_clause d1 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyCOI_pre d of+ Parsed p d3 e3 ->+ case testPappypost_clause d3 of+ Parsed q d5 e5 ->+ Parsed ( (fst p, snd p, q) ) d5 (max e5 e3)+ NoParse e5 -> NoParse (max e5 e3)+ NoParse e3 -> NoParse e3++testPappyParsePlusRule14 :: TestPappyDerivs -> Result TestPappyDerivs ([ [([String], String)] ])+testPappyParsePlusRule14 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyindicator d of+ Parsed v d3 e3 ->+ case testPappyPlusRule14 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyindicator d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyindicators :: TestPappyDerivs -> Result TestPappyDerivs ( [([String], String)] )+testPappyindicators d =+ case pappyResult1 of+ Parsed f d1 e1 ->+ case testPappyPlusRule14 d1 of+ Parsed is d3 e3 ->+ Parsed ( ml f ++ concat is ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case pappyResult3 of+ Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3+ NoParse e3 -> Parsed (Nothing) d e3+ where+ pappyResult3 =+ case testPappyFUhE_pre d of+ Parsed pre d5 e5 ->+ case testPappypost_clause_no_ind d5 of+ Parsed _ d7 e7 ->+ Parsed ( pre ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5++testPappyParseindicator :: TestPappyDerivs -> Result TestPappyDerivs ( [([String], String)] )+testPappyParseindicator d =+ case pappyResult1 of+ Parsed i d1 e1 ->+ case testPappyBU_pre d1 of+ NoParse e3 ->+ Parsed ( i ) d1 (max e3 e1)+ Parsed _ _ e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (testPappyPos d) []) where+ pappyAlt3_1 e3 =+ case pappyResult5 of+ Parsed uc d5 e5 ->+ case pappyResult7 of+ Parsed n d7 e7 ->+ Parsed ( uc : ml n ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> pappyAlt3_2 (maximum [e7,e5,e3])+ where+ pappyResult7 =+ case pappyResult9 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ where+ pappyResult9 =+ case testPappyNAI_pre d5 of+ Parsed p d11 e11 ->+ case testPappypost_clause_no_ind d11 of+ Parsed _ d13 e13 ->+ Parsed ( p ) d13 (max e13 e11)+ NoParse e13 -> NoParse (max e13 e11)+ NoParse e11 -> NoParse e11+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (testPappyPos d) []) where+ pappyAlt7_1 e7 =+ case testPappyUI_pre d of+ Parsed pre d9 e9 ->+ case testPappypost_clause_no_ind d9 of+ Parsed _ d11 e11 ->+ Parsed ( pre ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_2 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ case testPappyCAI_pre d of+ Parsed pre d9 e9 ->+ case testPappypost_clause_no_ind d9 of+ Parsed _ d11 e11 ->+ Parsed ( pre ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_3 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_3 (max e9 e7)+ pappyAlt7_3 e7 = NoParse e7+ pappyAlt3_2 e3 =+ case pappyResult5 of+ Parsed d d5 e5 ->+ Parsed ( d : [] ) d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ where+ pappyResult5 =+ case testPappyDAhO_pre d of+ Parsed pre d7 e7 ->+ case testPappypost_clause_no_ind d7 of+ Parsed _ d9 e9 ->+ Parsed ( pre ) d9 (max e9 e7)+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ pappyAlt3_3 e3 =+ case pappyResult5 of+ Parsed f d5 e5 ->+ Parsed ( f : [] ) d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_4 (max e5 e3)+ where+ pappyResult5 =+ case testPappyFUhO_pre d of+ Parsed pre d7 e7 ->+ case testPappypost_clause_no_ind d7 of+ Parsed post d9 e9 ->+ Parsed ( pre ) d9 (max e9 e7)+ NoParse e9 -> NoParse (max e9 e7)+ NoParse e7 -> NoParse e7+ pappyAlt3_4 e3 = NoParse e3++testPappyParseStarRule190 :: TestPappyDerivs -> Result TestPappyDerivs ([String])+testPappyParseStarRule190 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule190 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed z d5 e5 ->+ case pappyResult7 of+ Parsed b d7 e7 ->+ Parsed ( concatMap (" zei " ++) (fromMaybe [] z) ++ concat (replicate b " bu") ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ case testPappyPlusRule16 d5 of+ Parsed b d9 e9 ->+ Parsed ( length b ) d9 e9+ NoParse e9 -> NoParse e9+ NoParse e5 -> NoParse e5+ where+ pappyResult5 =+ case pappyResult7 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d e7+ where+ pappyResult7 =+ case testPappyPlusRule15 d of+ Parsed ws d9 e9 ->+ Parsed ( ws ) d9 e9+ NoParse e9 -> NoParse e9+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyzei_clause_no_pre :: TestPappyDerivs -> Result TestPappyDerivs ( (String, Indicators) )+testPappyzei_clause_no_pre d =+ case testPappypre_zei_bu d of+ Parsed p d1 e1 ->+ case testPappyStarRule190 d1 of+ Parsed zb d3 e3 ->+ case pappyResult5 of+ Parsed z d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( (p ++ concat zb ++ concatMap (" zei " ++) z, q) ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyPlusRule15 d3 of+ Parsed ws d7 e7 ->+ Parsed ( ws ) d7 e7+ NoParse e7 -> NoParse e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule191 :: TestPappyDerivs -> Result TestPappyDerivs ([String])+testPappyParseStarRule191 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule191 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed b d5 e5 ->+ case pappyResult7 of+ Parsed z d7 e7 ->+ Parsed ( concat (replicate (fromMaybe 0 b) " bu") ++ concatMap (" zei " ++) z ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ case testPappyPlusRule15 d5 of+ Parsed ws d9 e9 ->+ Parsed ( ws ) d9 e9+ NoParse e9 -> NoParse e9+ NoParse e5 -> NoParse e5+ where+ pappyResult5 =+ case pappyResult7 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d e7+ where+ pappyResult7 =+ case testPappyPlusRule16 d of+ Parsed b d9 e9 ->+ Parsed ( length b ) d9 e9+ NoParse e9 -> NoParse e9+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappybu_clause_no_pre :: TestPappyDerivs -> Result TestPappyDerivs ( (String, Indicators) )+testPappybu_clause_no_pre d =+ case testPappypre_zei_bu d of+ Parsed p d1 e1 ->+ case testPappyStarRule191 d1 of+ Parsed bz d3 e3 ->+ case pappyResult5 of+ Parsed b d5 e5 ->+ case testPappypost_clause d5 of+ Parsed q d7 e7 ->+ Parsed ( (p ++ concat bz ++ concat (replicate b " bu"), q) ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyPlusRule16 d3 of+ Parsed b d7 e7 ->+ Parsed ( length b ) d7 e7+ NoParse e7 -> NoParse e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParsePlusRule15 :: TestPappyDerivs -> Result TestPappyDerivs ([ String ])+testPappyParsePlusRule15 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyzei_word d of+ Parsed v d3 e3 ->+ case testPappyPlusRule15 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyzei_word d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyzei_word :: TestPappyDerivs -> Result TestPappyDerivs ( String )+testPappyzei_word d =+ case testPappyZEI_pre d of+ Parsed _ d1 e1 ->+ case testPappyany_word d1 of+ Parsed w d3 e3 ->+ Parsed ( w ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParsePlusRule16 :: TestPappyDerivs -> Result TestPappyDerivs ([Pre])+testPappyParsePlusRule16 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyBU_pre d of+ Parsed v d3 e3 ->+ case testPappyPlusRule16 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyBU_pre d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParsepre_zei_bu :: TestPappyDerivs -> Result TestPappyDerivs ( String )+testPappyParsepre_zei_bu d =+ case pappyResult1 of+ NoParse e1 ->+ case testPappyBU_pre d of+ NoParse e3 ->+ case testPappyZEI_pre d of+ NoParse e5 ->+ case testPappySI_clause d of+ NoParse e7 ->+ case testPappySA_clause d of+ NoParse e9 ->+ case testPappySU_clause d of+ NoParse e11 ->+ case testPappyFAhO_clause d of+ NoParse e13 ->+ case testPappyany_word_SA_handling d of+ Parsed w d15 e15 ->+ case pappyResult17 of+ Parsed _ d17 e17 ->+ Parsed ( snd w ) d17 (maximum [e17,e15,e13,e11,e9,e7,e5,e3,e1])+ NoParse e17 -> NoParse (maximum [e17,e15,e13,e11,e9,e7,e5,e3,e1])+ where+ pappyResult17 =+ case pappyResult19 of+ Parsed v19 d19 e19 -> Parsed (Just v19) d19 e19+ NoParse e19 -> Parsed (Nothing) d15 e19+ where+ pappyResult19 =+ case testPappyPlusRule17 d15 of+ Parsed _ d21 e21 ->+ Parsed ( () ) d21 e21+ NoParse e21 -> NoParse e21+ NoParse e15 -> NoParse (maximum [e15,e13,e11,e9,e7,e5,e3,e1])+ Parsed _ _ e13 -> NoParse (maximum [e13,e11,e9,e7,e5,e3,e1])+ Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ Parsed _ _ e3 -> NoParse (max e3 e1)+ Parsed _ _ e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyPlusRule18 d of+ Parsed bs d3 e3 ->+ Parsed ( bs ) d3 e3+ NoParse e3 -> NoParse e3++testPappyParseStarRule192 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])+testPappyParseStarRule192 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyanyChar d of+ Parsed v d3 e3 ->+ case testPappyStarRule192 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule193 :: TestPappyDerivs -> Result TestPappyDerivs ([ [([String], String)] ])+testPappyParseStarRule193 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyindicators d of+ Parsed v d3 e3 ->+ case testPappyStarRule193 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsepost_clause :: TestPappyDerivs -> Result TestPappyDerivs ( [[([String], String)]] )+testPappyParsepost_clause d =+ case pappyResult1 of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed _ d3 e3 ->+ case testPappyZEI_pre d3 of+ NoParse e5 ->+ case testPappyBU_pre d3 of+ NoParse e7 ->+ case testPappyStarRule193 d3 of+ Parsed is d9 e9 ->+ Parsed ( is ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case testPappyPlusRule17 d1 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 e7+ NoParse e7 -> NoParse e7+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyspaces d of+ Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3+ NoParse e3 -> Parsed (Nothing) d e3++testPappyParsepost_clause_no_ind :: TestPappyDerivs -> Result TestPappyDerivs ( () )+testPappyParsepost_clause_no_ind d =+ case pappyResult1 of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed _ d3 e3 ->+ case testPappyZEI_pre d3 of+ NoParse e5 ->+ case testPappyBU_pre d3 of+ NoParse e7 ->+ Parsed ( () ) d3 (maximum [e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case testPappyPlusRule17 d1 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 e7+ NoParse e7 -> NoParse e7+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyspaces d of+ Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3+ NoParse e3 -> Parsed (Nothing) d e3++testPappypre_clause :: TestPappyDerivs -> Result TestPappyDerivs ( [String] )+testPappypre_clause d =+ case pappyResult1 of+ Parsed b d1 e1 ->+ Parsed ( fromMaybe [] b ) d1 e1+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case pappyResult3 of+ Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3+ NoParse e3 -> Parsed (Nothing) d e3+ where+ pappyResult3 =+ case testPappyPlusRule18 d of+ Parsed bs d5 e5 ->+ Parsed ( bs ) d5 e5+ NoParse e5 -> NoParse e5++testPappyParseany_word_SA_handling :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )+testPappyParseany_word_SA_handling d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyBRIVLA_pre d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ pappyAlt3_1 e1 where+ pappyAlt3_1 e3 =+ case testPappyA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case testPappyBAI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 =+ case testPappyBAhE d of+ Parsed b d5 e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( ([], b) ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> pappyAlt3_4 (maximum [e7,e5,e3])+ where+ pappyResult7 =+ case testPappyspaces d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt3_4 (max e5 e3)+ pappyAlt3_4 e3 =+ case testPappyBE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_5 (max e5 e3)+ pappyAlt3_5 e3 =+ case testPappyBEI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_6 (max e5 e3)+ pappyAlt3_6 e3 =+ case testPappyBEhO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_7 (max e5 e3)+ pappyAlt3_7 e3 =+ case testPappyBIhE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_8 (max e5 e3)+ pappyAlt3_8 e3 =+ case testPappyBIhI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_9 (max e5 e3)+ pappyAlt3_9 e3 =+ case testPappyBO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_10 (max e5 e3)+ pappyAlt3_10 e3 =+ case testPappyBOI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_11 (max e5 e3)+ pappyAlt3_11 e3 =+ case testPappyBU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_12 (max e5 e3)+ pappyAlt3_12 e3 =+ case testPappyBY_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_13 (max e5 e3)+ pappyAlt3_13 e3 =+ case testPappyCAI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_14 (max e5 e3)+ pappyAlt3_14 e3 =+ case testPappyCAhA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_15 (max e5 e3)+ pappyAlt3_15 e3 =+ case testPappyCEI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_16 (max e5 e3)+ pappyAlt3_16 e3 =+ case testPappyCEhE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_17 (max e5 e3)+ pappyAlt3_17 e3 =+ case testPappyCO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_18 (max e5 e3)+ pappyAlt3_18 e3 =+ case testPappyCOI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_19 (max e5 e3)+ pappyAlt3_19 e3 =+ case testPappyCU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_20 (max e5 e3)+ pappyAlt3_20 e3 =+ case testPappyCUhE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_21 (max e5 e3)+ pappyAlt3_21 e3 =+ case testPappyDAhO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_22 (max e5 e3)+ pappyAlt3_22 e3 =+ case testPappyDOI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_23 (max e5 e3)+ pappyAlt3_23 e3 =+ case testPappyDOhU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_24 (max e5 e3)+ pappyAlt3_24 e3 =+ case testPappyFA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_25 (max e5 e3)+ pappyAlt3_25 e3 =+ case testPappyFAhA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_26 (max e5 e3)+ pappyAlt3_26 e3 =+ case testPappyFEhE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_27 (max e5 e3)+ pappyAlt3_27 e3 =+ case testPappyFEhU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_28 (max e5 e3)+ pappyAlt3_28 e3 =+ case testPappyFIhO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_29 (max e5 e3)+ pappyAlt3_29 e3 =+ case testPappyFOI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_30 (max e5 e3)+ pappyAlt3_30 e3 =+ case testPappyFUhA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_31 (max e5 e3)+ pappyAlt3_31 e3 =+ case testPappyFUhE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_32 (max e5 e3)+ pappyAlt3_32 e3 =+ case testPappyFUhO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_33 (max e5 e3)+ pappyAlt3_33 e3 =+ case testPappyGA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_34 (max e5 e3)+ pappyAlt3_34 e3 =+ case testPappyGAhO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_35 (max e5 e3)+ pappyAlt3_35 e3 =+ case testPappyGEhU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_36 (max e5 e3)+ pappyAlt3_36 e3 =+ case testPappyGI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_37 (max e5 e3)+ pappyAlt3_37 e3 =+ case testPappyGIhA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_38 (max e5 e3)+ pappyAlt3_38 e3 =+ case testPappyGOI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_39 (max e5 e3)+ pappyAlt3_39 e3 =+ case testPappyGOhA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_40 (max e5 e3)+ pappyAlt3_40 e3 =+ case testPappyGUhA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_41 (max e5 e3)+ pappyAlt3_41 e3 =+ case testPappyI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_42 (max e5 e3)+ pappyAlt3_42 e3 =+ case testPappyJA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_43 (max e5 e3)+ pappyAlt3_43 e3 =+ case testPappyJAI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_44 (max e5 e3)+ pappyAlt3_44 e3 =+ case testPappyJOI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_45 (max e5 e3)+ pappyAlt3_45 e3 =+ case testPappyJOhI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_46 (max e5 e3)+ pappyAlt3_46 e3 =+ case testPappyKE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_47 (max e5 e3)+ pappyAlt3_47 e3 =+ case testPappyKEI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_48 (max e5 e3)+ pappyAlt3_48 e3 =+ case testPappyKEhE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_49 (max e5 e3)+ pappyAlt3_49 e3 =+ case testPappyKI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_50 (max e5 e3)+ pappyAlt3_50 e3 =+ case testPappyKOhA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_51 (max e5 e3)+ pappyAlt3_51 e3 =+ case testPappyKU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_52 (max e5 e3)+ pappyAlt3_52 e3 =+ case testPappyKUhE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_53 (max e5 e3)+ pappyAlt3_53 e3 =+ case testPappyKUhO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_54 (max e5 e3)+ pappyAlt3_54 e3 =+ case testPappyLA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_55 (max e5 e3)+ pappyAlt3_55 e3 =+ case testPappyLAU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_56 (max e5 e3)+ pappyAlt3_56 e3 =+ case testPappyLAhE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_57 (max e5 e3)+ pappyAlt3_57 e3 =+ case testPappyLE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_58 (max e5 e3)+ pappyAlt3_58 e3 =+ case testPappyLEhU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_59 (max e5 e3)+ pappyAlt3_59 e3 =+ case testPappyMAI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_60 (max e5 e3)+ pappyAlt3_60 e3 =+ case testPappyMAhO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_61 (max e5 e3)+ pappyAlt3_61 e3 =+ case testPappyME_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_62 (max e5 e3)+ pappyAlt3_62 e3 =+ case testPappyMEhU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_63 (max e5 e3)+ pappyAlt3_63 e3 =+ case testPappyMOI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_64 (max e5 e3)+ pappyAlt3_64 e3 =+ case testPappyMOhE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_65 (max e5 e3)+ pappyAlt3_65 e3 =+ case testPappyMOhI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_66 (max e5 e3)+ pappyAlt3_66 e3 =+ case testPappyNA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_67 (max e5 e3)+ pappyAlt3_67 e3 =+ case testPappyNAI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_68 (max e5 e3)+ pappyAlt3_68 e3 =+ case testPappyNAhE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_69 (max e5 e3)+ pappyAlt3_69 e3 =+ case testPappyNAhU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_70 (max e5 e3)+ pappyAlt3_70 e3 =+ case testPappyNIhE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_71 (max e5 e3)+ pappyAlt3_71 e3 =+ case testPappyNIhO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_72 (max e5 e3)+ pappyAlt3_72 e3 =+ case testPappyNOI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_73 (max e5 e3)+ pappyAlt3_73 e3 =+ case testPappyNU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_74 (max e5 e3)+ pappyAlt3_74 e3 =+ case testPappyNUhA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_75 (max e5 e3)+ pappyAlt3_75 e3 =+ case testPappyNUhI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_76 (max e5 e3)+ pappyAlt3_76 e3 =+ case testPappyNUhU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_77 (max e5 e3)+ pappyAlt3_77 e3 =+ case testPappyPA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_78 (max e5 e3)+ pappyAlt3_78 e3 =+ case testPappyPEhE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_79 (max e5 e3)+ pappyAlt3_79 e3 =+ case testPappyPEhO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_80 (max e5 e3)+ pappyAlt3_80 e3 =+ case testPappyPU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_81 (max e5 e3)+ pappyAlt3_81 e3 =+ case testPappyRAhO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_82 (max e5 e3)+ pappyAlt3_82 e3 =+ case testPappyROI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_83 (max e5 e3)+ pappyAlt3_83 e3 =+ case testPappypre_clause d of+ Parsed _ d5 e5 ->+ case testPappySA d5 of+ Parsed s d7 e7 ->+ case pappyResult9 of+ Parsed _ d9 e9 ->+ Parsed ( ([], s) ) d9 (maximum [e9,e7,e5,e3])+ NoParse e9 -> pappyAlt3_84 (maximum [e9,e7,e5,e3])+ where+ pappyResult9 =+ case testPappyspaces d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt3_84 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_84 (max e5 e3)+ pappyAlt3_84 e3 =+ case testPappySE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_85 (max e5 e3)+ pappyAlt3_85 e3 =+ case testPappySEI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_86 (max e5 e3)+ pappyAlt3_86 e3 =+ case testPappySEhU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_87 (max e5 e3)+ pappyAlt3_87 e3 =+ case pappyResult5 of+ Parsed _ d5 e5 ->+ case testPappySI d5 of+ Parsed s d7 e7 ->+ case pappyResult9 of+ Parsed _ d9 e9 ->+ Parsed ( ([], s) ) d9 (maximum [e9,e7,e5,e3])+ NoParse e9 -> pappyAlt3_88 (maximum [e9,e7,e5,e3])+ where+ pappyResult9 =+ case testPappyspaces d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt3_88 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_88 (max e5 e3)+ where+ pappyResult5 =+ case testPappyspaces d of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d e7+ pappyAlt3_88 e3 =+ case testPappySOI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_89 (max e5 e3)+ pappyAlt3_89 e3 =+ case testPappypre_clause d of+ Parsed p d5 e5 ->+ case testPappySU d5 of+ Parsed s d7 e7 ->+ case pappyResult9 of+ Parsed _ d9 e9 ->+ Parsed ( (p, s) ) d9 (maximum [e9,e7,e5,e3])+ NoParse e9 -> pappyAlt3_90 (maximum [e9,e7,e5,e3])+ where+ pappyResult9 =+ case testPappyspaces d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt3_90 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_90 (max e5 e3)+ pappyAlt3_90 e3 =+ case testPappyTAhE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_91 (max e5 e3)+ pappyAlt3_91 e3 =+ case testPappyTEI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_92 (max e5 e3)+ pappyAlt3_92 e3 =+ case testPappyTEhU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_93 (max e5 e3)+ pappyAlt3_93 e3 =+ case testPappyTO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_94 (max e5 e3)+ pappyAlt3_94 e3 =+ case testPappyTOI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_95 (max e5 e3)+ pappyAlt3_95 e3 =+ case testPappyTUhE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_96 (max e5 e3)+ pappyAlt3_96 e3 =+ case testPappyTUhU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_97 (max e5 e3)+ pappyAlt3_97 e3 =+ case testPappyUI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_98 (max e5 e3)+ pappyAlt3_98 e3 =+ case testPappyVA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_99 (max e5 e3)+ pappyAlt3_99 e3 =+ case testPappyVAU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_100 (max e5 e3)+ pappyAlt3_100 e3 =+ case testPappyVEI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_101 (max e5 e3)+ pappyAlt3_101 e3 =+ case testPappyVEhA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_102 (max e5 e3)+ pappyAlt3_102 e3 =+ case testPappyVEhO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_103 (max e5 e3)+ pappyAlt3_103 e3 =+ case testPappyVIhA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_104 (max e5 e3)+ pappyAlt3_104 e3 =+ case testPappyVUhO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_105 (max e5 e3)+ pappyAlt3_105 e3 =+ case testPappyVUhU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_106 (max e5 e3)+ pappyAlt3_106 e3 =+ case testPappyXI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_107 (max e5 e3)+ pappyAlt3_107 e3 =+ case testPappyZAhO_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_108 (max e5 e3)+ pappyAlt3_108 e3 =+ case testPappyZEI d of+ Parsed z d5 e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( ([], z) ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> pappyAlt3_109 (maximum [e7,e5,e3])+ where+ pappyResult7 =+ case testPappyspaces d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt3_109 (max e5 e3)+ pappyAlt3_109 e3 =+ case testPappyZEhA_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_110 (max e5 e3)+ pappyAlt3_110 e3 =+ case testPappyZI_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_111 (max e5 e3)+ pappyAlt3_111 e3 =+ case testPappyZIhE_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_112 (max e5 e3)+ pappyAlt3_112 e3 =+ case testPappypre_clause d of+ Parsed p d5 e5 ->+ case testPappyZO d5 of+ Parsed z d7 e7 ->+ case pappyResult9 of+ Parsed _ d9 e9 ->+ case testPappyany_word d9 of+ Parsed w d11 e11 ->+ case pappyResult13 of+ Parsed _ d13 e13 ->+ Parsed ( (p ++ [z], w) ) d13 (maximum [e13,e11,e9,e7,e5,e3])+ NoParse e13 -> pappyAlt3_113 (maximum [e13,e11,e9,e7,e5,e3])+ where+ pappyResult13 =+ case testPappyspaces d11 of+ Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15+ NoParse e15 -> Parsed (Nothing) d11 e15+ NoParse e11 -> pappyAlt3_113 (maximum [e11,e9,e7,e5,e3])+ NoParse e9 -> pappyAlt3_113 (maximum [e9,e7,e5,e3])+ where+ pappyResult9 =+ case testPappyspaces d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt3_113 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_113 (max e5 e3)+ pappyAlt3_113 e3 =+ case testPappypre_clause d of+ Parsed p d5 e5 ->+ case testPappyZOI d5 of+ Parsed z d7 e7 ->+ case pappyResult9 of+ Parsed _ d9 e9 ->+ case testPappyChar d9 of+ Parsed w d11 e11 ->+ case ( w == '\NUL' ) of+ True ->+ case pappyResult15 of+ Parsed s d15 e15 ->+ case testPappyStarRule198 d15 of+ Parsed ws d17 e17 ->+ case testPappyChar d17 of+ Parsed v d19 e19 ->+ case ( v == '\NUL' ) of+ True ->+ case pappyResult23 of+ Parsed _ d23 e23 ->+ Parsed ( (p, z ++ concat (maybe ws (: ws) s)) ) d23 (maximum [e23,e19,e17,e15,e11,e9,e7,e5,e3])+ NoParse e23 -> pappyAlt3_114 (maximum [e23,e19,e17,e15,e11,e9,e7,e5,e3])+ where+ pappyResult23 =+ case testPappyspaces d19 of+ Parsed v25 d25 e25 -> Parsed (Just v25) d25 e25+ NoParse e25 -> Parsed (Nothing) d19 e25+ False -> pappyAlt3_114 (maximum [e19,e17,e15,e11,e9,e7,e5,e3])+ NoParse e19 -> pappyAlt3_114 (maximum [e19,e17,e15,e11,e9,e7,e5,e3])+ NoParse e17 -> pappyAlt3_114 (maximum [e17,e15,e11,e9,e7,e5,e3])+ NoParse e15 -> pappyAlt3_114 (maximum [e15,e11,e9,e7,e5,e3])+ where+ pappyResult15 =+ case testPappyspaces d11 of+ Parsed v17 d17 e17 -> Parsed (Just v17) d17 e17+ NoParse e17 -> Parsed (Nothing) d11 e17+ False -> pappyAlt3_114 (maximum [e11,e9,e7,e5,e3])+ NoParse e11 -> pappyAlt3_114 (maximum [e11,e9,e7,e5,e3])+ NoParse e9 -> pappyAlt3_114 (maximum [e9,e7,e5,e3])+ where+ pappyResult9 =+ case testPappyspaces d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt3_114 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_114 (max e5 e3)+ pappyAlt3_114 e3 =+ case testPappyZOhU_pre d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_115 (max e5 e3)+ pappyAlt3_115 e3 = pappyAlt1_3 e3+ pappyAlt1_3 e1 =+ case testPappypre_clause d of+ Parsed p d3 e3 ->+ case pappyResult5 of+ Parsed c d5 e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( (p, c) ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyspaces d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (testPappyPos d3) []) where+ pappyAlt7_1 e7 =+ case testPappyA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ case testPappyBAI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_3 (max e9 e7)+ pappyAlt7_3 e7 =+ case testPappyBAhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_4 (max e9 e7)+ pappyAlt7_4 e7 =+ case testPappyBE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_5 (max e9 e7)+ pappyAlt7_5 e7 =+ case testPappyBEI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_6 (max e9 e7)+ pappyAlt7_6 e7 =+ case testPappyBEhO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_7 (max e9 e7)+ pappyAlt7_7 e7 =+ case testPappyBIhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_8 (max e9 e7)+ pappyAlt7_8 e7 =+ case testPappyBIhI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_9 (max e9 e7)+ pappyAlt7_9 e7 =+ case testPappyBO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_10 (max e9 e7)+ pappyAlt7_10 e7 =+ case testPappyBOI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_11 (max e9 e7)+ pappyAlt7_11 e7 =+ case testPappyBU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_12 (max e9 e7)+ pappyAlt7_12 e7 =+ case testPappyBY d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_13 (max e9 e7)+ pappyAlt7_13 e7 =+ case testPappyCAhA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_14 (max e9 e7)+ pappyAlt7_14 e7 =+ case testPappyCAI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_15 (max e9 e7)+ pappyAlt7_15 e7 =+ case testPappyCEI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_16 (max e9 e7)+ pappyAlt7_16 e7 =+ case testPappyCEhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_17 (max e9 e7)+ pappyAlt7_17 e7 =+ case testPappyCO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_18 (max e9 e7)+ pappyAlt7_18 e7 =+ case testPappyCOI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_19 (max e9 e7)+ pappyAlt7_19 e7 =+ case testPappyCU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_20 (max e9 e7)+ pappyAlt7_20 e7 =+ case testPappyCUhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_21 (max e9 e7)+ pappyAlt7_21 e7 =+ case testPappyDAhO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_22 (max e9 e7)+ pappyAlt7_22 e7 =+ case testPappyDOI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_23 (max e9 e7)+ pappyAlt7_23 e7 =+ case testPappyDOhU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_24 (max e9 e7)+ pappyAlt7_24 e7 =+ case testPappyFA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_25 (max e9 e7)+ pappyAlt7_25 e7 =+ case testPappyFAhA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_26 (max e9 e7)+ pappyAlt7_26 e7 =+ case testPappyFAhO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_27 (max e9 e7)+ pappyAlt7_27 e7 =+ case testPappyFEhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_28 (max e9 e7)+ pappyAlt7_28 e7 =+ case testPappyFEhU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_29 (max e9 e7)+ pappyAlt7_29 e7 =+ case testPappyFIhO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_30 (max e9 e7)+ pappyAlt7_30 e7 =+ case testPappyFOI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_31 (max e9 e7)+ pappyAlt7_31 e7 =+ case testPappyFUhA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_32 (max e9 e7)+ pappyAlt7_32 e7 =+ case testPappyFUhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_33 (max e9 e7)+ pappyAlt7_33 e7 =+ case testPappyFUhO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_34 (max e9 e7)+ pappyAlt7_34 e7 =+ case testPappyGA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_35 (max e9 e7)+ pappyAlt7_35 e7 =+ case testPappyGAhO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_36 (max e9 e7)+ pappyAlt7_36 e7 =+ case testPappyGEhU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_37 (max e9 e7)+ pappyAlt7_37 e7 =+ case testPappyGI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_38 (max e9 e7)+ pappyAlt7_38 e7 =+ case testPappyGIhA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_39 (max e9 e7)+ pappyAlt7_39 e7 =+ case testPappyGOI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_40 (max e9 e7)+ pappyAlt7_40 e7 =+ case testPappyGOhA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_41 (max e9 e7)+ pappyAlt7_41 e7 =+ case testPappyGUhA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_42 (max e9 e7)+ pappyAlt7_42 e7 =+ case testPappyI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_43 (max e9 e7)+ pappyAlt7_43 e7 =+ case testPappyJA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_44 (max e9 e7)+ pappyAlt7_44 e7 =+ case testPappyJAI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_45 (max e9 e7)+ pappyAlt7_45 e7 =+ case testPappyJOhI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_46 (max e9 e7)+ pappyAlt7_46 e7 =+ case testPappyJOI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_47 (max e9 e7)+ pappyAlt7_47 e7 =+ case testPappyKE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_48 (max e9 e7)+ pappyAlt7_48 e7 =+ case testPappyKEhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_49 (max e9 e7)+ pappyAlt7_49 e7 =+ case testPappyKEI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_50 (max e9 e7)+ pappyAlt7_50 e7 =+ case testPappyKI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_51 (max e9 e7)+ pappyAlt7_51 e7 =+ case testPappyKOhA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_52 (max e9 e7)+ pappyAlt7_52 e7 =+ case testPappyKU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_53 (max e9 e7)+ pappyAlt7_53 e7 =+ case testPappyKUhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_54 (max e9 e7)+ pappyAlt7_54 e7 =+ case testPappyKUhO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_55 (max e9 e7)+ pappyAlt7_55 e7 =+ case testPappyLA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_56 (max e9 e7)+ pappyAlt7_56 e7 =+ case testPappyLAU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_57 (max e9 e7)+ pappyAlt7_57 e7 =+ case testPappyLAhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_58 (max e9 e7)+ pappyAlt7_58 e7 =+ case testPappyLE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_59 (max e9 e7)+ pappyAlt7_59 e7 =+ case testPappyLEhU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_60 (max e9 e7)+ pappyAlt7_60 e7 =+ case testPappyLI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_61 (max e9 e7)+ pappyAlt7_61 e7 =+ case testPappyLIhU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_62 (max e9 e7)+ pappyAlt7_62 e7 =+ case testPappyLOhO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_63 (max e9 e7)+ pappyAlt7_63 e7 =+ case testPappyLOhU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_64 (max e9 e7)+ pappyAlt7_64 e7 =+ case testPappyLU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_65 (max e9 e7)+ pappyAlt7_65 e7 =+ case testPappyLUhU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_66 (max e9 e7)+ pappyAlt7_66 e7 =+ case testPappyMAhO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_67 (max e9 e7)+ pappyAlt7_67 e7 =+ case testPappyMAI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_68 (max e9 e7)+ pappyAlt7_68 e7 =+ case testPappyME d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_69 (max e9 e7)+ pappyAlt7_69 e7 =+ case testPappyMEhU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_70 (max e9 e7)+ pappyAlt7_70 e7 =+ case testPappyMOhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_71 (max e9 e7)+ pappyAlt7_71 e7 =+ case testPappyMOhI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_72 (max e9 e7)+ pappyAlt7_72 e7 =+ case testPappyMOI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_73 (max e9 e7)+ pappyAlt7_73 e7 =+ case testPappyNA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_74 (max e9 e7)+ pappyAlt7_74 e7 =+ case testPappyNAI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_75 (max e9 e7)+ pappyAlt7_75 e7 =+ case testPappyNAhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_76 (max e9 e7)+ pappyAlt7_76 e7 =+ case testPappyNAhU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_77 (max e9 e7)+ pappyAlt7_77 e7 =+ case testPappyNIhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_78 (max e9 e7)+ pappyAlt7_78 e7 =+ case testPappyNIhO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_79 (max e9 e7)+ pappyAlt7_79 e7 =+ case testPappyNOI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_80 (max e9 e7)+ pappyAlt7_80 e7 =+ case testPappyNU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_81 (max e9 e7)+ pappyAlt7_81 e7 =+ case testPappyNUhA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_82 (max e9 e7)+ pappyAlt7_82 e7 =+ case testPappyNUhI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_83 (max e9 e7)+ pappyAlt7_83 e7 =+ case testPappyNUhU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_84 (max e9 e7)+ pappyAlt7_84 e7 =+ case testPappyPA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_85 (max e9 e7)+ pappyAlt7_85 e7 =+ case testPappyPEhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_86 (max e9 e7)+ pappyAlt7_86 e7 =+ case testPappyPEhO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_87 (max e9 e7)+ pappyAlt7_87 e7 =+ case testPappyPU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_88 (max e9 e7)+ pappyAlt7_88 e7 =+ case testPappyRAhO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_89 (max e9 e7)+ pappyAlt7_89 e7 =+ case testPappyROI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_90 (max e9 e7)+ pappyAlt7_90 e7 =+ case testPappySA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_91 (max e9 e7)+ pappyAlt7_91 e7 =+ case testPappySE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_92 (max e9 e7)+ pappyAlt7_92 e7 =+ case testPappySEI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_93 (max e9 e7)+ pappyAlt7_93 e7 =+ case testPappySEhU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_94 (max e9 e7)+ pappyAlt7_94 e7 =+ case testPappySI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_95 (max e9 e7)+ pappyAlt7_95 e7 =+ case testPappySOI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_96 (max e9 e7)+ pappyAlt7_96 e7 =+ case testPappySU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_97 (max e9 e7)+ pappyAlt7_97 e7 =+ case testPappyTAhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_98 (max e9 e7)+ pappyAlt7_98 e7 =+ case testPappyTEhU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_99 (max e9 e7)+ pappyAlt7_99 e7 =+ case testPappyTEI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_100 (max e9 e7)+ pappyAlt7_100 e7 =+ case testPappyTO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_101 (max e9 e7)+ pappyAlt7_101 e7 =+ case testPappyTOI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_102 (max e9 e7)+ pappyAlt7_102 e7 =+ case testPappyTUhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_103 (max e9 e7)+ pappyAlt7_103 e7 =+ case testPappyTUhU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_104 (max e9 e7)+ pappyAlt7_104 e7 =+ case testPappyUI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_105 (max e9 e7)+ pappyAlt7_105 e7 =+ case testPappyVA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_106 (max e9 e7)+ pappyAlt7_106 e7 =+ case testPappyVAU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_107 (max e9 e7)+ pappyAlt7_107 e7 =+ case testPappyVEI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_108 (max e9 e7)+ pappyAlt7_108 e7 =+ case testPappyVEhO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_109 (max e9 e7)+ pappyAlt7_109 e7 =+ case testPappyVUhU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_110 (max e9 e7)+ pappyAlt7_110 e7 =+ case testPappyVEhA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_111 (max e9 e7)+ pappyAlt7_111 e7 =+ case testPappyVIhA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_112 (max e9 e7)+ pappyAlt7_112 e7 =+ case testPappyVUhO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_113 (max e9 e7)+ pappyAlt7_113 e7 =+ case testPappyXI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_114 (max e9 e7)+ pappyAlt7_114 e7 =+ case testPappyZAhO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_115 (max e9 e7)+ pappyAlt7_115 e7 =+ case testPappyZEhA d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_116 (max e9 e7)+ pappyAlt7_116 e7 =+ case testPappyZEI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_117 (max e9 e7)+ pappyAlt7_117 e7 =+ case testPappyZI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_118 (max e9 e7)+ pappyAlt7_118 e7 =+ case testPappyZIhE d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_119 (max e9 e7)+ pappyAlt7_119 e7 =+ case testPappyZO d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_120 (max e9 e7)+ pappyAlt7_120 e7 =+ case testPappyZOI d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_121 (max e9 e7)+ pappyAlt7_121 e7 =+ case testPappyZOhU d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_122 (max e9 e7)+ pappyAlt7_122 e7 =+ case testPappycmavo d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_123 (max e9 e7)+ pappyAlt7_123 e7 = NoParse e7+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case testPappyCMENE_pre d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 = NoParse e1++testPappyParseStarRule194 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule194 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule194 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyerasable_clause d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyNIhO_clause d of+ NoParse e7 ->+ case testPappyLU_clause d of+ NoParse e9 ->+ case testPappyTUhE_clause d of+ NoParse e11 ->+ case testPappyTO_clause d of+ NoParse e13 ->+ case testPappySU_clause d of+ NoParse e15 ->+ case testPappyFAhO_clause d of+ NoParse e17 ->+ case testPappyany_word_SA_handling d of+ Parsed _ d19 e19 ->+ Parsed ( () ) d19 (maximum [e19,e17,e15,e13,e11,e9,e7,e5])+ NoParse e19 -> pappyAlt5_3 (maximum [e19,e17,e15,e13,e11,e9,e7,e5])+ Parsed _ _ e17 -> pappyAlt5_3 (maximum [e17,e15,e13,e11,e9,e7,e5])+ Parsed _ _ e15 -> pappyAlt5_3 (maximum [e15,e13,e11,e9,e7,e5])+ Parsed _ _ e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ Parsed _ _ e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsePlusRule17 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParsePlusRule17 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappysi_clause_single d of+ Parsed v d3 e3 ->+ case testPappyPlusRule17 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappysi_clause_single d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParsesi_clause_single :: TestPappyDerivs -> Result TestPappyDerivs ( () )+testPappyParsesi_clause_single d =+ case pappyResult1 of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed _ d3 e3 ->+ case testPappySI_clause d3 of+ Parsed _ d5 e5 ->+ Parsed ( () ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case testPappyPlusRule17 d1 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 e7+ NoParse e7 -> NoParse e7+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (testPappyPos d) []) where+ pappyAlt3_1 e3 =+ case testPappyerasable_clause d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case testPappypre_zei_bu d of+ Parsed _ d5 e5 ->+ Parsed ( () ) d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 =+ case testPappySA_clause d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_4 (max e5 e3)+ pappyAlt3_4 e3 = NoParse e3++testPappyParseerasable_clause :: TestPappyDerivs -> Result TestPappyDerivs ( () )+testPappyParseerasable_clause d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappybu_clause_no_pre d of+ Parsed _ d3 e3 ->+ case testPappyZEI_pre d3 of+ NoParse e5 ->+ case testPappyBU_pre d3 of+ NoParse e7 ->+ Parsed ( () ) d3 (maximum [e7,e5,e3,e1])+ Parsed _ _ e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyzei_clause_no_pre d of+ Parsed _ d3 e3 ->+ case testPappyZEI_pre d3 of+ NoParse e5 ->+ case testPappyBU_pre d3 of+ NoParse e7 ->+ Parsed ( () ) d3 (maximum [e7,e5,e3,e1])+ Parsed _ _ e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseBRIVLA_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )+testPappyParseBRIVLA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case pappyResult3 of+ Parsed b d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappygismu d1 of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappygismu d1 of+ NoParse e7 ->+ case testPappyfuhivla d1 of+ NoParse e9 ->+ case testPappybrivla d1 of+ Parsed b d11 e11 ->+ Parsed ( b ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ Parsed _ _ e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyfuhivla d1 of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyCMENE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyCMENE_clause d =+ case testPappyCMENE_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyCMENE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyCMENE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappycmene d1 of+ Parsed c d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyA d1 of+ Parsed a d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, a) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyBAI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyBAI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyBAI d1 of+ Parsed b d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyBE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyBE_clause d =+ case testPappyBE_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyBE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyBE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyBE d1 of+ Parsed b d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyBEI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyBEI_clause d =+ case testPappyBEI_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyBEI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyBEI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyBEI d1 of+ Parsed b d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyBEhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyBEhO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyBEhO d1 of+ Parsed b d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyBIhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyBIhE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyBIhE d1 of+ Parsed b d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyBIhI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyBIhI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyBIhI d1 of+ Parsed b d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyBO_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyBO_clause d =+ case testPappyBO_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyBO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyBO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyBO d1 of+ Parsed b d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyBOI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyBOI_clause d =+ case testPappyBOI_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyBOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyBOI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyBOI d1 of+ Parsed b d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyBU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyBU_pre d =+ case testPappyBU d of+ Parsed b d1 e1 ->+ case pappyResult3 of+ Parsed _ d3 e3 ->+ Parsed ( ([], b) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyspaces d1 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ NoParse e1 -> NoParse e1++testPappyBY_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyBY_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyBY d1 of+ Parsed b d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, b) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParsePlusRule18 :: TestPappyDerivs -> Result TestPappyDerivs ([String])+testPappyParsePlusRule18 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyBAhE_clause_single d of+ Parsed v d3 e3 ->+ case testPappyPlusRule18 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyBAhE_clause_single d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseBAhE_clause_single :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseBAhE_clause_single d =+ case pappyResult1 of+ Parsed b d1 e1 ->+ case pappyResult3 of+ Parsed _ d3 e3 ->+ case testPappyZEI_pre d3 of+ NoParse e5 ->+ case testPappyBU_pre d3 of+ NoParse e7 ->+ Parsed ( b ) d3 (maximum [e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ where+ pappyResult5 =+ case testPappyPlusRule17 d1 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 e7+ NoParse e7 -> NoParse e7+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyBAhE d of+ Parsed b d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( b ) d5 (max e5 e3)+ NoParse e5 -> NoParse (max e5 e3)+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse e3++testPappyCAhA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyCAhA_clause d =+ case testPappyCAhA_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyCAhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyCAhA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyCAhA d1 of+ Parsed c d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyCAI_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )+testPappyCAI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyCAI d1 of+ Parsed c d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyCEI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyCEI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyCEI d1 of+ Parsed c d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyCEhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyCEhE_clause d =+ case testPappyCEhE_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyCEhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyCEhE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyCEhE d1 of+ Parsed c d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyCO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyCO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyCO d1 of+ Parsed c d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyCOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyCOI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyCOI d1 of+ Parsed c d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyCU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyCU_clause d =+ case testPappyCU_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyCU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyCU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyCU d1 of+ Parsed c d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyCUhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyCUhE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyCUhE d1 of+ Parsed c d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, c) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyDAhO_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )+testPappyDAhO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyDAhO d1 of+ Parsed d d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, d) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyDOI_clause :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String, Indicators) )+testPappyDOI_clause d =+ case testPappyDOI_pre d of+ Parsed pre d1 e1 ->+ case testPappypost_clause d1 of+ Parsed post d3 e3 ->+ Parsed ( (fst pre, snd pre, post) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyDOI_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )+testPappyDOI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyDOI d1 of+ Parsed d d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, d) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyDOhU_clause :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String, Indicators) )+testPappyDOhU_clause d =+ case testPappyDOhU_pre d of+ Parsed pre d1 e1 ->+ case testPappypost_clause d1 of+ Parsed post d3 e3 ->+ Parsed ( (fst pre, snd pre, post) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyDOhU_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )+testPappyDOhU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyDOhU d1 of+ Parsed d d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, d) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyFA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyFA_clause d =+ case testPappyFA_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyFA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyFA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyFA d1 of+ Parsed f d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyFAhA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyFAhA_clause d =+ case testPappyFAhA_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyFAhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyFAhA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyFAhA d1 of+ Parsed f d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyFAhO_clause :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )+testPappyFAhO_clause d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyFAhO d1 of+ Parsed f d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyFEhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyFEhE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyFEhE d1 of+ Parsed f d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyFEhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyFEhU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyFEhU d1 of+ Parsed f d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyFIhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyFIhO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyFIhO d1 of+ Parsed f d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyFOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyFOI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyFOI d1 of+ Parsed f d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyFUhA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyFUhA_clause d =+ case testPappyFUhA_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyFUhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyFUhA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyFUhA d1 of+ Parsed f d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyFUhE_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )+testPappyFUhE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyFUhE d1 of+ Parsed f d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyFUhO_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )+testPappyFUhO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyFUhO d1 of+ Parsed f d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, f) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyGA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyGA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyGA d1 of+ Parsed g d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyGAhO_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyGAhO_clause d =+ case testPappyGAhO_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyGAhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyGAhO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyGAhO d1 of+ Parsed g d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyGEhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyGEhU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyGEhU d1 of+ Parsed g d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyGI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyGI_clause d =+ case testPappyGI_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyGI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyGI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyGI d1 of+ Parsed g d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyGIhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyGIhA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyGIhA d1 of+ Parsed g d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyGOI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyGOI_clause d =+ case testPappyGOI_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyGOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyGOI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyGOI d1 of+ Parsed g d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyGOhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyGOhA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyGOhA d1 of+ Parsed g d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyGUhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyGUhA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyGUhA d1 of+ Parsed g d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, g) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule195 :: TestPappyDerivs -> Result TestPappyDerivs ([ () ])+testPappyParseStarRule195 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule195 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappysentence_start d of+ Parsed _ d5 e5 ->+ case testPappyStarRule23 d5 of+ Parsed _ d7 e7 ->+ case testPappySA_clause d7 of+ Parsed _ d9 e9 ->+ case testPappytext_1 d9 of+ Parsed _ _ e11 ->+ Parsed ( () ) d9 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyI_clause d =+ case testPappyStarRule195 d of+ Parsed _ d1 e1 ->+ case testPappyI_pre d1 of+ Parsed p d3 e3 ->+ case testPappypost_clause d3 of+ Parsed q d5 e5 ->+ Parsed ( (fst p, snd p, q) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyI d1 of+ Parsed i d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, i) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyJA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyJA_clause d =+ case testPappyJA_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyJA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyJA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyJA d1 of+ Parsed j d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, j) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyJAI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyJAI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyJAI d1 of+ Parsed j d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, j) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyJOhI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyJOhI_clause d =+ case testPappyJOhI_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyJOhI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyJOhI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyJOhI d1 of+ Parsed j d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, j) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyJOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyJOI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyJOI d1 of+ Parsed j d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, j) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyKE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyKE_clause d =+ case testPappyKE_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyKE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyKE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyKE d1 of+ Parsed k d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyKI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyKI_clause d =+ case testPappyKI_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyKI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyKI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyKI d1 of+ Parsed k d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyKEhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyKEhE_clause d =+ case testPappyKEhE_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyKEhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyKEhE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyKEhE d1 of+ Parsed k d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyKEI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyKEI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyKEI d1 of+ Parsed k d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyKOhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyKOhA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyKOhA d1 of+ Parsed k d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyKU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyKU_clause d =+ case testPappyKU_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyKU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyKU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyKU d1 of+ Parsed k d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyKUhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyKUhE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyKUhE d1 of+ Parsed k d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyKUhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyKUhO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyKUhO d1 of+ Parsed k d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, k) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyLA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyLA_clause d =+ case testPappyLA_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyLA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyLA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyLA d1 of+ Parsed l d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, l) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyLAhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyLAhE_clause d =+ case testPappyLAhE_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyLAhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyLAhE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyLAhE d1 of+ Parsed l d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, l) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyLAU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyLAU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyLAU d1 of+ Parsed l d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, l) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyLE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyLE_clause d =+ case testPappyLE_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyLE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyLE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyLE d1 of+ Parsed l d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, l) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyLEhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyLEhU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyLEhU d1 of+ Parsed l d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, l) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyLI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyLI_clause d =+ case pappyResult1 of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappypre_clause d of+ Parsed p d3 e3 ->+ case testPappyLI d3 of+ Parsed l d5 e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( (p, l) ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> NoParse (maximum [e7,e5,e3])+ where+ pappyResult7 =+ case testPappyspaces d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> NoParse (max e5 e3)+ NoParse e3 -> NoParse e3++testPappyParseStarRule196 :: TestPappyDerivs -> Result TestPappyDerivs ([String])+testPappyParseStarRule196 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule196 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyLEhU d of+ NoParse e5 ->+ case testPappyany_word d of+ Parsed w d7 e7 ->+ Parsed ( w ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ Parsed _ _ e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyLU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyLU_clause d =+ case pappyResult1 of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappypre_clause d of+ Parsed p d3 e3 ->+ case testPappyLU d3 of+ Parsed l d5 e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( (p, l) ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> NoParse (maximum [e7,e5,e3])+ where+ pappyResult7 =+ case testPappyspaces d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> NoParse (max e5 e3)+ NoParse e3 -> NoParse e3++testPappyLUhU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyLUhU_clause d =+ case pappyResult1 of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappypre_clause d of+ Parsed p d3 e3 ->+ case testPappyLUhU d3 of+ Parsed l d5 e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( (p, l) ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> NoParse (maximum [e7,e5,e3])+ where+ pappyResult7 =+ case testPappyspaces d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> NoParse (max e5 e3)+ NoParse e3 -> NoParse e3++testPappyMAhO_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyMAhO_clause d =+ case testPappyMAhO_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyMAhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyMAhO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyMAhO d1 of+ Parsed m d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, m) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyMAI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyMAI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyMAI d1 of+ Parsed m d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, m) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyME_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyME_clause d =+ case testPappyME_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyME_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyME_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyME d1 of+ Parsed m d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, m) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyMEhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyMEhU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyMEhU d1 of+ Parsed m d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, m) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyMOhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyMOhE_clause d =+ case testPappyMOhE_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyMOhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyMOhE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyMOhE d1 of+ Parsed m d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, m) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyMOhI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyMOhI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyMOhI d1 of+ Parsed m d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, m) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyMOI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyMOI_clause d =+ case testPappyMOI_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyMOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyMOI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyMOI d1 of+ Parsed m d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, m) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyNA_clause d =+ case testPappyNA_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyNA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyNA d1 of+ Parsed n d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNAI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyNAI_clause d =+ case testPappyNAI_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNAI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyNAI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyNAI d1 of+ Parsed n d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNAhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyNAhE_clause d =+ case testPappyNAhE_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNAhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyNAhE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyNAhE d1 of+ Parsed n d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNAhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyNAhU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyNAhU d1 of+ Parsed n d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNIhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyNIhE_clause d =+ case testPappyNIhE_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNIhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyNIhE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyNIhE d1 of+ Parsed n d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNIhO_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyNIhO_clause d =+ case testPappyNIhO_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNIhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyNIhO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyNIhO d1 of+ Parsed n d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNOI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyNOI_clause d =+ case testPappyNOI_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyNOI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyNOI d1 of+ Parsed n d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyNU_clause d =+ case testPappyNU_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyNU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyNU d1 of+ Parsed n d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNUhA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyNUhA_clause d =+ case testPappyNUhA_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNUhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyNUhA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyNUhA d1 of+ Parsed n d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNUhI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyNUhI_clause d =+ case testPappyNUhI_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNUhI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyNUhI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyNUhI d1 of+ Parsed n d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNUhU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyNUhU_clause d =+ case testPappyNUhU_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyNUhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyNUhU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyNUhU d1 of+ Parsed n d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, n) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyPA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyPA_clause d =+ case testPappyPA_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyPA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyPA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyPA d1 of+ Parsed q d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, q) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyPU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyPU_clause d =+ case testPappyPU_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyPU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyPU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyPU d1 of+ Parsed q d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, q) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyPEhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyPEhE_clause d =+ case testPappyPEhE_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyPEhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyPEhE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyPEhE d1 of+ Parsed q d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, q) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyPEhO_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyPEhO_clause d =+ case testPappyPEhO_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyPEhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyPEhO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyPEhO d1 of+ Parsed q d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, q) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyRAhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyRAhO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyRAhO d1 of+ Parsed r d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, r) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyROI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyROI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyROI d1 of+ Parsed r d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, r) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappySA_clause :: TestPappyDerivs -> Result TestPappyDerivs ( () )+testPappySA_clause d =+ case testPappypre_clause d of+ Parsed _ d1 e1 ->+ case testPappySA d1 of+ Parsed _ d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ case pappyResult7 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyspaces d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappySE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappySE_clause d =+ case testPappySE_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappySE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappySE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappySE d1 of+ Parsed s d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, s) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappySEI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappySEI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappySEI d1 of+ Parsed s d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, s) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappySEhU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappySEhU_clause d =+ case testPappySEhU_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappySEhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappySEhU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappySEhU d1 of+ Parsed s d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, s) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappySI_clause :: TestPappyDerivs -> Result TestPappyDerivs ( () )+testPappySI_clause d =+ case pappyResult1 of+ Parsed _ d1 e1 ->+ case testPappySI d1 of+ Parsed _ d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( () ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyspaces d of+ Parsed v3 d3 e3 -> Parsed (Just v3) d3 e3+ NoParse e3 -> Parsed (Nothing) d e3++testPappySOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappySOI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappySOI d1 of+ Parsed s d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, s) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappySU_clause :: TestPappyDerivs -> Result TestPappyDerivs ( () )+testPappySU_clause d =+ case testPappypre_clause d of+ Parsed _ d1 e1 ->+ case testPappySU d1 of+ Parsed _ d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ case testPappypost_clause d5 of+ Parsed _ d7 e7 ->+ Parsed ( () ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyTAhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyTAhE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyTAhE d1 of+ Parsed t d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, t) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyTEhU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyTEhU_clause d =+ case testPappyTEhU_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyTEhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyTEhU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyTEhU d1 of+ Parsed t d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, t) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyTEI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyTEI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyTEI d1 of+ Parsed t d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, t) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyTO_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyTO_clause d =+ case testPappyTO_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyTO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyTO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyTO d1 of+ Parsed t d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, t) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyTOI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyTOI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyTOI d1 of+ Parsed t d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, t) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyTUhE_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyTUhE_clause d =+ case testPappyTUhE_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyTUhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyTUhE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyTUhE d1 of+ Parsed t d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, t) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyTUhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyTUhU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyTUhU d1 of+ Parsed t d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, t) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyUI_pre :: TestPappyDerivs -> Result TestPappyDerivs ( ([String], String) )+testPappyUI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyUI d1 of+ Parsed u d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, u) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyVA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyVA_clause d =+ case testPappyVA_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyVA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyVA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyVA d1 of+ Parsed v d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyVAU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyVAU_clause d =+ case testPappyVAU_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyVAU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyVAU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyVAU d1 of+ Parsed v d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyVEI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyVEI_clause d =+ case testPappyVEI_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyVEI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyVEI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyVEI d1 of+ Parsed v d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyVEhO_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyVEhO_clause d =+ case testPappyVEhO_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyVEhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyVEhO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyVEhO d1 of+ Parsed v d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyVUhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyVUhO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyVUhO d1 of+ Parsed v d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyVUhU_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyVUhU_clause d =+ case testPappyVUhU_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyVUhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyVUhU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyVUhU d1 of+ Parsed v d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyVEhA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyVEhA_clause d =+ case testPappyVEhA_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyVEhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyVEhA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyVEhA d1 of+ Parsed v d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyVIhA_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyVIhA_clause d =+ case testPappyVIhA_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyVIhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyVIhA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyVIhA d1 of+ Parsed v d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, v) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyXI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyXI_clause d =+ case testPappyXI_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyXI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyXI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyXI d1 of+ Parsed x d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, x) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyZEhA_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyZEhA_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyZEhA d1 of+ Parsed z d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, z) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyZEI_pre :: TestPappyDerivs -> Result TestPappyDerivs ( () )+testPappyZEI_pre d =+ case testPappyZEI d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed _ d3 e3 ->+ Parsed ( () ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyspaces d1 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ NoParse e1 -> NoParse e1++testPappyZI_clause :: TestPappyDerivs -> Result TestPappyDerivs (Clause)+testPappyZI_clause d =+ case testPappyZI_pre d of+ Parsed p d1 e1 ->+ case testPappypost_clause d1 of+ Parsed q d3 e3 ->+ Parsed ( (fst p, snd p, q) ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyZI_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyZI_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyZI d1 of+ Parsed z d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, z) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyZIhE_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyZIhE_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyZIhE d1 of+ Parsed z d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, z) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule198 :: TestPappyDerivs -> Result TestPappyDerivs ([String])+testPappyParseStarRule198 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule198 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case pappyResult5 of+ Parsed w d5 e5 ->+ case pappyResult7 of+ Parsed s d7 e7 ->+ Parsed ( maybe w (w ++) s ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ where+ pappyResult7 =+ case testPappyspaces d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> NoParse e5+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (testPappyPos d) []) where+ pappyAlt7_1 e7 =+ case testPappylojban_word d of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ case testPappylojban_word d of+ NoParse e9 ->+ case testPappyPlusRule22 d of+ Parsed ns d11 e11 ->+ Parsed ( ns ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_3 (maximum [e11,e9,e7])+ Parsed _ _ e9 -> pappyAlt7_3 (max e9 e7)+ pappyAlt7_3 e7 = NoParse e7+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyZAhO_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyZAhO_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyZAhO d1 of+ Parsed z d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, z) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyZOhU_pre :: TestPappyDerivs -> Result TestPappyDerivs (Pre)+testPappyZOhU_pre d =+ case testPappypre_clause d of+ Parsed p d1 e1 ->+ case testPappyZOhU d1 of+ Parsed z d3 e3 ->+ case pappyResult5 of+ Parsed _ d5 e5 ->+ Parsed ( (p, z) ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyspaces d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyany_word :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyany_word d =+ case testPappylojban_word d of+ Parsed w d1 e1 ->+ case pappyResult3 of+ Parsed _ d3 e3 ->+ Parsed ( w ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyspaces d1 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ NoParse e1 -> NoParse e1++testPappylojban_word :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappylojban_word d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappycmene d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappycmavo d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappybrivla d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappyParsePlusRule19 :: TestPappyDerivs -> Result TestPappyDerivs ([String])+testPappyParsePlusRule19 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyPlusRule19 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyany_syllable d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappydigit d of+ Parsed d d7 e7 ->+ Parsed ( [d] ) d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyany_syllable d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappydigit d of+ Parsed d d7 e7 ->+ Parsed ( [d] ) d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_3 e1 = NoParse e1++testPappyParsecmene :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsecmene d =+ case testPappyh d of+ NoParse e1 ->+ case pappyResult3 of+ Parsed _ _ e3 ->+ case pappyResult5 of+ Parsed c d5 e5 ->+ case testPappyPlusRule19 d5 of+ Parsed r d7 e7 ->+ case testPappypause d7 of+ Parsed _ _ e9 ->+ Parsed ( fromMaybe "" c ++ concat r ) d7 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappycoda d of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d e7+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyStarRule200 d of+ Parsed s d5 e5 ->+ case testPappyconsonant d5 of+ Parsed c d7 e7 ->+ case testPappypause d7 of+ Parsed _ _ e9 ->+ Parsed ( s ++ [c] ) d7 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ Parsed _ _ e1 -> NoParse e1++testPappyParseStarRule200 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])+testPappyParseStarRule200 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule200 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappynon_space d of+ Parsed n d5 e5 ->+ case testPappynon_space d5 of+ Parsed _ _ e7 ->+ Parsed ( n ) d5 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsecmavo :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsecmavo d =+ case testPappycmene d of+ NoParse e1 ->+ case pappyResult3 of+ NoParse e3 ->+ case pappyResult5 of+ Parsed c d5 e5 ->+ case testPappypost_word d5 of+ Parsed _ _ e7 ->+ Parsed ( c ) d5 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (testPappyPos d) []) where+ pappyAlt7_1 e7 =+ case testPappyh d of+ NoParse e9 ->+ case testPappycluster d of+ NoParse e11 ->+ case testPappyonset d of+ Parsed o d13 e13 ->+ case testPappyStarRule202 d13 of+ Parsed nh d15 e15 ->+ case pappyResult17 of+ Parsed nn d17 e17 ->+ Parsed ( o ++ concat nh ++ nn ) d17 (maximum [e17,e15,e13,e11,e9,e7])+ NoParse e17 -> pappyAlt7_2 (maximum [e17,e15,e13,e11,e9,e7])+ where+ pappyResult17 =+ pappyAlt19_1 (ParseError (testPappyPos d15) []) where+ pappyAlt19_1 e19 =+ case testPappystressed d15 of+ NoParse e21 ->+ case testPappynucleus d15 of+ Parsed n d23 e23 ->+ Parsed ( n ) d23 (maximum [e23,e21,e19])+ NoParse e23 -> pappyAlt19_2 (maximum [e23,e21,e19])+ Parsed _ _ e21 -> pappyAlt19_2 (max e21 e19)+ pappyAlt19_2 e19 =+ case testPappynucleus d15 of+ Parsed n d21 e21 ->+ case testPappycluster d21 of+ NoParse e23 ->+ Parsed ( n ) d21 (maximum [e23,e21,e19])+ Parsed _ _ e23 -> pappyAlt19_3 (maximum [e23,e21,e19])+ NoParse e21 -> pappyAlt19_3 (max e21 e19)+ pappyAlt19_3 e19 = NoParse e19+ NoParse e15 -> pappyAlt7_2 (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> pappyAlt7_2 (maximum [e13,e11,e9,e7])+ Parsed _ _ e11 -> pappyAlt7_2 (maximum [e11,e9,e7])+ Parsed _ _ e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ case testPappyPlusRule24 d of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_3 (max e9 e7)+ pappyAlt7_3 e7 =+ case testPappydigit d of+ Parsed d d9 e9 ->+ Parsed ( [d] ) d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_4 (max e9 e7)+ pappyAlt7_4 e7 = NoParse e7+ Parsed _ _ e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyCVC_rafsi d of+ Parsed r d7 e7 ->+ case testPappyy d7 of+ Parsed y d9 e9 ->+ case pappyResult11 of+ Parsed h d11 e11 ->+ case testPappyStarRule203 d11 of+ Parsed rs d13 e13 ->+ case testPappybrivla_core d13 of+ Parsed b d15 e15 ->+ Parsed ( r ++ [y] ++ ml h ++ concat rs ++ b ) d15 (maximum [e15,e13,e11,e9,e7,e5])+ NoParse e15 -> pappyAlt5_2 (maximum [e15,e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ where+ pappyResult11 =+ case testPappyh d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappystressed_CVC_rafsi d of+ Parsed r d7 e7 ->+ case testPappyy d7 of+ Parsed y d9 e9 ->+ case testPappyshort_final_rafsi d9 of+ Parsed f d11 e11 ->+ Parsed ( r ++ [y] ++ f ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ Parsed _ _ e1 -> NoParse e1++testPappyParseStarRule202 :: TestPappyDerivs -> Result TestPappyDerivs ([String])+testPappyParseStarRule202 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule202 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappynucleus d of+ Parsed n d5 e5 ->+ case testPappyh d5 of+ Parsed h d7 e7 ->+ Parsed ( n ++ [h] ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule203 :: TestPappyDerivs -> Result TestPappyDerivs ([String])+testPappyParseStarRule203 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule203 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyextended_rafsi d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyy_rafsi d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyany_extended_rafsi d of+ NoParse e7 ->+ case testPappyy_less_rafsi d of+ Parsed r d9 e9 ->+ Parsed ( r ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ Parsed _ _ e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 = NoParse e5+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappybrivla :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappybrivla d =+ case testPappycmavo d of+ NoParse e1 ->+ case testPappyStarRule203 d of+ Parsed rs d3 e3 ->+ case testPappybrivla_core d3 of+ Parsed b d5 e5 ->+ Parsed ( concat rs ++ b ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ Parsed _ _ e1 -> NoParse e1++testPappybrivla_core :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappybrivla_core d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyfuhivla d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappygismu d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyCVV_final_rafsi d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case pappyResult3 of+ Parsed i d3 e3 ->+ case testPappyshort_final_rafsi d3 of+ Parsed f d5 e5 ->+ Parsed ( i ++ f ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappystressed_extended_rafsi d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappystressed_y_rafsi d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappystressed_y_less_rafsi d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 = NoParse e5+ pappyAlt1_5 e1 = NoParse e1++testPappyany_extended_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyany_extended_rafsi d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyfuhivla d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyextended_rafsi d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappystressed_extended_rafsi d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappyfuhivla :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyfuhivla d =+ case testPappyfuhivla_head d of+ Parsed f d1 e1 ->+ case testPappystressed_syllable d1 of+ Parsed s d3 e3 ->+ case testPappyStarRule205 d3 of+ Parsed ss d5 e5 ->+ case testPappyfinal_syllable d5 of+ Parsed t d7 e7 ->+ Parsed ( f ++ s ++ concat ss ++ t ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParsestressed_extended_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsestressed_extended_rafsi d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyunstressed_syllable d of+ Parsed _ _ e3 ->+ case testPappybrivla_head d of+ Parsed b d5 e5 ->+ case testPappystressed_syllable d5 of+ Parsed s d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( b ++ s ++ [h, y] ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyfuhivla_head d of+ Parsed f d3 e3 ->+ case testPappystressed_syllable d3 of+ Parsed s d5 e5 ->+ case testPappyconsonant d5 of+ Parsed _ _ e7 ->+ case testPappyonset d5 of+ Parsed o d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( f ++ s ++ o ++ [y] ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseextended_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseextended_rafsi d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed _ _ e3 ->+ case testPappybrivla_head d of+ Parsed b d5 e5 ->+ case testPappyh d5 of+ Parsed h d7 e7 ->+ case testPappyy d7 of+ Parsed y d9 e9 ->+ case pappyResult11 of+ Parsed i d11 e11 ->+ Parsed ( b ++ [h, y] ++ ml i ) d11 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> pappyAlt1_2 (maximum [e11,e9,e7,e5,e3,e1])+ where+ pappyResult11 =+ case testPappyh d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> pappyAlt1_2 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappysyllable d of+ Parsed _ d5 e5 ->+ case testPappyStarRule205 d5 of+ Parsed _ d7 e7 ->+ case testPappysyllable d7 of+ Parsed _ d9 e9 ->+ Parsed ( () ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ pappyAlt1_2 e1 =+ case testPappyunstressed_syllable d of+ Parsed _ _ e3 ->+ case testPappyfuhivla_head d of+ Parsed f d5 e5 ->+ case testPappyconsonant d5 of+ Parsed _ _ e7 ->+ case testPappyonset d5 of+ Parsed o d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ case pappyResult13 of+ Parsed h d13 e13 ->+ Parsed ( f ++ o ++ [y] ++ ml h ) d13 (maximum [e13,e11,e9,e7,e5,e3,e1])+ NoParse e13 -> pappyAlt1_3 (maximum [e13,e11,e9,e7,e5,e3,e1])+ where+ pappyResult13 =+ case testPappyh d11 of+ Parsed v15 d15 e15 -> Parsed (Just v15) d15 e15+ NoParse e15 -> Parsed (Nothing) d11 e15+ NoParse e11 -> pappyAlt1_3 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> pappyAlt1_3 (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule205 :: TestPappyDerivs -> Result TestPappyDerivs ([String])+testPappyParseStarRule205 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyconsonantal_syllable d of+ Parsed v d3 e3 ->+ case testPappyStarRule205 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyfuhivla_head :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyfuhivla_head d =+ case testPappyrafsi_string d of+ NoParse e1 ->+ case testPappybrivla_head d of+ Parsed b d3 e3 ->+ Parsed ( b ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ Parsed _ _ e1 -> NoParse e1++testPappyParseStarRule206 :: TestPappyDerivs -> Result TestPappyDerivs ([String])+testPappyParseStarRule206 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyunstressed_syllable d of+ Parsed v d3 e3 ->+ case testPappyStarRule206 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyParsebrivla_head :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsebrivla_head d =+ case testPappycmavo d of+ NoParse e1 ->+ case pappyResult3 of+ NoParse e3 ->+ case testPappyh d of+ NoParse e5 ->+ case testPappyonset d of+ Parsed _ _ e7 ->+ case testPappyStarRule206 d of+ Parsed ss d9 e9 ->+ Parsed ( concat ss ) d9 (maximum [e9,e7,e5,e3,e1])+ NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ Parsed _ _ e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyconsonant d of+ Parsed c d5 e5 ->+ case testPappyrafsi_string d5 of+ Parsed r d7 e7 ->+ Parsed ( c : r ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ Parsed _ _ e1 -> NoParse e1++testPappyParseStarRule207 :: TestPappyDerivs -> Result TestPappyDerivs ([String])+testPappyParseStarRule207 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyy_less_rafsi d of+ Parsed v d3 e3 ->+ case testPappyStarRule207 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyrafsi_string :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyrafsi_string d =+ case testPappyStarRule207 d of+ Parsed ylrs d1 e1 ->+ case pappyResult3 of+ Parsed r d3 e3 ->+ Parsed ( concat ylrs ++ r ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappygismu d1 of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyCVV_final_rafsi d1 of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappystressed_y_less_rafsi d1 of+ Parsed ylr d7 e7 ->+ case testPappyshort_final_rafsi d7 of+ Parsed sfr d9 e9 ->+ Parsed ( ylr ++ sfr ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyy_rafsi d1 of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappystressed_y_rafsi d1 of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case pappyResult7 of+ Parsed ylr d7 e7 ->+ case testPappyinitial_pair d7 of+ Parsed p d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( fromMaybe "" ylr ++ p ++ [y] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ where+ pappyResult7 =+ case testPappystressed_y_less_rafsi d1 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d1 e9+ pappyAlt5_7 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappygismu :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappygismu d =+ case testPappystressed_long_rafsi d of+ Parsed r d1 e1 ->+ case testPappyfinal_syllable d1 of+ Parsed _ _ e3 ->+ case testPappyvowel d1 of+ Parsed v d5 e5 ->+ case testPappypost_word d5 of+ Parsed _ _ e7 ->+ Parsed ( r ++ [v] ) d5 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseCVV_final_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseCVV_final_rafsi d =+ case testPappyconsonant d of+ Parsed c d1 e1 ->+ case testPappystressed_vowel d1 of+ Parsed v d3 e3 ->+ case testPappyh d3 of+ Parsed h d5 e5 ->+ case testPappyfinal_syllable d5 of+ Parsed _ _ e7 ->+ case testPappyvowel d5 of+ Parsed w d9 e9 ->+ case testPappypost_word d9 of+ Parsed _ _ e11 ->+ Parsed ( c : v : h : w : [] ) d9 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseshort_final_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseshort_final_rafsi d =+ case testPappyfinal_syllable d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed r d3 e3 ->+ case testPappypost_word d3 of+ Parsed _ _ e5 ->+ Parsed ( r ) d3 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyconsonant d of+ Parsed c d7 e7 ->+ case testPappydiphthong d7 of+ Parsed d d9 e9 ->+ Parsed ( c : d ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyinitial_pair d of+ Parsed p d7 e7 ->+ case testPappyvowel d7 of+ Parsed v d9 e9 ->+ Parsed ( p ++ [v] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsestressed_y_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsestressed_y_rafsi d =+ case pappyResult1 of+ Parsed r d1 e1 ->+ case testPappyy d1 of+ Parsed y d3 e3 ->+ Parsed ( r ++ [y] ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (testPappyPos d) []) where+ pappyAlt3_1 e3 =+ case testPappystressed_long_rafsi d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case testPappystressed_CVC_rafsi d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 = NoParse e3++testPappyParsestressed_y_less_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsestressed_y_less_rafsi d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappystressed_CVC_rafsi d of+ Parsed r d3 e3 ->+ case testPappyy d3 of+ NoParse e5 ->+ Parsed ( r ) d3 (maximum [e5,e3,e1])+ Parsed _ _ e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappystressed_CCV_rafsi d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyconsonant d of+ Parsed c d3 e3 ->+ case pappyResult5 of+ Parsed vv d5 e5 ->+ case pappyResult7 of+ Parsed r d7 e7 ->+ Parsed ( c : vv ++ ml r ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_4 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappyr_hyphen d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (testPappyPos d3) []) where+ pappyAlt7_1 e7 =+ case testPappyunstressed_vowel d3 of+ Parsed v d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappystressed_vowel d11 of+ Parsed w d13 e13 ->+ Parsed ( [v, h, w] ) d13 (maximum [e13,e11,e9,e7])+ NoParse e13 -> pappyAlt7_2 (maximum [e13,e11,e9,e7])+ NoParse e11 -> pappyAlt7_2 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ pappyAlt9_1 e7 where+ pappyAlt9_1 e9 =+ case testPappystressed d3 of+ Parsed _ _ e11 ->+ case testPappydiphthong d3 of+ Parsed d d13 e13 ->+ Parsed ( d ) d13 (maximum [e13,e11,e9])+ NoParse e13 -> pappyAlt9_2 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappydiphthong d3 of+ Parsed d d11 e11 ->+ case testPappystress d11 of+ Parsed _ _ e13 ->+ Parsed ( d ) d11 (maximum [e13,e11,e9])+ NoParse e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 = pappyAlt7_3 e9+ pappyAlt7_3 e7 = NoParse e7+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappyParsestressed_long_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsestressed_long_rafsi d =+ case pappyResult1 of+ Parsed r d1 e1 ->+ case testPappyconsonant d1 of+ Parsed c d3 e3 ->+ Parsed ( r ++ [c] ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (testPappyPos d) []) where+ pappyAlt3_1 e3 =+ case testPappystressed_CCV_rafsi d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case testPappystressed_CVC_rafsi d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 = NoParse e3++testPappystressed_CVC_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappystressed_CVC_rafsi d =+ case testPappyconsonant d of+ Parsed c d1 e1 ->+ case testPappystressed_vowel d1 of+ Parsed v d3 e3 ->+ case testPappyconsonant d3 of+ Parsed d d5 e5 ->+ Parsed ( [c, v, d] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappystressed_CCV_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappystressed_CCV_rafsi d =+ case testPappyinitial_pair d of+ Parsed p d1 e1 ->+ case testPappystressed_vowel d1 of+ Parsed v d3 e3 ->+ Parsed ( p ++ [v] ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParsey_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsey_rafsi d =+ case pappyResult1 of+ Parsed r d1 e1 ->+ case testPappyy d1 of+ Parsed y d3 e3 ->+ case pappyResult5 of+ Parsed h d5 e5 ->+ Parsed ( r ++ [y] ++ ml h ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyh d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (testPappyPos d) []) where+ pappyAlt3_1 e3 =+ case pappyResult5 of+ Parsed r d5 e5 ->+ case testPappyconsonant d5 of+ Parsed c d7 e7 ->+ Parsed ( r ++ [c] ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> pappyAlt3_2 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (testPappyPos d) []) where+ pappyAlt7_1 e7 =+ case testPappyCCV_rafsi d of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ case testPappyCVC_rafsi d of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_3 (max e9 e7)+ pappyAlt7_3 e7 = NoParse e7+ pappyAlt3_2 e3 =+ case testPappyCVC_rafsi d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 = NoParse e3++testPappyParsey_less_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsey_less_rafsi d =+ case testPappyy_rafsi d of+ NoParse e1 ->+ case pappyResult3 of+ Parsed r d3 e3 ->+ case testPappyany_extended_rafsi d3 of+ NoParse e5 ->+ Parsed ( r ) d3 (maximum [e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyCVC_rafsi d of+ Parsed cvcr d7 e7 ->+ case testPappyy d7 of+ NoParse e9 ->+ Parsed ( cvcr ) d7 (maximum [e9,e7,e5])+ Parsed _ _ e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyCCV_rafsi d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyconsonant d of+ Parsed c d7 e7 ->+ case pappyResult9 of+ Parsed vv d9 e9 ->+ case pappyResult11 of+ Parsed r d11 e11 ->+ Parsed ( c : vv ++ ml r ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ where+ pappyResult11 =+ case testPappyr_hyphen d9 of+ Parsed v13 d13 e13 -> Parsed (Just v13) d13 e13+ NoParse e13 -> Parsed (Nothing) d9 e13+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ where+ pappyResult9 =+ pappyAlt11_1 (ParseError (testPappyPos d7) []) where+ pappyAlt11_1 e11 =+ case testPappyunstressed_vowel d7 of+ Parsed v d13 e13 ->+ case testPappyh d13 of+ Parsed h d15 e15 ->+ case testPappyunstressed_vowel d15 of+ Parsed w d17 e17 ->+ Parsed ( [v, h, w] ) d17 (maximum [e17,e15,e13,e11])+ NoParse e17 -> pappyAlt11_2 (maximum [e17,e15,e13,e11])+ NoParse e15 -> pappyAlt11_2 (maximum [e15,e13,e11])+ NoParse e13 -> pappyAlt11_2 (max e13 e11)+ pappyAlt11_2 e11 =+ case pappyResult13 of+ Parsed d d13 e13 ->+ Parsed ( d ) d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_3 (max e13 e11)+ where+ pappyResult13 =+ case testPappystressed d7 of+ NoParse e15 ->+ case testPappydiphthong d7 of+ Parsed d d17 e17 ->+ case testPappystress d17 of+ NoParse e19 ->+ Parsed ( d ) d17 (maximum [e19,e17,e15])+ Parsed _ _ e19 -> NoParse (maximum [e19,e17,e15])+ NoParse e17 -> NoParse (max e17 e15)+ Parsed _ _ e15 -> NoParse e15+ pappyAlt11_3 e11 = NoParse e11+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 = NoParse e5+ Parsed _ _ e1 -> NoParse e1++testPappyCVC_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyCVC_rafsi d =+ case testPappyconsonant d of+ Parsed c d1 e1 ->+ case testPappyunstressed_vowel d1 of+ Parsed v d3 e3 ->+ case testPappyconsonant d3 of+ Parsed d d5 e5 ->+ Parsed ( [c, v, d] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyCCV_rafsi :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyCCV_rafsi d =+ case testPappyinitial_pair d of+ Parsed i d1 e1 ->+ case testPappyunstressed_vowel d1 of+ Parsed v d3 e3 ->+ Parsed ( i ++ [v] ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParser_hyphen :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParser_hyphen d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyr d of+ Parsed r d3 e3 ->+ case testPappyconsonant d3 of+ Parsed _ _ e5 ->+ Parsed ( r ) d3 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyn d of+ Parsed n d3 e3 ->+ case testPappyr d3 of+ Parsed _ _ e5 ->+ Parsed ( n ) d3 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParsefinal_syllable :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsefinal_syllable d =+ case testPappyonset d of+ Parsed o d1 e1 ->+ case testPappyy d1 of+ NoParse e3 ->+ case testPappystressed d1 of+ NoParse e5 ->+ case testPappynucleus d1 of+ Parsed n d7 e7 ->+ case testPappycmene d7 of+ NoParse e9 ->+ case testPappypost_word d7 of+ Parsed _ _ e11 ->+ Parsed ( o ++ n ) d7 (maximum [e11,e9,e7,e5,e3,e1])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ Parsed _ _ e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParsestressed_syllable :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsestressed_syllable d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappystressed d of+ Parsed _ _ e3 ->+ case testPappysyllable d of+ Parsed s d5 e5 ->+ Parsed ( s ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappysyllable d of+ Parsed s d3 e3 ->+ case testPappystress d3 of+ Parsed _ _ e5 ->+ Parsed ( s ) d3 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParsestressed_vowel :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParsestressed_vowel d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappystressed d of+ Parsed _ _ e3 ->+ case testPappyvowel d of+ Parsed v d5 e5 ->+ Parsed ( v ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyvowel d of+ Parsed v d3 e3 ->+ case testPappystress d3 of+ Parsed _ _ e5 ->+ Parsed ( v ) d3 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseunstressed_syllable :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseunstressed_syllable d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappystressed d of+ NoParse e3 ->+ case testPappysyllable d of+ Parsed s d5 e5 ->+ case testPappystress d5 of+ NoParse e7 ->+ Parsed ( s ) d5 (maximum [e7,e5,e3,e1])+ Parsed _ _ e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ Parsed _ _ e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyconsonantal_syllable d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyunstressed_vowel :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyunstressed_vowel d =+ case testPappystressed d of+ NoParse e1 ->+ case testPappyvowel d of+ Parsed v d3 e3 ->+ case testPappystress d3 of+ NoParse e5 ->+ Parsed ( v ) d3 (maximum [e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ Parsed _ _ e1 -> NoParse e1++testPappyParseStarRule208 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])+testPappyParseStarRule208 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyconsonant d of+ Parsed v d3 e3 ->+ case testPappyStarRule208 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappystress :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappystress d =+ case testPappyStarRule208 d of+ Parsed c d1 e1 ->+ case pappyResult3 of+ Parsed y d3 e3 ->+ case testPappysyllable d3 of+ Parsed s d5 e5 ->+ case testPappypause d5 of+ Parsed _ d7 e7 ->+ Parsed ( c ++ ml y ++ s ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyy d1 of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d1 e5+ NoParse e1 -> NoParse e1++testPappystressed :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappystressed d =+ case testPappyonset d of+ Parsed o d1 e1 ->+ case testPappyStarRule236 d1 of+ Parsed _ d3 e3 ->+ case pappyResult5 of+ Parsed v d5 e5 ->+ Parsed ( o ++ [v] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (testPappyPos d3) []) where+ pappyAlt7_1 e7 =+ case testPappyChar d3 of+ r @ (Parsed 'A' _ _) -> r+ _ -> pappyAlt7_2 e7+ pappyAlt7_2 e7 =+ case testPappyChar d3 of+ r @ (Parsed 'E' _ _) -> r+ _ -> pappyAlt7_3 e7+ pappyAlt7_3 e7 =+ case testPappyChar d3 of+ r @ (Parsed 'I' _ _) -> r+ _ -> pappyAlt7_4 e7+ pappyAlt7_4 e7 =+ case testPappyChar d3 of+ r @ (Parsed 'O' _ _) -> r+ _ -> pappyAlt7_5 e7+ pappyAlt7_5 e7 =+ case testPappyChar d3 of+ r @ (Parsed 'U' _ _) -> r+ _ -> pappyAlt7_6 e7+ pappyAlt7_6 e7 = NoParse e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyany_syllable :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyany_syllable d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyonset d of+ Parsed o d3 e3 ->+ case testPappynucleus d3 of+ Parsed n d5 e5 ->+ case pappyResult7 of+ Parsed c d7 e7 ->+ Parsed ( o ++ n ++ fromMaybe "" c ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappycoda d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyconsonantal_syllable d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappysyllable :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappysyllable d =+ case testPappyonset d of+ Parsed o d1 e1 ->+ case testPappyy d1 of+ NoParse e3 ->+ case testPappynucleus d1 of+ Parsed n d5 e5 ->+ case pappyResult7 of+ Parsed c d7 e7 ->+ Parsed ( o ++ n ++ fromMaybe "" c ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case testPappycoda d5 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ Parsed _ _ e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseconsonantal_syllable :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseconsonantal_syllable d =+ case testPappyconsonant d of+ Parsed c d1 e1 ->+ case testPappysyllabic d1 of+ Parsed s d3 e3 ->+ case pappyResult5 of+ Parsed _ _ e5 ->+ case pappyResult7 of+ Parsed c' d7 e7 ->+ Parsed ( c : s : ml c' ) d7 (maximum [e7,e5,e3,e1])+ NoParse e7 -> NoParse (maximum [e7,e5,e3,e1])+ where+ pappyResult7 =+ case pappyResult9 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d3 e9+ where+ pappyResult9 =+ case testPappyconsonant d3 of+ Parsed cin d11 e11 ->+ case testPappyspaces d11 of+ Parsed _ _ e13 ->+ Parsed ( c ) d11 (max e13 e11)+ NoParse e13 -> NoParse (max e13 e11)+ NoParse e11 -> NoParse e11+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (testPappyPos d3) []) where+ pappyAlt7_1 e7 =+ case testPappyconsonantal_syllable d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ case testPappyonset d3 of+ Parsed v9 d9 e9 -> Parsed v9 d9 (max e9 e7)+ NoParse e9 -> pappyAlt7_3 (max e9 e7)+ pappyAlt7_3 e7 = NoParse e7+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParsecoda :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsecoda d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyany_syllable d of+ NoParse e3 ->+ case testPappyconsonant d of+ Parsed c d5 e5 ->+ case testPappyany_syllable d5 of+ Parsed _ _ e7 ->+ Parsed ( [c] ) d5 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_2 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ Parsed _ _ e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed s d3 e3 ->+ case pappyResult5 of+ Parsed c d5 e5 ->+ case testPappypause d5 of+ Parsed _ _ e7 ->+ Parsed ( ml s ++ ml c ) d5 (maximum [e7,e5,e3,e1])+ NoParse e7 -> pappyAlt1_3 (maximum [e7,e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ case testPappyconsonant d3 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d3 e7+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ case testPappysyllabic d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_3 e1 = NoParse e1++testPappyParseonset :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseonset d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyh d of+ Parsed h d3 e3 ->+ Parsed ( [h] ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed c d3 e3 ->+ case testPappyglide d3 of+ Parsed g d5 e5 ->+ Parsed ( ml c ++ [g] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ case testPappyconsonant d of+ Parsed v5 d5 e5 -> Parsed (Just v5) d5 e5+ NoParse e5 -> Parsed (Nothing) d e5+ pappyAlt1_3 e1 =+ case testPappyinitial d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappynucleus :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappynucleus d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyvowel d of+ Parsed v d3 e3 ->+ Parsed ( [v] ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappydiphthong d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyy d of+ Parsed y d3 e3 ->+ Parsed ( [y] ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappyParseglide :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParseglide d =+ case pappyResult1 of+ Parsed v d1 e1 ->+ case testPappynucleus d1 of+ Parsed _ _ e3 ->+ case testPappyglide d1 of+ NoParse e5 ->+ Parsed ( v ) d1 (maximum [e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (testPappyPos d) []) where+ pappyAlt3_1 e3 =+ case testPappyi d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case testPappyu d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 = NoParse e3++testPappyParsediphthong :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsediphthong d =+ case pappyResult1 of+ Parsed d d1 e1 ->+ case testPappynucleus d1 of+ NoParse e3 ->+ case testPappyglide d1 of+ NoParse e5 ->+ Parsed ( d ) d1 (maximum [e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ Parsed _ _ e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (testPappyPos d) []) where+ pappyAlt3_1 e3 =+ case testPappya d of+ Parsed v d5 e5 ->+ case testPappyi d5 of+ Parsed w d7 e7 ->+ Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> pappyAlt3_2 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case testPappya d of+ Parsed v d5 e5 ->+ case testPappyu d5 of+ Parsed w d7 e7 ->+ Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> pappyAlt3_3 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 =+ case testPappye d of+ Parsed v d5 e5 ->+ case testPappyi d5 of+ Parsed w d7 e7 ->+ Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> pappyAlt3_4 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_4 (max e5 e3)+ pappyAlt3_4 e3 =+ case testPappyo d of+ Parsed v d5 e5 ->+ case testPappyi d5 of+ Parsed w d7 e7 ->+ Parsed ( [v, w] ) d7 (maximum [e7,e5,e3])+ NoParse e7 -> pappyAlt3_5 (maximum [e7,e5,e3])+ NoParse e5 -> pappyAlt3_5 (max e5 e3)+ pappyAlt3_5 e3 = NoParse e3++testPappyParsevowel :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParsevowel d =+ case pappyResult1 of+ Parsed v d1 e1 ->+ case testPappynucleus d1 of+ NoParse e3 ->+ Parsed ( v ) d1 (max e3 e1)+ Parsed _ _ e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (testPappyPos d) []) where+ pappyAlt3_1 e3 =+ case testPappya d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case testPappye d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ pappyAlt3_3 e3 =+ case testPappyi d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_4 (max e5 e3)+ pappyAlt3_4 e3 =+ case testPappyo d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_5 (max e5 e3)+ pappyAlt3_5 e3 =+ case testPappyu d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_6 (max e5 e3)+ pappyAlt3_6 e3 = NoParse e3++testPappya :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappya d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed a d3 e3 ->+ Parsed ( a ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'a' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'A' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappye :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappye d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed e d3 e3 ->+ Parsed ( e ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'e' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'E' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyi :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyi d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed i d3 e3 ->+ Parsed ( i ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'i' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'I' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyo :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyo d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed o d3 e3 ->+ Parsed ( o ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'o' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'O' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyu :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyu d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed u d3 e3 ->+ Parsed ( u ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'u' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'U' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyy :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyy d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed y d3 e3 ->+ Parsed ( y ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'y' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'Y' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsePlusRule21 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])+testPappyParsePlusRule21 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyconsonant d of+ Parsed v d3 e3 ->+ case testPappyPlusRule21 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyconsonant d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappycluster :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappycluster d =+ case testPappyconsonant d of+ Parsed c d1 e1 ->+ case testPappyPlusRule21 d1 of+ Parsed cs d3 e3 ->+ Parsed ( c : cs ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseinitial_pair :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseinitial_pair d =+ case testPappyinitial d of+ Parsed _ _ e1 ->+ case testPappyconsonant d of+ Parsed c d3 e3 ->+ case testPappyconsonant d3 of+ Parsed d d5 e5 ->+ case testPappyconsonant d5 of+ NoParse e7 ->+ Parsed ( [c, d] ) d5 (maximum [e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseinitial :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseinitial d =+ case pappyResult1 of+ Parsed i d1 e1 ->+ case testPappyconsonant d1 of+ NoParse e3 ->+ case testPappyglide d1 of+ NoParse e5 ->+ Parsed ( i ) d1 (maximum [e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ Parsed _ _ e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ pappyAlt3_1 (ParseError (testPappyPos d) []) where+ pappyAlt3_1 e3 =+ case testPappyaffricate d of+ Parsed v5 d5 e5 -> Parsed v5 d5 (max e5 e3)+ NoParse e5 -> pappyAlt3_2 (max e5 e3)+ pappyAlt3_2 e3 =+ case pappyResult5 of+ Parsed s d5 e5 ->+ case pappyResult7 of+ Parsed o d7 e7 ->+ case pappyResult9 of+ Parsed l d9 e9 ->+ Parsed ( ml s ++ ml o ++ ml l ) d9 (maximum [e9,e7,e5,e3])+ NoParse e9 -> pappyAlt3_3 (maximum [e9,e7,e5,e3])+ where+ pappyResult9 =+ case testPappyliquid d7 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ NoParse e7 -> pappyAlt3_3 (maximum [e7,e5,e3])+ where+ pappyResult7 =+ case pappyResult9 of+ Parsed v9 d9 e9 -> Parsed (Just v9) d9 e9+ NoParse e9 -> Parsed (Nothing) d5 e9+ where+ pappyResult9 =+ pappyAlt11_1 (ParseError (testPappyPos d5) []) where+ pappyAlt11_1 e11 =+ case testPappyp d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_2 (max e13 e11)+ pappyAlt11_2 e11 =+ case testPappyt d5 of+ Parsed t d13 e13 ->+ case testPappyl d13 of+ NoParse e15 ->+ Parsed ( t ) d13 (maximum [e15,e13,e11])+ Parsed _ _ e15 -> pappyAlt11_3 (maximum [e15,e13,e11])+ NoParse e13 -> pappyAlt11_3 (max e13 e11)+ pappyAlt11_3 e11 =+ case testPappyk d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_4 (max e13 e11)+ pappyAlt11_4 e11 =+ case testPappyf d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_5 (max e13 e11)+ pappyAlt11_5 e11 =+ case testPappyx d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_6 (max e13 e11)+ pappyAlt11_6 e11 =+ case testPappyb d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_7 (max e13 e11)+ pappyAlt11_7 e11 =+ case testPappyd d5 of+ Parsed d d13 e13 ->+ case testPappyl d13 of+ NoParse e15 ->+ Parsed ( d ) d13 (maximum [e15,e13,e11])+ Parsed _ _ e15 -> pappyAlt11_8 (maximum [e15,e13,e11])+ NoParse e13 -> pappyAlt11_8 (max e13 e11)+ pappyAlt11_8 e11 =+ case testPappyg d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_9 (max e13 e11)+ pappyAlt11_9 e11 =+ case testPappyv d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_10 (max e13 e11)+ pappyAlt11_10 e11 =+ case testPappym d5 of+ Parsed v13 d13 e13 -> Parsed v13 d13 (max e13 e11)+ NoParse e13 -> pappyAlt11_11 (max e13 e11)+ pappyAlt11_11 e11 =+ case testPappyn d5 of+ Parsed n d13 e13 ->+ case testPappyliquid d13 of+ NoParse e15 ->+ Parsed ( n ) d13 (maximum [e15,e13,e11])+ Parsed _ _ e15 -> pappyAlt11_12 (maximum [e15,e13,e11])+ NoParse e13 -> pappyAlt11_12 (max e13 e11)+ pappyAlt11_12 e11 = NoParse e11+ NoParse e5 -> pappyAlt3_3 (max e5 e3)+ where+ pappyResult5 =+ case pappyResult7 of+ Parsed v7 d7 e7 -> Parsed (Just v7) d7 e7+ NoParse e7 -> Parsed (Nothing) d e7+ where+ pappyResult7 =+ pappyAlt9_1 (ParseError (testPappyPos d) []) where+ pappyAlt9_1 e9 =+ case testPappyc d of+ Parsed v11 d11 e11 -> Parsed v11 d11 (max e11 e9)+ NoParse e11 -> pappyAlt9_2 (max e11 e9)+ pappyAlt9_2 e9 =+ case testPappys d of+ Parsed s d11 e11 ->+ case testPappyx d11 of+ NoParse e13 ->+ Parsed ( s ) d11 (maximum [e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_3 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_3 (max e11 e9)+ pappyAlt9_3 e9 =+ case pappyResult11 of+ Parsed jz d11 e11 ->+ case testPappyn d11 of+ NoParse e13 ->+ case testPappyliquid d11 of+ NoParse e15 ->+ Parsed ( jz ) d11 (maximum [e15,e13,e11,e9])+ Parsed _ _ e15 -> pappyAlt9_4 (maximum [e15,e13,e11,e9])+ Parsed _ _ e13 -> pappyAlt9_4 (maximum [e13,e11,e9])+ NoParse e11 -> pappyAlt9_4 (max e11 e9)+ where+ pappyResult11 =+ pappyAlt13_1 (ParseError (testPappyPos d) []) where+ pappyAlt13_1 e13 =+ case testPappyj d of+ Parsed v15 d15 e15 -> Parsed v15 d15 (max e15 e13)+ NoParse e15 -> pappyAlt13_2 (max e15 e13)+ pappyAlt13_2 e13 =+ case testPappyz d of+ Parsed v15 d15 e15 -> Parsed v15 d15 (max e15 e13)+ NoParse e15 -> pappyAlt13_3 (max e15 e13)+ pappyAlt13_3 e13 = NoParse e13+ pappyAlt9_4 e9 = NoParse e9+ pappyAlt3_3 e3 = NoParse e3++testPappyaffricate :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyaffricate d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyt d of+ Parsed t d3 e3 ->+ case testPappyc d3 of+ Parsed c d5 e5 ->+ Parsed ( [t, c] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyt d of+ Parsed t d3 e3 ->+ case testPappys d3 of+ Parsed s d5 e5 ->+ Parsed ( [t, s] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyd d of+ Parsed d d3 e3 ->+ case testPappyj d3 of+ Parsed j d5 e5 ->+ Parsed ( [d, j] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_4 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case testPappyd d of+ Parsed d d3 e3 ->+ case testPappyz d3 of+ Parsed z d5 e5 ->+ Parsed ( [d, z] ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_5 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 = NoParse e1++testPappyliquid :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyliquid d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyl d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyr d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyconsonant :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyconsonant d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyvoiced d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyunvoiced d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappysyllabic d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 = NoParse e1++testPappysyllabic :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappysyllabic d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyl d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappym d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyn d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case testPappyr d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 = NoParse e1++testPappyvoiced :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyvoiced d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyb d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyd d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyg d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case testPappyj d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 =+ case testPappyv d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_6 (max e3 e1)+ pappyAlt1_6 e1 =+ case testPappyz d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_7 (max e3 e1)+ pappyAlt1_7 e1 = NoParse e1++testPappyunvoiced :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyunvoiced d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyc d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyf d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 =+ case testPappyk d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_4 (max e3 e1)+ pappyAlt1_4 e1 =+ case testPappyp d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_5 (max e3 e1)+ pappyAlt1_5 e1 =+ case testPappys d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_6 (max e3 e1)+ pappyAlt1_6 e1 =+ case testPappyt d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_7 (max e3 e1)+ pappyAlt1_7 e1 =+ case testPappyx d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_8 (max e3 e1)+ pappyAlt1_8 e1 = NoParse e1++testPappyParsel :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParsel d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed l d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappyl d3 of+ NoParse e7 ->+ Parsed ( l ) d3 (maximum [e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'l' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'L' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsem :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParsem d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed m d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappym d3 of+ NoParse e7 ->+ case testPappyz d3 of+ NoParse e9 ->+ Parsed ( m ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'm' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'M' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsen :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParsen d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed n d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappyn d3 of+ NoParse e7 ->+ case testPappyaffricate d3 of+ NoParse e9 ->+ Parsed ( n ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'n' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'N' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParser :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParser d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed r d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappyr d3 of+ NoParse e7 ->+ Parsed ( r ) d3 (maximum [e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'r' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'R' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseb :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParseb d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed b d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappyb d3 of+ NoParse e7 ->+ case testPappyunvoiced d3 of+ NoParse e9 ->+ Parsed ( b ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'b' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'B' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsed :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParsed d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed d d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappyd d3 of+ NoParse e7 ->+ case testPappyunvoiced d3 of+ NoParse e9 ->+ Parsed ( d ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'd' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'D' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseg :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParseg d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed g d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappyg d3 of+ NoParse e7 ->+ case testPappyunvoiced d3 of+ NoParse e9 ->+ Parsed ( g ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'g' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'G' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsev :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParsev d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappyv d3 of+ NoParse e7 ->+ case testPappyunvoiced d3 of+ NoParse e9 ->+ Parsed ( v ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'v' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'V' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsej :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParsej d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed j d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappyj d3 of+ NoParse e7 ->+ case testPappyz d3 of+ NoParse e9 ->+ case testPappyunvoiced d3 of+ NoParse e11 ->+ Parsed ( j ) d3 (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'j' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'J' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsez :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParsez d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed z d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappyz d3 of+ NoParse e7 ->+ case testPappyj d3 of+ NoParse e9 ->+ case testPappyunvoiced d3 of+ NoParse e11 ->+ Parsed ( z ) d3 (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'z' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'Z' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParses :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParses d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed s d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappys d3 of+ NoParse e7 ->+ case testPappyc d3 of+ NoParse e9 ->+ case testPappyvoiced d3 of+ NoParse e11 ->+ Parsed ( s ) d3 (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 's' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'S' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsec :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParsec d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed c d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappyc d3 of+ NoParse e7 ->+ case testPappys d3 of+ NoParse e9 ->+ case testPappyx d3 of+ NoParse e11 ->+ case testPappyvoiced d3 of+ NoParse e13 ->+ Parsed ( c ) d3 (maximum [e13,e11,e9,e7,e5,e3,e1])+ Parsed _ _ e13 -> NoParse (maximum [e13,e11,e9,e7,e5,e3,e1])+ Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'c' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'C' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsex :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParsex d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed x d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappyx d3 of+ NoParse e7 ->+ case testPappyc d3 of+ NoParse e9 ->+ case testPappyk d3 of+ NoParse e11 ->+ case testPappyvoiced d3 of+ NoParse e13 ->+ Parsed ( x ) d3 (maximum [e13,e11,e9,e7,e5,e3,e1])+ Parsed _ _ e13 -> NoParse (maximum [e13,e11,e9,e7,e5,e3,e1])+ Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'x' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'X' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsek :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParsek d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed k d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappyk d3 of+ NoParse e7 ->+ case testPappyx d3 of+ NoParse e9 ->+ case testPappyvoiced d3 of+ NoParse e11 ->+ Parsed ( k ) d3 (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'k' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'K' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsef :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParsef d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed f d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappyf d3 of+ NoParse e7 ->+ case testPappyvoiced d3 of+ NoParse e9 ->+ Parsed ( f ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'f' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'F' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsep :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParsep d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed p d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappyp d3 of+ NoParse e7 ->+ case testPappyvoiced d3 of+ NoParse e9 ->+ Parsed ( p ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'p' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'P' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParset :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParset d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed t d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappyt d3 of+ NoParse e7 ->+ case testPappyvoiced d3 of+ NoParse e9 ->+ Parsed ( t ) d3 (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 't' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'T' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyh :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyh d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed h d3 e3 ->+ case testPappynucleus d3 of+ Parsed _ _ e5 ->+ Parsed ( h ) d3 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed 'h' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed '\'' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsedigit :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyParsedigit d =+ case testPappyStarRule236 d of+ Parsed _ d1 e1 ->+ case pappyResult3 of+ Parsed d d3 e3 ->+ case testPappyh d3 of+ NoParse e5 ->+ case testPappynucleus d3 of+ NoParse e7 ->+ Parsed ( d ) d3 (maximum [e7,e5,e3,e1])+ Parsed _ _ e7 -> NoParse (maximum [e7,e5,e3,e1])+ Parsed _ _ e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d1) []) where+ pappyAlt5_1 e5 =+ case testPappyChar d1 of+ r @ (Parsed '0' _ _) -> r+ _ -> pappyAlt5_2 e5+ pappyAlt5_2 e5 =+ case testPappyChar d1 of+ r @ (Parsed '1' _ _) -> r+ _ -> pappyAlt5_3 e5+ pappyAlt5_3 e5 =+ case testPappyChar d1 of+ r @ (Parsed '2' _ _) -> r+ _ -> pappyAlt5_4 e5+ pappyAlt5_4 e5 =+ case testPappyChar d1 of+ r @ (Parsed '3' _ _) -> r+ _ -> pappyAlt5_5 e5+ pappyAlt5_5 e5 =+ case testPappyChar d1 of+ r @ (Parsed '4' _ _) -> r+ _ -> pappyAlt5_6 e5+ pappyAlt5_6 e5 =+ case testPappyChar d1 of+ r @ (Parsed '5' _ _) -> r+ _ -> pappyAlt5_7 e5+ pappyAlt5_7 e5 =+ case testPappyChar d1 of+ r @ (Parsed '6' _ _) -> r+ _ -> pappyAlt5_8 e5+ pappyAlt5_8 e5 =+ case testPappyChar d1 of+ r @ (Parsed '7' _ _) -> r+ _ -> pappyAlt5_9 e5+ pappyAlt5_9 e5 =+ case testPappyChar d1 of+ r @ (Parsed '8' _ _) -> r+ _ -> pappyAlt5_10 e5+ pappyAlt5_10 e5 =+ case testPappyChar d1 of+ r @ (Parsed '9' _ _) -> r+ _ -> pappyAlt5_11 e5+ pappyAlt5_11 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsepost_word :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsepost_word d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappypause d of+ Parsed _ d3 e3 ->+ Parsed ( "" ) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappynucleus d of+ NoParse e3 ->+ case testPappylojban_word d of+ Parsed l d5 e5 ->+ Parsed ( l ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ Parsed _ _ e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappypause :: TestPappyDerivs -> Result TestPappyDerivs ( () )+testPappypause d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyStarRule236 d of+ Parsed _ d3 e3 ->+ case testPappyspace_char d3 of+ Parsed _ d5 e5 ->+ Parsed ( () ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyanyChar d of+ NoParse e3 ->+ Parsed ( () ) d (max e3 e1)+ Parsed _ _ e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyanyChar :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyanyChar d =+ case testPappyChar d of+ Parsed c d1 e1 ->+ case ( True ) of+ True ->+ Parsed ( c ) d1 e1+ False -> NoParse e1+ NoParse e1 -> NoParse e1++testPappyParsePlusRule22 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])+testPappyParsePlusRule22 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappynon_space d of+ Parsed v d3 e3 ->+ case testPappyPlusRule22 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappynon_space d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappynon_space :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappynon_space d =+ case testPappyspace_char d of+ NoParse e1 ->+ case testPappyanyChar d of+ Parsed c d3 e3 ->+ case ( c /= '\NUL' ) of+ True ->+ Parsed ( c ) d3 (max e3 e1)+ False -> NoParse (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ Parsed _ _ e1 -> NoParse e1++testPappyspace_char :: TestPappyDerivs -> Result TestPappyDerivs (Char)+testPappyspace_char d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyChar d of+ r @ (Parsed '.' _ _) -> r+ _ -> pappyAlt1_2 e1+ pappyAlt1_2 e1 =+ case testPappyChar d of+ r @ (Parsed '?' _ _) -> r+ _ -> pappyAlt1_3 e1+ pappyAlt1_3 e1 =+ case testPappyChar d of+ r @ (Parsed '!' _ _) -> r+ _ -> pappyAlt1_4 e1+ pappyAlt1_4 e1 =+ case testPappyChar d of+ r @ (Parsed ' ' _ _) -> r+ _ -> pappyAlt1_5 e1+ pappyAlt1_5 e1 =+ case testPappyChar d of+ r @ (Parsed '\t' _ _) -> r+ _ -> pappyAlt1_6 e1+ pappyAlt1_6 e1 =+ case testPappyChar d of+ r @ (Parsed '\r' _ _) -> r+ _ -> pappyAlt1_7 e1+ pappyAlt1_7 e1 =+ case testPappyChar d of+ r @ (Parsed '\n' _ _) -> r+ _ -> pappyAlt1_8 e1+ pappyAlt1_8 e1 = NoParse e1++testPappyspaces :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyspaces d =+ case testPappyY d of+ NoParse e1 ->+ case pappyResult3 of+ Parsed i d3 e3 ->+ Parsed ( i ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyPlusRule23 d of+ Parsed csy d7 e7 ->+ case pappyResult9 of+ Parsed _ d9 e9 ->+ Parsed ( concat csy ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ where+ pappyResult9 =+ case pappyResult11 of+ Parsed v11 d11 e11 -> Parsed (Just v11) d11 e11+ NoParse e11 -> Parsed (Nothing) d7 e11+ where+ pappyResult11 =+ case testPappyanyChar d7 of+ NoParse e13 ->+ Parsed ( () ) d7 e13+ Parsed _ _ e13 -> NoParse e13+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyanyChar d of+ NoParse e7 ->+ Parsed ( "" ) d (max e7 e5)+ Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ Parsed _ _ e1 -> NoParse e1++testPappyParsePlusRule23 :: TestPappyDerivs -> Result TestPappyDerivs ([ String ])+testPappyParsePlusRule23 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyPlusRule23 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappycomma_space_char d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyybu d of+ NoParse e7 ->+ case testPappyY d of+ Parsed y d9 e9 ->+ Parsed ( y ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_2 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappycomma_space_char d of+ Parsed v7 d7 e7 -> Parsed v7 d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyybu d of+ NoParse e7 ->+ case testPappyY d of+ Parsed y d9 e9 ->+ Parsed ( y ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ Parsed _ _ e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ pappyAlt1_3 e1 = NoParse e1++testPappyParseStarRule236 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])+testPappyParseStarRule236 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case pappyResult3 of+ Parsed v d3 e3 ->+ case testPappyStarRule236 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ where+ pappyResult3 =+ case testPappyChar d of+ r @ (Parsed ',' _ _) -> r+ _ -> NoParse (ParseError (testPappyPos d) [])+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappycomma_space_char :: TestPappyDerivs -> Result TestPappyDerivs ( String )+testPappycomma_space_char d =+ case testPappyStarRule236 d of+ Parsed c d1 e1 ->+ case testPappyspace_char d1 of+ Parsed s d3 e3 ->+ Parsed ( c ++ [s] ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseStarRule237 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])+testPappyParseStarRule237 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyspace_char d of+ Parsed v d3 e3 ->+ case testPappyStarRule237 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ Parsed ([]) d e1+ pappyAlt1_3 e1 = NoParse e1++testPappyybu :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyybu d =+ case testPappyY d of+ Parsed y d1 e1 ->+ case testPappyStarRule237 d1 of+ Parsed _ d3 e3 ->+ case testPappyBU d3 of+ Parsed b d5 e5 ->+ Parsed ( y ++ b ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed a d3 e3 ->+ Parsed ( a ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappya d of+ Parsed a d7 e7 ->+ Parsed ( [a] ) d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappye d of+ Parsed e d7 e7 ->+ Parsed ( [e] ) d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [j, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyo d of+ Parsed o d7 e7 ->+ Parsed ( [o] ) d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyu d of+ Parsed u d7 e7 ->+ Parsed ( [u] ) d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseBAI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseBAI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed bai d3 e3 ->+ Parsed ( bai ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [d, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [s, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [z, a, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [k, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [d, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [c, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ pappyAlt5_7 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [t, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [t, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_9 (max e7 e5)+ pappyAlt5_9 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [d, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_10 (max e7 e5)+ pappyAlt5_10 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [j, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_11 (max e7 e5)+ pappyAlt5_11 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [r, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_12 (max e7 e5)+ pappyAlt5_12 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [n, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_13 (max e7 e5)+ pappyAlt5_13 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [m, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_14 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_14 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_14 (max e7 e5)+ pappyAlt5_14 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [k, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_15 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_15 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_15 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_15 (max e7 e5)+ pappyAlt5_15 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [v, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_16 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_16 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_16 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_16 (max e7 e5)+ pappyAlt5_16 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [k, o, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_17 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_17 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_17 (max e7 e5)+ pappyAlt5_17 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [c, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_18 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_18 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_18 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_18 (max e7 e5)+ pappyAlt5_18 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [t, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_19 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_19 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_19 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_19 (max e7 e5)+ pappyAlt5_19 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [p, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_20 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_20 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_20 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_20 (max e7 e5)+ pappyAlt5_20 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [j, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_21 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_21 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_21 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_21 (max e7 e5)+ pappyAlt5_21 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [k, a, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_22 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_22 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_22 (max e7 e5)+ pappyAlt5_22 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [b, a, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_23 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_23 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_23 (max e7 e5)+ pappyAlt5_23 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [f, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_24 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_24 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_24 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_24 (max e7 e5)+ pappyAlt5_24 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [d, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_25 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_25 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_25 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_25 (max e7 e5)+ pappyAlt5_25 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [c, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_26 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_26 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_26 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_26 (max e7 e5)+ pappyAlt5_26 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [m, a, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_27 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_27 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_27 (max e7 e5)+ pappyAlt5_27 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [m, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_28 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_28 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_28 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_28 (max e7 e5)+ pappyAlt5_28 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [r, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_29 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_29 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_29 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_29 (max e7 e5)+ pappyAlt5_29 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [r, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_30 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_30 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_30 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_30 (max e7 e5)+ pappyAlt5_30 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [k, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_31 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_31 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_31 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_31 (max e7 e5)+ pappyAlt5_31 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [p, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_32 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_32 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_32 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_32 (max e7 e5)+ pappyAlt5_32 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [p, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_33 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_33 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_33 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_33 (max e7 e5)+ pappyAlt5_33 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [l, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_34 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_34 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_34 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_34 (max e7 e5)+ pappyAlt5_34 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [k, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_35 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_35 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_35 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_35 (max e7 e5)+ pappyAlt5_35 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [t, a, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_36 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_36 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_36 (max e7 e5)+ pappyAlt5_36 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [b, a, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_37 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_37 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_37 (max e7 e5)+ pappyAlt5_37 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [m, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_38 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_38 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_38 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_38 (max e7 e5)+ pappyAlt5_38 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [c, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_39 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_39 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_39 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_39 (max e7 e5)+ pappyAlt5_39 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [f, a, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_40 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_40 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_40 (max e7 e5)+ pappyAlt5_40 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [p, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_41 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_41 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_41 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_41 (max e7 e5)+ pappyAlt5_41 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [c, a, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_42 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_42 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_42 (max e7 e5)+ pappyAlt5_42 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [m, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_43 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_43 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_43 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_43 (max e7 e5)+ pappyAlt5_43 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [c, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_44 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_44 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_44 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_44 (max e7 e5)+ pappyAlt5_44 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [r, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_45 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_45 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_45 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_45 (max e7 e5)+ pappyAlt5_45 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [p, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_46 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_46 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_46 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_46 (max e7 e5)+ pappyAlt5_46 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [l, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_47 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_47 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_47 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_47 (max e7 e5)+ pappyAlt5_47 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [l, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_48 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_48 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_48 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_48 (max e7 e5)+ pappyAlt5_48 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [b, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_49 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_49 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_49 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_49 (max e7 e5)+ pappyAlt5_49 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [k, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_50 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_50 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_50 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_50 (max e7 e5)+ pappyAlt5_50 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [s, a, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_51 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_51 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_51 (max e7 e5)+ pappyAlt5_51 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [f, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_52 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_52 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_52 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_52 (max e7 e5)+ pappyAlt5_52 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [b, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_53 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_53 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_53 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_53 (max e7 e5)+ pappyAlt5_53 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [t, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_54 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_54 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_54 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_54 (max e7 e5)+ pappyAlt5_54 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [j, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_55 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_55 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_55 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_55 (max e7 e5)+ pappyAlt5_55 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [g, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_56 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_56 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_56 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_56 (max e7 e5)+ pappyAlt5_56 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [v, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_57 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_57 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_57 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_57 (max e7 e5)+ pappyAlt5_57 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [j, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_58 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_58 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_58 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_58 (max e7 e5)+ pappyAlt5_58 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [m, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_59 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_59 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_59 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_59 (max e7 e5)+ pappyAlt5_59 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [d, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_60 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_60 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_60 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_60 (max e7 e5)+ pappyAlt5_60 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [j, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_61 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_61 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_61 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_61 (max e7 e5)+ pappyAlt5_61 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [p, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_62 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_62 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_62 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_62 (max e7 e5)+ pappyAlt5_62 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [g, a, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_63 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_63 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_63 (max e7 e5)+ pappyAlt5_63 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [z, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_64 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_64 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_64 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_64 (max e7 e5)+ pappyAlt5_64 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [m, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_65 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_65 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_65 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_65 (max e7 e5)+ pappyAlt5_65 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [r, a, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_66 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_66 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_66 (max e7 e5)+ pappyAlt5_66 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseBAhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseBAhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed bahe d3 e3 ->+ Parsed ( bahe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [b, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [z, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyBE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyBE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed be d3 e3 ->+ Parsed ( be ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyb d of+ Parsed b d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ Parsed ( [b, e] ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyBEI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyBEI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed bei d3 e3 ->+ Parsed ( bei ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyb d of+ Parsed b d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [b, e, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseBEhO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseBEhO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed beho d3 e3 ->+ Parsed ( beho ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyb d of+ Parsed b d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [b, e, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseBIhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseBIhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed bihe d3 e3 ->+ Parsed ( bihe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyb d of+ Parsed b d5 e5 ->+ case testPappyi d5 of+ Parsed i d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [b, i, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseBIhI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseBIhI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed bihi d3 e3 ->+ Parsed ( bihi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [m, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [b, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [b, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyBO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyBO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed bo d3 e3 ->+ Parsed ( bo ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyb d of+ Parsed b d5 e5 ->+ case testPappyo d5 of+ Parsed o d7 e7 ->+ Parsed ( [b, o] ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyBOI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyBOI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed boi d3 e3 ->+ Parsed ( boi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyb d of+ Parsed b d5 e5 ->+ case testPappyo d5 of+ Parsed o d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [b, o, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyBU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyBU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed bu d3 e3 ->+ Parsed ( bu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyb d of+ Parsed b d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ Parsed ( [b, u] ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseBY :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseBY d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyybu d of+ Parsed v3 d3 e3 -> Parsed v3 d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappycmavo d of+ Parsed _ _ e3 ->+ case pappyResult5 of+ Parsed by d5 e5 ->+ Parsed ( by ) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_3 (maximum [e5,e3,e1])+ where+ pappyResult5 =+ pappyAlt7_1 (ParseError (testPappyPos d) []) where+ pappyAlt7_1 e7 =+ case testPappyj d of+ Parsed j d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ case testPappyh d11 of+ Parsed h d13 e13 ->+ case testPappyo d13 of+ Parsed o d15 e15 ->+ Parsed ( [j, o, h, o] ) d15 (maximum [e15,e13,e11,e9,e7])+ NoParse e15 -> pappyAlt7_2 (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> pappyAlt7_2 (maximum [e13,e11,e9,e7])+ NoParse e11 -> pappyAlt7_2 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_2 (max e9 e7)+ pappyAlt7_2 e7 =+ case testPappyr d of+ Parsed r d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ case testPappyh d11 of+ Parsed h d13 e13 ->+ case testPappyo d13 of+ Parsed o d15 e15 ->+ Parsed ( [r, u, h, o] ) d15 (maximum [e15,e13,e11,e9,e7])+ NoParse e15 -> pappyAlt7_3 (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> pappyAlt7_3 (maximum [e13,e11,e9,e7])+ NoParse e11 -> pappyAlt7_3 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_3 (max e9 e7)+ pappyAlt7_3 e7 =+ case testPappyg d of+ Parsed g d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ case testPappyh d11 of+ Parsed h d13 e13 ->+ case testPappyo d13 of+ Parsed o d15 e15 ->+ Parsed ( [g, e, h, o] ) d15 (maximum [e15,e13,e11,e9,e7])+ NoParse e15 -> pappyAlt7_4 (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> pappyAlt7_4 (maximum [e13,e11,e9,e7])+ NoParse e11 -> pappyAlt7_4 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_4 (max e9 e7)+ pappyAlt7_4 e7 =+ case testPappyj d of+ Parsed j d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ case testPappyh d11 of+ Parsed h d13 e13 ->+ case testPappyo d13 of+ Parsed o d15 e15 ->+ Parsed ( [j, e, h, o] ) d15 (maximum [e15,e13,e11,e9,e7])+ NoParse e15 -> pappyAlt7_5 (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> pappyAlt7_5 (maximum [e13,e11,e9,e7])+ NoParse e11 -> pappyAlt7_5 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_5 (max e9 e7)+ pappyAlt7_5 e7 =+ case testPappyl d of+ Parsed l d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ case testPappyh d11 of+ Parsed h d13 e13 ->+ case testPappya d13 of+ Parsed a d15 e15 ->+ Parsed ( [l, o, h, a] ) d15 (maximum [e15,e13,e11,e9,e7])+ NoParse e15 -> pappyAlt7_6 (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> pappyAlt7_6 (maximum [e13,e11,e9,e7])+ NoParse e11 -> pappyAlt7_6 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_6 (max e9 e7)+ pappyAlt7_6 e7 =+ case testPappyn d of+ Parsed n d9 e9 ->+ case testPappya d9 of+ Parsed a d11 e11 ->+ case testPappyh d11 of+ Parsed h d13 e13 ->+ case testPappya d13 of+ Parsed a d15 e15 ->+ Parsed ( [n, a, h, a] ) d15 (maximum [e15,e13,e11,e9,e7])+ NoParse e15 -> pappyAlt7_7 (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> pappyAlt7_7 (maximum [e13,e11,e9,e7])+ NoParse e11 -> pappyAlt7_7 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_7 (max e9 e7)+ pappyAlt7_7 e7 =+ case testPappys d of+ Parsed s d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ case testPappyh d11 of+ Parsed h d13 e13 ->+ case testPappye d13 of+ Parsed e d15 e15 ->+ Parsed ( [s, e, h, e] ) d15 (maximum [e15,e13,e11,e9,e7])+ NoParse e15 -> pappyAlt7_8 (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> pappyAlt7_8 (maximum [e13,e11,e9,e7])+ NoParse e11 -> pappyAlt7_8 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_8 (max e9 e7)+ pappyAlt7_8 e7 =+ case testPappyt d of+ Parsed t d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ case testPappyh d11 of+ Parsed h d13 e13 ->+ case testPappya d13 of+ Parsed a d15 e15 ->+ Parsed ( [t, o, h, a] ) d15 (maximum [e15,e13,e11,e9,e7])+ NoParse e15 -> pappyAlt7_9 (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> pappyAlt7_9 (maximum [e13,e11,e9,e7])+ NoParse e11 -> pappyAlt7_9 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_9 (max e9 e7)+ pappyAlt7_9 e7 =+ case testPappyg d of+ Parsed g d9 e9 ->+ case testPappya d9 of+ Parsed a d11 e11 ->+ case testPappyh d11 of+ Parsed h d13 e13 ->+ case testPappye d13 of+ Parsed e d15 e15 ->+ Parsed ( [g, a, h, e] ) d15 (maximum [e15,e13,e11,e9,e7])+ NoParse e15 -> pappyAlt7_10 (maximum [e15,e13,e11,e9,e7])+ NoParse e13 -> pappyAlt7_10 (maximum [e13,e11,e9,e7])+ NoParse e11 -> pappyAlt7_10 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_10 (max e9 e7)+ pappyAlt7_10 e7 =+ case testPappyy d of+ Parsed y d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyy d11 of+ Parsed y d13 e13 ->+ Parsed ( [y, h, y] ) d13 (maximum [e13,e11,e9,e7])+ NoParse e13 -> pappyAlt7_11 (maximum [e13,e11,e9,e7])+ NoParse e11 -> pappyAlt7_11 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_11 (max e9 e7)+ pappyAlt7_11 e7 =+ case testPappyb d of+ Parsed b d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [b, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_12 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_12 (max e9 e7)+ pappyAlt7_12 e7 =+ case testPappyc d of+ Parsed c d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [c, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_13 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_13 (max e9 e7)+ pappyAlt7_13 e7 =+ case testPappyd d of+ Parsed d d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [d, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_14 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_14 (max e9 e7)+ pappyAlt7_14 e7 =+ case testPappyf d of+ Parsed f d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [f, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_15 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_15 (max e9 e7)+ pappyAlt7_15 e7 =+ case testPappyg d of+ Parsed g d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [g, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_16 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_16 (max e9 e7)+ pappyAlt7_16 e7 =+ case testPappyj d of+ Parsed j d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [j, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_17 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_17 (max e9 e7)+ pappyAlt7_17 e7 =+ case testPappyk d of+ Parsed k d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [k, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_18 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_18 (max e9 e7)+ pappyAlt7_18 e7 =+ case testPappyl d of+ Parsed l d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [l, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_19 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_19 (max e9 e7)+ pappyAlt7_19 e7 =+ case testPappym d of+ Parsed m d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [m, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_20 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_20 (max e9 e7)+ pappyAlt7_20 e7 =+ case testPappyn d of+ Parsed n d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [n, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_21 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_21 (max e9 e7)+ pappyAlt7_21 e7 =+ case testPappyp d of+ Parsed p d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [p, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_22 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_22 (max e9 e7)+ pappyAlt7_22 e7 =+ case testPappyr d of+ Parsed r d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [r, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_23 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_23 (max e9 e7)+ pappyAlt7_23 e7 =+ case testPappys d of+ Parsed s d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [s, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_24 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_24 (max e9 e7)+ pappyAlt7_24 e7 =+ case testPappyt d of+ Parsed t d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [t, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_25 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_25 (max e9 e7)+ pappyAlt7_25 e7 =+ case testPappyv d of+ Parsed v d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [v, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_26 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_26 (max e9 e7)+ pappyAlt7_26 e7 =+ case testPappyx d of+ Parsed x d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [x, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_27 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_27 (max e9 e7)+ pappyAlt7_27 e7 =+ case testPappyz d of+ Parsed z d9 e9 ->+ case testPappyy d9 of+ Parsed y d11 e11 ->+ Parsed ( [z, y] ) d11 (maximum [e11,e9,e7])+ NoParse e11 -> pappyAlt7_28 (maximum [e11,e9,e7])+ NoParse e9 -> pappyAlt7_28 (max e9 e7)+ pappyAlt7_28 e7 = NoParse e7+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyParseCAhA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseCAhA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed caha d3 e3 ->+ Parsed ( caha ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [c, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [p, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [n, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [k, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseCAI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseCAI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed cai d3 e3 ->+ Parsed ( cai ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [p, e, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [c, a, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [c, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [s, a, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [r, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyCEI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyCEI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed cei d3 e3 ->+ Parsed ( cei ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyc d of+ Parsed c d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [c, e, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseCEhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseCEhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed cehe d3 e3 ->+ Parsed ( cehe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyc d of+ Parsed c d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [c, e, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyCO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyCO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed co d3 e3 ->+ Parsed ( co ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyc d of+ Parsed c d5 e5 ->+ case testPappyo d5 of+ Parsed o d7 e7 ->+ Parsed ( [c, o] ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseCOI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseCOI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed coi d3 e3 ->+ Parsed ( coi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [j, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [c, o, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [f, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [t, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [m, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [f, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ pappyAlt5_7 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [c, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [p, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_9 (max e7 e5)+ pappyAlt5_9 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [k, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_10 (max e7 e5)+ pappyAlt5_10 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [n, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_11 (max e7 e5)+ pappyAlt5_11 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [r, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_12 (max e7 e5)+ pappyAlt5_12 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [b, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_13 (max e7 e5)+ pappyAlt5_13 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [j, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_14 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_14 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_14 (max e7 e5)+ pappyAlt5_14 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [m, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_15 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_15 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_15 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_15 (max e7 e5)+ pappyAlt5_15 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [k, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_16 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_16 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_16 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_16 (max e7 e5)+ pappyAlt5_16 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [v, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_17 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_17 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_17 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_17 (max e7 e5)+ pappyAlt5_17 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyCU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyCU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed cu d3 e3 ->+ Parsed ( cu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyc d of+ Parsed c d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ Parsed ( [c, u] ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseCUhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseCUhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed cuhe d3 e3 ->+ Parsed ( cuhe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [c, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [n, a, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseDAhO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseDAhO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed daho d3 e3 ->+ Parsed ( daho ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyd d of+ Parsed d d5 e5 ->+ case testPappya d5 of+ Parsed a d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [d, a, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyDOI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyDOI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed doi d3 e3 ->+ Parsed ( doi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyd d of+ Parsed d d5 e5 ->+ case testPappyo d5 of+ Parsed o d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [d, o, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseDOhU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseDOhU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed dohu d3 e3 ->+ Parsed ( dohu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyd d of+ Parsed d d5 e5 ->+ case testPappyo d5 of+ Parsed o d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [d, o, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseFA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseFA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed fa d3 e3 ->+ Parsed ( fa ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [f, a, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ case testPappyvowel d9 of+ NoParse e13 ->+ Parsed ( [f, a] ) d9 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ case testPappyvowel d9 of+ NoParse e13 ->+ Parsed ( [f, e] ) d9 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ case testPappyvowel d9 of+ NoParse e13 ->+ Parsed ( [f, o] ) d9 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ case testPappyvowel d9 of+ NoParse e13 ->+ Parsed ( [f, u] ) d9 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [f, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ pappyAlt5_7 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ case testPappyvowel d9 of+ NoParse e13 ->+ Parsed ( [f, i] ) d9 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseFAhA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseFAhA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed faha d3 e3 ->+ Parsed ( faha ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [d, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [b, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [n, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [v, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [g, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [t, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ pappyAlt5_7 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [n, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [c, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_9 (max e7 e5)+ pappyAlt5_9 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [z, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_10 (max e7 e5)+ pappyAlt5_10 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [r, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_11 (max e7 e5)+ pappyAlt5_11 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [r, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_12 (max e7 e5)+ pappyAlt5_12 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [r, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_13 (max e7 e5)+ pappyAlt5_13 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [t, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_14 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_14 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_14 (max e7 e5)+ pappyAlt5_14 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [b, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_15 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_15 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_15 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_15 (max e7 e5)+ pappyAlt5_15 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [n, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_16 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_16 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_16 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_16 (max e7 e5)+ pappyAlt5_16 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [p, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_17 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_17 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_17 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_17 (max e7 e5)+ pappyAlt5_17 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [n, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_18 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_18 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_18 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_18 (max e7 e5)+ pappyAlt5_18 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [t, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_19 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_19 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_19 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_19 (max e7 e5)+ pappyAlt5_19 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [z, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_20 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_20 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_20 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_20 (max e7 e5)+ pappyAlt5_20 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [z, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_21 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_21 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_21 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_21 (max e7 e5)+ pappyAlt5_21 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [z, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_22 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_22 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_22 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_22 (max e7 e5)+ pappyAlt5_22 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [f, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_23 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_23 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_23 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_23 (max e7 e5)+ pappyAlt5_23 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseFAhO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseFAhO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed faho d3 e3 ->+ Parsed ( faho ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyf d of+ Parsed f d5 e5 ->+ case testPappya d5 of+ Parsed a d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [f, a, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseFEhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseFEhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed fehe d3 e3 ->+ Parsed ( fehe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyf d of+ Parsed f d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [f, e, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseFEhU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseFEhU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed fehu d3 e3 ->+ Parsed ( fehu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyf d of+ Parsed f d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [f, e, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseFIhO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseFIhO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed fiho d3 e3 ->+ Parsed ( fiho ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyf d of+ Parsed f d5 e5 ->+ case testPappyi d5 of+ Parsed i d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [f, i, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyFOI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyFOI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed foi d3 e3 ->+ Parsed ( foi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyf d of+ Parsed f d5 e5 ->+ case testPappyo d5 of+ Parsed o d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [f, o, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseFUhA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseFUhA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed fuha d3 e3 ->+ Parsed ( fuha ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyf d of+ Parsed f d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappya d9 of+ Parsed a d11 e11 ->+ Parsed ( [f, u, h, a] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseFUhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseFUhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed fuhe d3 e3 ->+ Parsed ( fuhe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyf d of+ Parsed f d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [f, u, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseFUhO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseFUhO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed fuho d3 e3 ->+ Parsed ( fuho ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyf d of+ Parsed f d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [f, u, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseGA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseGA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed ga d3 e3 ->+ Parsed ( ga ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [g, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ Parsed ( [g, e] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ Parsed ( [g, o] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ Parsed ( [g, a] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ Parsed ( [g, u] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseGAhO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseGAhO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed gaho d3 e3 ->+ Parsed ( gaho ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [k, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [g, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseGEhU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseGEhU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed gehu d3 e3 ->+ Parsed ( gehu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyg d of+ Parsed g d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [g, e, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyGI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyGI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed gi d3 e3 ->+ Parsed ( gi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyg d of+ Parsed g d5 e5 ->+ case testPappyi d5 of+ Parsed i d7 e7 ->+ Parsed ( [g, i] ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseGIhA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseGIhA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed giha d3 e3 ->+ Parsed ( giha ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [g, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [g, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [g, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [g, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [g, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseGOI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseGOI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed goi d3 e3 ->+ Parsed ( goi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [n, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ Parsed ( [n, e] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [g, o, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [p, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ Parsed ( [p, e] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [p, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ pappyAlt5_7 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ Parsed ( [p, o] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseGOhA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseGOhA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed goha d3 e3 ->+ Parsed ( goha ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ Parsed ( [m, o] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [n, e, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [g, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [g, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [g, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [n, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ pappyAlt5_7 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [g, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [g, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_9 (max e7 e5)+ pappyAlt5_9 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ case testPappyvowel d9 of+ NoParse e13 ->+ Parsed ( [d, u] ) d9 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_10 (max e7 e5)+ pappyAlt5_10 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [b, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_11 (max e7 e5)+ pappyAlt5_11 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [b, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_12 (max e7 e5)+ pappyAlt5_12 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [b, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_13 (max e7 e5)+ pappyAlt5_13 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [c, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_14 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_14 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_14 (max e7 e5)+ pappyAlt5_14 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseGUhA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseGUhA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed guha d3 e3 ->+ Parsed ( guha ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [g, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [g, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [g, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [g, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [g, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed i d3 e3 ->+ Parsed ( i ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyi d of+ Parsed i d5 e5 ->+ Parsed ( [i] ) d5 e5+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseJA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseJA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed ja d3 e3 ->+ Parsed ( ja ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [j, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ Parsed ( [j, e] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ case testPappyvowel d9 of+ NoParse e13 ->+ Parsed ( [j, o] ) d9 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ Parsed ( [j, a] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ Parsed ( [j, u] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyJAI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyJAI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed jai d3 e3 ->+ Parsed ( jai ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyj d of+ Parsed j d5 e5 ->+ case testPappya d5 of+ Parsed a d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [j, a, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseJOhI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseJOhI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed johi d3 e3 ->+ Parsed ( johi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyj d of+ Parsed j d5 e5 ->+ case testPappyo d5 of+ Parsed o d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [j, o, h, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseJOI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseJOI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed joi d3 e3 ->+ Parsed ( joi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [f, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [p, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [j, o, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [c, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ Parsed ( [c, e] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [j, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ pappyAlt5_7 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [k, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [j, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_9 (max e7 e5)+ pappyAlt5_9 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [j, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_10 (max e7 e5)+ pappyAlt5_10 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyKE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyKE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed ke d3 e3 ->+ Parsed ( ke ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyk d of+ Parsed k d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ Parsed ( [k, e] ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseKEhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseKEhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed kehe d3 e3 ->+ Parsed ( kehe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyk d of+ Parsed k d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [k, e, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyKEI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyKEI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed kei d3 e3 ->+ Parsed ( kei ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyk d of+ Parsed k d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [k, e, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyKI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyKI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed ki d3 e3 ->+ Parsed ( ki ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyk d of+ Parsed k d5 e5 ->+ case testPappyi d5 of+ Parsed i d7 e7 ->+ Parsed ( [k, i] ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseKOhA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseKOhA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed koha d3 e3 ->+ Parsed ( koha ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [d, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [d, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [d, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [d, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [d, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [d, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ pappyAlt5_7 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [d, e, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [d, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_9 (max e7 e5)+ pappyAlt5_9 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [m, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_10 (max e7 e5)+ pappyAlt5_10 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [m, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_11 (max e7 e5)+ pappyAlt5_11 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [m, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_12 (max e7 e5)+ pappyAlt5_12 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [d, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_13 (max e7 e5)+ pappyAlt5_13 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [k, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_14 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_14 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_14 (max e7 e5)+ pappyAlt5_14 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [f, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_15 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_15 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_15 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_15 (max e7 e5)+ pappyAlt5_15 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [k, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_16 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_16 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_16 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_16 (max e7 e5)+ pappyAlt5_16 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [k, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_17 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_17 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_17 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_17 (max e7 e5)+ pappyAlt5_17 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [k, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_18 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_18 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_18 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_18 (max e7 e5)+ pappyAlt5_18 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [k, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_19 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_19 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_19 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_19 (max e7 e5)+ pappyAlt5_19 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [f, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_20 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_20 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_20 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_20 (max e7 e5)+ pappyAlt5_20 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [f, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_21 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_21 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_21 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_21 (max e7 e5)+ pappyAlt5_21 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [f, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_22 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_22 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_22 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_22 (max e7 e5)+ pappyAlt5_22 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [f, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_23 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_23 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_23 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_23 (max e7 e5)+ pappyAlt5_23 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [v, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_24 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_24 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_24 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_24 (max e7 e5)+ pappyAlt5_24 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [v, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_25 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_25 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_25 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_25 (max e7 e5)+ pappyAlt5_25 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [v, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_26 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_26 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_26 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_26 (max e7 e5)+ pappyAlt5_26 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [v, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_27 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_27 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_27 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_27 (max e7 e5)+ pappyAlt5_27 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [v, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_28 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_28 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_28 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_28 (max e7 e5)+ pappyAlt5_28 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ Parsed ( [r, u] ) d9 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_29 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_29 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_29 (max e7 e5)+ pappyAlt5_29 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [r, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_30 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_30 (max e7 e5)+ pappyAlt5_30 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ Parsed ( [r, a] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_31 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_31 (max e7 e5)+ pappyAlt5_31 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ Parsed ( [t, a] ) d9 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_32 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_32 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_32 (max e7 e5)+ pappyAlt5_32 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ case testPappyvowel d9 of+ NoParse e13 ->+ Parsed ( [t, u] ) d9 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e13 -> pappyAlt5_33 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_33 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_33 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_33 (max e7 e5)+ pappyAlt5_33 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [t, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_34 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_34 (max e7 e5)+ pappyAlt5_34 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [z, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_35 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_35 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_35 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_35 (max e7 e5)+ pappyAlt5_35 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [k, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_36 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_36 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_36 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_36 (max e7 e5)+ pappyAlt5_36 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ Parsed ( [m, a] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_37 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_37 (max e7 e5)+ pappyAlt5_37 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [z, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_38 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_38 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_38 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_38 (max e7 e5)+ pappyAlt5_38 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [z, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_39 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_39 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_39 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_39 (max e7 e5)+ pappyAlt5_39 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [c, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_40 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_40 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_40 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_40 (max e7 e5)+ pappyAlt5_40 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ Parsed ( [d, a] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_41 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_41 (max e7 e5)+ pappyAlt5_41 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ Parsed ( [d, e] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_42 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_42 (max e7 e5)+ pappyAlt5_42 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ Parsed ( [d, i] ) d9 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_43 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_43 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_43 (max e7 e5)+ pappyAlt5_43 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ Parsed ( [k, o] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_44 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_44 (max e7 e5)+ pappyAlt5_44 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [m, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_45 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_45 (max e7 e5)+ pappyAlt5_45 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ Parsed ( [d, o] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_46 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_46 (max e7 e5)+ pappyAlt5_46 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyKU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyKU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed ku d3 e3 ->+ Parsed ( ku ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyk d of+ Parsed k d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ Parsed ( [k, u] ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseKUhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseKUhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed kuhe d3 e3 ->+ Parsed ( kuhe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyk d of+ Parsed k d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [k, u, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseKUhO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseKUhO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed kuho d3 e3 ->+ Parsed ( kuho ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyk d of+ Parsed k d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [k, u, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseLA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseLA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed la d3 e3 ->+ Parsed ( la ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [l, a, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [l, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ Parsed ( [l, a] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseLAU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseLAU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed lau d3 e3 ->+ Parsed ( lau ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [c, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [l, a, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [z, a, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [t, a, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseLAhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseLAhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed lahe d3 e3 ->+ Parsed ( lahe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [t, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [l, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [l, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [l, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [v, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [l, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ pappyAlt5_7 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [l, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseLE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseLE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed le d3 e3 ->+ Parsed ( le ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [l, e, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [l, o, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [l, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [l, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [l, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [l, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ pappyAlt5_7 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ Parsed ( [l, o] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ Parsed ( [l, e] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_9 (max e7 e5)+ pappyAlt5_9 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseLEhU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseLEhU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed lehu d3 e3 ->+ Parsed ( lehu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyl d of+ Parsed l d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [l, e, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseLI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseLI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed li d3 e3 ->+ Parsed ( li ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [m, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [l, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseLIhU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseLIhU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed lihu d3 e3 ->+ Parsed ( lihu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyl d of+ Parsed l d5 e5 ->+ case testPappyi d5 of+ Parsed i d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [l, i, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseLOhO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseLOhO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed loho d3 e3 ->+ Parsed ( loho ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyl d of+ Parsed l d5 e5 ->+ case testPappyo d5 of+ Parsed o d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [l, o, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseLOhU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseLOhU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed lohu d3 e3 ->+ Parsed ( lohu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyl d of+ Parsed l d5 e5 ->+ case testPappyo d5 of+ Parsed o d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [l, o, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyLU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyLU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed lu d3 e3 ->+ Parsed ( lu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyl d of+ Parsed l d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ Parsed ( [l, u] ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseLUhU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseLUhU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed luhu d3 e3 ->+ Parsed ( luhu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyl d of+ Parsed l d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [l, u, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseMAhO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseMAhO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed maho d3 e3 ->+ Parsed ( maho ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappym d of+ Parsed m d5 e5 ->+ case testPappya d5 of+ Parsed a d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [m, a, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseMAI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseMAI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed mai d3 e3 ->+ Parsed ( mai ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [m, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [m, a, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyME :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyME d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed me d3 e3 ->+ Parsed ( me ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappym d of+ Parsed m d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ Parsed ( [m, e] ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseMEhU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseMEhU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed mehu d3 e3 ->+ Parsed ( mehu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappym d of+ Parsed m d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [m, e, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseMOhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseMOhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed mohe d3 e3 ->+ Parsed ( mohe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappym d of+ Parsed m d5 e5 ->+ case testPappyo d5 of+ Parsed o d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [m, o, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseMOhI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseMOhI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed mohi d3 e3 ->+ Parsed ( mohi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappym d of+ Parsed m d5 e5 ->+ case testPappyo d5 of+ Parsed o d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [m, o, h, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseMOI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseMOI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed moi d3 e3 ->+ Parsed ( moi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [m, e, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [m, o, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [s, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [c, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [v, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseNA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseNA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed na d3 e3 ->+ Parsed ( na ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [j, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ Parsed ( [n, a] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyNAI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyNAI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed nai d3 e3 ->+ Parsed ( nai ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyn d of+ Parsed n d5 e5 ->+ case testPappya d5 of+ Parsed a d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [n, a, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseNAhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseNAhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed nahe d3 e3 ->+ Parsed ( nahe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [t, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [j, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [n, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [n, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseNAhU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseNAhU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed nahu d3 e3 ->+ Parsed ( nahu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyn d of+ Parsed n d5 e5 ->+ case testPappya d5 of+ Parsed a d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [n, a, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseNIhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseNIhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed nihe d3 e3 ->+ Parsed ( nihe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyn d of+ Parsed n d5 e5 ->+ case testPappyi d5 of+ Parsed i d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [n, i, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseNIhO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseNIhO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed niho d3 e3 ->+ Parsed ( niho ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [n, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [n, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseNOI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseNOI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed noi d3 e3 ->+ Parsed ( noi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [v, o, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [n, o, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [p, o, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseNU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseNU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed nu d3 e3 ->+ Parsed ( nu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [n, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [d, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [s, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ Parsed ( [n, u] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [l, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ Parsed ( [k, a] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ pappyAlt5_7 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [j, e, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [s, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_9 (max e7 e5)+ pappyAlt5_9 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [z, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_10 (max e7 e5)+ pappyAlt5_10 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [m, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_11 (max e7 e5)+ pappyAlt5_11 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [p, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_12 (max e7 e5)+ pappyAlt5_12 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [z, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_13 (max e7 e5)+ pappyAlt5_13 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseNUhA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseNUhA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed nuha d3 e3 ->+ Parsed ( nuha ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyn d of+ Parsed n d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappya d9 of+ Parsed a d11 e11 ->+ Parsed ( [n, u, h, a] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseNUhI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseNUhI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed nuhi d3 e3 ->+ Parsed ( nuhi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyn d of+ Parsed n d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [n, u, h, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseNUhU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseNUhU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed nuhu d3 e3 ->+ Parsed ( nuhu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyn d of+ Parsed n d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [n, u, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsePA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsePA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed pa d3 e3 ->+ Parsed ( pa ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [d, a, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [f, e, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [g, a, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [j, a, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [r, e, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [v, a, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ pappyAlt5_7 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [p, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [p, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_9 (max e7 e5)+ pappyAlt5_9 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [f, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_10 (max e7 e5)+ pappyAlt5_10 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [z, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_11 (max e7 e5)+ pappyAlt5_11 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [m, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_12 (max e7 e5)+ pappyAlt5_12 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [n, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_13 (max e7 e5)+ pappyAlt5_13 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [k, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_14 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_14 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_14 (max e7 e5)+ pappyAlt5_14 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [c, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_15 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_15 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_15 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_15 (max e7 e5)+ pappyAlt5_15 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [m, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_16 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_16 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_16 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_16 (max e7 e5)+ pappyAlt5_16 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [r, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_17 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_17 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_17 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_17 (max e7 e5)+ pappyAlt5_17 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [d, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_18 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_18 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_18 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_18 (max e7 e5)+ pappyAlt5_18 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [s, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_19 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_19 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_19 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_19 (max e7 e5)+ pappyAlt5_19 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [j, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_20 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_20 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_20 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_20 (max e7 e5)+ pappyAlt5_20 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [s, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_21 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_21 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_21 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_21 (max e7 e5)+ pappyAlt5_21 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [s, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_22 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_22 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_22 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_22 (max e7 e5)+ pappyAlt5_22 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyvowel d9 of+ NoParse e11 ->+ Parsed ( [r, o] ) d9 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_23 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_23 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_23 (max e7 e5)+ pappyAlt5_23 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [r, a, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_24 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_24 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_24 (max e7 e5)+ pappyAlt5_24 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [s, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_25 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_25 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_25 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_25 (max e7 e5)+ pappyAlt5_25 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [s, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_26 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_26 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_26 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_26 (max e7 e5)+ pappyAlt5_26 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [s, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_27 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_27 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_27 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_27 (max e7 e5)+ pappyAlt5_27 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [s, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_28 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_28 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_28 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_28 (max e7 e5)+ pappyAlt5_28 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [m, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_29 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_29 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_29 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_29 (max e7 e5)+ pappyAlt5_29 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [d, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_30 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_30 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_30 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_30 (max e7 e5)+ pappyAlt5_30 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [t, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_31 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_31 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_31 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_31 (max e7 e5)+ pappyAlt5_31 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [k, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_32 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_32 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_32 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_32 (max e7 e5)+ pappyAlt5_32 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [c, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_33 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_33 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_33 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_33 (max e7 e5)+ pappyAlt5_33 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [t, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_34 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_34 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_34 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_34 (max e7 e5)+ pappyAlt5_34 e5 =+ case testPappyx d of+ Parsed x d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ Parsed ( [x, o] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_35 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_35 (max e7 e5)+ pappyAlt5_35 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [p, a, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_36 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_36 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_36 (max e7 e5)+ pappyAlt5_36 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [n, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_37 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_37 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_37 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_37 (max e7 e5)+ pappyAlt5_37 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ case testPappyvowel d9 of+ NoParse e13 ->+ Parsed ( [n, o] ) d9 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e13 -> pappyAlt5_38 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_38 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_38 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_38 (max e7 e5)+ pappyAlt5_38 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ Parsed ( [p, a] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_39 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_39 (max e7 e5)+ pappyAlt5_39 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ Parsed ( [r, e] ) d9 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_40 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_40 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_40 (max e7 e5)+ pappyAlt5_40 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [c, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_41 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_41 (max e7 e5)+ pappyAlt5_41 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ Parsed ( [v, o] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_42 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_42 (max e7 e5)+ pappyAlt5_42 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ Parsed ( [m, u] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_43 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_43 (max e7 e5)+ pappyAlt5_43 e5 =+ case testPappyx d of+ Parsed x d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ Parsed ( [x, a] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_44 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_44 (max e7 e5)+ pappyAlt5_44 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ Parsed ( [z, e] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_45 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_45 (max e7 e5)+ pappyAlt5_45 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ Parsed ( [b, i] ) d9 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_46 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_46 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_46 (max e7 e5)+ pappyAlt5_46 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ Parsed ( [s, o] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_47 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_47 (max e7 e5)+ pappyAlt5_47 e5 =+ case testPappydigit d of+ Parsed d d7 e7 ->+ Parsed ( [d] ) d7 (max e7 e5)+ NoParse e7 -> pappyAlt5_48 (max e7 e5)+ pappyAlt5_48 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsePEhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsePEhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed pehe d3 e3 ->+ Parsed ( pehe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyp d of+ Parsed p d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [p, e, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsePEhO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsePEhO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed peho d3 e3 ->+ Parsed ( peho ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyp d of+ Parsed p d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [p, e, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsePU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParsePU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed pu d3 e3 ->+ Parsed ( pu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ Parsed ( [b, a] ) d9 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ Parsed ( [p, u] ) d9 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ Parsed ( [c, a] ) d9 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseRAhO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseRAhO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed raho d3 e3 ->+ Parsed ( raho ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyr d of+ Parsed r d5 e5 ->+ case testPappya d5 of+ Parsed a d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [r, a, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseROI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseROI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed roi d3 e3 ->+ Parsed ( roi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [r, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [r, o, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappySA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappySA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed sa d3 e3 ->+ Parsed ( sa ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappys d of+ Parsed s d5 e5 ->+ case testPappya d5 of+ Parsed a d7 e7 ->+ Parsed ( [s, a] ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseSE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseSE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed se d3 e3 ->+ Parsed ( se ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ Parsed ( [s, e] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ Parsed ( [t, e] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ Parsed ( [v, e] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyx d of+ Parsed x d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ Parsed ( [x, e] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseSEI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseSEI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed sei d3 e3 ->+ Parsed ( sei ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [s, e, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [t, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseSEhU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseSEhU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed sehu d3 e3 ->+ Parsed ( sehu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappys d of+ Parsed s d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [s, e, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseSI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseSI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed si d3 e3 ->+ Parsed ( si ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappys d of+ Parsed s d5 e5 ->+ case testPappyi d5 of+ Parsed i d7 e7 ->+ case testPappyh d7 of+ NoParse e9 ->+ case testPappyvowel d7 of+ NoParse e11 ->+ Parsed ( [s, i] ) d7 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> NoParse (maximum [e11,e9,e7,e5])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappySOI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappySOI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed soi d3 e3 ->+ Parsed ( soi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappys d of+ Parsed s d5 e5 ->+ case testPappyo d5 of+ Parsed o d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [s, o, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseSU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseSU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed su d3 e3 ->+ Parsed ( su ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappys d of+ Parsed s d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ NoParse e9 ->+ Parsed ( [s, u] ) d7 (maximum [e9,e7,e5])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseTAhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseTAhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed tahe d3 e3 ->+ Parsed ( tahe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [r, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [t, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [d, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [n, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseTEhU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseTEhU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed tehu d3 e3 ->+ Parsed ( tehu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyt d of+ Parsed t d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [t, e, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyTEI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyTEI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed tei d3 e3 ->+ Parsed ( tei ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyt d of+ Parsed t d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [t, e, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseTO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseTO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed to d3 e3 ->+ Parsed ( to ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [t, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ case testPappyvowel d9 of+ NoParse e13 ->+ Parsed ( [t, o] ) d9 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyTOI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyTOI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed toi d3 e3 ->+ Parsed ( toi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyt d of+ Parsed t d5 e5 ->+ case testPappyo d5 of+ Parsed o d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [t, o, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseTUhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseTUhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed tuhe d3 e3 ->+ Parsed ( tuhe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyt d of+ Parsed t d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [t, u, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseTUhU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseTUhU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed tuhu d3 e3 ->+ Parsed ( tuhu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyt d of+ Parsed t d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [t, u, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseUI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseUI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed ui d3 e3 ->+ Parsed ( ui ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyi d of+ Parsed i d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappya d9 of+ Parsed a d11 e11 ->+ Parsed ( [i, h, a] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyi d of+ Parsed i d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ Parsed ( [i, e] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappya d of+ Parsed a d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [a, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyu d of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [u, h, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyi d of+ Parsed i d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [i, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case testPappyi d of+ Parsed i d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [i, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ pappyAlt5_7 e5 =+ case testPappya d of+ Parsed a d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappya d9 of+ Parsed a d11 e11 ->+ Parsed ( [a, h, a] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 =+ case testPappyi d of+ Parsed i d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ Parsed ( [i, a] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_9 (max e7 e5)+ pappyAlt5_9 e5 =+ case testPappyo d of+ Parsed o d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [o, h, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_10 (max e7 e5)+ pappyAlt5_10 e5 =+ case testPappyo d of+ Parsed o d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [o, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_11 (max e7 e5)+ pappyAlt5_11 e5 =+ case testPappye d of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [e, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_12 (max e7 e5)+ pappyAlt5_12 e5 =+ case testPappyo d of+ Parsed o d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [o, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_13 (max e7 e5)+ pappyAlt5_13 e5 =+ case testPappyu d of+ Parsed u d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ Parsed ( [u, o] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_14 (max e7 e5)+ pappyAlt5_14 e5 =+ case testPappye d of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [e, h, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_15 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_15 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_15 (max e7 e5)+ pappyAlt5_15 e5 =+ case testPappyu d of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [u, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_16 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_16 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_16 (max e7 e5)+ pappyAlt5_16 e5 =+ case testPappya d of+ Parsed a d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ Parsed ( [a, u] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_17 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_17 (max e7 e5)+ pappyAlt5_17 e5 =+ case testPappyu d of+ Parsed u d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ Parsed ( [u, a] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_18 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_18 (max e7 e5)+ pappyAlt5_18 e5 =+ case testPappya d of+ Parsed a d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [a, h, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_19 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_19 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_19 (max e7 e5)+ pappyAlt5_19 e5 =+ case testPappyi d of+ Parsed i d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [i, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_20 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_20 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_20 (max e7 e5)+ pappyAlt5_20 e5 =+ case testPappyi d of+ Parsed i d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [i, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_21 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_21 (max e7 e5)+ pappyAlt5_21 e5 =+ case testPappyu d of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappya d9 of+ Parsed a d11 e11 ->+ Parsed ( [u, h, a] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_22 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_22 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_22 (max e7 e5)+ pappyAlt5_22 e5 =+ case testPappyu d of+ Parsed u d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [u, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_23 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_23 (max e7 e5)+ pappyAlt5_23 e5 =+ case testPappya d of+ Parsed a d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [a, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_24 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_24 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_24 (max e7 e5)+ pappyAlt5_24 e5 =+ case testPappya d of+ Parsed a d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [a, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_25 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_25 (max e7 e5)+ pappyAlt5_25 e5 =+ case testPappya d of+ Parsed a d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [a, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_26 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_26 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_26 (max e7 e5)+ pappyAlt5_26 e5 =+ case testPappyi d of+ Parsed i d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ Parsed ( [i, u] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_27 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_27 (max e7 e5)+ pappyAlt5_27 e5 =+ case testPappye d of+ Parsed e d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [e, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_28 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_28 (max e7 e5)+ pappyAlt5_28 e5 =+ case testPappyo d of+ Parsed o d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [o, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_29 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_29 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_29 (max e7 e5)+ pappyAlt5_29 e5 =+ case testPappye d of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappya d9 of+ Parsed a d11 e11 ->+ Parsed ( [e, h, a] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_30 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_30 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_30 (max e7 e5)+ pappyAlt5_30 e5 =+ case testPappyu d of+ Parsed u d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ Parsed ( [u, u] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_31 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_31 (max e7 e5)+ pappyAlt5_31 e5 =+ case testPappyo d of+ Parsed o d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappya d9 of+ Parsed a d11 e11 ->+ Parsed ( [o, h, a] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_32 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_32 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_32 (max e7 e5)+ pappyAlt5_32 e5 =+ case testPappyo d of+ Parsed o d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [o, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_33 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_33 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_33 (max e7 e5)+ pappyAlt5_33 e5 =+ case testPappyu d of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [u, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_34 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_34 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_34 (max e7 e5)+ pappyAlt5_34 e5 =+ case testPappye d of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [e, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_35 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_35 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_35 (max e7 e5)+ pappyAlt5_35 e5 =+ case testPappyi d of+ Parsed i d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ Parsed ( [i, o] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_36 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_36 (max e7 e5)+ pappyAlt5_36 e5 =+ case testPappye d of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [e, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_37 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_37 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_37 (max e7 e5)+ pappyAlt5_37 e5 =+ case testPappyu d of+ Parsed u d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ Parsed ( [u, e] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_38 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_38 (max e7 e5)+ pappyAlt5_38 e5 =+ case testPappyi d of+ Parsed i d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [i, h, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_39 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_39 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_39 (max e7 e5)+ pappyAlt5_39 e5 =+ case testPappyu d of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [u, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_40 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_40 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_40 (max e7 e5)+ pappyAlt5_40 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [b, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_41 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_41 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_41 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_41 (max e7 e5)+ pappyAlt5_41 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [j, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_42 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_42 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_42 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_42 (max e7 e5)+ pappyAlt5_42 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [c, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_43 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_43 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_43 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_43 (max e7 e5)+ pappyAlt5_43 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [s, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_44 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_44 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_44 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_44 (max e7 e5)+ pappyAlt5_44 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [t, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_45 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_45 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_45 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_45 (max e7 e5)+ pappyAlt5_45 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [k, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_46 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_46 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_46 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_46 (max e7 e5)+ pappyAlt5_46 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [s, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_47 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_47 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_47 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_47 (max e7 e5)+ pappyAlt5_47 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [z, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_48 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_48 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_48 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_48 (max e7 e5)+ pappyAlt5_48 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [p, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_49 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_49 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_49 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_49 (max e7 e5)+ pappyAlt5_49 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [r, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_50 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_50 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_50 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_50 (max e7 e5)+ pappyAlt5_50 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [j, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_51 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_51 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_51 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_51 (max e7 e5)+ pappyAlt5_51 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [t, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_52 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_52 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_52 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_52 (max e7 e5)+ pappyAlt5_52 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [r, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_53 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_53 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_53 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_53 (max e7 e5)+ pappyAlt5_53 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [l, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_54 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_54 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_54 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_54 (max e7 e5)+ pappyAlt5_54 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [b, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_55 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_55 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_55 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_55 (max e7 e5)+ pappyAlt5_55 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [m, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_56 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_56 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_56 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_56 (max e7 e5)+ pappyAlt5_56 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [d, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_57 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_57 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_57 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_57 (max e7 e5)+ pappyAlt5_57 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [t, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_58 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_58 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_58 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_58 (max e7 e5)+ pappyAlt5_58 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [v, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_59 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_59 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_59 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_59 (max e7 e5)+ pappyAlt5_59 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [p, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_60 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_60 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_60 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_60 (max e7 e5)+ pappyAlt5_60 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [z, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_61 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_61 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_61 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_61 (max e7 e5)+ pappyAlt5_61 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [s, a, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_62 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_62 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_62 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_62 (max e7 e5)+ pappyAlt5_62 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [l, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_63 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_63 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_63 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_63 (max e7 e5)+ pappyAlt5_63 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [k, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_64 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_64 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_64 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_64 (max e7 e5)+ pappyAlt5_64 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [s, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_65 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_65 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_65 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_65 (max e7 e5)+ pappyAlt5_65 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [d, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_66 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_66 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_66 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_66 (max e7 e5)+ pappyAlt5_66 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [j, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_67 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_67 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_67 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_67 (max e7 e5)+ pappyAlt5_67 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [s, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_68 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_68 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_68 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_68 (max e7 e5)+ pappyAlt5_68 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [k, a, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_69 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_69 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_69 (max e7 e5)+ pappyAlt5_69 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [t, a, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_70 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_70 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_70 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_70 (max e7 e5)+ pappyAlt5_70 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [n, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_71 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_71 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_71 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_71 (max e7 e5)+ pappyAlt5_71 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [j, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_72 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_72 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_72 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_72 (max e7 e5)+ pappyAlt5_72 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [b, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_73 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_73 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_73 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_73 (max e7 e5)+ pappyAlt5_73 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [l, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_74 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_74 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_74 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_74 (max e7 e5)+ pappyAlt5_74 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [p, a, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_75 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_75 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_75 (max e7 e5)+ pappyAlt5_75 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [m, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_76 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_76 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_76 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_76 (max e7 e5)+ pappyAlt5_76 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [k, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_77 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_77 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_77 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_77 (max e7 e5)+ pappyAlt5_77 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [j, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_78 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_78 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_78 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_78 (max e7 e5)+ pappyAlt5_78 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [s, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_79 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_79 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_79 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_79 (max e7 e5)+ pappyAlt5_79 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [p, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_80 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_80 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_80 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_80 (max e7 e5)+ pappyAlt5_80 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [p, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_81 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_81 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_81 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_81 (max e7 e5)+ pappyAlt5_81 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [r, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_82 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_82 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_82 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_82 (max e7 e5)+ pappyAlt5_82 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [r, o, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_83 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_83 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_83 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_83 (max e7 e5)+ pappyAlt5_83 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [r, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_84 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_84 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_84 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_84 (max e7 e5)+ pappyAlt5_84 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [r, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_85 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_85 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_85 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_85 (max e7 e5)+ pappyAlt5_85 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [r, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_86 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_86 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_86 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_86 (max e7 e5)+ pappyAlt5_86 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [r, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_87 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_87 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_87 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_87 (max e7 e5)+ pappyAlt5_87 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [l, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_88 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_88 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_88 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_88 (max e7 e5)+ pappyAlt5_88 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [j, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_89 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_89 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_89 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_89 (max e7 e5)+ pappyAlt5_89 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [f, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_90 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_90 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_90 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_90 (max e7 e5)+ pappyAlt5_90 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [d, a, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_91 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_91 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_91 (max e7 e5)+ pappyAlt5_91 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [g, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_92 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_92 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_92 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_92 (max e7 e5)+ pappyAlt5_92 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [z, o, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_93 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_93 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_93 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_93 (max e7 e5)+ pappyAlt5_93 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [b, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_94 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_94 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_94 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_94 (max e7 e5)+ pappyAlt5_94 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [r, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_95 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_95 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_95 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_95 (max e7 e5)+ pappyAlt5_95 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [s, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_96 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_96 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_96 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_96 (max e7 e5)+ pappyAlt5_96 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [s, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_97 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_97 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_97 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_97 (max e7 e5)+ pappyAlt5_97 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [v, u, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_98 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_98 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_98 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_98 (max e7 e5)+ pappyAlt5_98 e5 =+ case testPappyk d of+ Parsed k d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [k, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_99 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_99 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_99 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_99 (max e7 e5)+ pappyAlt5_99 e5 =+ case testPappyx d of+ Parsed x d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ Parsed ( [x, u] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> pappyAlt5_100 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_100 (max e7 e5)+ pappyAlt5_100 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [g, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_101 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_101 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_101 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_101 (max e7 e5)+ pappyAlt5_101 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [b, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_102 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_102 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_102 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_102 (max e7 e5)+ pappyAlt5_102 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseVA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseVA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed va d3 e3 ->+ Parsed ( va ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ Parsed ( [v, i] ) d9 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ Parsed ( [v, a] ) d9 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ Parsed ( [v, u] ) d9 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyVAU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyVAU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed vau d3 e3 ->+ Parsed ( vau ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyv d of+ Parsed v d5 e5 ->+ case testPappya d5 of+ Parsed a d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ Parsed ( [v, a, u] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyVEI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyVEI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed vei d3 e3 ->+ Parsed ( vei ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyv d of+ Parsed v d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [v, e, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseVEhO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseVEhO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed veho d3 e3 ->+ Parsed ( veho ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyv d of+ Parsed v d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [v, e, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseVUhU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseVUhU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed vuhu d3 e3 ->+ Parsed ( vuhu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [g, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [f, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [p, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [f, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [v, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [s, u, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ pappyAlt5_7 e5 =+ case testPappyj d of+ Parsed j d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [j, u, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 =+ case testPappyg d of+ Parsed g d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [g, e, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_9 (max e7 e5)+ pappyAlt5_9 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [p, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_10 (max e7 e5)+ pappyAlt5_10 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [f, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_11 (max e7 e5)+ pappyAlt5_11 e5 =+ case testPappyt d of+ Parsed t d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [t, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_12 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_12 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_12 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_12 (max e7 e5)+ pappyAlt5_12 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [c, u, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_13 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_13 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_13 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_13 (max e7 e5)+ pappyAlt5_13 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [v, a, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_14 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_14 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_14 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_14 (max e7 e5)+ pappyAlt5_14 e5 =+ case testPappyn d of+ Parsed n d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [n, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_15 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_15 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_15 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_15 (max e7 e5)+ pappyAlt5_15 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [d, e, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_16 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_16 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_16 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_16 (max e7 e5)+ pappyAlt5_16 e5 =+ case testPappyf d of+ Parsed f d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [f, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_17 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_17 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_17 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_17 (max e7 e5)+ pappyAlt5_17 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [s, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_18 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_18 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_18 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_18 (max e7 e5)+ pappyAlt5_18 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [r, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_19 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_19 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_19 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_19 (max e7 e5)+ pappyAlt5_19 e5 =+ case testPappyr d of+ Parsed r d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [r, i, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_20 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_20 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_20 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_20 (max e7 e5)+ pappyAlt5_20 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [s, a, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_21 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_21 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_21 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_21 (max e7 e5)+ pappyAlt5_21 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [p, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_22 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_22 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_22 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_22 (max e7 e5)+ pappyAlt5_22 e5 =+ case testPappys d of+ Parsed s d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [s, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_23 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_23 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_23 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_23 (max e7 e5)+ pappyAlt5_23 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseVEhA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseVEhA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed veha d3 e3 ->+ Parsed ( veha ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [v, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [v, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [v, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [v, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseVIhA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseVIhA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed viha d3 e3 ->+ Parsed ( viha ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [v, i, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [v, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [v, i, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyv d of+ Parsed v d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [v, i, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseVUhO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseVUhO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed vuho d3 e3 ->+ Parsed ( vuho ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyv d of+ Parsed v d5 e5 ->+ case testPappyu d5 of+ Parsed u d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyo d9 of+ Parsed o d11 e11 ->+ Parsed ( [v, u, h, o] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyXI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyXI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed xi d3 e3 ->+ Parsed ( xi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyx d of+ Parsed x d5 e5 ->+ case testPappyi d5 of+ Parsed i d7 e7 ->+ Parsed ( [x, i] ) d7 (max e7 e5)+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsePlusRule24 :: TestPappyDerivs -> Result TestPappyDerivs ([Char])+testPappyParsePlusRule24 d =+ pappyAlt1_1 (ParseError (testPappyPos d) []) where+ pappyAlt1_1 e1 =+ case testPappyy d of+ Parsed v d3 e3 ->+ case testPappyPlusRule24 d3 of+ Parsed vs d5 e5 ->+ Parsed (v : vs) d5 (maximum [e5,e3,e1])+ NoParse e5 -> pappyAlt1_2 (maximum [e5,e3,e1])+ NoParse e3 -> pappyAlt1_2 (max e3 e1)+ pappyAlt1_2 e1 =+ case testPappyy d of+ Parsed v d3 e3 ->+ Parsed ([v]) d3 (max e3 e1)+ NoParse e3 -> pappyAlt1_3 (max e3 e1)+ pappyAlt1_3 e1 = NoParse e1++testPappyY :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyY d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case testPappyPlusRule24 d of+ Parsed y d3 e3 ->+ case testPappypost_word d3 of+ Parsed _ _ e5 ->+ Parsed ( y ) d3 (maximum [e5,e3,e1])+ NoParse e5 -> NoParse (maximum [e5,e3,e1])+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1++testPappyParseZAhO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseZAhO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed zaho d3 e3 ->+ Parsed ( zaho ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [c, o, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyp d of+ Parsed p d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [p, u, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [c, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappym d of+ Parsed m d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [m, o, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [c, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_6 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_6 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_6 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_6 (max e7 e5)+ pappyAlt5_6 e5 =+ case testPappyc d of+ Parsed c d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [c, o, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_7 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_7 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_7 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_7 (max e7 e5)+ pappyAlt5_7 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [d, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_8 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_8 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_8 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_8 (max e7 e5)+ pappyAlt5_8 e5 =+ case testPappyb d of+ Parsed b d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [b, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_9 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_9 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_9 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_9 (max e7 e5)+ pappyAlt5_9 e5 =+ case testPappyd d of+ Parsed d d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [d, i, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_10 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_10 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_10 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_10 (max e7 e5)+ pappyAlt5_10 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [z, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_11 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_11 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_11 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_11 (max e7 e5)+ pappyAlt5_11 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseZEhA :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseZEhA d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed zeha d3 e3 ->+ Parsed ( zeha ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyu d11 of+ Parsed u d13 e13 ->+ Parsed ( [z, e, h, u] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_2 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappya d11 of+ Parsed a d13 e13 ->+ Parsed ( [z, e, h, a] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyi d11 of+ Parsed i d13 e13 ->+ Parsed ( [z, e, h, i] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_4 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappye d7 of+ Parsed e d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappye d11 of+ Parsed e d13 e13 ->+ Parsed ( [z, e, h, e] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_5 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_5 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_5 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_5 (max e7 e5)+ pappyAlt5_5 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyZEI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyZEI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed zei d3 e3 ->+ Parsed ( zei ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyz d of+ Parsed z d5 e5 ->+ case testPappye d5 of+ Parsed e d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ Parsed ( [z, e, i] ) d9 (maximum [e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseZI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseZI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed zi d3 e3 ->+ Parsed ( zi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappyu d7 of+ Parsed u d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ Parsed ( [z, u] ) d9 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ Parsed ( [z, a] ) d9 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappyi d7 of+ Parsed i d9 e9 ->+ case testPappyh d9 of+ NoParse e11 ->+ Parsed ( [z, i] ) d9 (maximum [e11,e9,e7,e5])+ Parsed _ _ e11 -> pappyAlt5_4 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_4 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_4 (max e7 e5)+ pappyAlt5_4 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseZIhE :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseZIhE d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed zihe d3 e3 ->+ Parsed ( zihe ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyz d of+ Parsed z d5 e5 ->+ case testPappyi d5 of+ Parsed i d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappye d9 of+ Parsed e d11 e11 ->+ Parsed ( [z, i, h, e] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyZO :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyZO d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed zo d3 e3 ->+ Parsed ( zo ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyz d of+ Parsed z d5 e5 ->+ case testPappyo d5 of+ Parsed o d7 e7 ->+ case testPappyi d7 of+ NoParse e9 ->+ Parsed ( [z, o] ) d7 (maximum [e9,e7,e5])+ Parsed _ _ e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseZOI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseZOI d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed zoi d3 e3 ->+ Parsed ( zoi ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ pappyAlt5_1 (ParseError (testPappyPos d) []) where+ pappyAlt5_1 e5 =+ case testPappyz d of+ Parsed z d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ case testPappyi d9 of+ Parsed i d11 e11 ->+ Parsed ( [z, o, i] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_2 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_2 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_2 (max e7 e5)+ pappyAlt5_2 e5 =+ case testPappyl d of+ Parsed l d7 e7 ->+ case testPappya d7 of+ Parsed a d9 e9 ->+ case testPappyh d9 of+ Parsed h d11 e11 ->+ case testPappyo d11 of+ Parsed o d13 e13 ->+ Parsed ( [l, a, h, o] ) d13 (maximum [e13,e11,e9,e7,e5])+ NoParse e13 -> pappyAlt5_3 (maximum [e13,e11,e9,e7,e5])+ NoParse e11 -> pappyAlt5_3 (maximum [e11,e9,e7,e5])+ NoParse e9 -> pappyAlt5_3 (maximum [e9,e7,e5])+ NoParse e7 -> pappyAlt5_3 (max e7 e5)+ pappyAlt5_3 e5 = NoParse e5+ NoParse e1 -> NoParse e1++testPappyParseZOhU :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappyParseZOhU d =+ case testPappycmavo d of+ Parsed _ _ e1 ->+ case pappyResult3 of+ Parsed zohu d3 e3 ->+ Parsed ( zohu ) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ where+ pappyResult3 =+ case testPappyz d of+ Parsed z d5 e5 ->+ case testPappyo d5 of+ Parsed o d7 e7 ->+ case testPappyh d7 of+ Parsed h d9 e9 ->+ case testPappyu d9 of+ Parsed u d11 e11 ->+ Parsed ( [z, o, h, u] ) d11 (maximum [e11,e9,e7,e5])+ NoParse e11 -> NoParse (maximum [e11,e9,e7,e5])+ NoParse e9 -> NoParse (maximum [e9,e7,e5])+ NoParse e7 -> NoParse (max e7 e5)+ NoParse e5 -> NoParse e5+ NoParse e1 -> NoParse e1++testPappyParsedummyTail :: TestPappyDerivs -> Result TestPappyDerivs ((() -> ()))+testPappyParsedummyTail d =+ case testPappyChar d of+ Parsed 'a' d1 _ ->+ case testPappydummy d1 of+ Parsed _ d3 e3 ->+ case testPappydummyTail d3 of+ Parsed pappyTail d5 e5 ->+ Parsed (\l -> pappyTail ( () )) d5 (max e5 e3)+ NoParse e5 -> NoParse (max e5 e3)+ NoParse e3 -> NoParse e3+ _ ->+ Parsed (\v -> v) d (ParseError (testPappyPos d) [])++testPappyParsedummy :: TestPappyDerivs -> Result TestPappyDerivs (())+testPappyParsedummy d =+ case pappyResult1 of+ Parsed l d1 e1 ->+ case testPappydummyTail d1 of+ Parsed t d3 e3 ->+ Parsed (t l) d3 (max e3 e1)+ NoParse e3 -> NoParse (max e3 e1)+ NoParse e1 -> NoParse e1+ where+ pappyResult1 =+ case testPappyChar d of+ Parsed 'a' d3 _ ->+ case testPappydummy d3 of+ Parsed _ d5 e5 ->+ Parsed ( () ) d5 e5+ NoParse e5 -> NoParse e5+ _ -> NoParse (ParseError (testPappyPos d) [])+
+ src/testParser.hs view
@@ -0,0 +1,8 @@+module Main where++import Language.Lojban.Parser+import System.Environment++main = do+ [str] <- getArgs+ print $ parse str
− testParser.hs
@@ -1,8 +0,0 @@-module Main where--import Language.Lojban.Parser-import System.Environment--main = do- [str] <- getArgs- print $ parse str