Succeeded, with:
   Size env = 21
   Next token = (99997,99997,Leof,"")

   Result = MkModule "Parser" [MkTopV (MkValBind 12 (LhsPat (PatVar "panic")) (ExprVar "error")),MkTopV (MkValBind 16 (LhsPat (PatVar "paLiteral")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprApp (ExprVar ".") (ExprCon "LiteralInt")) (ExprVar "leStringToInt"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lintlit")),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprApp (ExprVar ".") (ExprCon "LiteralChar")) (ExprVar "head"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lcharlit")),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "LiteralString")) (ExprApp (ExprVar "pgItem") (ExprCon "Lstringlit"))]))),MkTopV (MkValBind 24 (LhsPat (PatVar "paExpr")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprVar "paCaseExpr",ExprVar "paLetExpr",ExprVar "paLamExpr",ExprVar "paIfExpr",ExprVar "paUnaryMinusExpr",ExprApp (ExprVar "hsDoExpr") (ExprList [])]))),MkTopV (MkValBind 35 (LhsPat (PatVar "paUnaryMinusExpr")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "minus",PatTuple [PatWild,PatVar "aexpr",PatWild]] (ExprApp (ExprApp (ExprCon "ExprApp") (ExprApp (ExprApp (ExprCon "ExprApp") (ExprApp (ExprCon "ExprVar") (ExprLiteral (LiteralString "-")))) (ExprApp (ExprCon "ExprLiteral") (ExprApp (ExprCon "LiteralInt") (ExprLiteral (LiteralInt 0)))))) (ExprVar "aexpr")))) (ExprVar "paMinus")) (ExprVar "paAExpr"))),MkTopV (MkValBind 42 (LhsPat (PatVar "paCaseExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "casee",PatVar "expr",PatVar "off",PatVar "alts"] (ExprApp (ExprApp (ExprCon "ExprCase") (ExprVar "expr")) (ExprVar "alts")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lcase"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lof"))) (ExprApp (ExprVar "pgDeclList") (ExprVar "paAlt")))),MkTopV (MkValBind 50 (LhsPat (PatVar "paAlt")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "pat",PatVar "arrow",PatVar "expr",PatVar "wheres"] (ExprApp (ExprApp (ExprCon "MkExprCaseAlt") (ExprVar "pat")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprVar "expr")) (ExprVar "wheres"))))) (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "pat",PatVar "agrdrhss",PatVar "wheres"] (ExprApp (ExprApp (ExprCon "MkExprCaseAlt") (ExprVar "pat")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprApp (ExprCon "ExprGuards") (ExprVar "agrdrhss"))) (ExprVar "wheres"))))) (ExprVar "paPat")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paGalt"))) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause"))]))),MkTopV (MkValBind 69 (LhsPat (PatVar "paGalt")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "bar",PatVar "guard",PatVar "arrow",PatVar "expr"] (ExprTuple [ExprVar "guard",ExprVar "expr"]))) (ExprApp (ExprVar "pgItem") (ExprCon "Lbar"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paExpr"))),MkTopV (MkValBind 77 (LhsPat (PatVar "paLamExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "lam",PatVar "patterns",PatVar "arrow",PatVar "rhs"] (ExprApp (ExprApp (ExprCon "ExprLam") (ExprVar "patterns")) (ExprVar "rhs")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lslash"))) (ExprApp (ExprVar "pgZeroOrMore") (ExprVar "paAPat"))) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paExpr"))),MkTopV (MkValBind 85 (LhsPat (PatVar "paLetExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "lett",PatVar "decls",PatVar "inn",PatVar "rhs"] (ExprApp (ExprApp (ExprCon "ExprLetrec") (ExprVar "decls")) (ExprVar "rhs")))) (ExprApp (ExprVar "pgItem") (ExprCon "Llet"))) (ExprVar "paValdefs")) (ExprApp (ExprVar "pgItem") (ExprCon "Lin"))) (ExprVar "paExpr"))),MkTopV (MkValBind 93 (LhsPat (PatVar "paValdefs")) (ExprApp (ExprApp (ExprVar "pgApply") (ExprVar "pa_MergeValdefs")) (ExprApp (ExprVar "pgDeclList") (ExprVar "paValdef")))),MkTopV (MkValBind 96 (LhsPat (PatVar "pa_MergeValdefs")) (ExprVar "id")),MkTopV (MkValBind 99 (LhsPat (PatVar "paLhs")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "v",PatVar "ps"] (ExprApp (ExprApp (ExprCon "LhsVar") (ExprVar "v")) (ExprVar "ps")))) (ExprVar "paVar")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paPat")),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "LhsPat")) (ExprVar "paPat")]))),MkTopV (MkValBind 106 (LhsPat (PatVar "paValdef")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatTuple [PatVar "line",PatVar "lhs"],PatVar "eq",PatVar "rhs",PatVar "wheres"] (ExprApp (ExprApp (ExprApp (ExprCon "MkValBind") (ExprVar "line")) (ExprVar "lhs")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprVar "rhs")) (ExprVar "wheres"))))) (ExprApp (ExprVar "pgGetLineNumber") (ExprVar "paLhs"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lequals"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatTuple [PatVar "line",PatVar "lhs"],PatVar "grdrhss",PatVar "wheres"] (ExprApp (ExprApp (ExprApp (ExprCon "MkValBind") (ExprVar "line")) (ExprVar "lhs")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprApp (ExprCon "ExprGuards") (ExprVar "grdrhss"))) (ExprVar "wheres"))))) (ExprApp (ExprVar "pgGetLineNumber") (ExprVar "paLhs"))) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paGrhs"))) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause"))]))),MkTopV (MkValBind 125 (LhsVar "pa_MakeWhereExpr" [PatVar "expr",PatCon "Nothing" []]) (ExprVar "expr")),MkTopV (MkValBind 127 (LhsVar "pa_MakeWhereExpr" [PatVar "expr",PatCon "Just" [PatVar "whereClauses"]]) (ExprApp (ExprApp (ExprCon "ExprWhere") (ExprVar "expr")) (ExprVar "whereClauses"))),MkTopV (MkValBind 130 (LhsPat (PatVar "paWhereClause")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "x",PatVar "y"] (ExprVar "y"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lwhere"))) (ExprVar "paValdefs"))),MkTopV (MkValBind 132 (LhsPat (PatVar "paGrhs")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "bar",PatVar "guard",PatVar "equals",PatVar "expr"] (ExprTuple [ExprVar "guard",ExprVar "expr"]))) (ExprApp (ExprVar "pgItem") (ExprCon "Lbar"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lequals"))) (ExprVar "paExpr"))),MkTopV (MkValBind 141 (LhsPat (PatVar "paAPat")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "PatVar")) (ExprVar "paVar"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "id"] (ExprApp (ExprApp (ExprCon "PatCon") (ExprVar "id")) (ExprList [])))) (ExprVar "paCon"),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "PatWild"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lunder")),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "PatTuple")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprApp (ExprApp (ExprVar "pgTwoOrMoreWithSep") (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "PatList")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llbrack"))) (ExprApp (ExprApp (ExprVar "pgZeroOrMoreWithSep") (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrbrack"))),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "p",PatVar "r"] (ExprVar "p"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))]))),MkTopV (MkValBind 163 (LhsPat (PatVar "paPat")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "c",PatVar "ps"] (ExprApp (ExprApp (ExprCon "PatCon") (ExprVar "c")) (ExprVar "ps")))) (ExprVar "paCon")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paAPat")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "ap",PatVar "c",PatVar "pa"] (ExprApp (ExprApp (ExprCon "PatCon") (ExprVar "c")) (ExprList [ExprVar "ap",ExprVar "pa"])))) (ExprVar "paAPat")) (ExprVar "paConop")) (ExprVar "paPat"),ExprVar "paAPat"]))),MkTopV (MkValBind 177 (LhsPat (PatVar "paIfExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "iff",PatVar "c",PatVar "thenn",PatTuple [PatVar "t",PatVar "f"]] (ExprApp (ExprApp (ExprApp (ExprCon "ExprIf") (ExprVar "c")) (ExprVar "t")) (ExprVar "f")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lif"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lthen"))) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "t",PatVar "elsee",PatVar "f"] (ExprTuple [ExprVar "t",ExprVar "f"]))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lelse"))) (ExprVar "paExpr")))),MkTopV (MkValBind 190 (LhsPat (PatVar "paAExpr")) (ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "False",ExprVar "x",ExprList []]))) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprVar")) (ExprVar "paVar"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprCon")) (ExprVar "paCon"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprLiteral")) (ExprVar "paLiteral"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprList")) (ExprVar "paListExpr"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprTuple")) (ExprVar "paTupleExpr"),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "e",PatVar "r"] (ExprVar "e"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))])))),MkTopV (MkValBind 203 (LhsPat (PatVar "paListExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llbrack"))) (ExprApp (ExprApp (ExprVar "pgZeroOrMoreWithSep") (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrbrack")))),MkTopV (MkValBind 209 (LhsPat (PatVar "paTupleExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprApp (ExprApp (ExprVar "pgTwoOrMoreWithSep") (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen")))),MkTopV (MkValBind 215 (LhsPat (PatVar "paVar")) (ExprApp (ExprVar "pgItem") (ExprCon "Lvar"))),MkTopV (MkValBind 216 (LhsPat (PatVar "paCon")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcon"))),MkTopV (MkValBind 217 (LhsPat (PatVar "paVarop")) (ExprApp (ExprVar "pgItem") (ExprCon "Lvarop"))),MkTopV (MkValBind 218 (LhsPat (PatVar "paConop")) (ExprApp (ExprVar "pgItem") (ExprCon "Lconop"))),MkTopV (MkValBind 219 (LhsPat (PatVar "paMinus")) (ExprApp (ExprVar "pgItem") (ExprCon "Lminus"))),MkTopV (MkValBind 221 (LhsPat (PatVar "paOp")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "True",ExprApp (ExprCon "ExprVar") (ExprVar "x"),ExprVar "x"]))) (ExprVar "paVarop"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "True",ExprApp (ExprCon "ExprCon") (ExprVar "x"),ExprVar "x"]))) (ExprVar "paConop"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "True",ExprApp (ExprCon "ExprVar") (ExprVar "x"),ExprVar "x"]))) (ExprVar "paMinus")]))),MkTopV (MkValBind 228 (LhsPat (PatVar "paDataDecl")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "dataa",PatVar "useful"] (ExprVar "useful"))) (ExprApp (ExprVar "pgItem") (ExprCon "Ldata"))) (ExprVar "paDataDecl_main"))),MkTopV (MkValBind 234 (LhsPat (PatVar "paDataDecl_main")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "name",PatVar "params",PatVar "eq",PatVar "drhs"] (ExprApp (ExprApp (ExprCon "MkDataDecl") (ExprVar "name")) (ExprTuple [ExprVar "params",ExprVar "drhs"])))) (ExprVar "paCon")) (ExprApp (ExprVar "pgZeroOrMore") (ExprVar "paVar"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lequals"))) (ExprApp (ExprApp (ExprVar "pgOneOrMoreWithSep") (ExprVar "paConstrs")) (ExprApp (ExprVar "pgItem") (ExprCon "Lbar"))))),MkTopV (MkValBind 242 (LhsPat (PatVar "paConstrs")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "con",PatVar "texprs"] (ExprTuple [ExprVar "con",ExprVar "texprs"]))) (ExprVar "paCon")) (ExprApp (ExprVar "pgZeroOrMore") (ExprVar "paAType")))),MkTopV (MkValBind 248 (LhsPat (PatVar "paType")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "atype",PatVar "arrow",PatVar "typee"] (ExprApp (ExprApp (ExprCon "TypeArr") (ExprVar "atype")) (ExprVar "typee")))) (ExprVar "paAType")) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paType"),ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprCon "TypeCon")) (ExprVar "paCon")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paAType")),ExprVar "paAType"]))),MkTopV (MkValBind 263 (LhsPat (PatVar "paAType")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "TypeVar")) (ExprVar "paVar"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "tycon"] (ExprApp (ExprApp (ExprCon "TypeCon") (ExprVar "tycon")) (ExprList [])))) (ExprVar "paCon"),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "t",PatVar "r"] (ExprVar "t"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprVar "paType")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "t",PatVar "r"] (ExprApp (ExprCon "TypeList") (ExprVar "t")))) (ExprApp (ExprVar "pgItem") (ExprCon "Llbrack"))) (ExprVar "paType")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrbrack")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "t",PatVar "r"] (ExprApp (ExprCon "TypeTuple") (ExprVar "t")))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprApp (ExprApp (ExprVar "pgTwoOrMoreWithSep") (ExprVar "paType")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))]))),MkTopV (MkValBind 285 (LhsVar "paInfixDecl" [PatVar "env",PatVar "toks"]) (ExprLetrec [MkValBind 286 (LhsVar "dump" [PatCon "ExprVar" [PatVar "v"]]) (ExprVar "v"),MkValBind 287 (LhsVar "dump" [PatCon "ExprCon" [PatVar "c"]]) (ExprVar "c")] (ExprApp (ExprVar "pa_UpdateFixityEnv") (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "assoc",PatVar "prio",PatVar "name"] (ExprApp (ExprApp (ExprCon "MkFixDecl") (ExprVar "name")) (ExprTuple [ExprVar "assoc",ExprVar "prio"])))) (ExprVar "paInfixWord")) (ExprApp (ExprApp (ExprVar "pgApply") (ExprVar "leStringToInt")) (ExprApp (ExprVar "pgItem") (ExprCon "Lintlit")))) (ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatTuple [PatWild,PatVar "op",PatWild]] (ExprApp (ExprVar "dump") (ExprVar "op")))) (ExprVar "paOp"))) (ExprVar "env")) (ExprVar "toks"))))),MkTopV (MkValBind 299 (LhsPat (PatVar "paInfixWord")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "InfixL"))) (ExprApp (ExprVar "pgItem") (ExprCon "Linfixl")),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "InfixR"))) (ExprApp (ExprVar "pgItem") (ExprCon "Linfixr")),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "InfixN"))) (ExprApp (ExprVar "pgItem") (ExprCon "Linfix"))]))),MkTopV (MkValBind 307 (LhsVar "pa_UpdateFixityEnv" [PatCon "PFail" [PatVar "tok"]]) (ExprApp (ExprCon "PFail") (ExprVar "tok"))),MkTopV (MkValBind 310 (LhsVar "pa_UpdateFixityEnv" [PatCon "POk" [PatVar "env",PatVar "toks",PatCon "MkFixDecl" [PatVar "name",PatVar "assoc_prio"]]]) (ExprLetrec [MkValBind 312 (LhsPat (PatVar "new_env")) (ExprApp (ExprApp (ExprCon ":") (ExprTuple [ExprVar "name",ExprVar "assoc_prio"])) (ExprVar "env"))] (ExprApp (ExprApp (ExprApp (ExprCon "POk") (ExprVar "new_env")) (ExprVar "toks")) (ExprApp (ExprApp (ExprCon "MkFixDecl") (ExprVar "name")) (ExprVar "assoc_prio"))))),MkTopV (MkValBind 316 (LhsPat (PatVar "paTopDecl")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "MkTopF")) (ExprVar "paInfixDecl"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "MkTopD")) (ExprVar "paDataDecl"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "MkTopV")) (ExprVar "paValdef")]))),MkTopV (MkValBind 324 (LhsPat (PatVar "paModule")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "modyule",PatVar "name",PatVar "wheree",PatVar "topdecls"] (ExprApp (ExprApp (ExprCon "MkModule") (ExprVar "name")) (ExprVar "topdecls")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lmodule"))) (ExprVar "paCon")) (ExprApp (ExprVar "pgItem") (ExprCon "Lwhere"))) (ExprApp (ExprVar "pgDeclList") (ExprVar "paTopDecl")))),MkTopV (MkValBind 332 (LhsVar "parser_test" [PatVar "toks"]) (ExprLetrec [MkValBind 333 (LhsPat (PatVar "parser_to_test")) (ExprVar "paModule")] (ExprApp (ExprApp (ExprVar "parser_to_test") (ExprVar "hsPrecTable")) (ExprVar "toks")))),MkTopV (MkValBind 353 (LhsPat (PatVar "hsAExprOrOp")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprVar "paAExpr",ExprVar "paOp"]))),MkTopV (MkValBind 361 (LhsVar "hsDoExpr" [PatVar "stack",PatVar "env",PatVar "toks"]) (ExprLetrec [MkValBind 363 (LhsPat (PatTuple [PatVar "validIn",PatVar "restIn",PatVar "parseIn",PatVar "err"])) (ExprCase (ExprApp (ExprApp (ExprVar "hsAExprOrOp") (ExprVar "env")) (ExprVar "toks")) [MkExprCaseAlt (PatCon "POk" [PatVar "env1",PatVar "toks1",PatVar "item1"]) (ExprTuple [ExprCon "True",ExprVar "toks1",ExprVar "item1",ExprApp (ExprVar "panic") (ExprLiteral (LiteralString "hsDoExpr(1)"))]),MkExprCaseAlt (PatCon "PFail" [PatVar "err"]) (ExprTuple [ExprCon "False",ExprApp (ExprVar "panic") (ExprLiteral (LiteralString "hsDoExpr(2)")),ExprApp (ExprVar "panic") (ExprLiteral (LiteralString "hsDoExpr(3)")),ExprVar "err"])]),MkValBind 369 (LhsPat (PatTuple [PatVar "opIn",PatVar "valueIn",PatVar "nameIn"])) (ExprVar "parseIn"),MkValBind 371 (LhsPat (PatTuple [PatVar "assocIn",PatVar "priorIn"])) (ExprApp (ExprApp (ExprApp (ExprVar "utLookupDef") (ExprVar "env")) (ExprVar "nameIn")) (ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 9)])),MkValBind 373 (LhsPat (PatVar "shift")) (ExprApp (ExprApp (ExprApp (ExprVar "hsDoExpr") (ExprApp (ExprApp (ExprCon ":") (ExprVar "parseIn")) (ExprVar "stack"))) (ExprVar "env")) (ExprVar "restIn"))] (ExprCase (ExprVar "stack") [MkExprCaseAlt (PatCon ":" [PatVar "s1",PatCon ":" [PatVar "s2",PatCon ":" [PatVar "s3",PatVar "ss"]]]) (ExprWhere (ExprGuards [(ExprApp (ExprApp (ExprVar "&&") (ExprVar "validIn")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opS2")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opIn")) (ExprApp (ExprApp (ExprVar ">") (ExprVar "priorS2")) (ExprVar "priorIn")))),ExprVar "reduce"),(ExprApp (ExprApp (ExprVar "&&") (ExprVar "validIn")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opS2")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opIn")) (ExprApp (ExprApp (ExprVar "==") (ExprVar "priorS2")) (ExprVar "priorIn")))),ExprIf (ExprApp (ExprApp (ExprVar "&&") (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocS2")) (ExprCon "InfixL"))) (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocIn")) (ExprCon "InfixL"))) (ExprVar "reduce") (ExprIf (ExprApp (ExprApp (ExprVar "&&") (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocS2")) (ExprCon "InfixR"))) (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocIn")) (ExprCon "InfixR"))) (ExprVar "shift") (ExprApp (ExprCon "PFail") (ExprApp (ExprVar "head") (ExprVar "toks"))))),(ExprApp (ExprApp (ExprVar "&&") (ExprApp (ExprVar "not") (ExprVar "validIn"))) (ExprVar "opS2"),ExprVar "reduce")]) [MkValBind 392 (LhsPat (PatTuple [PatVar "opS1",PatVar "valueS1",PatVar "nameS1"])) (ExprVar "s1"),MkValBind 393 (LhsPat (PatTuple [PatVar "opS2",PatVar "valueS2",PatVar "nameS2"])) (ExprVar "s2"),MkValBind 394 (LhsPat (PatTuple [PatVar "opS3",PatVar "valueS3",PatVar "nameS3"])) (ExprVar "s3"),MkValBind 395 (LhsPat (PatTuple [PatVar "assocS2",PatVar "priorS2"])) (ExprApp (ExprApp (ExprApp (ExprVar "utLookupDef") (ExprVar "env")) (ExprVar "nameS2")) (ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 9)])),MkValBind 396 (LhsPat (PatVar "reduce")) (ExprApp (ExprApp (ExprApp (ExprVar "hsDoExpr") (ExprApp (ExprApp (ExprCon ":") (ExprTuple [ExprCon "False",ExprApp (ExprApp (ExprCon "ExprApp") (ExprApp (ExprApp (ExprCon "ExprApp") (ExprVar "valueS2")) (ExprVar "valueS3"))) (ExprVar "valueS1"),ExprList []])) (ExprVar "ss"))) (ExprVar "env")) (ExprVar "toks"))]),MkExprCaseAlt (PatCon ":" [PatVar "s1",PatCon ":" [PatVar "s2",PatVar "ss"]]) (ExprWhere (ExprGuards [(ExprApp (ExprApp (ExprVar "&&") (ExprVar "validIn")) (ExprApp (ExprApp (ExprVar "||") (ExprVar "opS1")) (ExprVar "opS2")),ExprVar "shift"),(ExprVar "otherwise",ExprVar "reduce")]) [MkValBind 403 (LhsPat (PatTuple [PatVar "opS1",PatVar "valueS1",PatVar "nameS1"])) (ExprVar "s1"),MkValBind 404 (LhsPat (PatTuple [PatVar "opS2",PatVar "valueS2",PatVar "nameS2"])) (ExprVar "s2"),MkValBind 405 (LhsPat (PatVar "reduce")) (ExprApp (ExprApp (ExprApp (ExprVar "hsDoExpr") (ExprApp (ExprApp (ExprCon ":") (ExprTuple [ExprCon "False",ExprApp (ExprApp (ExprCon "ExprApp") (ExprVar "valueS2")) (ExprVar "valueS1"),ExprList []])) (ExprVar "ss"))) (ExprVar "env")) (ExprVar "toks"))]),MkExprCaseAlt (PatCon ":" [PatVar "s1",PatList []]) (ExprWhere (ExprGuards [(ExprVar "validIn",ExprVar "shift"),(ExprVar "otherwise",ExprApp (ExprApp (ExprApp (ExprCon "POk") (ExprVar "env")) (ExprVar "toks")) (ExprVar "valueS1"))]) [MkValBind 411 (LhsPat (PatTuple [PatVar "opS1",PatVar "valueS1",PatVar "nameS1"])) (ExprVar "s1")]),MkExprCaseAlt (PatList []) (ExprGuards [(ExprVar "validIn",ExprVar "shift"),(ExprVar "otherwise",ExprApp (ExprCon "PFail") (ExprVar "err"))])]))),MkTopV (MkValBind 421 (LhsPat (PatVar "hsPrecTable")) (ExprList [ExprTuple [ExprLiteral (LiteralString "-"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 6)]],ExprTuple [ExprLiteral (LiteralString "+"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 6)]],ExprTuple [ExprLiteral (LiteralString "*"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 7)]],ExprTuple [ExprLiteral (LiteralString "div"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 7)]],ExprTuple [ExprLiteral (LiteralString "mod"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 7)]],ExprTuple [ExprLiteral (LiteralString "<"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "<="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "=="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "/="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString ">="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString ">"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "C:"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 5)]],ExprTuple [ExprLiteral (LiteralString "++"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 5)]],ExprTuple [ExprLiteral (LiteralString "\\"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 5)]],ExprTuple [ExprLiteral (LiteralString "!!"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 9)]],ExprTuple [ExprLiteral (LiteralString "."),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 9)]],ExprTuple [ExprLiteral (LiteralString "^"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 8)]],ExprTuple [ExprLiteral (LiteralString "elem"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "notElem"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "||"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 2)]],ExprTuple [ExprLiteral (LiteralString "&&"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 3)]]])),MkTopV (MkValBind 450 (LhsPat (PatVar "panic")) (ExprVar "error")),MkTopV (MkValBind 454 (LhsPat (PatVar "paLiteral")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprApp (ExprVar ".") (ExprCon "LiteralInt")) (ExprVar "leStringToInt"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lintlit")),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprApp (ExprVar ".") (ExprCon "LiteralChar")) (ExprVar "head"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lcharlit")),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "LiteralString")) (ExprApp (ExprVar "pgItem") (ExprCon "Lstringlit"))]))),MkTopV (MkValBind 462 (LhsPat (PatVar "paExpr")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprVar "paCaseExpr",ExprVar "paLetExpr",ExprVar "paLamExpr",ExprVar "paIfExpr",ExprVar "paUnaryMinusExpr",ExprApp (ExprVar "hsDoExpr") (ExprList [])]))),MkTopV (MkValBind 473 (LhsPat (PatVar "paUnaryMinusExpr")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "minus",PatTuple [PatWild,PatVar "aexpr",PatWild]] (ExprApp (ExprApp (ExprCon "ExprApp") (ExprApp (ExprApp (ExprCon "ExprApp") (ExprApp (ExprCon "ExprVar") (ExprLiteral (LiteralString "-")))) (ExprApp (ExprCon "ExprLiteral") (ExprApp (ExprCon "LiteralInt") (ExprLiteral (LiteralInt 0)))))) (ExprVar "aexpr")))) (ExprVar "paMinus")) (ExprVar "paAExpr"))),MkTopV (MkValBind 480 (LhsPat (PatVar "paCaseExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "casee",PatVar "expr",PatVar "off",PatVar "alts"] (ExprApp (ExprApp (ExprCon "ExprCase") (ExprVar "expr")) (ExprVar "alts")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lcase"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lof"))) (ExprApp (ExprVar "pgDeclList") (ExprVar "paAlt")))),MkTopV (MkValBind 488 (LhsPat (PatVar "paAlt")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "pat",PatVar "arrow",PatVar "expr",PatVar "wheres"] (ExprApp (ExprApp (ExprCon "MkExprCaseAlt") (ExprVar "pat")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprVar "expr")) (ExprVar "wheres"))))) (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "pat",PatVar "agrdrhss",PatVar "wheres"] (ExprApp (ExprApp (ExprCon "MkExprCaseAlt") (ExprVar "pat")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprApp (ExprCon "ExprGuards") (ExprVar "agrdrhss"))) (ExprVar "wheres"))))) (ExprVar "paPat")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paGalt"))) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause"))]))),MkTopV (MkValBind 507 (LhsPat (PatVar "paGalt")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "bar",PatVar "guard",PatVar "arrow",PatVar "expr"] (ExprTuple [ExprVar "guard",ExprVar "expr"]))) (ExprApp (ExprVar "pgItem") (ExprCon "Lbar"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paExpr"))),MkTopV (MkValBind 515 (LhsPat (PatVar "paLamExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "lam",PatVar "patterns",PatVar "arrow",PatVar "rhs"] (ExprApp (ExprApp (ExprCon "ExprLam") (ExprVar "patterns")) (ExprVar "rhs")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lslash"))) (ExprApp (ExprVar "pgZeroOrMore") (ExprVar "paAPat"))) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paExpr"))),MkTopV (MkValBind 523 (LhsPat (PatVar "paLetExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "lett",PatVar "decls",PatVar "inn",PatVar "rhs"] (ExprApp (ExprApp (ExprCon "ExprLetrec") (ExprVar "decls")) (ExprVar "rhs")))) (ExprApp (ExprVar "pgItem") (ExprCon "Llet"))) (ExprVar "paValdefs")) (ExprApp (ExprVar "pgItem") (ExprCon "Lin"))) (ExprVar "paExpr"))),MkTopV (MkValBind 531 (LhsPat (PatVar "paValdefs")) (ExprApp (ExprApp (ExprVar "pgApply") (ExprVar "pa_MergeValdefs")) (ExprApp (ExprVar "pgDeclList") (ExprVar "paValdef")))),MkTopV (MkValBind 534 (LhsPat (PatVar "pa_MergeValdefs")) (ExprVar "id")),MkTopV (MkValBind 537 (LhsPat (PatVar "paLhs")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "v",PatVar "ps"] (ExprApp (ExprApp (ExprCon "LhsVar") (ExprVar "v")) (ExprVar "ps")))) (ExprVar "paVar")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paPat")),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "LhsPat")) (ExprVar "paPat")]))),MkTopV (MkValBind 544 (LhsPat (PatVar "paValdef")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatTuple [PatVar "line",PatVar "lhs"],PatVar "eq",PatVar "rhs",PatVar "wheres"] (ExprApp (ExprApp (ExprApp (ExprCon "MkValBind") (ExprVar "line")) (ExprVar "lhs")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprVar "rhs")) (ExprVar "wheres"))))) (ExprApp (ExprVar "pgGetLineNumber") (ExprVar "paLhs"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lequals"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatTuple [PatVar "line",PatVar "lhs"],PatVar "grdrhss",PatVar "wheres"] (ExprApp (ExprApp (ExprApp (ExprCon "MkValBind") (ExprVar "line")) (ExprVar "lhs")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprApp (ExprCon "ExprGuards") (ExprVar "grdrhss"))) (ExprVar "wheres"))))) (ExprApp (ExprVar "pgGetLineNumber") (ExprVar "paLhs"))) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paGrhs"))) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause"))]))),MkTopV (MkValBind 563 (LhsVar "pa_MakeWhereExpr" [PatVar "expr",PatCon "Nothing" []]) (ExprVar "expr")),MkTopV (MkValBind 565 (LhsVar "pa_MakeWhereExpr" [PatVar "expr",PatCon "Just" [PatVar "whereClauses"]]) (ExprApp (ExprApp (ExprCon "ExprWhere") (ExprVar "expr")) (ExprVar "whereClauses"))),MkTopV (MkValBind 568 (LhsPat (PatVar "paWhereClause")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "x",PatVar "y"] (ExprVar "y"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lwhere"))) (ExprVar "paValdefs"))),MkTopV (MkValBind 570 (LhsPat (PatVar "paGrhs")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "bar",PatVar "guard",PatVar "equals",PatVar "expr"] (ExprTuple [ExprVar "guard",ExprVar "expr"]))) (ExprApp (ExprVar "pgItem") (ExprCon "Lbar"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lequals"))) (ExprVar "paExpr"))),MkTopV (MkValBind 579 (LhsPat (PatVar "paAPat")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "PatVar")) (ExprVar "paVar"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "id"] (ExprApp (ExprApp (ExprCon "PatCon") (ExprVar "id")) (ExprList [])))) (ExprVar "paCon"),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "PatWild"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lunder")),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "PatTuple")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprApp (ExprApp (ExprVar "pgTwoOrMoreWithSep") (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "PatList")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llbrack"))) (ExprApp (ExprApp (ExprVar "pgZeroOrMoreWithSep") (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrbrack"))),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "p",PatVar "r"] (ExprVar "p"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))]))),MkTopV (MkValBind 601 (LhsPat (PatVar "paPat")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "c",PatVar "ps"] (ExprApp (ExprApp (ExprCon "PatCon") (ExprVar "c")) (ExprVar "ps")))) (ExprVar "paCon")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paAPat")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "ap",PatVar "c",PatVar "pa"] (ExprApp (ExprApp (ExprCon "PatCon") (ExprVar "c")) (ExprList [ExprVar "ap",ExprVar "pa"])))) (ExprVar "paAPat")) (ExprVar "paConop")) (ExprVar "paPat"),ExprVar "paAPat"]))),MkTopV (MkValBind 615 (LhsPat (PatVar "paIfExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "iff",PatVar "c",PatVar "thenn",PatTuple [PatVar "t",PatVar "f"]] (ExprApp (ExprApp (ExprApp (ExprCon "ExprIf") (ExprVar "c")) (ExprVar "t")) (ExprVar "f")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lif"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lthen"))) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "t",PatVar "elsee",PatVar "f"] (ExprTuple [ExprVar "t",ExprVar "f"]))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lelse"))) (ExprVar "paExpr")))),MkTopV (MkValBind 628 (LhsPat (PatVar "paAExpr")) (ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "False",ExprVar "x",ExprList []]))) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprVar")) (ExprVar "paVar"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprCon")) (ExprVar "paCon"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprLiteral")) (ExprVar "paLiteral"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprList")) (ExprVar "paListExpr"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprTuple")) (ExprVar "paTupleExpr"),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "e",PatVar "r"] (ExprVar "e"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))])))),MkTopV (MkValBind 641 (LhsPat (PatVar "paListExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llbrack"))) (ExprApp (ExprApp (ExprVar "pgZeroOrMoreWithSep") (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrbrack")))),MkTopV (MkValBind 647 (LhsPat (PatVar "paTupleExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprApp (ExprApp (ExprVar "pgTwoOrMoreWithSep") (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen")))),MkTopV (MkValBind 653 (LhsPat (PatVar "paVar")) (ExprApp (ExprVar "pgItem") (ExprCon "Lvar"))),MkTopV (MkValBind 654 (LhsPat (PatVar "paCon")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcon"))),MkTopV (MkValBind 655 (LhsPat (PatVar "paVarop")) (ExprApp (ExprVar "pgItem") (ExprCon "Lvarop"))),MkTopV (MkValBind 656 (LhsPat (PatVar "paConop")) (ExprApp (ExprVar "pgItem") (ExprCon "Lconop"))),MkTopV (MkValBind 657 (LhsPat (PatVar "paMinus")) (ExprApp (ExprVar "pgItem") (ExprCon "Lminus"))),MkTopV (MkValBind 659 (LhsPat (PatVar "paOp")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "True",ExprApp (ExprCon "ExprVar") (ExprVar "x"),ExprVar "x"]))) (ExprVar "paVarop"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "True",ExprApp (ExprCon "ExprCon") (ExprVar "x"),ExprVar "x"]))) (ExprVar "paConop"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "True",ExprApp (ExprCon "ExprVar") (ExprVar "x"),ExprVar "x"]))) (ExprVar "paMinus")]))),MkTopV (MkValBind 666 (LhsPat (PatVar "paDataDecl")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "dataa",PatVar "useful"] (ExprVar "useful"))) (ExprApp (ExprVar "pgItem") (ExprCon "Ldata"))) (ExprVar "paDataDecl_main"))),MkTopV (MkValBind 672 (LhsPat (PatVar "paDataDecl_main")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "name",PatVar "params",PatVar "eq",PatVar "drhs"] (ExprApp (ExprApp (ExprCon "MkDataDecl") (ExprVar "name")) (ExprTuple [ExprVar "params",ExprVar "drhs"])))) (ExprVar "paCon")) (ExprApp (ExprVar "pgZeroOrMore") (ExprVar "paVar"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lequals"))) (ExprApp (ExprApp (ExprVar "pgOneOrMoreWithSep") (ExprVar "paConstrs")) (ExprApp (ExprVar "pgItem") (ExprCon "Lbar"))))),MkTopV (MkValBind 680 (LhsPat (PatVar "paConstrs")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "con",PatVar "texprs"] (ExprTuple [ExprVar "con",ExprVar "texprs"]))) (ExprVar "paCon")) (ExprApp (ExprVar "pgZeroOrMore") (ExprVar "paAType")))),MkTopV (MkValBind 686 (LhsPat (PatVar "paType")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "atype",PatVar "arrow",PatVar "typee"] (ExprApp (ExprApp (ExprCon "TypeArr") (ExprVar "atype")) (ExprVar "typee")))) (ExprVar "paAType")) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paType"),ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprCon "TypeCon")) (ExprVar "paCon")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paAType")),ExprVar "paAType"]))),MkTopV (MkValBind 701 (LhsPat (PatVar "paAType")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "TypeVar")) (ExprVar "paVar"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "tycon"] (ExprApp (ExprApp (ExprCon "TypeCon") (ExprVar "tycon")) (ExprList [])))) (ExprVar "paCon"),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "t",PatVar "r"] (ExprVar "t"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprVar "paType")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "t",PatVar "r"] (ExprApp (ExprCon "TypeList") (ExprVar "t")))) (ExprApp (ExprVar "pgItem") (ExprCon "Llbrack"))) (ExprVar "paType")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrbrack")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "t",PatVar "r"] (ExprApp (ExprCon "TypeTuple") (ExprVar "t")))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprApp (ExprApp (ExprVar "pgTwoOrMoreWithSep") (ExprVar "paType")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))]))),MkTopV (MkValBind 723 (LhsVar "paInfixDecl" [PatVar "env",PatVar "toks"]) (ExprLetrec [MkValBind 724 (LhsVar "dump" [PatCon "ExprVar" [PatVar "v"]]) (ExprVar "v"),MkValBind 725 (LhsVar "dump" [PatCon "ExprCon" [PatVar "c"]]) (ExprVar "c")] (ExprApp (ExprVar "pa_UpdateFixityEnv") (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "assoc",PatVar "prio",PatVar "name"] (ExprApp (ExprApp (ExprCon "MkFixDecl") (ExprVar "name")) (ExprTuple [ExprVar "assoc",ExprVar "prio"])))) (ExprVar "paInfixWord")) (ExprApp (ExprApp (ExprVar "pgApply") (ExprVar "leStringToInt")) (ExprApp (ExprVar "pgItem") (ExprCon "Lintlit")))) (ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatTuple [PatWild,PatVar "op",PatWild]] (ExprApp (ExprVar "dump") (ExprVar "op")))) (ExprVar "paOp"))) (ExprVar "env")) (ExprVar "toks"))))),MkTopV (MkValBind 737 (LhsPat (PatVar "paInfixWord")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "InfixL"))) (ExprApp (ExprVar "pgItem") (ExprCon "Linfixl")),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "InfixR"))) (ExprApp (ExprVar "pgItem") (ExprCon "Linfixr")),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "InfixN"))) (ExprApp (ExprVar "pgItem") (ExprCon "Linfix"))]))),MkTopV (MkValBind 745 (LhsVar "pa_UpdateFixityEnv" [PatCon "PFail" [PatVar "tok"]]) (ExprApp (ExprCon "PFail") (ExprVar "tok"))),MkTopV (MkValBind 748 (LhsVar "pa_UpdateFixityEnv" [PatCon "POk" [PatVar "env",PatVar "toks",PatCon "MkFixDecl" [PatVar "name",PatVar "assoc_prio"]]]) (ExprLetrec [MkValBind 750 (LhsPat (PatVar "new_env")) (ExprApp (ExprApp (ExprCon ":") (ExprTuple [ExprVar "name",ExprVar "assoc_prio"])) (ExprVar "env"))] (ExprApp (ExprApp (ExprApp (ExprCon "POk") (ExprVar "new_env")) (ExprVar "toks")) (ExprApp (ExprApp (ExprCon "MkFixDecl") (ExprVar "name")) (ExprVar "assoc_prio"))))),MkTopV (MkValBind 754 (LhsPat (PatVar "paTopDecl")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "MkTopF")) (ExprVar "paInfixDecl"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "MkTopD")) (ExprVar "paDataDecl"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "MkTopV")) (ExprVar "paValdef")]))),MkTopV (MkValBind 762 (LhsPat (PatVar "paModule")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "modyule",PatVar "name",PatVar "wheree",PatVar "topdecls"] (ExprApp (ExprApp (ExprCon "MkModule") (ExprVar "name")) (ExprVar "topdecls")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lmodule"))) (ExprVar "paCon")) (ExprApp (ExprVar "pgItem") (ExprCon "Lwhere"))) (ExprApp (ExprVar "pgDeclList") (ExprVar "paTopDecl")))),MkTopV (MkValBind 770 (LhsVar "parser_test" [PatVar "toks"]) (ExprLetrec [MkValBind 771 (LhsPat (PatVar "parser_to_test")) (ExprVar "paModule")] (ExprApp (ExprApp (ExprVar "parser_to_test") (ExprVar "hsPrecTable")) (ExprVar "toks")))),MkTopV (MkValBind 791 (LhsPat (PatVar "hsAExprOrOp")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprVar "paAExpr",ExprVar "paOp"]))),MkTopV (MkValBind 799 (LhsVar "hsDoExpr" [PatVar "stack",PatVar "env",PatVar "toks"]) (ExprLetrec [MkValBind 801 (LhsPat (PatTuple [PatVar "validIn",PatVar "restIn",PatVar "parseIn",PatVar "err"])) (ExprCase (ExprApp (ExprApp (ExprVar "hsAExprOrOp") (ExprVar "env")) (ExprVar "toks")) [MkExprCaseAlt (PatCon "POk" [PatVar "env1",PatVar "toks1",PatVar "item1"]) (ExprTuple [ExprCon "True",ExprVar "toks1",ExprVar "item1",ExprApp (ExprVar "panic") (ExprLiteral (LiteralString "hsDoExpr(1)"))]),MkExprCaseAlt (PatCon "PFail" [PatVar "err"]) (ExprTuple [ExprCon "False",ExprApp (ExprVar "panic") (ExprLiteral (LiteralString "hsDoExpr(2)")),ExprApp (ExprVar "panic") (ExprLiteral (LiteralString "hsDoExpr(3)")),ExprVar "err"])]),MkValBind 807 (LhsPat (PatTuple [PatVar "opIn",PatVar "valueIn",PatVar "nameIn"])) (ExprVar "parseIn"),MkValBind 809 (LhsPat (PatTuple [PatVar "assocIn",PatVar "priorIn"])) (ExprApp (ExprApp (ExprApp (ExprVar "utLookupDef") (ExprVar "env")) (ExprVar "nameIn")) (ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 9)])),MkValBind 811 (LhsPat (PatVar "shift")) (ExprApp (ExprApp (ExprApp (ExprVar "hsDoExpr") (ExprApp (ExprApp (ExprCon ":") (ExprVar "parseIn")) (ExprVar "stack"))) (ExprVar "env")) (ExprVar "restIn"))] (ExprCase (ExprVar "stack") [MkExprCaseAlt (PatCon ":" [PatVar "s1",PatCon ":" [PatVar "s2",PatCon ":" [PatVar "s3",PatVar "ss"]]]) (ExprWhere (ExprGuards [(ExprApp (ExprApp (ExprVar "&&") (ExprVar "validIn")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opS2")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opIn")) (ExprApp (ExprApp (ExprVar ">") (ExprVar "priorS2")) (ExprVar "priorIn")))),ExprVar "reduce"),(ExprApp (ExprApp (ExprVar "&&") (ExprVar "validIn")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opS2")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opIn")) (ExprApp (ExprApp (ExprVar "==") (ExprVar "priorS2")) (ExprVar "priorIn")))),ExprIf (ExprApp (ExprApp (ExprVar "&&") (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocS2")) (ExprCon "InfixL"))) (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocIn")) (ExprCon "InfixL"))) (ExprVar "reduce") (ExprIf (ExprApp (ExprApp (ExprVar "&&") (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocS2")) (ExprCon "InfixR"))) (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocIn")) (ExprCon "InfixR"))) (ExprVar "shift") (ExprApp (ExprCon "PFail") (ExprApp (ExprVar "head") (ExprVar "toks"))))),(ExprApp (ExprApp (ExprVar "&&") (ExprApp (ExprVar "not") (ExprVar "validIn"))) (ExprVar "opS2"),ExprVar "reduce")]) [MkValBind 830 (LhsPat (PatTuple [PatVar "opS1",PatVar "valueS1",PatVar "nameS1"])) (ExprVar "s1"),MkValBind 831 (LhsPat (PatTuple [PatVar "opS2",PatVar "valueS2",PatVar "nameS2"])) (ExprVar "s2"),MkValBind 832 (LhsPat (PatTuple [PatVar "opS3",PatVar "valueS3",PatVar "nameS3"])) (ExprVar "s3"),MkValBind 833 (LhsPat (PatTuple [PatVar "assocS2",PatVar "priorS2"])) (ExprApp (ExprApp (ExprApp (ExprVar "utLookupDef") (ExprVar "env")) (ExprVar "nameS2")) (ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 9)])),MkValBind 834 (LhsPat (PatVar "reduce")) (ExprApp (ExprApp (ExprApp (ExprVar "hsDoExpr") (ExprApp (ExprApp (ExprCon ":") (ExprTuple [ExprCon "False",ExprApp (ExprApp (ExprCon "ExprApp") (ExprApp (ExprApp (ExprCon "ExprApp") (ExprVar "valueS2")) (ExprVar "valueS3"))) (ExprVar "valueS1"),ExprList []])) (ExprVar "ss"))) (ExprVar "env")) (ExprVar "toks"))]),MkExprCaseAlt (PatCon ":" [PatVar "s1",PatCon ":" [PatVar "s2",PatVar "ss"]]) (ExprWhere (ExprGuards [(ExprApp (ExprApp (ExprVar "&&") (ExprVar "validIn")) (ExprApp (ExprApp (ExprVar "||") (ExprVar "opS1")) (ExprVar "opS2")),ExprVar "shift"),(ExprVar "otherwise",ExprVar "reduce")]) [MkValBind 841 (LhsPat (PatTuple [PatVar "opS1",PatVar "valueS1",PatVar "nameS1"])) (ExprVar "s1"),MkValBind 842 (LhsPat (PatTuple [PatVar "opS2",PatVar "valueS2",PatVar "nameS2"])) (ExprVar "s2"),MkValBind 843 (LhsPat (PatVar "reduce")) (ExprApp (ExprApp (ExprApp (ExprVar "hsDoExpr") (ExprApp (ExprApp (ExprCon ":") (ExprTuple [ExprCon "False",ExprApp (ExprApp (ExprCon "ExprApp") (ExprVar "valueS2")) (ExprVar "valueS1"),ExprList []])) (ExprVar "ss"))) (ExprVar "env")) (ExprVar "toks"))]),MkExprCaseAlt (PatCon ":" [PatVar "s1",PatList []]) (ExprWhere (ExprGuards [(ExprVar "validIn",ExprVar "shift"),(ExprVar "otherwise",ExprApp (ExprApp (ExprApp (ExprCon "POk") (ExprVar "env")) (ExprVar "toks")) (ExprVar "valueS1"))]) [MkValBind 849 (LhsPat (PatTuple [PatVar "opS1",PatVar "valueS1",PatVar "nameS1"])) (ExprVar "s1")]),MkExprCaseAlt (PatList []) (ExprGuards [(ExprVar "validIn",ExprVar "shift"),(ExprVar "otherwise",ExprApp (ExprCon "PFail") (ExprVar "err"))])]))),MkTopV (MkValBind 859 (LhsPat (PatVar "hsPrecTable")) (ExprList [ExprTuple [ExprLiteral (LiteralString "-"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 6)]],ExprTuple [ExprLiteral (LiteralString "+"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 6)]],ExprTuple [ExprLiteral (LiteralString "*"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 7)]],ExprTuple [ExprLiteral (LiteralString "div"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 7)]],ExprTuple [ExprLiteral (LiteralString "mod"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 7)]],ExprTuple [ExprLiteral (LiteralString "<"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "<="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "=="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "/="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString ">="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString ">"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "C:"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 5)]],ExprTuple [ExprLiteral (LiteralString "++"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 5)]],ExprTuple [ExprLiteral (LiteralString "\\"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 5)]],ExprTuple [ExprLiteral (LiteralString "!!"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 9)]],ExprTuple [ExprLiteral (LiteralString "."),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 9)]],ExprTuple [ExprLiteral (LiteralString "^"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 8)]],ExprTuple [ExprLiteral (LiteralString "elem"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "notElem"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "||"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 2)]],ExprTuple [ExprLiteral (LiteralString "&&"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 3)]]])),MkTopV (MkValBind 888 (LhsPat (PatVar "panic")) (ExprVar "error")),MkTopV (MkValBind 892 (LhsPat (PatVar "paLiteral")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprApp (ExprVar ".") (ExprCon "LiteralInt")) (ExprVar "leStringToInt"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lintlit")),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprApp (ExprVar ".") (ExprCon "LiteralChar")) (ExprVar "head"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lcharlit")),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "LiteralString")) (ExprApp (ExprVar "pgItem") (ExprCon "Lstringlit"))]))),MkTopV (MkValBind 900 (LhsPat (PatVar "paExpr")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprVar "paCaseExpr",ExprVar "paLetExpr",ExprVar "paLamExpr",ExprVar "paIfExpr",ExprVar "paUnaryMinusExpr",ExprApp (ExprVar "hsDoExpr") (ExprList [])]))),MkTopV (MkValBind 911 (LhsPat (PatVar "paUnaryMinusExpr")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "minus",PatTuple [PatWild,PatVar "aexpr",PatWild]] (ExprApp (ExprApp (ExprCon "ExprApp") (ExprApp (ExprApp (ExprCon "ExprApp") (ExprApp (ExprCon "ExprVar") (ExprLiteral (LiteralString "-")))) (ExprApp (ExprCon "ExprLiteral") (ExprApp (ExprCon "LiteralInt") (ExprLiteral (LiteralInt 0)))))) (ExprVar "aexpr")))) (ExprVar "paMinus")) (ExprVar "paAExpr"))),MkTopV (MkValBind 918 (LhsPat (PatVar "paCaseExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "casee",PatVar "expr",PatVar "off",PatVar "alts"] (ExprApp (ExprApp (ExprCon "ExprCase") (ExprVar "expr")) (ExprVar "alts")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lcase"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lof"))) (ExprApp (ExprVar "pgDeclList") (ExprVar "paAlt")))),MkTopV (MkValBind 926 (LhsPat (PatVar "paAlt")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "pat",PatVar "arrow",PatVar "expr",PatVar "wheres"] (ExprApp (ExprApp (ExprCon "MkExprCaseAlt") (ExprVar "pat")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprVar "expr")) (ExprVar "wheres"))))) (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "pat",PatVar "agrdrhss",PatVar "wheres"] (ExprApp (ExprApp (ExprCon "MkExprCaseAlt") (ExprVar "pat")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprApp (ExprCon "ExprGuards") (ExprVar "agrdrhss"))) (ExprVar "wheres"))))) (ExprVar "paPat")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paGalt"))) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause"))]))),MkTopV (MkValBind 945 (LhsPat (PatVar "paGalt")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "bar",PatVar "guard",PatVar "arrow",PatVar "expr"] (ExprTuple [ExprVar "guard",ExprVar "expr"]))) (ExprApp (ExprVar "pgItem") (ExprCon "Lbar"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paExpr"))),MkTopV (MkValBind 953 (LhsPat (PatVar "paLamExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "lam",PatVar "patterns",PatVar "arrow",PatVar "rhs"] (ExprApp (ExprApp (ExprCon "ExprLam") (ExprVar "patterns")) (ExprVar "rhs")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lslash"))) (ExprApp (ExprVar "pgZeroOrMore") (ExprVar "paAPat"))) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paExpr"))),MkTopV (MkValBind 961 (LhsPat (PatVar "paLetExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "lett",PatVar "decls",PatVar "inn",PatVar "rhs"] (ExprApp (ExprApp (ExprCon "ExprLetrec") (ExprVar "decls")) (ExprVar "rhs")))) (ExprApp (ExprVar "pgItem") (ExprCon "Llet"))) (ExprVar "paValdefs")) (ExprApp (ExprVar "pgItem") (ExprCon "Lin"))) (ExprVar "paExpr"))),MkTopV (MkValBind 969 (LhsPat (PatVar "paValdefs")) (ExprApp (ExprApp (ExprVar "pgApply") (ExprVar "pa_MergeValdefs")) (ExprApp (ExprVar "pgDeclList") (ExprVar "paValdef")))),MkTopV (MkValBind 972 (LhsPat (PatVar "pa_MergeValdefs")) (ExprVar "id")),MkTopV (MkValBind 975 (LhsPat (PatVar "paLhs")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "v",PatVar "ps"] (ExprApp (ExprApp (ExprCon "LhsVar") (ExprVar "v")) (ExprVar "ps")))) (ExprVar "paVar")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paPat")),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "LhsPat")) (ExprVar "paPat")]))),MkTopV (MkValBind 982 (LhsPat (PatVar "paValdef")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatTuple [PatVar "line",PatVar "lhs"],PatVar "eq",PatVar "rhs",PatVar "wheres"] (ExprApp (ExprApp (ExprApp (ExprCon "MkValBind") (ExprVar "line")) (ExprVar "lhs")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprVar "rhs")) (ExprVar "wheres"))))) (ExprApp (ExprVar "pgGetLineNumber") (ExprVar "paLhs"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lequals"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatTuple [PatVar "line",PatVar "lhs"],PatVar "grdrhss",PatVar "wheres"] (ExprApp (ExprApp (ExprApp (ExprCon "MkValBind") (ExprVar "line")) (ExprVar "lhs")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprApp (ExprCon "ExprGuards") (ExprVar "grdrhss"))) (ExprVar "wheres"))))) (ExprApp (ExprVar "pgGetLineNumber") (ExprVar "paLhs"))) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paGrhs"))) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause"))]))),MkTopV (MkValBind 1001 (LhsVar "pa_MakeWhereExpr" [PatVar "expr",PatCon "Nothing" []]) (ExprVar "expr")),MkTopV (MkValBind 1003 (LhsVar "pa_MakeWhereExpr" [PatVar "expr",PatCon "Just" [PatVar "whereClauses"]]) (ExprApp (ExprApp (ExprCon "ExprWhere") (ExprVar "expr")) (ExprVar "whereClauses"))),MkTopV (MkValBind 1006 (LhsPat (PatVar "paWhereClause")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "x",PatVar "y"] (ExprVar "y"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lwhere"))) (ExprVar "paValdefs"))),MkTopV (MkValBind 1008 (LhsPat (PatVar "paGrhs")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "bar",PatVar "guard",PatVar "equals",PatVar "expr"] (ExprTuple [ExprVar "guard",ExprVar "expr"]))) (ExprApp (ExprVar "pgItem") (ExprCon "Lbar"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lequals"))) (ExprVar "paExpr"))),MkTopV (MkValBind 1017 (LhsPat (PatVar "paAPat")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "PatVar")) (ExprVar "paVar"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "id"] (ExprApp (ExprApp (ExprCon "PatCon") (ExprVar "id")) (ExprList [])))) (ExprVar "paCon"),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "PatWild"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lunder")),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "PatTuple")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprApp (ExprApp (ExprVar "pgTwoOrMoreWithSep") (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "PatList")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llbrack"))) (ExprApp (ExprApp (ExprVar "pgZeroOrMoreWithSep") (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrbrack"))),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "p",PatVar "r"] (ExprVar "p"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))]))),MkTopV (MkValBind 1039 (LhsPat (PatVar "paPat")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "c",PatVar "ps"] (ExprApp (ExprApp (ExprCon "PatCon") (ExprVar "c")) (ExprVar "ps")))) (ExprVar "paCon")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paAPat")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "ap",PatVar "c",PatVar "pa"] (ExprApp (ExprApp (ExprCon "PatCon") (ExprVar "c")) (ExprList [ExprVar "ap",ExprVar "pa"])))) (ExprVar "paAPat")) (ExprVar "paConop")) (ExprVar "paPat"),ExprVar "paAPat"]))),MkTopV (MkValBind 1053 (LhsPat (PatVar "paIfExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "iff",PatVar "c",PatVar "thenn",PatTuple [PatVar "t",PatVar "f"]] (ExprApp (ExprApp (ExprApp (ExprCon "ExprIf") (ExprVar "c")) (ExprVar "t")) (ExprVar "f")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lif"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lthen"))) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "t",PatVar "elsee",PatVar "f"] (ExprTuple [ExprVar "t",ExprVar "f"]))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lelse"))) (ExprVar "paExpr")))),MkTopV (MkValBind 1066 (LhsPat (PatVar "paAExpr")) (ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "False",ExprVar "x",ExprList []]))) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprVar")) (ExprVar "paVar"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprCon")) (ExprVar "paCon"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprLiteral")) (ExprVar "paLiteral"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprList")) (ExprVar "paListExpr"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprTuple")) (ExprVar "paTupleExpr"),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "e",PatVar "r"] (ExprVar "e"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))])))),MkTopV (MkValBind 1079 (LhsPat (PatVar "paListExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llbrack"))) (ExprApp (ExprApp (ExprVar "pgZeroOrMoreWithSep") (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrbrack")))),MkTopV (MkValBind 1085 (LhsPat (PatVar "paTupleExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprApp (ExprApp (ExprVar "pgTwoOrMoreWithSep") (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen")))),MkTopV (MkValBind 1091 (LhsPat (PatVar "paVar")) (ExprApp (ExprVar "pgItem") (ExprCon "Lvar"))),MkTopV (MkValBind 1092 (LhsPat (PatVar "paCon")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcon"))),MkTopV (MkValBind 1093 (LhsPat (PatVar "paVarop")) (ExprApp (ExprVar "pgItem") (ExprCon "Lvarop"))),MkTopV (MkValBind 1094 (LhsPat (PatVar "paConop")) (ExprApp (ExprVar "pgItem") (ExprCon "Lconop"))),MkTopV (MkValBind 1095 (LhsPat (PatVar "paMinus")) (ExprApp (ExprVar "pgItem") (ExprCon "Lminus"))),MkTopV (MkValBind 1097 (LhsPat (PatVar "paOp")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "True",ExprApp (ExprCon "ExprVar") (ExprVar "x"),ExprVar "x"]))) (ExprVar "paVarop"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "True",ExprApp (ExprCon "ExprCon") (ExprVar "x"),ExprVar "x"]))) (ExprVar "paConop"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "True",ExprApp (ExprCon "ExprVar") (ExprVar "x"),ExprVar "x"]))) (ExprVar "paMinus")]))),MkTopV (MkValBind 1104 (LhsPat (PatVar "paDataDecl")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "dataa",PatVar "useful"] (ExprVar "useful"))) (ExprApp (ExprVar "pgItem") (ExprCon "Ldata"))) (ExprVar "paDataDecl_main"))),MkTopV (MkValBind 1110 (LhsPat (PatVar "paDataDecl_main")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "name",PatVar "params",PatVar "eq",PatVar "drhs"] (ExprApp (ExprApp (ExprCon "MkDataDecl") (ExprVar "name")) (ExprTuple [ExprVar "params",ExprVar "drhs"])))) (ExprVar "paCon")) (ExprApp (ExprVar "pgZeroOrMore") (ExprVar "paVar"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lequals"))) (ExprApp (ExprApp (ExprVar "pgOneOrMoreWithSep") (ExprVar "paConstrs")) (ExprApp (ExprVar "pgItem") (ExprCon "Lbar"))))),MkTopV (MkValBind 1118 (LhsPat (PatVar "paConstrs")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "con",PatVar "texprs"] (ExprTuple [ExprVar "con",ExprVar "texprs"]))) (ExprVar "paCon")) (ExprApp (ExprVar "pgZeroOrMore") (ExprVar "paAType")))),MkTopV (MkValBind 1124 (LhsPat (PatVar "paType")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "atype",PatVar "arrow",PatVar "typee"] (ExprApp (ExprApp (ExprCon "TypeArr") (ExprVar "atype")) (ExprVar "typee")))) (ExprVar "paAType")) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paType"),ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprCon "TypeCon")) (ExprVar "paCon")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paAType")),ExprVar "paAType"]))),MkTopV (MkValBind 1139 (LhsPat (PatVar "paAType")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "TypeVar")) (ExprVar "paVar"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "tycon"] (ExprApp (ExprApp (ExprCon "TypeCon") (ExprVar "tycon")) (ExprList [])))) (ExprVar "paCon"),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "t",PatVar "r"] (ExprVar "t"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprVar "paType")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "t",PatVar "r"] (ExprApp (ExprCon "TypeList") (ExprVar "t")))) (ExprApp (ExprVar "pgItem") (ExprCon "Llbrack"))) (ExprVar "paType")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrbrack")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "t",PatVar "r"] (ExprApp (ExprCon "TypeTuple") (ExprVar "t")))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprApp (ExprApp (ExprVar "pgTwoOrMoreWithSep") (ExprVar "paType")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))]))),MkTopV (MkValBind 1161 (LhsVar "paInfixDecl" [PatVar "env",PatVar "toks"]) (ExprLetrec [MkValBind 1162 (LhsVar "dump" [PatCon "ExprVar" [PatVar "v"]]) (ExprVar "v"),MkValBind 1163 (LhsVar "dump" [PatCon "ExprCon" [PatVar "c"]]) (ExprVar "c")] (ExprApp (ExprVar "pa_UpdateFixityEnv") (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "assoc",PatVar "prio",PatVar "name"] (ExprApp (ExprApp (ExprCon "MkFixDecl") (ExprVar "name")) (ExprTuple [ExprVar "assoc",ExprVar "prio"])))) (ExprVar "paInfixWord")) (ExprApp (ExprApp (ExprVar "pgApply") (ExprVar "leStringToInt")) (ExprApp (ExprVar "pgItem") (ExprCon "Lintlit")))) (ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatTuple [PatWild,PatVar "op",PatWild]] (ExprApp (ExprVar "dump") (ExprVar "op")))) (ExprVar "paOp"))) (ExprVar "env")) (ExprVar "toks"))))),MkTopV (MkValBind 1175 (LhsPat (PatVar "paInfixWord")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "InfixL"))) (ExprApp (ExprVar "pgItem") (ExprCon "Linfixl")),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "InfixR"))) (ExprApp (ExprVar "pgItem") (ExprCon "Linfixr")),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "InfixN"))) (ExprApp (ExprVar "pgItem") (ExprCon "Linfix"))]))),MkTopV (MkValBind 1183 (LhsVar "pa_UpdateFixityEnv" [PatCon "PFail" [PatVar "tok"]]) (ExprApp (ExprCon "PFail") (ExprVar "tok"))),MkTopV (MkValBind 1186 (LhsVar "pa_UpdateFixityEnv" [PatCon "POk" [PatVar "env",PatVar "toks",PatCon "MkFixDecl" [PatVar "name",PatVar "assoc_prio"]]]) (ExprLetrec [MkValBind 1188 (LhsPat (PatVar "new_env")) (ExprApp (ExprApp (ExprCon ":") (ExprTuple [ExprVar "name",ExprVar "assoc_prio"])) (ExprVar "env"))] (ExprApp (ExprApp (ExprApp (ExprCon "POk") (ExprVar "new_env")) (ExprVar "toks")) (ExprApp (ExprApp (ExprCon "MkFixDecl") (ExprVar "name")) (ExprVar "assoc_prio"))))),MkTopV (MkValBind 1192 (LhsPat (PatVar "paTopDecl")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "MkTopF")) (ExprVar "paInfixDecl"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "MkTopD")) (ExprVar "paDataDecl"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "MkTopV")) (ExprVar "paValdef")]))),MkTopV (MkValBind 1200 (LhsPat (PatVar "paModule")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "modyule",PatVar "name",PatVar "wheree",PatVar "topdecls"] (ExprApp (ExprApp (ExprCon "MkModule") (ExprVar "name")) (ExprVar "topdecls")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lmodule"))) (ExprVar "paCon")) (ExprApp (ExprVar "pgItem") (ExprCon "Lwhere"))) (ExprApp (ExprVar "pgDeclList") (ExprVar "paTopDecl")))),MkTopV (MkValBind 1208 (LhsVar "parser_test" [PatVar "toks"]) (ExprLetrec [MkValBind 1209 (LhsPat (PatVar "parser_to_test")) (ExprVar "paModule")] (ExprApp (ExprApp (ExprVar "parser_to_test") (ExprVar "hsPrecTable")) (ExprVar "toks")))),MkTopV (MkValBind 1229 (LhsPat (PatVar "hsAExprOrOp")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprVar "paAExpr",ExprVar "paOp"]))),MkTopV (MkValBind 1237 (LhsVar "hsDoExpr" [PatVar "stack",PatVar "env",PatVar "toks"]) (ExprLetrec [MkValBind 1239 (LhsPat (PatTuple [PatVar "validIn",PatVar "restIn",PatVar "parseIn",PatVar "err"])) (ExprCase (ExprApp (ExprApp (ExprVar "hsAExprOrOp") (ExprVar "env")) (ExprVar "toks")) [MkExprCaseAlt (PatCon "POk" [PatVar "env1",PatVar "toks1",PatVar "item1"]) (ExprTuple [ExprCon "True",ExprVar "toks1",ExprVar "item1",ExprApp (ExprVar "panic") (ExprLiteral (LiteralString "hsDoExpr(1)"))]),MkExprCaseAlt (PatCon "PFail" [PatVar "err"]) (ExprTuple [ExprCon "False",ExprApp (ExprVar "panic") (ExprLiteral (LiteralString "hsDoExpr(2)")),ExprApp (ExprVar "panic") (ExprLiteral (LiteralString "hsDoExpr(3)")),ExprVar "err"])]),MkValBind 1245 (LhsPat (PatTuple [PatVar "opIn",PatVar "valueIn",PatVar "nameIn"])) (ExprVar "parseIn"),MkValBind 1247 (LhsPat (PatTuple [PatVar "assocIn",PatVar "priorIn"])) (ExprApp (ExprApp (ExprApp (ExprVar "utLookupDef") (ExprVar "env")) (ExprVar "nameIn")) (ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 9)])),MkValBind 1249 (LhsPat (PatVar "shift")) (ExprApp (ExprApp (ExprApp (ExprVar "hsDoExpr") (ExprApp (ExprApp (ExprCon ":") (ExprVar "parseIn")) (ExprVar "stack"))) (ExprVar "env")) (ExprVar "restIn"))] (ExprCase (ExprVar "stack") [MkExprCaseAlt (PatCon ":" [PatVar "s1",PatCon ":" [PatVar "s2",PatCon ":" [PatVar "s3",PatVar "ss"]]]) (ExprWhere (ExprGuards [(ExprApp (ExprApp (ExprVar "&&") (ExprVar "validIn")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opS2")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opIn")) (ExprApp (ExprApp (ExprVar ">") (ExprVar "priorS2")) (ExprVar "priorIn")))),ExprVar "reduce"),(ExprApp (ExprApp (ExprVar "&&") (ExprVar "validIn")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opS2")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opIn")) (ExprApp (ExprApp (ExprVar "==") (ExprVar "priorS2")) (ExprVar "priorIn")))),ExprIf (ExprApp (ExprApp (ExprVar "&&") (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocS2")) (ExprCon "InfixL"))) (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocIn")) (ExprCon "InfixL"))) (ExprVar "reduce") (ExprIf (ExprApp (ExprApp (ExprVar "&&") (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocS2")) (ExprCon "InfixR"))) (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocIn")) (ExprCon "InfixR"))) (ExprVar "shift") (ExprApp (ExprCon "PFail") (ExprApp (ExprVar "head") (ExprVar "toks"))))),(ExprApp (ExprApp (ExprVar "&&") (ExprApp (ExprVar "not") (ExprVar "validIn"))) (ExprVar "opS2"),ExprVar "reduce")]) [MkValBind 1268 (LhsPat (PatTuple [PatVar "opS1",PatVar "valueS1",PatVar "nameS1"])) (ExprVar "s1"),MkValBind 1269 (LhsPat (PatTuple [PatVar "opS2",PatVar "valueS2",PatVar "nameS2"])) (ExprVar "s2"),MkValBind 1270 (LhsPat (PatTuple [PatVar "opS3",PatVar "valueS3",PatVar "nameS3"])) (ExprVar "s3"),MkValBind 1271 (LhsPat (PatTuple [PatVar "assocS2",PatVar "priorS2"])) (ExprApp (ExprApp (ExprApp (ExprVar "utLookupDef") (ExprVar "env")) (ExprVar "nameS2")) (ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 9)])),MkValBind 1272 (LhsPat (PatVar "reduce")) (ExprApp (ExprApp (ExprApp (ExprVar "hsDoExpr") (ExprApp (ExprApp (ExprCon ":") (ExprTuple [ExprCon "False",ExprApp (ExprApp (ExprCon "ExprApp") (ExprApp (ExprApp (ExprCon "ExprApp") (ExprVar "valueS2")) (ExprVar "valueS3"))) (ExprVar "valueS1"),ExprList []])) (ExprVar "ss"))) (ExprVar "env")) (ExprVar "toks"))]),MkExprCaseAlt (PatCon ":" [PatVar "s1",PatCon ":" [PatVar "s2",PatVar "ss"]]) (ExprWhere (ExprGuards [(ExprApp (ExprApp (ExprVar "&&") (ExprVar "validIn")) (ExprApp (ExprApp (ExprVar "||") (ExprVar "opS1")) (ExprVar "opS2")),ExprVar "shift"),(ExprVar "otherwise",ExprVar "reduce")]) [MkValBind 1279 (LhsPat (PatTuple [PatVar "opS1",PatVar "valueS1",PatVar "nameS1"])) (ExprVar "s1"),MkValBind 1280 (LhsPat (PatTuple [PatVar "opS2",PatVar "valueS2",PatVar "nameS2"])) (ExprVar "s2"),MkValBind 1281 (LhsPat (PatVar "reduce")) (ExprApp (ExprApp (ExprApp (ExprVar "hsDoExpr") (ExprApp (ExprApp (ExprCon ":") (ExprTuple [ExprCon "False",ExprApp (ExprApp (ExprCon "ExprApp") (ExprVar "valueS2")) (ExprVar "valueS1"),ExprList []])) (ExprVar "ss"))) (ExprVar "env")) (ExprVar "toks"))]),MkExprCaseAlt (PatCon ":" [PatVar "s1",PatList []]) (ExprWhere (ExprGuards [(ExprVar "validIn",ExprVar "shift"),(ExprVar "otherwise",ExprApp (ExprApp (ExprApp (ExprCon "POk") (ExprVar "env")) (ExprVar "toks")) (ExprVar "valueS1"))]) [MkValBind 1287 (LhsPat (PatTuple [PatVar "opS1",PatVar "valueS1",PatVar "nameS1"])) (ExprVar "s1")]),MkExprCaseAlt (PatList []) (ExprGuards [(ExprVar "validIn",ExprVar "shift"),(ExprVar "otherwise",ExprApp (ExprCon "PFail") (ExprVar "err"))])]))),MkTopV (MkValBind 1297 (LhsPat (PatVar "hsPrecTable")) (ExprList [ExprTuple [ExprLiteral (LiteralString "-"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 6)]],ExprTuple [ExprLiteral (LiteralString "+"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 6)]],ExprTuple [ExprLiteral (LiteralString "*"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 7)]],ExprTuple [ExprLiteral (LiteralString "div"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 7)]],ExprTuple [ExprLiteral (LiteralString "mod"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 7)]],ExprTuple [ExprLiteral (LiteralString "<"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "<="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "=="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "/="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString ">="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString ">"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "C:"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 5)]],ExprTuple [ExprLiteral (LiteralString "++"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 5)]],ExprTuple [ExprLiteral (LiteralString "\\"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 5)]],ExprTuple [ExprLiteral (LiteralString "!!"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 9)]],ExprTuple [ExprLiteral (LiteralString "."),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 9)]],ExprTuple [ExprLiteral (LiteralString "^"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 8)]],ExprTuple [ExprLiteral (LiteralString "elem"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "notElem"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "||"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 2)]],ExprTuple [ExprLiteral (LiteralString "&&"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 3)]]])),MkTopV (MkValBind 1326 (LhsPat (PatVar "panic")) (ExprVar "error")),MkTopV (MkValBind 1330 (LhsPat (PatVar "paLiteral")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprApp (ExprVar ".") (ExprCon "LiteralInt")) (ExprVar "leStringToInt"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lintlit")),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprApp (ExprVar ".") (ExprCon "LiteralChar")) (ExprVar "head"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lcharlit")),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "LiteralString")) (ExprApp (ExprVar "pgItem") (ExprCon "Lstringlit"))]))),MkTopV (MkValBind 1338 (LhsPat (PatVar "paExpr")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprVar "paCaseExpr",ExprVar "paLetExpr",ExprVar "paLamExpr",ExprVar "paIfExpr",ExprVar "paUnaryMinusExpr",ExprApp (ExprVar "hsDoExpr") (ExprList [])]))),MkTopV (MkValBind 1349 (LhsPat (PatVar "paUnaryMinusExpr")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "minus",PatTuple [PatWild,PatVar "aexpr",PatWild]] (ExprApp (ExprApp (ExprCon "ExprApp") (ExprApp (ExprApp (ExprCon "ExprApp") (ExprApp (ExprCon "ExprVar") (ExprLiteral (LiteralString "-")))) (ExprApp (ExprCon "ExprLiteral") (ExprApp (ExprCon "LiteralInt") (ExprLiteral (LiteralInt 0)))))) (ExprVar "aexpr")))) (ExprVar "paMinus")) (ExprVar "paAExpr"))),MkTopV (MkValBind 1356 (LhsPat (PatVar "paCaseExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "casee",PatVar "expr",PatVar "off",PatVar "alts"] (ExprApp (ExprApp (ExprCon "ExprCase") (ExprVar "expr")) (ExprVar "alts")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lcase"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lof"))) (ExprApp (ExprVar "pgDeclList") (ExprVar "paAlt")))),MkTopV (MkValBind 1364 (LhsPat (PatVar "paAlt")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "pat",PatVar "arrow",PatVar "expr",PatVar "wheres"] (ExprApp (ExprApp (ExprCon "MkExprCaseAlt") (ExprVar "pat")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprVar "expr")) (ExprVar "wheres"))))) (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "pat",PatVar "agrdrhss",PatVar "wheres"] (ExprApp (ExprApp (ExprCon "MkExprCaseAlt") (ExprVar "pat")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprApp (ExprCon "ExprGuards") (ExprVar "agrdrhss"))) (ExprVar "wheres"))))) (ExprVar "paPat")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paGalt"))) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause"))]))),MkTopV (MkValBind 1383 (LhsPat (PatVar "paGalt")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "bar",PatVar "guard",PatVar "arrow",PatVar "expr"] (ExprTuple [ExprVar "guard",ExprVar "expr"]))) (ExprApp (ExprVar "pgItem") (ExprCon "Lbar"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paExpr"))),MkTopV (MkValBind 1391 (LhsPat (PatVar "paLamExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "lam",PatVar "patterns",PatVar "arrow",PatVar "rhs"] (ExprApp (ExprApp (ExprCon "ExprLam") (ExprVar "patterns")) (ExprVar "rhs")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lslash"))) (ExprApp (ExprVar "pgZeroOrMore") (ExprVar "paAPat"))) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paExpr"))),MkTopV (MkValBind 1399 (LhsPat (PatVar "paLetExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "lett",PatVar "decls",PatVar "inn",PatVar "rhs"] (ExprApp (ExprApp (ExprCon "ExprLetrec") (ExprVar "decls")) (ExprVar "rhs")))) (ExprApp (ExprVar "pgItem") (ExprCon "Llet"))) (ExprVar "paValdefs")) (ExprApp (ExprVar "pgItem") (ExprCon "Lin"))) (ExprVar "paExpr"))),MkTopV (MkValBind 1407 (LhsPat (PatVar "paValdefs")) (ExprApp (ExprApp (ExprVar "pgApply") (ExprVar "pa_MergeValdefs")) (ExprApp (ExprVar "pgDeclList") (ExprVar "paValdef")))),MkTopV (MkValBind 1410 (LhsPat (PatVar "pa_MergeValdefs")) (ExprVar "id")),MkTopV (MkValBind 1413 (LhsPat (PatVar "paLhs")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "v",PatVar "ps"] (ExprApp (ExprApp (ExprCon "LhsVar") (ExprVar "v")) (ExprVar "ps")))) (ExprVar "paVar")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paPat")),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "LhsPat")) (ExprVar "paPat")]))),MkTopV (MkValBind 1420 (LhsPat (PatVar "paValdef")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatTuple [PatVar "line",PatVar "lhs"],PatVar "eq",PatVar "rhs",PatVar "wheres"] (ExprApp (ExprApp (ExprApp (ExprCon "MkValBind") (ExprVar "line")) (ExprVar "lhs")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprVar "rhs")) (ExprVar "wheres"))))) (ExprApp (ExprVar "pgGetLineNumber") (ExprVar "paLhs"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lequals"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatTuple [PatVar "line",PatVar "lhs"],PatVar "grdrhss",PatVar "wheres"] (ExprApp (ExprApp (ExprApp (ExprCon "MkValBind") (ExprVar "line")) (ExprVar "lhs")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprApp (ExprCon "ExprGuards") (ExprVar "grdrhss"))) (ExprVar "wheres"))))) (ExprApp (ExprVar "pgGetLineNumber") (ExprVar "paLhs"))) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paGrhs"))) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause"))]))),MkTopV (MkValBind 1439 (LhsVar "pa_MakeWhereExpr" [PatVar "expr",PatCon "Nothing" []]) (ExprVar "expr")),MkTopV (MkValBind 1441 (LhsVar "pa_MakeWhereExpr" [PatVar "expr",PatCon "Just" [PatVar "whereClauses"]]) (ExprApp (ExprApp (ExprCon "ExprWhere") (ExprVar "expr")) (ExprVar "whereClauses"))),MkTopV (MkValBind 1444 (LhsPat (PatVar "paWhereClause")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "x",PatVar "y"] (ExprVar "y"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lwhere"))) (ExprVar "paValdefs"))),MkTopV (MkValBind 1446 (LhsPat (PatVar "paGrhs")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "bar",PatVar "guard",PatVar "equals",PatVar "expr"] (ExprTuple [ExprVar "guard",ExprVar "expr"]))) (ExprApp (ExprVar "pgItem") (ExprCon "Lbar"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lequals"))) (ExprVar "paExpr"))),MkTopV (MkValBind 1455 (LhsPat (PatVar "paAPat")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "PatVar")) (ExprVar "paVar"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "id"] (ExprApp (ExprApp (ExprCon "PatCon") (ExprVar "id")) (ExprList [])))) (ExprVar "paCon"),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "PatWild"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lunder")),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "PatTuple")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprApp (ExprApp (ExprVar "pgTwoOrMoreWithSep") (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "PatList")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llbrack"))) (ExprApp (ExprApp (ExprVar "pgZeroOrMoreWithSep") (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrbrack"))),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "p",PatVar "r"] (ExprVar "p"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))]))),MkTopV (MkValBind 1477 (LhsPat (PatVar "paPat")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "c",PatVar "ps"] (ExprApp (ExprApp (ExprCon "PatCon") (ExprVar "c")) (ExprVar "ps")))) (ExprVar "paCon")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paAPat")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "ap",PatVar "c",PatVar "pa"] (ExprApp (ExprApp (ExprCon "PatCon") (ExprVar "c")) (ExprList [ExprVar "ap",ExprVar "pa"])))) (ExprVar "paAPat")) (ExprVar "paConop")) (ExprVar "paPat"),ExprVar "paAPat"]))),MkTopV (MkValBind 1491 (LhsPat (PatVar "paIfExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "iff",PatVar "c",PatVar "thenn",PatTuple [PatVar "t",PatVar "f"]] (ExprApp (ExprApp (ExprApp (ExprCon "ExprIf") (ExprVar "c")) (ExprVar "t")) (ExprVar "f")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lif"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lthen"))) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "t",PatVar "elsee",PatVar "f"] (ExprTuple [ExprVar "t",ExprVar "f"]))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lelse"))) (ExprVar "paExpr")))),MkTopV (MkValBind 1504 (LhsPat (PatVar "paAExpr")) (ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "False",ExprVar "x",ExprList []]))) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprVar")) (ExprVar "paVar"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprCon")) (ExprVar "paCon"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprLiteral")) (ExprVar "paLiteral"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprList")) (ExprVar "paListExpr"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "ExprTuple")) (ExprVar "paTupleExpr"),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "e",PatVar "r"] (ExprVar "e"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))])))),MkTopV (MkValBind 1517 (LhsPat (PatVar "paListExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llbrack"))) (ExprApp (ExprApp (ExprVar "pgZeroOrMoreWithSep") (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrbrack")))),MkTopV (MkValBind 1523 (LhsPat (PatVar "paTupleExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprApp (ExprApp (ExprVar "pgTwoOrMoreWithSep") (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen")))),MkTopV (MkValBind 1529 (LhsPat (PatVar "paVar")) (ExprApp (ExprVar "pgItem") (ExprCon "Lvar"))),MkTopV (MkValBind 1530 (LhsPat (PatVar "paCon")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcon"))),MkTopV (MkValBind 1531 (LhsPat (PatVar "paVarop")) (ExprApp (ExprVar "pgItem") (ExprCon "Lvarop"))),MkTopV (MkValBind 1532 (LhsPat (PatVar "paConop")) (ExprApp (ExprVar "pgItem") (ExprCon "Lconop"))),MkTopV (MkValBind 1533 (LhsPat (PatVar "paMinus")) (ExprApp (ExprVar "pgItem") (ExprCon "Lminus"))),MkTopV (MkValBind 1535 (LhsPat (PatVar "paOp")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "True",ExprApp (ExprCon "ExprVar") (ExprVar "x"),ExprVar "x"]))) (ExprVar "paVarop"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "True",ExprApp (ExprCon "ExprCon") (ExprVar "x"),ExprVar "x"]))) (ExprVar "paConop"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "x"] (ExprTuple [ExprCon "True",ExprApp (ExprCon "ExprVar") (ExprVar "x"),ExprVar "x"]))) (ExprVar "paMinus")]))),MkTopV (MkValBind 1542 (LhsPat (PatVar "paDataDecl")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "dataa",PatVar "useful"] (ExprVar "useful"))) (ExprApp (ExprVar "pgItem") (ExprCon "Ldata"))) (ExprVar "paDataDecl_main"))),MkTopV (MkValBind 1548 (LhsPat (PatVar "paDataDecl_main")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "name",PatVar "params",PatVar "eq",PatVar "drhs"] (ExprApp (ExprApp (ExprCon "MkDataDecl") (ExprVar "name")) (ExprTuple [ExprVar "params",ExprVar "drhs"])))) (ExprVar "paCon")) (ExprApp (ExprVar "pgZeroOrMore") (ExprVar "paVar"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lequals"))) (ExprApp (ExprApp (ExprVar "pgOneOrMoreWithSep") (ExprVar "paConstrs")) (ExprApp (ExprVar "pgItem") (ExprCon "Lbar"))))),MkTopV (MkValBind 1556 (LhsPat (PatVar "paConstrs")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "con",PatVar "texprs"] (ExprTuple [ExprVar "con",ExprVar "texprs"]))) (ExprVar "paCon")) (ExprApp (ExprVar "pgZeroOrMore") (ExprVar "paAType")))),MkTopV (MkValBind 1562 (LhsPat (PatVar "paType")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "atype",PatVar "arrow",PatVar "typee"] (ExprApp (ExprApp (ExprCon "TypeArr") (ExprVar "atype")) (ExprVar "typee")))) (ExprVar "paAType")) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paType"),ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprCon "TypeCon")) (ExprVar "paCon")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paAType")),ExprVar "paAType"]))),MkTopV (MkValBind 1577 (LhsPat (PatVar "paAType")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "TypeVar")) (ExprVar "paVar"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "tycon"] (ExprApp (ExprApp (ExprCon "TypeCon") (ExprVar "tycon")) (ExprList [])))) (ExprVar "paCon"),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "t",PatVar "r"] (ExprVar "t"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprVar "paType")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "t",PatVar "r"] (ExprApp (ExprCon "TypeList") (ExprVar "t")))) (ExprApp (ExprVar "pgItem") (ExprCon "Llbrack"))) (ExprVar "paType")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrbrack")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "t",PatVar "r"] (ExprApp (ExprCon "TypeTuple") (ExprVar "t")))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprApp (ExprApp (ExprVar "pgTwoOrMoreWithSep") (ExprVar "paType")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))]))),MkTopV (MkValBind 1599 (LhsVar "paInfixDecl" [PatVar "env",PatVar "toks"]) (ExprLetrec [MkValBind 1600 (LhsVar "dump" [PatCon "ExprVar" [PatVar "v"]]) (ExprVar "v"),MkValBind 1601 (LhsVar "dump" [PatCon "ExprCon" [PatVar "c"]]) (ExprVar "c")] (ExprApp (ExprVar "pa_UpdateFixityEnv") (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "assoc",PatVar "prio",PatVar "name"] (ExprApp (ExprApp (ExprCon "MkFixDecl") (ExprVar "name")) (ExprTuple [ExprVar "assoc",ExprVar "prio"])))) (ExprVar "paInfixWord")) (ExprApp (ExprApp (ExprVar "pgApply") (ExprVar "leStringToInt")) (ExprApp (ExprVar "pgItem") (ExprCon "Lintlit")))) (ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatTuple [PatWild,PatVar "op",PatWild]] (ExprApp (ExprVar "dump") (ExprVar "op")))) (ExprVar "paOp"))) (ExprVar "env")) (ExprVar "toks"))))),MkTopV (MkValBind 1613 (LhsPat (PatVar "paInfixWord")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "InfixL"))) (ExprApp (ExprVar "pgItem") (ExprCon "Linfixl")),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "InfixR"))) (ExprApp (ExprVar "pgItem") (ExprCon "Linfixr")),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "InfixN"))) (ExprApp (ExprVar "pgItem") (ExprCon "Linfix"))]))),MkTopV (MkValBind 1621 (LhsVar "pa_UpdateFixityEnv" [PatCon "PFail" [PatVar "tok"]]) (ExprApp (ExprCon "PFail") (ExprVar "tok"))),MkTopV (MkValBind 1624 (LhsVar "pa_UpdateFixityEnv" [PatCon "POk" [PatVar "env",PatVar "toks",PatCon "MkFixDecl" [PatVar "name",PatVar "assoc_prio"]]]) (ExprLetrec [MkValBind 1626 (LhsPat (PatVar "new_env")) (ExprApp (ExprApp (ExprCon ":") (ExprTuple [ExprVar "name",ExprVar "assoc_prio"])) (ExprVar "env"))] (ExprApp (ExprApp (ExprApp (ExprCon "POk") (ExprVar "new_env")) (ExprVar "toks")) (ExprApp (ExprApp (ExprCon "MkFixDecl") (ExprVar "name")) (ExprVar "assoc_prio"))))),MkTopV (MkValBind 1630 (LhsPat (PatVar "paTopDecl")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "MkTopF")) (ExprVar "paInfixDecl"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "MkTopD")) (ExprVar "paDataDecl"),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "MkTopV")) (ExprVar "paValdef")]))),MkTopV (MkValBind 1638 (LhsPat (PatVar "paModule")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "modyule",PatVar "name",PatVar "wheree",PatVar "topdecls"] (ExprApp (ExprApp (ExprCon "MkModule") (ExprVar "name")) (ExprVar "topdecls")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lmodule"))) (ExprVar "paCon")) (ExprApp (ExprVar "pgItem") (ExprCon "Lwhere"))) (ExprApp (ExprVar "pgDeclList") (ExprVar "paTopDecl")))),MkTopV (MkValBind 1646 (LhsVar "parser_test" [PatVar "toks"]) (ExprLetrec [MkValBind 1647 (LhsPat (PatVar "parser_to_test")) (ExprVar "paModule")] (ExprApp (ExprApp (ExprVar "parser_to_test") (ExprVar "hsPrecTable")) (ExprVar "toks")))),MkTopV (MkValBind 1667 (LhsPat (PatVar "hsAExprOrOp")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprVar "paAExpr",ExprVar "paOp"]))),MkTopV (MkValBind 1675 (LhsVar "hsDoExpr" [PatVar "stack",PatVar "env",PatVar "toks"]) (ExprLetrec [MkValBind 1677 (LhsPat (PatTuple [PatVar "validIn",PatVar "restIn",PatVar "parseIn",PatVar "err"])) (ExprCase (ExprApp (ExprApp (ExprVar "hsAExprOrOp") (ExprVar "env")) (ExprVar "toks")) [MkExprCaseAlt (PatCon "POk" [PatVar "env1",PatVar "toks1",PatVar "item1"]) (ExprTuple [ExprCon "True",ExprVar "toks1",ExprVar "item1",ExprApp (ExprVar "panic") (ExprLiteral (LiteralString "hsDoExpr(1)"))]),MkExprCaseAlt (PatCon "PFail" [PatVar "err"]) (ExprTuple [ExprCon "False",ExprApp (ExprVar "panic") (ExprLiteral (LiteralString "hsDoExpr(2)")),ExprApp (ExprVar "panic") (ExprLiteral (LiteralString "hsDoExpr(3)")),ExprVar "err"])]),MkValBind 1683 (LhsPat (PatTuple [PatVar "opIn",PatVar "valueIn",PatVar "nameIn"])) (ExprVar "parseIn"),MkValBind 1685 (LhsPat (PatTuple [PatVar "assocIn",PatVar "priorIn"])) (ExprApp (ExprApp (ExprApp (ExprVar "utLookupDef") (ExprVar "env")) (ExprVar "nameIn")) (ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 9)])),MkValBind 1687 (LhsPat (PatVar "shift")) (ExprApp (ExprApp (ExprApp (ExprVar "hsDoExpr") (ExprApp (ExprApp (ExprCon ":") (ExprVar "parseIn")) (ExprVar "stack"))) (ExprVar "env")) (ExprVar "restIn"))] (ExprCase (ExprVar "stack") [MkExprCaseAlt (PatCon ":" [PatVar "s1",PatCon ":" [PatVar "s2",PatCon ":" [PatVar "s3",PatVar "ss"]]]) (ExprWhere (ExprGuards [(ExprApp (ExprApp (ExprVar "&&") (ExprVar "validIn")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opS2")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opIn")) (ExprApp (ExprApp (ExprVar ">") (ExprVar "priorS2")) (ExprVar "priorIn")))),ExprVar "reduce"),(ExprApp (ExprApp (ExprVar "&&") (ExprVar "validIn")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opS2")) (ExprApp (ExprApp (ExprVar "&&") (ExprVar "opIn")) (ExprApp (ExprApp (ExprVar "==") (ExprVar "priorS2")) (ExprVar "priorIn")))),ExprIf (ExprApp (ExprApp (ExprVar "&&") (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocS2")) (ExprCon "InfixL"))) (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocIn")) (ExprCon "InfixL"))) (ExprVar "reduce") (ExprIf (ExprApp (ExprApp (ExprVar "&&") (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocS2")) (ExprCon "InfixR"))) (ExprApp (ExprApp (ExprVar "==") (ExprVar "assocIn")) (ExprCon "InfixR"))) (ExprVar "shift") (ExprApp (ExprCon "PFail") (ExprApp (ExprVar "head") (ExprVar "toks"))))),(ExprApp (ExprApp (ExprVar "&&") (ExprApp (ExprVar "not") (ExprVar "validIn"))) (ExprVar "opS2"),ExprVar "reduce")]) [MkValBind 1706 (LhsPat (PatTuple [PatVar "opS1",PatVar "valueS1",PatVar "nameS1"])) (ExprVar "s1"),MkValBind 1707 (LhsPat (PatTuple [PatVar "opS2",PatVar "valueS2",PatVar "nameS2"])) (ExprVar "s2"),MkValBind 1708 (LhsPat (PatTuple [PatVar "opS3",PatVar "valueS3",PatVar "nameS3"])) (ExprVar "s3"),MkValBind 1709 (LhsPat (PatTuple [PatVar "assocS2",PatVar "priorS2"])) (ExprApp (ExprApp (ExprApp (ExprVar "utLookupDef") (ExprVar "env")) (ExprVar "nameS2")) (ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 9)])),MkValBind 1710 (LhsPat (PatVar "reduce")) (ExprApp (ExprApp (ExprApp (ExprVar "hsDoExpr") (ExprApp (ExprApp (ExprCon ":") (ExprTuple [ExprCon "False",ExprApp (ExprApp (ExprCon "ExprApp") (ExprApp (ExprApp (ExprCon "ExprApp") (ExprVar "valueS2")) (ExprVar "valueS3"))) (ExprVar "valueS1"),ExprList []])) (ExprVar "ss"))) (ExprVar "env")) (ExprVar "toks"))]),MkExprCaseAlt (PatCon ":" [PatVar "s1",PatCon ":" [PatVar "s2",PatVar "ss"]]) (ExprWhere (ExprGuards [(ExprApp (ExprApp (ExprVar "&&") (ExprVar "validIn")) (ExprApp (ExprApp (ExprVar "||") (ExprVar "opS1")) (ExprVar "opS2")),ExprVar "shift"),(ExprVar "otherwise",ExprVar "reduce")]) [MkValBind 1717 (LhsPat (PatTuple [PatVar "opS1",PatVar "valueS1",PatVar "nameS1"])) (ExprVar "s1"),MkValBind 1718 (LhsPat (PatTuple [PatVar "opS2",PatVar "valueS2",PatVar "nameS2"])) (ExprVar "s2"),MkValBind 1719 (LhsPat (PatVar "reduce")) (ExprApp (ExprApp (ExprApp (ExprVar "hsDoExpr") (ExprApp (ExprApp (ExprCon ":") (ExprTuple [ExprCon "False",ExprApp (ExprApp (ExprCon "ExprApp") (ExprVar "valueS2")) (ExprVar "valueS1"),ExprList []])) (ExprVar "ss"))) (ExprVar "env")) (ExprVar "toks"))]),MkExprCaseAlt (PatCon ":" [PatVar "s1",PatList []]) (ExprWhere (ExprGuards [(ExprVar "validIn",ExprVar "shift"),(ExprVar "otherwise",ExprApp (ExprApp (ExprApp (ExprCon "POk") (ExprVar "env")) (ExprVar "toks")) (ExprVar "valueS1"))]) [MkValBind 1725 (LhsPat (PatTuple [PatVar "opS1",PatVar "valueS1",PatVar "nameS1"])) (ExprVar "s1")]),MkExprCaseAlt (PatList []) (ExprGuards [(ExprVar "validIn",ExprVar "shift"),(ExprVar "otherwise",ExprApp (ExprCon "PFail") (ExprVar "err"))])]))),MkTopV (MkValBind 1735 (LhsPat (PatVar "hsPrecTable")) (ExprList [ExprTuple [ExprLiteral (LiteralString "-"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 6)]],ExprTuple [ExprLiteral (LiteralString "+"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 6)]],ExprTuple [ExprLiteral (LiteralString "*"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 7)]],ExprTuple [ExprLiteral (LiteralString "div"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 7)]],ExprTuple [ExprLiteral (LiteralString "mod"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 7)]],ExprTuple [ExprLiteral (LiteralString "<"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "<="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "=="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "/="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString ">="),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString ">"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "C:"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 5)]],ExprTuple [ExprLiteral (LiteralString "++"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 5)]],ExprTuple [ExprLiteral (LiteralString "\\"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 5)]],ExprTuple [ExprLiteral (LiteralString "!!"),ExprTuple [ExprCon "InfixL",ExprLiteral (LiteralInt 9)]],ExprTuple [ExprLiteral (LiteralString "."),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 9)]],ExprTuple [ExprLiteral (LiteralString "^"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 8)]],ExprTuple [ExprLiteral (LiteralString "elem"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "notElem"),ExprTuple [ExprCon "InfixN",ExprLiteral (LiteralInt 4)]],ExprTuple [ExprLiteral (LiteralString "||"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 2)]],ExprTuple [ExprLiteral (LiteralString "&&"),ExprTuple [ExprCon "InfixR",ExprLiteral (LiteralInt 3)]]]))]