lojbanParser (empty) → 0.1
raw patch · 10 files changed
+28115/−0 lines, 10 filesdep +basesetup-changed
Dependencies added: base
Files
- LICENSE +27/−0
- Language/Lojban/Parser.hs +35/−0
- LexerPappy.hs +3327/−0
- Parse.hs +420/−0
- Pos.hs +47/−0
- Preprocess.hs +32/−0
- Setup.hs +3/−0
- TestPappy.hs +24188/−0
- lojbanParser.cabal +28/−0
- testPappy.hs +8/−0
+ LICENSE view
@@ -0,0 +1,27 @@+Copyright (c) 2011, Yoshikuni Jujo+All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++ * Redistributions of source code must retain the above copyright notice,+ this list of conditions and the following disclaimer.++ * Redistributions in binary form must reproduce the above copyright+ notice, this list of conditions and the following disclaimer in the+ documentation and/or other materials provided with the distribution.++ * Neither the name of the Yoshikuni Jujo nor the names of its+ contributors may be used to endorse or promote products derived from+ this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,+THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE+ARE DISCLAIMED. IN NO EVEN SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,+OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ Language/Lojban/Parser.hs view
@@ -0,0 +1,35 @@+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 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) [])+
+ 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))+
+ 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')++
+ 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
+ Setup.hs view
@@ -0,0 +1,3 @@+import Distribution.Simple++main = defaultMain
+ TestPappy.hs view
@@ -0,0 +1,24188 @@+-- 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)}++data TestPappyDerivs5 = TestPappyDerivs5 {+ testPappySubfinal_syllable :: Result TestPappyDerivs (String),+ 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)}++data TestPappyDerivs6 = TestPappyDerivs6 {+ testPappySubPlusRule22 :: Result TestPappyDerivs ([Char]),+ 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)}++data TestPappyDerivs7 = TestPappyDerivs7 {+ testPappySubGUhA :: Result TestPappyDerivs (String),+ 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)}++data TestPappyDerivs8 = TestPappyDerivs8 {+ testPappySubNUhU :: Result TestPappyDerivs (String),+ 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),+ 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 . testPappySub5+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 . testPappySub6+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 . testPappySub7+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 . testPappySub8+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+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)++testPappyDerivs5 dvs = TestPappyDerivs5+ (testPappyParsefinal_syllable dvs)+ (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)++testPappyDerivs6 dvs = TestPappyDerivs6+ (testPappyParsePlusRule22 dvs)+ (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)++testPappyDerivs7 dvs = TestPappyDerivs7+ (testPappyParseGUhA dvs)+ (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)++testPappyDerivs8 dvs = TestPappyDerivs8+ (testPappyParseNUhU dvs)+ (testPappyParsePA dvs)+ (testPappyParsePEhE dvs)+ (testPappyParsePEhO dvs)+ (testPappyParsePU dvs)+ (testPappyParseRAhO dvs)+ (testPappyParseROI dvs)+ (testPappyParseSE dvs)+ (testPappyParseSEI dvs)+ (testPappyParseSEhU 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 ->+ Parsed ( [f, a] ) d9 (maximum [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 ->+ Parsed ( [f, 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 testPappyf d of+ Parsed f d7 e7 ->+ case testPappyo d7 of+ Parsed o d9 e9 ->+ Parsed ( [f, o] ) d9 (maximum [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 ->+ Parsed ( [f, u] ) d9 (maximum [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 ->+ Parsed ( [f, i] ) 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++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 ->+ Parsed ( [t, u] ) d9 (maximum [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++testPappySI :: TestPappyDerivs -> Result TestPappyDerivs (String)+testPappySI 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 ->+ Parsed ( [s, i] ) d7 (max 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
@@ -0,0 +1,28 @@+build-type: Simple+cabal-version: >= 1.6++name: lojbanParser+version: 0.1+stability: experimental+author: .iocikun.juj. <PAF01143@nifty.ne.jp>+maintainer: .iocikun.juj. <PAF01143@nifty.ne.jp>++license: BSD3+license-file: LICENSE++category: Language+synopsis: lojban parser+description:+ This is alpha version. The interface may change.++source-repository head+ type: git+ location: git://github.com/YoshikuniJujo/lojban_parser.git++library+ exposed-modules: Language.Lojban.Parser+ other-modules: Preprocess LexerPappy Pos Parse TestPappy++executable testParser+ main-is: testPappy.hs+ build-depends: base > 3 && < 5
+ testPappy.hs view
@@ -0,0 +1,8 @@+module Main where++import Language.Lojban.Parser+import System.Environment++main = do+ [str] <- getArgs+ print $ parse str