diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -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. diff --git a/Language/Lojban/Parser.hs b/Language/Lojban/Parser.hs new file mode 100644 --- /dev/null +++ b/Language/Lojban/Parser.hs @@ -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 diff --git a/LexerPappy.hs b/LexerPappy.hs new file mode 100644 --- /dev/null +++ b/LexerPappy.hs @@ -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) []) + diff --git a/Parse.hs b/Parse.hs new file mode 100644 --- /dev/null +++ b/Parse.hs @@ -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 ' acts like +-- but only succeeds if the result it generates satisfies . +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 ' acts like +-- 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 ' invokes , +-- then succeeds without consuming any input if fails, +-- and fails if 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 ' invokes , +-- then produces the result 'Just ' if produced , +-- or else produces the success result 'Nothing' +-- without consuming any input if 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 ' invokes 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 ' invokes repeatedly until it fails, +-- collecting all success result values into a list. +-- Fails if 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 ' scans one or more iterations of , +-- with a match of between each instance. +-- Only the results of 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 ' scans for a sequence of matches +-- in which instances are separated by , +-- and if a is found following the last 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 ' matches instances of separated by , +-- but uses the result of 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 ' matches the specific character . +char :: Derivs d => Char -> Parser d Char +char ch = satisfy anyChar (\c -> c == ch) show ch + +-- 'oneOf ' matches any character in string . +oneOf :: Derivs d => [Char] -> Parser d Char +oneOf chs = satisfy anyChar (\c -> c `elem` chs) + ("one of the characters " ++ show chs) + +-- 'noneOf ' matches any character not in string . +noneOf :: Derivs d => [Char] -> Parser d Char +noneOf chs = satisfy anyChar (\c -> not (c `elem` chs)) + ("any character not in " ++ show chs) + +-- 'string ' matches all the characters in 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 ' matches any string in the list of strings . +-- If any strings in are prefixes of other strings in , +-- 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)) + diff --git a/Pos.hs b/Pos.hs new file mode 100644 --- /dev/null +++ b/Pos.hs @@ -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') + + diff --git a/Preprocess.hs b/Preprocess.hs new file mode 100644 --- /dev/null +++ b/Preprocess.hs @@ -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 diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,3 @@ +import Distribution.Simple + +main = defaultMain diff --git a/TestPappy.hs b/TestPappy.hs new file mode 100644 --- /dev/null +++ b/TestPappy.hs @@ -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) []) + diff --git a/lojbanParser.cabal b/lojbanParser.cabal new file mode 100644 --- /dev/null +++ b/lojbanParser.cabal @@ -0,0 +1,28 @@ +build-type: Simple +cabal-version: >= 1.6 + +name: lojbanParser +version: 0.1 +stability: experimental +author: .iocikun.juj. +maintainer: .iocikun.juj. + +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 diff --git a/testPappy.hs b/testPappy.hs new file mode 100644 --- /dev/null +++ b/testPappy.hs @@ -0,0 +1,8 @@ +module Main where + +import Language.Lojban.Parser +import System.Environment + +main = do + [str] <- getArgs + print $ parse str