Ticket #1983: foo

File foo, 253.1 KB (added by jonathancast, 6 years ago)

Command to give

Line 
1let s = render (pprExpr globalscript (8, LeftAssoc) (For [Generator (RunGen (SetCompr (Lambda [FieldPat "\955\950" Wildcard (PVar "g"),FatCommaPat (PVar "\951T0") (FatCommaPat (ConsPat (StrictPat Wildcard) (AtPat "l" (PVar "b"))) (LazyPat (StrictPat (LazyPat (PVar "f\929\947E\969_K\915"))))),AtPat "q\954\954\934\914" (LazyPat (FatCommaPat (PVar "\952\916\931R\913l") (FieldPat "bmD\949Y\928\933\937\934" (PVar "\949") (AtPat "n6IuO" (ConstrPat "\931\935x\937LD\934\957\932"))))),PVar "\969",LazyPat NilPat] (If (Rec [] (FieldMod "\948\951Q\958o")) (Constr "\929\&6") (Var "\953\&7"))) [])) [],Generator (BindGen (PVar "\969") (FieldExtr "wP\945Dan\929\914u")) [MatchGuard (LazyPat (ConsPat (LazyPat (PVar "\947\950\&1")) (AtPat "i\955\&8N" (LazyPat (LazyPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\936\925VbN") Wildcard) (ConstrPat "Rk\954")) (PVar "yY_A")) (LazyPat Wildcard))))))) (Rec [Generator (BindGen (FatCommaPat (FatCommaPat Wildcard Wildcard) Wildcard) (FieldSet "dK\956")) [LetGuard (FatCommaPat (PVar "\961") (ConsPat NilPat (AtPat "\965T" NilPat))) (Rec [Generator (RunGen (Case (SetLit []) [])) [MatchGuard (FatCommaPat (AppPat (ConstrPat "X") (PVar "c")) (AppPat (ConstrPat "\932RE8") (AtPat "v" (ConstrPat "\916s")))) (FieldMod "\947jZ"),BoolGuard (SetLit [For [] (FieldMod "jXt9")])]] (Lambda [ConsPat (PVar "xfa") (AppPat (AppPat (AppPat (ConstrPat "FG6z\934\925") (PVar "qD")) (LazyPat NilPat)) NilPat),ConsPat (ConsPat (LazyPat NilPat) (StrictPat NilPat)) (FieldPat "\949\919PM" Wildcard (AtPat "k" (PVar "\963\917\918"))),AtPat "\960\&4x" (StrictPat (ConsPat (FieldPat "xh\921\954" (PVar "\962") (ConstrPat "EPt")) (ConsPat NilPat (StrictPat (ConstrPat "Zo8"))))),NilPat] (Constr "ET\954d\951p\952"))),BoolGuard (Constr "\914\951\&7\959"),MatchGuard (PVar "\947mnr") (ListCompr (SetLit [FieldMod "b\962MD\965\&7",Var "\951",Var "\964"]) [Generator (RunGen (Rec [Generator (RunGen (FieldSet "\956\&1")) []] (ListLit [FieldSet "\945"]))) [MatchGuard (LazyPat NilPat) (SetCompr (FieldSet "\951A") []),LetGuard (AppPat (ConstrPat "\925\&1K\950") NilPat) (If (ListLit [Var "hg"]) (FieldExtr "\948") (ListLit [])),BoolGuard (FieldSet "c8Gf")]]),BoolGuard (ListLit [Var "gD",Var "yU1",Var "\950\927w",FieldMod "\963\956"]),MatchGuard (LazyPat (PVar "qD")) (Operator (Constr "H\936L\946") (8,RightAssoc) "^" (Constr "T\932\920")),MatchGuard (AtPat "v" (FieldPat "\955\&3" Wildcard (LazyPat NilPat))) (Var "\952J")]] (FieldSet "\964\926\&0np7A3\914")),BoolGuard (ListCompr (Constr "\927") [Generator (BindGen (ConsPat NilPat Wildcard) (ListLit [Var "f",Constr "GCgi\927",FieldSet "\956",SetLit []])) [MatchGuard NilPat (SetLit [Operator (FieldMod "r") (3,RightAssoc) "\8743" (Constr "\937"),If (ListLit []) (Constr "\927\958\945") (SetLit [])]),BoolGuard (SetCompr (For [] (SetLit [FieldExtr "lNX"])) [Generator (BindGen (ConsPat Wildcard NilPat) (ListCompr (Var "vp\956") [])) [BoolGuard (Lambda [StrictPat (LazyPat Wildcard),FatCommaPat (AtPat "paai" NilPat) NilPat,NilPat,LazyPat Wildcard] (Var "iE\953\950"))]]),MatchGuard (AppPat (ConstrPat "\913") (LazyPat (FatCommaPat (StrictPat (ConsPat (AppPat (ConstrPat "\935o\918gnB") (StrictPat (PVar "\953o\967\933"))) (PVar "uk\949zOr\927\926"))) (LazyPat (StrictPat (AppPat (ConstrPat "U") (ConstrPat "O\916WP\966o"))))))) (SetCompr (ListLit [Constr "\936\956\954g",FieldSet "\967"]) []),MatchGuard (FatCommaPat NilPat (FatCommaPat (AppPat (ConstrPat "L") (StrictPat Wildcard)) (AppPat (ConstrPat "\913") (AtPat "\961\919\927\949" (PVar "\956\969"))))) (Constr "H"),MatchGuard (LazyPat (PVar "\947S\926\&7\947f\954")) (Operator (App (FieldSet "\962f") (FieldSet "\945\914")) (5,RightAssoc) ":" (ListLit [ListLit [FieldExtr "c3\964\932i"],Constr "\932vRU",FieldExtr "\947"]))],Generator (LetGen (ConsPat (AtPat "\959wb" Wildcard) (LazyPat (FatCommaPat (AppPat (ConstrPat "I\964\953\965\949P") (PVar "_\951\957")) NilPat))) (Rec [] (SetLit [Var "\968",FieldSet "\968vu\924\966",SetLit []]))) [LetGuard (ConsPat (LazyPat (LazyPat (StrictPat NilPat))) (LazyPat (StrictPat (PVar "r\916y")))) (Operator (For [] (Var "\957l")) (7,LeftAssoc) "%" (Var "n")),MatchGuard NilPat (ListLit []),MatchGuard (FatCommaPat NilPat Wildcard) (Var "\951oc\952"),BoolGuard (Operator (Constr "\929cJB\918r3\929") (3,RightAssoc) "\8743" (ListCompr (Constr "O99\965\954\921dt") [])),MatchGuard (ConsPat (AppPat (AppPat (AppPat (ConstrPat "Cy\947") Wildcard) (AtPat "pJ" (ConstrPat "\933"))) (LazyPat NilPat)) NilPat) (SetCompr (Var "\963") [Generator (RunGen (FieldSet "l\961")) [],Generator (TraverseGen (AppPat (AppPat (ConstrPat "\918W\951w") (StrictPat Wildcard)) (LazyPat Wildcard)) (SetCompr (FieldMod "\958\928") [Generator (MatchGen (StrictPat (ConstrPat "\920")) (FieldMod "\958\920")) []])) [MatchGuard (FieldPat "\961" (PVar "a9w") (ConstrPat "\919ZN\967")) (SetCompr (FieldMod "jm8B") []),LetGuard (FieldPat "m\915\913\963" (AtPat "\959" (ConstrPat "\915\935\923\955")) (AppPat (ConstrPat "GbtB") (StrictPat NilPat))) (If (Constr "M\928uo") (FieldSet "k\950\&9P") (Var "\962\964p\919"))],Generator (BindGen Wildcard (FieldMod "\967Il\962")) [BoolGuard (Rec [Generator (LetGen (AtPat "gE" (ConstrPat "\929")) (ListLit [])) [BoolGuard (ListLit [])]] (Var "kEOV"))]])],Generator (MatchGen (AtPat "\945" (AtPat "\952\933\946\&6" (FatCommaPat (StrictPat (StrictPat (ConstrPat "Q"))) (AppPat (ConstrPat "\928T") (LazyPat NilPat))))) (Var "t")) [LetGuard (FatCommaPat (PVar "\953") (StrictPat (FieldPat "j" (LazyPat NilPat) Wildcard))) (Rec [Generator (MatchGen (AtPat "\951K" NilPat) (Lambda [ConstrPat "\916\925\922"] (FieldExtr "\946kw4"))) [MatchGuard (StrictPat Wildcard) (Case (FieldSet "\962_rk") [])]] (SetLit [SetLit [FieldExtr "dE\962t\917"],FieldMod "_\952",FieldExtr "\965BEr\946\916\914A"])),MatchGuard (LazyPat Wildcard) (FieldExtr "o\948"),BoolGuard (SetLit [SetCompr (Operator (Constr "\923f\926n") (6,LeftAssoc) "-" (FieldSet "\961")) [Generator (MatchGen (PVar "\965\925\918") (If (Var "u\932\927A") (FieldMod "x") (FieldMod "\962"))) [LetGuard (LazyPat (LazyPat NilPat)) (FieldMod "\946"),LetGuard (AtPat "\964" (AtPat "y" (StrictPat (ConstrPat "A\949Kt")))) (Rec [] (FieldSet "d"))],Generator (BindGen (FieldPat "\956b" (StrictPat (ConstrPat "\913sd")) NilPat) (ListLit [ListLit [],ListLit [Constr "T\929\&1"],Var "n"])) []]]),LetGuard (FatCommaPat (LazyPat (ConsPat NilPat NilPat)) (PVar "aBI")) (Rec [Generator (BindGen (FieldPat "\945c" Wildcard (AppPat (ConstrPat "M") NilPat)) (Case (ListLit []) [(StrictPat (ConstrPat "\914"),Constr "E")])) [BoolGuard (For [Generator (BindGen (AtPat "bo" (PVar "\964\&0")) (Var "\960r")) []] (Var "iF")),MatchGuard NilPat (FieldMod "\952\923\959")],Generator (TraverseGen (ConsPat (AtPat "\957X\963\&5" (ConstrPat "J3K\918")) (LazyPat (PVar "ynH"))) (Case (FieldSet "k\962\956X") [])) [MatchGuard (FatCommaPat (AtPat "oZ" NilPat) Wildcard) (Constr "VM\946\955"),MatchGuard Wildcard (ListLit [ListLit [SetLit [FieldMod "v"]],Var "b"]),MatchGuard (FatCommaPat (LazyPat NilPat) (AppPat (ConstrPat "FW\927") (StrictPat (ConstrPat "\917R0\915")))) (Rec [Generator (RunGen (FieldExtr "\953")) [LetGuard (AppPat (ConstrPat "\929") (StrictPat NilPat)) (ListLit [Var "w\956"])]] (Var "\954\&6"))],Generator (BindGen Wildcard (Lambda [PVar "\961",Wildcard,Wildcard] (App (FieldExtr "\946") (ListLit [])))) []] (ListLit [Constr "C",Var "t\917"]))],Generator (MatchGen (ConsPat NilPat (FieldPat "pk\936" (StrictPat Wildcard) (ConstrPat "\931"))) (SetCompr (If (SetLit []) (FieldSet "j\967") (FieldExtr "p_it\957\945\969")) [Generator (MatchGen (LazyPat (FatCommaPat (StrictPat NilPat) (StrictPat (ConstrPat "\923\923")))) (For [Generator (TraverseGen NilPat (Constr "C\959")) []] (ListLit []))) [BoolGuard (SetCompr (SetLit []) []),MatchGuard NilPat (For [] (SetLit [SetLit [SetLit []]])),BoolGuard (Operator (Constr "GK") (7,LeftAssoc) "*" (SetLit []))],Generator (BindGen (LazyPat (FatCommaPat (LazyPat (ConstrPat "W\952va")) NilPat)) (Var "\964")) [MatchGuard (ConsPat (PVar "s") (ConstrPat "X")) (If (FieldExtr "\950vM\955") (Constr "\927\920\&5\925") (SetLit []))],Generator (RunGen (If (FieldSet "guC") (SetLit []) (Constr "EdK\932"))) [BoolGuard (Case (Constr "I\927\&6") [(LazyPat NilPat,Constr "Mc")]),MatchGuard (AtPat "wI" Wildcard) (App (SetLit []) (Constr "\919\913X")),MatchGuard (FieldPat "\955u\915\961" (ConstrPat "G\919") NilPat) (App (Var "\965uzy") (FieldSet "\965p\920"))]])) [LetGuard (LazyPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\928j\932a\969\946qu") (LazyPat (PVar "pH3"))) Wildcard) Wildcard) (AtPat "\969" (PVar "\969\960\947"))) (LazyPat (ConstrPat "\913G")))) (Case (ListCompr (FieldSet "\955\965") []) [(Wildcard,Case (FieldSet "\945") [])]),BoolGuard (If (FieldSet "\948") (FieldMod "\952\959l2") (App (SetLit []) (Var "v\929\962\&6\914\950"))),LetGuard (FatCommaPat (PVar "d\962eL\959") (FatCommaPat Wildcard (AtPat "_\934w" (PVar "\966")))) (Case (Rec [Generator (RunGen (FieldSet "\952\924")) [BoolGuard (Var "\965")]] (FieldMod "t")) [(NilPat,ListLit [SetLit [ListLit []],SetLit [ListLit [Constr "On"]]]),(ConsPat (ConstrPat "\929\958UG") NilPat,Rec [] (FieldSet "\969\946\963"))])],Generator (LetGen (AppPat (AppPat (AppPat (AppPat (ConstrPat "E") Wildcard) (PVar "\949\&5")) (AppPat (ConstrPat "E") (PVar "\954\964\931\&0v\963y\932"))) (StrictPat (ConstrPat "P\952\956"))) (FieldMod "\958\924\918\&6qX0")) [MatchGuard (PVar "n\952") (Operator (Var "\964U\917") (4,NoAssoc) "\8801" (If (FieldMod "r") (Var "\950TV") (SetLit [])))]]),LetGuard (StrictPat (AtPat "\961" (PVar "a\918"))) (For [Generator (MatchGen (FieldPat "m\963" (ConsPat (ConstrPat "Z") NilPat) (StrictPat Wildcard)) (App (ListCompr (Constr "\935\965") [Generator (MatchGen NilPat (FieldSet "cL")) [MatchGuard Wildcard (FieldSet "h")]]) (Operator (FieldExtr "uc") (5,RightAssoc) ":" (Var "j\955\918")))) [LetGuard (AppPat (AppPat (AppPat (ConstrPat "\926K\954\926") (ConstrPat "\913C8l\951I\926\963")) (AtPat "z" (StrictPat (PVar "\947Z")))) (AtPat "\958" Wildcard)) (Lambda [LazyPat (ConsPat NilPat (AppPat (AppPat (AppPat (ConstrPat "D\915") (PVar "h")) (AtPat "s\962" (ConstrPat "Ggw"))) (PVar "\956"))),ConsPat (ConsPat (PVar "\950j\966") Wildcard) (StrictPat Wildcard),AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "GV\952") (PVar "\962iI\927O")) (StrictPat Wildcard)) (PVar "u")) (AtPat "b" NilPat)) NilPat) (AppPat (ConstrPat "K\921\967\953\915a2S") Wildcard)) (AtPat "\969" (ConstrPat "\915PV")),AtPat "\946" (AtPat "\954M63" (LazyPat (FatCommaPat (ConsPat NilPat (ConstrPat "\933\947Uz\956N\950")) NilPat))),ConsPat (LazyPat (StrictPat (ConstrPat "\935sD"))) (AppPat (ConstrPat "RIR\934IzR\934") (PVar "vfD\932")),LazyPat (FieldPat "\967B4A" (AtPat "y" Wildcard) (AppPat (AppPat (ConstrPat "I") (StrictPat (ConstrPat "\926\945Jl\936\933\946\915"))) (StrictPat (ConstrPat "\915")))),Wildcard,PVar "j\922\&5O\964"] (Operator (Var "\951Te") (8,RightAssoc) "^" (ListCompr (FieldMod "eb") [Generator (MatchGen (LazyPat (PVar "\961\932")) (ListLit [])) [LetGuard (PVar "u") (ListLit [Var "j"])]])))],Generator (BindGen Wildcard (Lambda [StrictPat Wildcard,Wildcard,ConsPat Wildcard Wildcard,PVar "b\945",FatCommaPat Wildcard (LazyPat (AtPat "\952tAk" (AtPat "t" NilPat))),FieldPat "jZ_k4\964Th" (StrictPat (ConsPat (LazyPat NilPat) (LazyPat Wildcard))) (AppPat (ConstrPat "\925") (StrictPat (ConsPat (PVar "\949\&6H") NilPat)))] (App (FieldSet "\954\936\950") (Var "\962")))) [LetGuard (LazyPat NilPat) (Lambda [FatCommaPat (AtPat "\959\969n\946\916" (StrictPat (AppPat (ConstrPat "\918aT\953\914") (AppPat (ConstrPat "I\946\&8") NilPat)))) (ConsPat NilPat (StrictPat (PVar "\969"))),NilPat] (Lambda [LazyPat (ConsPat (ConstrPat "\932\929tf") (AtPat "clOMDi" (FieldPat "\960\921U\964\946xBA" NilPat (LazyPat Wildcard)))),PVar "\963d\961",FatCommaPat (FatCommaPat (LazyPat (PVar "\949")) Wildcard) (AppPat (ConstrPat "Q5Va") (AtPat "w" (AtPat "\969\&0o" NilPat))),NilPat,AtPat "\961\964\967\925" (ConsPat (ConsPat (LazyPat (PVar "q\952")) (StrictPat (ConstrPat "Uk\957ES\967\966"))) (PVar "j"))] (SetLit [FieldSet "w"]))),BoolGuard (Rec [Generator (LetGen (AppPat (AppPat (ConstrPat "Dt\948\&5") (StrictPat (PVar "\968\&5A\929"))) (PVar "th8K")) (If (ListLit [FieldMod "\948"]) (FieldMod "r6o\958") (ListLit []))) [LetGuard (LazyPat Wildcard) (For [] (FieldMod "z")),BoolGuard (Case (Constr "\914") [])],Generator (BindGen Wildcard (FieldMod "\947")) [BoolGuard (Constr "Z")]] (FieldExtr "tiPc\937\&9")),MatchGuard (FieldPat "f\967\966oX" (StrictPat (StrictPat Wildcard)) (FatCommaPat Wildcard (PVar "v\922"))) (Operator (SetLit [FieldExtr "p\965C",Var "mh\923c7"]) (6,LeftAssoc) "-" (Constr "Hx\913j")),MatchGuard (FatCommaPat NilPat (LazyPat (FatCommaPat NilPat (ConstrPat "O8jRVL")))) (If (Lambda [StrictPat (FatCommaPat NilPat (StrictPat NilPat))] (ListLit [])) (FieldSet "\956CZ") (App (Var "hy") (SetLit [])))],Generator (TraverseGen (StrictPat Wildcard) (Lambda [AtPat "\945\920F" Wildcard,ConsPat (LazyPat (FatCommaPat NilPat (StrictPat (ConstrPat "\913\952\923")))) (AtPat "i6xUza" (AppPat (ConstrPat "\922\955q\913") (FieldPat "\950" Wildcard (LazyPat Wildcard)))),PVar "u",LazyPat NilPat,NilPat,StrictPat (FieldPat "\950" (FatCommaPat NilPat (StrictPat NilPat)) NilPat),ConsPat (StrictPat (FatCommaPat (AtPat "\959\934c" (ConstrPat "\925AjR")) (LazyPat (PVar "\966\936E\952")))) (AtPat "\945\947\924\959\927xoe" Wildcard),AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\923fc") (StrictPat (PVar "\958Mx"))) (AppPat (ConstrPat "\927") (LazyPat (PVar "zdJ")))) (AtPat "\967" (ConstrPat "I\966\916"))) (PVar "z5")) Wildcard) (StrictPat (ConstrPat "I"))) NilPat] (FieldMod "\956\960f\964\935\&6\964"))) [MatchGuard Wildcard (App (App (SetLit []) (FieldExtr "x\958")) (FieldSet "\958\963")),MatchGuard (AtPat "q" (FatCommaPat (PVar "\945") (StrictPat (LazyPat (LazyPat NilPat))))) (Operator (Constr "O") (8,RightAssoc) "**" (Constr "\913\961Y")),MatchGuard (FatCommaPat NilPat (FieldPat "z" (PVar "w") (AtPat "\968\957\945G" (ConstrPat "C\919\932L")))) (ListCompr (For [Generator (RunGen (SetLit [])) []] (FieldExtr "_Yy7ebe\926")) [Generator (BindGen (StrictPat (LazyPat Wildcard)) (SetLit [FieldExtr "\947k",ListLit []])) [BoolGuard (Var "\966"),MatchGuard (FatCommaPat (PVar "l\932") (LazyPat Wildcard)) (ListCompr (FieldSet "u\919SY") [])],Generator (TraverseGen (FieldPat "j9\933V" (PVar "\953BUV") (StrictPat (PVar "tZ"))) (FieldMod "\967\964ET")) [LetGuard (FatCommaPat (PVar "ip") (LazyPat (ConstrPat "P57\967"))) (App (SetLit [Constr "\913\969\&1"]) (FieldSet "\955_Bz")),LetGuard (ConsPat (PVar "lh\928\&0") (StrictPat NilPat)) (ListLit []),LetGuard NilPat (SetLit [])],Generator (MatchGen Wildcard (Case (Constr "WYw\919") [])) []]),BoolGuard (ListLit [FieldMod "\959C\967y\958y",Var "w\946\&4",FieldSet "\947qqq\966\924d",FieldExtr "eG\933",Constr "\937V\950a\921",FieldExtr "s",Constr "\935\919X\955"])],Generator (BindGen (ConsPat (FieldPat "\959\955" NilPat (ConstrPat "\926lwsE0Oj")) (FatCommaPat (PVar "mf\933") (AppPat (ConstrPat "UEt\922\&9\946Vc") (AppPat (ConstrPat "G0\914UG") (LazyPat Wildcard))))) (Lambda [StrictPat (LazyPat (ConsPat (PVar "g") (FieldPat "z" NilPat Wildcard))),PVar "\967",LazyPat (FieldPat "d\958\946\922\933V" Wildcard (LazyPat (LazyPat NilPat))),StrictPat NilPat,AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "C") (StrictPat (ConstrPat "LIxf1\947"))) (ConstrPat "H\952\961\967\963\&7")) NilPat) NilPat) NilPat) NilPat) (ConstrPat "\915\962\916"),Wildcard,NilPat,StrictPat Wildcard] (Rec [] (FieldExtr "b")))) [MatchGuard NilPat (For [Generator (TraverseGen (AtPat "\956B" (AtPat "\946" (AppPat (ConstrPat "\933\949\957\934") (AppPat (ConstrPat "F\952\956Y") (LazyPat NilPat))))) (ListLit [Var "\945m1",Var "j\959\918\&7",ListLit []])) [LetGuard (AtPat "p91" (AppPat (AppPat (ConstrPat "Vy\923\935") NilPat) Wildcard)) (Operator (FieldMod "d") (8,RightAssoc) "^" (Constr "T\948\&2")),MatchGuard (ConsPat (PVar "\960\932\936K") (AtPat "\951\961\958" (PVar "\952\960u"))) (ListLit [Var "mo"]),MatchGuard NilPat (Var "u\931x8")],Generator (LetGen (AppPat (ConstrPat "Zb\945Y") Wildcard) (SetLit [FieldSet "y\929iw",FieldMod "e",FieldMod "a"])) [BoolGuard (SetCompr (FieldSet "v") [Generator (TraverseGen (StrictPat (PVar "d")) (Constr "R")) [LetGuard (AtPat "\946\945" Wildcard) (Var "ii")]])],Generator (LetGen NilPat (SetLit [Constr "V\914\948"])) [MatchGuard (StrictPat (AtPat "_\931U" (LazyPat (ConstrPat "\927")))) (App (FieldExtr "y\919") (FieldSet "m\934rx")),LetGuard NilPat (SetLit []),BoolGuard (FieldSet "\961dI\955")]] (Case (FieldExtr "d") [])),MatchGuard (LazyPat (PVar "o")) (Operator (FieldSet "i") (4,NoAssoc) "\8800" (SetCompr (FieldMod "c") [])),BoolGuard (Constr "VW\936vPOX\934"),MatchGuard (FatCommaPat (FieldPat "\966\917" (AtPat "l_" NilPat) NilPat) (PVar "\968\925\935")) (App (Rec [] (Var "i\931\961K")) (SetCompr (Constr "\916") [])),LetGuard (FatCommaPat (ConsPat (PVar "dG") Wildcard) (StrictPat (PVar "c"))) (FieldSet "ox")],Generator (LetGen (PVar "\965\915") (SetCompr (For [Generator (LetGen NilPat (ListLit [])) []] (FieldExtr "v")) [Generator (LetGen Wildcard (If (FieldMod "\968") (SetLit [Constr "MZ\967\966"]) (FieldExtr "x"))) [],Generator (TraverseGen NilPat (App (FieldMod "o") (SetLit []))) [LetGuard (FatCommaPat (LazyPat NilPat) NilPat) (FieldSet "\955\937\969"),LetGuard (ConsPat (PVar "\951\&9X2") NilPat) (Constr "Wf\927")],Generator (MatchGen (LazyPat NilPat) (Lambda [FieldPat "o" (PVar "o") Wildcard,FatCommaPat (StrictPat Wildcard) (AppPat (ConstrPat "Y") (StrictPat Wildcard))] (ListCompr (FieldExtr "h") [Generator (RunGen (FieldMod "\947\968")) []]))) [BoolGuard (ListLit [Constr "\934\&9",FieldMod "\945",Constr "Op\922\961"]),LetGuard (FieldPat "\958xGR" Wildcard (PVar "a\936\963")) (FieldSet "w")]])) [MatchGuard (LazyPat (ConsPat (LazyPat (PVar "j")) (FieldPat "uV\922\960\925\&3_\923" (PVar "cOY\920\958") (PVar "ek\934")))) (For [Generator (RunGen (SetCompr (ListLit [ListLit [ListLit [FieldExtr "\963u\921k"]]]) [Generator (RunGen (Var "\966a")) []])) [LetGuard NilPat (If (FieldExtr "\957o") (Constr "\931\949\&8\952") (SetLit [])),MatchGuard (StrictPat (StrictPat (LazyPat Wildcard))) (Case (FieldMod "t") [(AppPat (ConstrPat "\926\924") (StrictPat (ConstrPat "Tk")),Constr "M")])],Generator (TraverseGen (FatCommaPat (AppPat (ConstrPat "\921u\956\916") (LazyPat NilPat)) (AtPat "d\924\967c" Wildcard)) (FieldMod "\969\964N\953")) [LetGuard (LazyPat (FieldPat "v\965\919" (AtPat "\963M" (PVar "w1\948j")) Wildcard)) (FieldExtr "\961noU"),BoolGuard (Case (FieldSet "\963") [])]] (For [Generator (RunGen (FieldExtr "\959\954")) []] (Var "z"))),BoolGuard (FieldMod "ptqw\965W6"),MatchGuard NilPat (If (Constr "\937\956q") (SetLit []) (FieldMod "\961\935")),MatchGuard (FieldPat "\966\963c" (PVar "\956\&7_\945J3\951k") NilPat) (FieldMod "sJ"),LetGuard (PVar "\950_P\963") (Case (Var "lmJ\955\952") [])]] (SetCompr (App (Var "j\954") (FieldExtr "av\947XxM\931")) [Generator (LetGen (FieldPat "\951" (PVar "\947dF") Wildcard) (ListLit [FieldExtr "\953",ListLit [Var "r"]])) [MatchGuard Wildcard (SetLit []),LetGuard (AtPat "eE" (FieldPat "ip" (ConstrPat "R\949\964") (StrictPat (PVar "\950E")))) (SetLit []),LetGuard (LazyPat (FieldPat "iUY\952" NilPat (ConstrPat "\913"))) (Lambda [Wildcard,StrictPat (ConsPat Wildcard Wildcard),ConsPat (AtPat "\965" NilPat) NilPat] (FieldMod "\950\962\956"))]])),MatchGuard (ConsPat (FatCommaPat (PVar "\949") (FatCommaPat (StrictPat (ConstrPat "V")) NilPat)) (ConsPat Wildcard (AtPat "\955\965" Wildcard))) (If (ListCompr (App (FieldSet "\962") (SetLit [FieldExtr "l"])) [Generator (BindGen (AtPat "\945\921" (StrictPat NilPat)) (Constr "\918UA")) [MatchGuard (LazyPat Wildcard) (Constr "X\917"),MatchGuard Wildcard (FieldMod "n\917\949")],Generator (TraverseGen NilPat (Var "w")) [LetGuard (PVar "j") (SetCompr (FieldMod "\952\&2") [Generator (MatchGen (LazyPat (PVar "uE")) (ListLit [])) [MatchGuard (LazyPat NilPat) (ListLit [ListLit [FieldExtr "\960U"]])]]),BoolGuard (Constr "\929")]]) (Case (App (Var "\948\967w") (FieldMod "\951\927")) [(Wildcard,App (SetLit [FieldExtr "l\959k"]) (SetLit [FieldSet "\968\946"]))]) (App (Operator (FieldExtr "o\935\&3\945\916") (7,LeftAssoc) "/" (Constr "Z")) (Var "\961e\966\960Og"))),LetGuard (FieldPat "w\915\958u1qP\965j\966iecV2\932" (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\915") Wildcard) Wildcard) (PVar "k9")) (ConstrPat "Kp")) (PVar "cd")) (PVar "a")) (FieldPat "\948at" (AtPat "\954" (AppPat (AppPat (ConstrPat "B9") (LazyPat NilPat)) (ConstrPat "B\955"))) (StrictPat (LazyPat (LazyPat (PVar "\958\&1\945")))))) (ListCompr (Operator (FieldSet "\962\&8\966v\915X\967") (8,RightAssoc) "**" (Operator (FieldMod "yK") (3,RightAssoc) "\8743" (FieldMod "y"))) [Generator (MatchGen (FatCommaPat Wildcard (FieldPat "c" (PVar "\968") Wildcard)) (SetLit [])) [BoolGuard (Rec [Generator (BindGen (FieldPat "f" (LazyPat (PVar "s\919\917\953")) NilPat) (For [Generator (LetGen Wildcard (FieldMod "\951h")) []] (Constr "\921\918"))) [LetGuard (StrictPat (FatCommaPat (StrictPat NilPat) (LazyPat NilPat))) (Constr "IP4\948"),MatchGuard (StrictPat Wildcard) (Rec [] (FieldMod "a\963\948\969")),LetGuard NilPat (Case (SetLit [Var "\969e\945"]) [(AppPat (ConstrPat "MU") (StrictPat (PVar "\968j")),Constr "\937y")])],Generator (RunGen (Rec [] (SetLit []))) [LetGuard Wildcard (SetLit [SetLit [Var "j\948"],SetLit [FieldMod "\963\953"],Var "\968"]),LetGuard (FieldPat "\957" (ConstrPat "\923\959\947l") (AtPat "\956\950_" (PVar "\945"))) (FieldMod "\961j\925i")]] (FieldExtr "y\965")),MatchGuard (AtPat "i5" (LazyPat Wildcard)) (SetCompr (SetCompr (ListLit [Var "\951w"]) []) [Generator (MatchGen (PVar "\954") (SetLit [])) [BoolGuard (SetCompr (FieldSet "\960\&9") []),MatchGuard (FatCommaPat Wildcard Wildcard) (Lambda [Wildcard] (SetCompr (FieldSet "\967J") [Generator (RunGen (SetLit [])) [BoolGuard (FieldSet "\949B")]])),LetGuard Wildcard (Constr "N2xD")],Generator (TraverseGen (AppPat (ConstrPat "\920") (StrictPat (FieldPat "\964\949" NilPat (PVar "\958GcV")))) (Case (Constr "\922\923\966g") [])) [LetGuard (AppPat (ConstrPat "B") (AppPat (ConstrPat "\927b\946") NilPat)) (SetCompr (FieldExtr "qd\958\937") [Generator (TraverseGen (StrictPat (PVar "\958\957")) (FieldSet "u\949")) []]),LetGuard (FatCommaPat (PVar "y") (StrictPat NilPat)) (SetCompr (FieldSet "\946\934L\956") [Generator (BindGen (ConstrPat "OO") (SetLit [FieldMod "x"])) [LetGuard (PVar "\951") (ListLit [])]]),MatchGuard (StrictPat (FatCommaPat (StrictPat Wildcard) (LazyPat (PVar "\953")))) (FieldMod "\958\951Mc")],Generator (RunGen (For [Generator (TraverseGen NilPat (Var "\947")) [MatchGuard (AtPat "lK" (PVar "h\969")) (ListLit [Constr "\937Z"])]] (FieldExtr "p3\956\948"))) [BoolGuard (ListCompr (SetLit []) [Generator (RunGen (Constr "\926")) [LetGuard NilPat (Constr "\929r")]]),MatchGuard NilPat (Lambda [AppPat (AppPat (AppPat (ConstrPat "L\925\946") NilPat) (LazyPat Wildcard)) (StrictPat NilPat),FieldPat "d6C" (PVar "q") (ConstrPat "\931\916xB")] (ListLit [Operator (ListLit [FieldExtr "r"]) (5,RightAssoc) "\8658" (FieldSet "k\926\924")]))]])],Generator (TraverseGen (FieldPat "nD\969\959\936\915l\965" (ConstrPat "\936\&1\968\915\946") (FieldPat "m\964R" NilPat (StrictPat (ConstrPat "\914")))) (Var "b\936")) [BoolGuard (For [] (SetCompr (FieldExtr "n") [Generator (LetGen (StrictPat NilPat) (FieldMod "\945P")) []])),BoolGuard (SetCompr (App (FieldMod "c") (SetLit [Var "c\936z"])) [Generator (MatchGen (AtPat "a" NilPat) (Case (FieldSet "io") [])) [],Generator (BindGen (FatCommaPat (PVar "r") (AtPat "r" NilPat)) (For [Generator (MatchGen Wildcard (ListLit [])) []] (FieldSet "euy"))) [],Generator (LetGen NilPat (ListCompr (SetLit []) [Generator (BindGen (StrictPat NilPat) (FieldMod "dx")) [LetGuard NilPat (ListLit [FieldExtr "\950\937"])]])) []]),MatchGuard (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "H") Wildcard) Wildcard) (ConstrPat "\915n9f\932x")) (PVar "\945")) (StrictPat NilPat)) (PVar "\954\&93")) (LazyPat Wildcard)) (FieldMod "\961"),MatchGuard (ConsPat Wildcard (FatCommaPat Wildcard (LazyPat (ConstrPat "O2")))) (FieldMod "\963")],Generator (MatchGen (AppPat (AppPat (AppPat (ConstrPat "O\962") Wildcard) NilPat) (StrictPat Wildcard)) (SetCompr (Rec [Generator (LetGen (LazyPat (ConstrPat "\936")) (ListLit [])) []] (Constr "\934pX")) [Generator (LetGen Wildcard (Operator (FieldExtr "\967\&3G") (5,RightAssoc) "\8658" (FieldMod "a\915A\934"))) [BoolGuard (Constr "\932"),BoolGuard (FieldMod "c"),MatchGuard (LazyPat (AtPat "zhb\923" Wildcard)) (ListLit [])],Generator (TraverseGen (FatCommaPat NilPat Wildcard) (FieldExtr "\952jt")) [MatchGuard (StrictPat (FieldPat "z" (AppPat (ConstrPat "TK") (AppPat (ConstrPat "Q\967\954\966") (AtPat "\968\968j\967" Wildcard))) (PVar "\964"))) (Operator (FieldExtr "\949") (5,RightAssoc) ":" (SetLit [])),MatchGuard (AppPat (AppPat (ConstrPat "Ln\931") NilPat) (PVar "w")) (Case (ListLit [Constr "\931\961T\935"]) [(PVar "\962",FieldExtr "\945")]),MatchGuard (AppPat (AppPat (ConstrPat "DZ6\925") (AtPat "\947\927\&1s" NilPat)) (ConstrPat "\920\961")) (For [] (Var "v\936"))],Generator (MatchGen (AppPat (ConstrPat "\919H") NilPat) (App (ListLit [FieldExtr "t"]) (ListLit [FieldMod "\959f\925"]))) []])) [BoolGuard (FieldExtr "kf\921U"),MatchGuard NilPat (Lambda [ConsPat Wildcard (FieldPat "\956D7" (LazyPat NilPat) (StrictPat NilPat)),ConsPat Wildcard Wildcard,Wildcard,FieldPat "\957l\929\&5" (ConsPat NilPat (LazyPat Wildcard)) NilPat,LazyPat (AtPat "y" (FieldPat "\948" (AtPat "\965\956\&7" (LazyPat NilPat)) (FatCommaPat Wildcard NilPat))),FatCommaPat (AppPat (AppPat (AppPat (ConstrPat "YisA7y\965q") (StrictPat (ConstrPat "H"))) (StrictPat (PVar "qu\933L"))) (StrictPat Wildcard)) (FatCommaPat (ConstrPat "\936v") Wildcard),FatCommaPat (ConsPat (PVar "\947\921") (AppPat (ConstrPat "\920\&5") (StrictPat Wildcard))) Wildcard] (ListCompr (If (Var "\949") (FieldMod "w") (Constr "\924")) [Generator (MatchGen (ConsPat Wildcard (AppPat (ConstrPat "\937") (AtPat "\969s\952\931" NilPat))) (If (ListLit []) (FieldMod "\956\915\969") (Var "z_\957\950"))) [LetGuard (PVar "\954") (FieldExtr "r"),LetGuard (PVar "\954O\934") (ListLit [FieldSet "yJ2\951",ListLit [],SetLit []]),MatchGuard Wildcard (SetLit [SetLit [],FieldExtr "f\948"])]]))],Generator (TraverseGen (PVar "l\961U") (ListLit [Constr "MIP",Var "x",Var "t6",SetLit [Var "\946\929j\925"]])) [LetGuard (FatCommaPat (AtPat "pS" (PVar "gn\945")) (LazyPat (FieldPat "\961w" (AppPat (ConstrPat "WC") (PVar "iB8")) NilPat))) (SetCompr (Case (FieldMod "\962l") []) [Generator (TraverseGen (StrictPat Wildcard) (ListLit [Var "g"])) [MatchGuard (StrictPat (AppPat (ConstrPat "\925t") (FatCommaPat (StrictPat (PVar "\955V")) (AtPat "\963Kd" (ConstrPat "H\932\969n"))))) (Case (FieldExtr "\945W\927O") []),MatchGuard (LazyPat (AppPat (ConstrPat "\935mG") (AtPat "gPj" (LazyPat (ConstrPat "H"))))) (SetLit [])],Generator (LetGen (FatCommaPat NilPat (StrictPat (PVar "\949"))) (ListCompr (SetLit [FieldExtr "n\914\969\923"]) [])) [MatchGuard (LazyPat (StrictPat (AppPat (ConstrPat "\935q") Wildcard))) (If (FieldSet "\949") (Constr "\923") (SetLit [SetLit []])),MatchGuard (ConsPat (StrictPat Wildcard) (PVar "\948")) (For [] (FieldExtr "lx70"))]]),MatchGuard (LazyPat (AtPat "l" (AtPat "\962uq" (FatCommaPat (ConsPat Wildcard (PVar "\951")) (AtPat "\950" (PVar "l\954i")))))) (Case (For [] (Var "v\968\935f")) [(PVar "vx",ListLit [Var "y\937o",Var "j\936a"]),(ConsPat Wildcard (LazyPat NilPat),Rec [Generator (BindGen (PVar "\948") (Constr "V")) [LetGuard NilPat (Var "\964e")]] (Var "\963")),(LazyPat Wildcard,If (Constr "A") (Constr "BJ") (FieldExtr "\957"))]),LetGuard NilPat (Lambda [NilPat,PVar "\957u",AtPat "\946y" (PVar "x"),AppPat (AppPat (ConstrPat "Q\913ud") Wildcard) (FieldPat "\954" (AppPat (ConstrPat "IbmL") (PVar "\958\921\945\935\948qh")) (PVar "\956_\918"))] (Var "x")),LetGuard (PVar "\956\934\948\&7\966") (Operator (SetCompr (FieldExtr "\965") [Generator (RunGen (FieldSet "\957")) [MatchGuard (LazyPat (PVar "\953\&9")) (FieldExtr "j")]]) (2,RightAssoc) "\8744" (For [Generator (LetGen (LazyPat NilPat) (SetLit [Constr "\935\959"])) [BoolGuard (FieldSet "o")]] (Constr "\919C\932\924\917"))),LetGuard Wildcard (Operator (FieldMod "zq\919y") (4,NoAssoc) ">" (App (ListLit []) (FieldMod "\945\&2fg"))),MatchGuard (FatCommaPat (ConsPat (LazyPat (PVar "\946")) NilPat) (FieldPat "\952" (ConstrPat "OU\926v\913\946\927\924") (AtPat "sN9t" NilPat))) (App (FieldExtr "\968") (Operator (FieldExtr "x") (7,LeftAssoc) "*" (FieldExtr "_q")))],Generator (TraverseGen (PVar "\946gI_3ne\928") (Constr "\914\914")) [LetGuard (StrictPat (AppPat (ConstrPat "\918\961") (FatCommaPat (AtPat "nU\949\947" Wildcard) (FatCommaPat Wildcard (StrictPat NilPat))))) (FieldExtr "dhVi7u"),LetGuard Wildcard (App (Rec [Generator (MatchGen (StrictPat (ConstrPat "\933\962")) (FieldExtr "m\959")) []] (FieldSet "y")) (ListCompr (FieldSet "\962") [Generator (BindGen (ConstrPat "Qw") (Constr "\918l")) [BoolGuard (Constr "\934K")]])),LetGuard (PVar "c") (Var "b\955\952\935c\933\950h"),LetGuard (AppPat (AppPat (AppPat (ConstrPat "UXhrq") (LazyPat NilPat)) (FatCommaPat NilPat NilPat)) (AtPat "\961L" (ConstrPat "V\947\&3\946\932Ej\922"))) (ListLit [SetLit [],FieldSet "k",Var "\960",FieldMod "r\925xJ",SetLit [FieldExtr "\954\&8S"],Constr "K\966\948\&0x",SetLit [Constr "G"]]),MatchGuard Wildcard (ListLit [Var "f",Var "l",Constr "Y\964\937\919",ListLit []])]])],Generator (LetGen (StrictPat (PVar "\959")) (If (Constr "SI") (ListLit [Case (Constr "\926c") [(NilPat,FieldMod "uq")],Constr "\935x"]) (Var "v\948\&7\952\957_"))) [BoolGuard (For [Generator (BindGen (StrictPat (StrictPat (FieldPat "\958N\965d7SXt" (FieldPat "\947" (PVar "v\956EV\936HhD") (AppPat (ConstrPat "\916") Wildcard)) (StrictPat NilPat)))) (Constr "\929\&5\945psj")) [MatchGuard (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\925yC") (ConstrPat "B")) NilPat) (AtPat "\964" Wildcard)) (StrictPat (ConstrPat "\934\957"))) (AtPat "g" (ConstrPat "P\918x6I"))) NilPat) (Lambda [LazyPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\923\&8\935") NilPat) (LazyPat (ConstrPat "O"))) (AtPat "\954" NilPat)) NilPat) (ConstrPat "\919\958\&0")),FatCommaPat (AtPat "\959Y\947\953\952NW" (AppPat (AppPat (ConstrPat "\918") (StrictPat (PVar "_\969"))) (AtPat "\952" NilPat))) (FatCommaPat (AtPat "\965c" Wildcard) (AtPat "r" Wildcard)),FatCommaPat (AtPat "h\966\966" (LazyPat Wildcard)) (ConstrPat "\933"),AppPat (AppPat (ConstrPat "O") (ConsPat NilPat (StrictPat NilPat))) (AtPat "yw\913X" (FatCommaPat (LazyPat NilPat) (StrictPat (ConstrPat "U"))))] (Rec [Generator (TraverseGen (StrictPat Wildcard) (FieldExtr "\954\924J")) [BoolGuard (FieldExtr "lV9"),BoolGuard (SetCompr (FieldExtr "\965") [Generator (TraverseGen (PVar "\954") (FieldMod "r\951")) [BoolGuard (FieldExtr "ke")]]),BoolGuard (SetCompr (Var "t\957\968") [])],Generator (RunGen (Lambda [LazyPat (LazyPat (AtPat "a" (ConstrPat "\917\&0a\932")))] (Constr "WM\936"))) [MatchGuard NilPat (ListLit [Constr "\913",Var "\959sY"]),BoolGuard (Rec [] (Var "j")),MatchGuard (AtPat "l" (AppPat (ConstrPat "\934") (AppPat (AppPat (ConstrPat "\916") Wildcard) Wildcard))) (ListLit [])]] (FieldExtr "o\920Qc\933\919\958\962"))),BoolGuard (If (Constr "J") (ListLit []) (Operator (FieldSet "\946") (4,NoAssoc) ">" (FieldSet "h"))),MatchGuard (FatCommaPat (FieldPat "ufoB8" NilPat (StrictPat (PVar "\965"))) (AppPat (ConstrPat "\937\929g") (AtPat "z\926" (StrictPat (ConstrPat "Dq8U4K\924"))))) (For [] (ListCompr (Var "\964") [Generator (RunGen (SetLit [Constr "A\928"])) [BoolGuard (FieldMod "x\936")]])),MatchGuard (AtPat "\950" (ConsPat (FatCommaPat (AtPat "\954\931z\964\&0\953" Wildcard) (PVar "i\961")) (FieldPat "e\925a" (AppPat (ConstrPat "\923") NilPat) (AppPat (ConstrPat "\927") (AtPat "\948\926b7" (ConstrPat "ULg\965POv\964")))))) (Constr "\916\923"),BoolGuard (Rec [Generator (TraverseGen (AppPat (AppPat (AppPat (ConstrPat "H") Wildcard) (StrictPat (PVar "t\962RL"))) (PVar "r\949")) (For [] (Constr "\920LW\965"))) [],Generator (LetGen Wildcard (ListCompr (FieldSet "k") [Generator (TraverseGen (ConstrPat "\923") (FieldExtr "\966z")) []])) [LetGuard (PVar "q") (For [Generator (MatchGen (StrictPat Wildcard) (Constr "Y")) []] (Constr "U\916x\926")),BoolGuard (For [Generator (MatchGen (ConstrPat "Yd") (Var "\967O")) [LetGuard (AtPat "m" Wildcard) (SetLit [])]] (FieldExtr "n"))]] (SetCompr (Var "\961\965") [Generator (TraverseGen (LazyPat NilPat) (Constr "Iv")) []])),LetGuard (FatCommaPat Wildcard (LazyPat Wildcard)) (If (Operator (FieldSet "\953") (5,RightAssoc) "\8658" (ListLit [])) (FieldExtr "\946c") (Rec [] (Constr "Mj\934")))],Generator (MatchGen (ConstrPat "\937\966\933E\934") (Rec [Generator (BindGen (ConsPat (LazyPat (ConstrPat "D_r\962")) (AtPat "sAJ\947" (PVar "b"))) (Constr "J\947")) [BoolGuard (FieldExtr "w\922\&4K")],Generator (BindGen (ConsPat (AppPat (ConstrPat "\936E\962\934") (PVar "\967\928z")) (AtPat "neu" (PVar "\952"))) (SetLit [ListLit [],FieldExtr "\946",Var "\959"])) [LetGuard (AtPat "qt27" (PVar "\956iu\961")) (FieldExtr "u")]] (ListLit []))) [BoolGuard (Constr "\923"),MatchGuard (LazyPat (LazyPat (FatCommaPat (LazyPat NilPat) (StrictPat (LazyPat Wildcard))))) (SetLit [ListLit [],FieldMod "\955\932bg\968",FieldMod "n",SetLit [ListLit []]])],Generator (BindGen (FatCommaPat (AtPat "i\925\951" (AppPat (AppPat (ConstrPat "\916\947C\962") NilPat) (LazyPat (ConstrPat "Z\931G\958")))) Wildcard) (App (ListCompr (FieldExtr "\962\&3") [Generator (LetGen (AppPat (ConstrPat "Z") Wildcard) (FieldExtr "\954\927")) []]) (FieldMod "\962j\954"))) [MatchGuard (AtPat "w" (AtPat "\969\956" (AtPat "\954g\932" (AtPat "s\960\924f3\961w\914" (FatCommaPat (ConstrPat "Q") (AtPat "\958\&8" (ConstrPat "H"))))))) (If (For [Generator (MatchGen (PVar "\945o") (ListLit [FieldSet "k\924"])) [BoolGuard (ListLit [])]] (SetLit [Var "t\933\934\&0"])) (SetLit [Var "\946WF\969"]) (Operator (FieldSet "\963c\937S\918I\964") (7,LeftAssoc) "*" (FieldSet "\949"))),MatchGuard (PVar "\968\924\965C") (Rec [] (Operator (FieldMod "\964B") (7,LeftAssoc) "/" (SetLit [FieldMod "\964\&5"]))),LetGuard (FieldPat "\957\953" (StrictPat (FieldPat "_\924" NilPat (StrictPat Wildcard))) (LazyPat (LazyPat (AtPat "\953A\962" (ConstrPat "\921\960e"))))) (FieldSet "ciN\914Qy\951\959"),MatchGuard (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\923\962") (PVar "\961KZ")) (LazyPat (PVar "\956l\937"))) Wildcard) (StrictPat NilPat)) Wildcard) (ConstrPat "\929")) (LazyPat Wildcard)) (Constr "SM5"),LetGuard (LazyPat (ConsPat (FieldPat "b\945\913\919\919TiI" NilPat NilPat) (FatCommaPat NilPat (StrictPat Wildcard)))) (Constr "RElUm")],Generator (TraverseGen (StrictPat (PVar "uQf5\965")) (Operator (For [] (FieldSet "\948\933\960w5")) (8,RightAssoc) "**" (FieldExtr "jmSa"))) [LetGuard (PVar "\960") (ListLit [SetLit [],Var "\960\922iU\923",SetLit [ListLit []],FieldSet "oc",Constr "\921\954\928n",SetLit [],FieldExtr "r\931iR"]),LetGuard (AtPat "uY\924" NilPat) (App (Rec [Generator (LetGen Wildcard (FieldMod "\948\951")) []] (Var "aa")) (Rec [] (SetLit []))),MatchGuard (PVar "ni\965f\952\957de") (App (If (Var "x\918xJ\948\955j") (Var "y") (Constr "\917")) (FieldMod "mi"))],Generator (BindGen (FatCommaPat NilPat Wildcard) (Operator (FieldSet "fn") (6,LeftAssoc) "-" (Operator (Var "x") (4,NoAssoc) ">" (Var "x")))) []] (Case (ListCompr (ListLit []) []) [])),LetGuard (FieldPat "hW\920" (FatCommaPat (ConsPat NilPat Wildcard) (AtPat "nO69q\950Ux_\963nwN\919\928\924" (LazyPat (StrictPat (ConstrPat "\913O\964yz"))))) (AppPat (AppPat (AppPat (AppPat (ConstrPat "T") (AtPat "\968\945" (PVar "r"))) (LazyPat NilPat)) (PVar "az")) Wildcard)) (SetLit [Constr "T",Lambda [StrictPat NilPat,StrictPat (FatCommaPat (AtPat "\949" (AtPat "p\937o" (LazyPat (AppPat (AppPat (AppPat (ConstrPat "V\945w\958") (PVar "maw")) NilPat) (StrictPat (ConstrPat "\918\915\916\949")))))) (FieldPat "e\913\956\&5P" (ConsPat (ConstrPat "N\919\965\948ooo\950w") NilPat) (ConsPat Wildcard (StrictPat NilPat)))),PVar "bdq",StrictPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "A\913W1ih\961\968\947m") (ConsPat (LazyPat NilPat) NilPat)) (FatCommaPat (LazyPat NilPat) (AtPat "s\956\950n\960y\951Qm" NilPat))) (StrictPat Wildcard)) (PVar "e")) (ConsPat (ConstrPat "\934p8hL\921") NilPat)) Wildcard) (AppPat (ConstrPat "Nv") NilPat)),StrictPat (AtPat "\959\925\957" NilPat),NilPat,FieldPat "uJh" (FieldPat "\966\956Ry\960\928\957\926\931\&2" (AppPat (ConstrPat "C\949I\946") (LazyPat NilPat)) (ConsPat (ConstrPat "\922K\964f") (StrictPat NilPat))) (PVar "\952Q9\967"),AtPat "c" (AppPat (AppPat (ConstrPat "\922\931\946") (AppPat (AppPat (ConstrPat "\926I") (AppPat (AppPat (AppPat (ConstrPat "\934Iu") (LazyPat (PVar "\945\929\&4\959"))) (LazyPat NilPat)) (PVar "v43\935a\966"))) (PVar "\957T0"))) (LazyPat (ConsPat (LazyPat (AtPat "\961w\936\963H\948j" NilPat)) (PVar "\945")))),AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "U") (LazyPat (LazyPat (LazyPat Wildcard)))) (LazyPat (LazyPat (AtPat "v\913" NilPat)))) (ConsPat (LazyPat Wildcard) Wildcard)) Wildcard) Wildcard,StrictPat (FatCommaPat (AtPat "\961\916Y\945\931X\932" (StrictPat (PVar "\956\&4\918_8"))) (AtPat "\958" (FatCommaPat (ConsPat (PVar "i") (LazyPat (ConstrPat "\935V\965a\929"))) (PVar "hdt2")))),PVar "x2\952uK3PJgMHb",AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "T\915") Wildcard) Wildcard) (LazyPat (PVar "\963k\926sLb"))) Wildcard) NilPat) Wildcard) (ConstrPat "N\916\&5\961")) (StrictPat (ConstrPat "M"))) (AtPat "\954N25c\967\961" (ConstrPat "H\967"))) (PVar "\966t_")) NilPat,StrictPat (StrictPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\916i") NilPat) (PVar "y")) Wildcard) NilPat) Wildcard) (LazyPat (LazyPat Wildcard)))),LazyPat (AppPat (ConstrPat "J6") (FatCommaPat NilPat (LazyPat (PVar "\959")))),StrictPat Wildcard] (Var "\969D\969"),Rec [Generator (LetGen Wildcard (Var "\949")) []] (ListLit []),For [Generator (RunGen (Constr "\921N")) [LetGuard NilPat (FieldExtr "m")]] (Var "\948\934")]),MatchGuard (ConsPat (FatCommaPat (AtPat "v6k\928" (PVar "m")) (FieldPat "t\951A" (StrictPat NilPat) (StrictPat (ConstrPat "\934T\927QB")))) (AtPat "t" (ConstrPat "Sd\956\920\934\924\960\947W\916\&8\925"))) (FieldMod "\963"),MatchGuard (FatCommaPat (StrictPat (LazyPat (AtPat "\953" (FieldPat "h\964\958\960" Wildcard Wildcard)))) (LazyPat (ConsPat (StrictPat NilPat) (AtPat "\965\915" (ConstrPat "\921j"))))) (App (App (If (FieldExtr "\966") (FieldExtr "\957") (FieldExtr "\950U\931\913\917f\919yF")) (Operator (FieldMod "qf") (5,RightAssoc) ":" (SetLit []))) (If (ListCompr (SetLit []) []) (Var "xi") (ListLit []))),LetGuard (StrictPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "Z\968K\957") (FieldPat "w" Wildcard (ConstrPat "G"))) (StrictPat (ConstrPat "K\925"))) Wildcard) (PVar "\967\&3")) (LazyPat (LazyPat (PVar "_BA0")))) (AtPat "\967\959" (AppPat (ConstrPat "\920") (StrictPat (PVar "\960X\924\928d\921vwz5"))))) Wildcard)) (FieldMod "aM"),BoolGuard (FieldSet "\963"),MatchGuard (FatCommaPat (LazyPat (StrictPat NilPat)) (PVar "\946\968\969Q")) (Rec [Generator (TraverseGen (PVar "\948") (Rec [Generator (RunGen (ListLit [])) [MatchGuard Wildcard (SetCompr (FieldSet "gH") [Generator (RunGen (FieldExtr "\949\936")) []]),BoolGuard (Rec [Generator (TraverseGen (StrictPat (PVar "\960")) (Var "\962\926")) [BoolGuard (SetLit [])]] (ListLit []))]] (ListCompr (ListLit [Var "cfvF"]) []))) [BoolGuard (Operator (Rec [] (ListLit [FieldExtr "an"])) (4,NoAssoc) "\8805" (FieldSet "\958\936_\925b")),MatchGuard (AppPat (AppPat (AppPat (AppPat (ConstrPat "\928") NilPat) (AppPat (ConstrPat "M4\949\956CK") NilPat)) (LazyPat (ConstrPat "\920OQ"))) (PVar "e\916")) (SetLit []),BoolGuard (App (App (Var "z\960p\915\951\928") (FieldExtr "q\965W\931p\935v\956")) (Lambda [PVar "\950g\927",NilPat,ConsPat (AppPat (AppPat (AppPat (ConstrPat "X\917z\967\950") (StrictPat Wildcard)) Wildcard) (PVar "o")) (AtPat "o\963T\926Z" NilPat),PVar "\959\914qe3u",PVar "j",FatCommaPat NilPat (LazyPat (LazyPat (AtPat "f" Wildcard))),NilPat,NilPat] (ListLit [SetLit [Constr "W\936rI",ListLit [Constr "\916\958\953n"]]]))),MatchGuard Wildcard (FieldExtr "\946"),MatchGuard (LazyPat (AppPat (AppPat (ConstrPat "\926\929v") (StrictPat (FatCommaPat (PVar "a") Wildcard))) (PVar "\951"))) (SetLit [Var "\958\&8",Rec [] (Constr "\917\950u")]),LetGuard (PVar "\956\949") (FieldExtr "\958\967PK\919hpW"),LetGuard (LazyPat (LazyPat (LazyPat (FieldPat "\956\&8nC" (FieldPat "\949" (AtPat "\969izCCx0B" Wildcard) Wildcard) (FieldPat "\950\936" (LazyPat (ConstrPat "\933lbWP\919")) (AtPat "\960" Wildcard)))))) (ListCompr (ListLit [FieldExtr "gdc",FieldMod "c\963"]) [Generator (LetGen (FieldPat "i" (LazyPat NilPat) NilPat) (SetLit [])) [],Generator (RunGen (ListLit [])) []])],Generator (BindGen (LazyPat (PVar "\946\954")) (Rec [] (FieldMod "\945YHc"))) [MatchGuard (PVar "\951") (If (FieldMod "\951") (SetLit []) (Lambda [FieldPat "zdPf\969\952" Wildcard (AtPat "\958" NilPat)] (ListLit []))),BoolGuard (Operator (Lambda [AppPat (AppPat (ConstrPat "\924\934\965\929S0E") (FatCommaPat (PVar "lG") NilPat)) NilPat,AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "U\965") (AppPat (ConstrPat "Yk") (AtPat "\957" Wildcard))) (AppPat (ConstrPat "VX") Wildcard)) Wildcard) (AtPat "\951\956\952" (ConstrPat "E"))) (ConstrPat "\920\937DB\967\922pA")) (StrictPat Wildcard),NilPat] (ListLit [SetCompr (FieldExtr "\967\946ll\962") [Generator (BindGen (ConstrPat "G") (SetLit [Var "m"])) [MatchGuard (PVar "\956\931") (ListLit [])]]])) (5,RightAssoc) ":" (For [Generator (RunGen (ListLit [FieldSet "o"])) []] (FieldMod "a\923k\966b\969\923K"))),MatchGuard Wildcard (SetLit [ListLit [SetLit [FieldExtr "di"]],Var "f\969\957",SetLit [],FieldSet "\950\960\913\945wzA\934",Var "\949\960",Var "\962",ListLit [Var "\961vxQ"]])],Generator (RunGen (For [] (FieldExtr "sL\913M\913\965f"))) [MatchGuard Wildcard (FieldSet "f"),MatchGuard (FatCommaPat (FatCommaPat (PVar "\965") (AppPat (ConstrPat "\929") NilPat)) (FatCommaPat NilPat (ConstrPat "\932\969U"))) (App (Rec [Generator (TraverseGen (StrictPat Wildcard) (Constr "M\953")) []] (FieldExtr "\964\927Y")) (Var "p\919Bl")),BoolGuard (Var "c"),MatchGuard (LazyPat (PVar "oN8\945\968\953\&0")) (FieldMod "\948\921\&2\919\937vN"),MatchGuard Wildcard (Operator (Rec [Generator (LetGen (LazyPat Wildcard) (FieldMod "\962F")) []] (FieldSet "\968\932\922")) (8,RightAssoc) "^" (Case (ListLit []) [(PVar "i\950",Constr "\923f")]))]] (FieldMod "\948\&1")),LetGuard (FatCommaPat (StrictPat Wildcard) (FatCommaPat (StrictPat (StrictPat (StrictPat NilPat))) (FatCommaPat NilPat (AtPat "lh\925\962Bw\948\916qw2" (PVar "\953\929aK\916\927"))))) (Operator (Constr "\932IUq\960A\935R\923D\955") (7,LeftAssoc) "%" (FieldSet "w")),BoolGuard (App (Rec [Generator (LetGen (FieldPat "e37\917" (AtPat "\961" NilPat) (AppPat (ConstrPat "\928") (AtPat "\969\953\963" (ConstrPat "\925\963f\961")))) (For [Generator (TraverseGen (ConstrPat "Q") (FieldExtr "m1")) [LetGuard (LazyPat (PVar "\967c")) (Var "fT")]] (FieldMod "s\913\952"))) [MatchGuard (FieldPat "b1\945\&4" (StrictPat Wildcard) (ConstrPat "A")) (Constr "Au"),MatchGuard (AppPat (ConstrPat "\919") (AtPat "\947x" (LazyPat (AtPat "s" NilPat)))) (FieldExtr "\962\967UO"),LetGuard (LazyPat (FatCommaPat (AtPat "\966k\914\957" (PVar "vM")) Wildcard)) (SetCompr (FieldExtr "s5\936") [Generator (LetGen (LazyPat (PVar "v")) (SetLit [FieldExtr "\946"])) []])]] (FieldMod "\961")) (Rec [] (FieldMod "gN\926\961"))),LetGuard (AtPat "b" (ConsPat (FatCommaPat (AppPat (AppPat (AppPat (ConstrPat "V\926\924\&4") (ConstrPat "\920\962r\918\923zx2\934Ku")) (LazyPat (PVar "q\914ZL\956"))) (PVar "kN")) Wildcard) (StrictPat (FatCommaPat (FieldPat "\953\915\945" (ConstrPat "\927\948\958\921") Wildcard) (FatCommaPat Wildcard NilPat))))) (If (For [Generator (TraverseGen Wildcard (FieldSet "h")) [LetGuard Wildcard (ListLit [FieldSet "y54",Var "\965p"]),LetGuard Wildcard (Lambda [StrictPat (StrictPat (PVar "tU"))] (FieldMod "\966t\925"))],Generator (LetGen (AtPat "\964" (ConstrPat "J\923\918")) (Var "q")) [MatchGuard (StrictPat (PVar "\965I")) (ListLit [FieldExtr "\954",FieldExtr "tZ\951"]),LetGuard (ConsPat (StrictPat NilPat) Wildcard) (App (Var "\954\948\934") (Constr "\929\921p"))]] (ListLit [For [Generator (TraverseGen (LazyPat (PVar "\962")) (Var "\949A")) [BoolGuard (FieldExtr "\953")]] (SetLit [FieldSet "\962"])])) (If (FieldExtr "\947\&3\950\&2h") (Var "e\963") (SetLit [SetLit []])) (FieldMod "nhm")),MatchGuard (LazyPat (ConsPat (AtPat "i\924" (PVar "fpaNyx\916")) (AppPat (AppPat (AppPat (AppPat (ConstrPat "U") Wildcard) (AtPat "a" (ConstrPat "R\966"))) Wildcard) (LazyPat (ConstrPat "\915d\917vwpI9"))))) (ListCompr (Rec [Generator (BindGen (FieldPat "\949\969z" Wildcard Wildcard) (Operator (FieldMod "n") (4,NoAssoc) ">" (SetLit []))) [LetGuard (StrictPat (LazyPat (PVar "o9ca"))) (FieldSet "\963\929"),MatchGuard (FatCommaPat (StrictPat Wildcard) NilPat) (SetCompr (ListLit [Constr "\916\929\936"]) [Generator (TraverseGen (StrictPat Wildcard) (FieldMod "y")) []])],Generator (MatchGen (LazyPat (AppPat (ConstrPat "E") (LazyPat (AtPat "\948\952NK" (PVar "a72\925"))))) (Operator (FieldMod "\967") (4,NoAssoc) "\8805" (FieldExtr "\959\&4"))) [LetGuard (ConstrPat "D_s\955") (Lambda [AppPat (AppPat (ConstrPat "U3") (AtPat "z" Wildcard)) NilPat,FatCommaPat (LazyPat NilPat) (PVar "z\933"),FatCommaPat Wildcard (LazyPat (ConstrPat "\919"))] (Case (FieldExtr "\946\932") [])),MatchGuard (AtPat "\957\951\961" (LazyPat (PVar "r"))) (ListCompr (Var "\959Vl\959") [])],Generator (RunGen (ListCompr (Var "\963\&7\915\956") [])) [LetGuard (ConsPat (StrictPat Wildcard) (StrictPat (PVar "\951"))) (App (FieldSet "\957\917BP") (Constr "\926t\969\959")),BoolGuard (For [] (FieldSet "f\966m6")),LetGuard Wildcard (FieldMod "\950\926")]] (ListLit [FieldExtr "rBj89fm",FieldSet "u",ListLit [ListLit [Var "l"]]])) [Generator (LetGen (FieldPat "kmO" (FatCommaPat NilPat (LazyPat Wildcard)) (ConsPat (LazyPat NilPat) (LazyPat (ConstrPat "\916\932\952\959a")))) (Case (ListLit []) [(Wildcard,FieldMod "\960\923qs")])) [BoolGuard (ListLit [Var "e2Z",App (FieldSet "\956\&0uo") (FieldMod "rk3\919\934")]),MatchGuard (AtPat "\955C" (ConstrPat "Ew")) (Case (For [Generator (MatchGen (StrictPat Wildcard) (FieldMod "\969")) [BoolGuard (SetLit [FieldMod "\956"])]] (Var "o")) [(Wildcard,Case (SetLit []) []),(AtPat "u" NilPat,FieldSet "q\921Z")]),MatchGuard (PVar "bc\946\948n") (App (Var "\964hP") (FieldExtr "\960\926Pz")),MatchGuard NilPat (For [Generator (LetGen (AppPat (AppPat (AppPat (ConstrPat "\932H\922O") Wildcard) NilPat) (StrictPat (ConstrPat "D"))) (For [] (Constr "\915"))) [],Generator (TraverseGen Wildcard (Constr "\924\946")) []] (FieldExtr "\964H\955Mn\927\915N"))],Generator (RunGen (ListLit [ListCompr (FieldMod "\964") [Generator (LetGen (LazyPat (ConstrPat "\931\&6")) (FieldSet "g")) []],Case (FieldMod "p\931z") [(PVar "ve",Constr "RM")],Rec [] (FieldExtr "hg")])) [LetGuard (LazyPat Wildcard) (FieldExtr "\951kq\960\950\927\919")],Generator (MatchGen NilPat (Lambda [FatCommaPat (ConsPat (StrictPat (PVar "\958")) NilPat) (AtPat "j" (PVar "\960\936")),StrictPat NilPat,NilPat] (Rec [] (Rec [] (FieldMod "i\948"))))) [MatchGuard (FatCommaPat (AtPat "\954\946\918\914i" NilPat) NilPat) (Operator (FieldMod "\964p\933I") (3,RightAssoc) "\8743" (ListCompr (Constr "K6\960") [Generator (MatchGen (StrictPat (ConstrPat "\913I")) (ListLit [])) [MatchGuard Wildcard (Constr "\921I")]])),BoolGuard (FieldMod "\957\952\924")],Generator (LetGen (LazyPat (FieldPat "\953" (PVar "\961\945f8c") (StrictPat (PVar "\964n4\925\948")))) (Case (App (ListLit [SetLit []]) (Var "r\963")) [(FatCommaPat (AppPat (ConstrPat "\914") (AtPat "shH\949" (PVar "\958\964"))) Wildcard,Case (SetLit [FieldSet "h\963"]) [(LazyPat NilPat,FieldMod "\953\915")]),(FieldPat "\946\&1b" Wildcard NilPat,Case (FieldMod "\969\948Z\928") [])])) [LetGuard (LazyPat (StrictPat (FieldPat "b\948" (PVar "\951\915\959") (FatCommaPat NilPat NilPat)))) (FieldMod "\959\968"),LetGuard Wildcard (Operator (For [Generator (RunGen (FieldSet "\946\947")) []] (Var "\967pN8\968S")) (6,LeftAssoc) "+" (Var "\963p\965\963N\937"))],Generator (MatchGen NilPat (ListLit [ListLit [FieldExtr "o\959"],FieldExtr "dmY\969",FieldExtr "k\963jec\963wj",Constr "Jhb\953I",FieldSet "\968pbx\924\962\932L",ListLit [ListLit []],Var "\957P\968f\959"])) [BoolGuard (For [Generator (LetGen NilPat (FieldMod "\966\966\924")) [MatchGuard (LazyPat (FieldPat "\969\924X" (LazyPat NilPat) Wildcard)) (Case (ListLit []) [(PVar "k\932",FieldExtr "ky")]),MatchGuard (AppPat (ConstrPat "V\913\915X") (AppPat (AppPat (ConstrPat "E\961P0") (PVar "\959\&6")) (AtPat "d" Wildcard))) (For [] (Constr "\937B_")),LetGuard (LazyPat (FieldPat "y" (AtPat "\957l7" (PVar "r\956\921")) NilPat)) (FieldExtr "\957O\967\945")],Generator (TraverseGen (PVar "rH") (Constr "\917\922\961Q")) [LetGuard Wildcard (Operator (Var "a22\925") (6,LeftAssoc) "-" (Constr "\920\936"))],Generator (BindGen (StrictPat (LazyPat Wildcard)) (Lambda [FieldPat "\967" (LazyPat Wildcard) Wildcard,LazyPat NilPat,ConsPat NilPat (LazyPat NilPat)] (App (ListLit [FieldSet "\952"]) (SetLit [])))) [BoolGuard (App (ListLit [SetLit [Var "\965"]]) (SetLit []))]] (If (Constr "V\961ejo3") (FieldSet "z") (Var "\958"))),LetGuard (StrictPat Wildcard) (Case (SetCompr (ListLit [FieldMod "o3t\937\926\920vV"]) [Generator (BindGen (StrictPat (PVar "\957\935")) (FieldMod "c\961")) []]) [(LazyPat (AtPat "\959" (AppPat (ConstrPat "Q\969") (PVar "\964B"))),For [Generator (MatchGen (AtPat "l" (ConstrPat "\917\929")) (FieldSet "sU")) [LetGuard (PVar "vj") (ListLit [FieldExtr "\955o"])]] (FieldMod "\952\957T"))]),LetGuard NilPat (ListLit [SetLit [FieldMod "e"],FieldExtr "\953\&3bcA",FieldMod "h\964w\920",Var "\945\955\963\952",SetLit []]),MatchGuard (LazyPat (ConsPat (PVar "s") (PVar "\958"))) (Constr "\917"),LetGuard (PVar "f") (FieldMod "\962Nl\965"),BoolGuard (FieldExtr "v"),LetGuard (FieldPat "f" (LazyPat (ConsPat (PVar "t\958\968") (StrictPat NilPat))) (AppPat (AppPat (AppPat (ConstrPat "Z\935") (AppPat (ConstrPat "\929") NilPat)) Wildcard) (PVar "e"))) (For [Generator (BindGen NilPat (Rec [Generator (TraverseGen (ConstrPat "\927") (FieldExtr "\967\916")) [LetGuard (LazyPat (ConstrPat "\936i")) (FieldSet "\949s")]] (Var "xKHi"))) [MatchGuard (LazyPat Wildcard) (SetLit [])],Generator (RunGen (If (FieldMod "k") (ListLit []) (SetLit []))) [MatchGuard NilPat (App (Constr "\926F") (SetLit [])),LetGuard (ConsPat (StrictPat NilPat) (LazyPat NilPat)) (ListLit [ListLit [],Var "\950\969\928\964",Var "q7E"]),MatchGuard Wildcard (FieldExtr "\955\921\934\955")]] (Rec [] (FieldMod "\956u")))],Generator (BindGen (FieldPat "z7u" (LazyPat (FatCommaPat NilPat NilPat)) Wildcard) (App (If (ListLit [FieldExtr "\962S\916hA\959Y\948"]) (ListLit [Var "\951"]) (FieldExtr "\964G\921lZ")) (Lambda [FieldPat "s\960\916\964" (FieldPat "\947\921" (StrictPat Wildcard) (AtPat "z\955\921" (PVar "\956"))) (StrictPat Wildcard),StrictPat (FatCommaPat (StrictPat (PVar "\947VXt\921")) (ConsPat (AtPat "n\916XqI_k\967" (PVar "jC_D_")) Wildcard)),FatCommaPat (LazyPat (FatCommaPat (LazyPat (ConstrPat "\913\965")) NilPat)) (AtPat "\945" Wildcard)] (Operator (SetLit [Constr "\919"]) (7,LeftAssoc) "*" (FieldExtr "\967"))))) [MatchGuard (LazyPat (FatCommaPat (FatCommaPat NilPat (ConstrPat "U\960K")) (AtPat "\954\953" (ConstrPat "\914")))) (FieldExtr "p8"),LetGuard Wildcard (Case (If (FieldExtr "\950YL\955") (FieldMod "\964\913\&82\919\956\916") (Constr "Zz\926")) []),MatchGuard (LazyPat (FatCommaPat (LazyPat (FatCommaPat NilPat (ConstrPat "\934j\946"))) (StrictPat (StrictPat (StrictPat NilPat))))) (For [Generator (MatchGen Wildcard (Var "\950m\968\931")) [],Generator (LetGen Wildcard (FieldSet "gr")) [MatchGuard (FieldPat "\964L" (PVar "dsXN") NilPat) (FieldMod "_\947")]] (For [Generator (BindGen (StrictPat (PVar "\965\945")) (Constr "\921\920")) []] (SetLit []))),LetGuard (FieldPat "\945W" (StrictPat (PVar "\949")) (FieldPat "\948\963" (LazyPat (ConstrPat "\914")) (AtPat "m\960" Wildcard))) (SetCompr (Lambda [LazyPat (StrictPat (ConsPat (FieldPat "k\946\964v\960w" Wildcard (StrictPat Wildcard)) (StrictPat (PVar "\960\&4u\916\&9\925w")))),Wildcard,FatCommaPat (LazyPat (ConsPat Wildcard (PVar "\945J\947\967\929"))) (PVar "an"),ConsPat (FatCommaPat (LazyPat (ConstrPat "\934")) (LazyPat (ConstrPat "\921"))) (LazyPat (LazyPat (AtPat "\950\&2q\928\937ctg" NilPat))),AtPat "x7" (FieldPat "yv\913\963" Wildcard NilPat),FieldPat "oN" (FieldPat "\948X" (AtPat "s" (PVar "\959")) Wildcard) (FieldPat "\951\927" (AtPat "n" Wildcard) (PVar "\956\928\928D")),ConsPat NilPat (StrictPat Wildcard),AppPat (AppPat (ConstrPat "DmG\959R") (PVar "\965dm")) (FieldPat "\965" (LazyPat NilPat) (StrictPat (ConstrPat "\933\922")))] (FieldExtr "\949\962")) [Generator (LetGen Wildcard (For [] (SetLit []))) [LetGuard (PVar "w") (SetCompr (Var "\954hq\962") []),BoolGuard (FieldExtr "d\957")],Generator (TraverseGen (FieldPat "t0" NilPat NilPat) (Var "fc")) [BoolGuard (ListCompr (FieldMod "\951\924\937") []),LetGuard (FieldPat "o\945om" (StrictPat (ConstrPat "L1\969\926")) (AppPat (ConstrPat "K\914\920") (AtPat "\968" NilPat))) (Operator (Var "\956\932") (4,NoAssoc) "\8801" (FieldExtr "y"))],Generator (MatchGen (FieldPat "s" NilPat Wildcard) (ListCompr (FieldMod "\965") [Generator (LetGen (LazyPat NilPat) (FieldMod "\964\954")) []])) [BoolGuard (App (FieldExtr "n") (Constr "\918"))]])]]),BoolGuard (Operator (ListCompr (FieldExtr "l\949") [Generator (MatchGen Wildcard (Var "\950")) [MatchGuard (FieldPat "\947" NilPat (LazyPat Wildcard)) (FieldSet "p0"),MatchGuard (ConsPat Wildcard (PVar "x\928\936")) (SetCompr (Var "g") []),MatchGuard (ConsPat (LazyPat NilPat) (AtPat "\968" (ConstrPat "KK\945\&4"))) (FieldMod "\959")],Generator (RunGen (Var "bU")) [LetGuard (ConsPat (ConstrPat "\919") (StrictPat Wildcard)) (Lambda [NilPat] (Case (ListLit [FieldSet "hw\924\955"]) [])),BoolGuard (Case (FieldExtr "\952M") [(ConstrPat "G\960",FieldMod "b\957")]),BoolGuard (Case (FieldMod "\965D") [])],Generator (TraverseGen (LazyPat (FatCommaPat Wildcard (StrictPat NilPat))) (Operator (FieldSet "g\956") (4,NoAssoc) "\8801" (ListLit [FieldSet "m\957\&4P"]))) []]) (6,LeftAssoc) "-" (SetLit [Constr "\937",Var "y57",ListLit [],FieldMod "\957\952\919\952h\966\919wd",FieldSet "\960"])),MatchGuard NilPat (ListLit [])],Generator (RunGen (Lambda [PVar "\963iT\924\966\959",FieldPat "mF" (StrictPat (PVar "n\925DFg8L")) (FieldPat "\969\960L\967\&0j" Wildcard (PVar "\966\948\959\913\956"))] (SetCompr (Rec [Generator (LetGen (StrictPat (AppPat (ConstrPat "P_") NilPat)) (Operator (FieldExtr "\958r\947\946") (3,RightAssoc) "\8743" (SetLit [SetLit []]))) [BoolGuard (SetLit [Var "p",ListLit []])],Generator (MatchGen NilPat (Rec [Generator (TraverseGen Wildcard (Var "\961\951")) [LetGuard (PVar "z") (FieldMod "\946\962")]] (Var "\969k\925"))) [BoolGuard (SetCompr (Constr "\914") []),LetGuard (FatCommaPat (PVar "\963") NilPat) (FieldSet "\952"),BoolGuard (SetCompr (Var "hu") [Generator (LetGen (AtPat "y" (PVar "\950")) (FieldMod "\963Z")) [LetGuard (StrictPat Wildcard) (FieldExtr "z2")]])]] (FieldMod "\949Z\947")) [Generator (RunGen (SetLit [])) [LetGuard (FatCommaPat Wildcard (FieldPat "o" Wildcard Wildcard)) (SetLit [Var "b\921",FieldMod "\951",SetLit [FieldExtr "n\926"],ListLit [],FieldExtr "h",Constr "U",FieldExtr "_\961\937\936N\969\956W"]),LetGuard NilPat (App (SetLit []) (Var "\954\931")),LetGuard NilPat (Constr "A")],Generator (MatchGen (ConsPat (PVar "f\921k\937u") (ConstrPat "\918o\958sW\932\926\947")) (Lambda [LazyPat (FatCommaPat Wildcard (AppPat (ConstrPat "U") NilPat)),FatCommaPat (FieldPat "\954" (ConstrPat "P4\922t") (AppPat (ConstrPat "\929") (LazyPat NilPat))) NilPat,FieldPat "aK\914\915Lu\928E" (FatCommaPat (AtPat "\955S\963bg\949" Wildcard) (ConstrPat "AR\932SuvR")) (FieldPat "\954\919" (StrictPat NilPat) (ConstrPat "T\948\946G\945Q9"))] (SetCompr (SetLit []) [Generator (TraverseGen (LazyPat (FieldPat "_v\959" (StrictPat Wildcard) (AppPat (ConstrPat "\916M\962") NilPat))) (Rec [] (FieldMod "kft2"))) [MatchGuard (ConsPat Wildcard (ConstrPat "\923\931")) (Lambda [ConsPat (StrictPat Wildcard) (AtPat "\950" NilPat),LazyPat NilPat,LazyPat (StrictPat NilPat)] (SetLit []))]]))) [],Generator (BindGen (FieldPat "n\917" (PVar "q") (StrictPat (FieldPat "\963" (AtPat "\962\961" NilPat) (PVar "\966K\931")))) (SetCompr (Operator (FieldMod "\959g\962\959") (4,NoAssoc) "\8804" (Constr "\931y")) [Generator (TraverseGen (FieldPat "\962COu" Wildcard (AppPat (ConstrPat "C\933") Wildcard)) (ListCompr (Var "k5\953o") [])) [LetGuard (AtPat "bTVs" (FieldPat "k4" (AtPat "\954" (ConstrPat "Lxr")) (AtPat "cl" (ConstrPat "\923a1\927")))) (For [] (Constr "\935"))],Generator (MatchGen (FieldPat "e\914uX" (ConstrPat "T\934MC") (AtPat "e5\919n" (ConstrPat "\929gEE"))) (App (Constr "Y") (SetLit []))) [BoolGuard (Constr "A\960ri"),MatchGuard (FieldPat "q" (StrictPat (ConstrPat "RJ0\955")) Wildcard) (FieldSet "b\933\929\&5")],Generator (TraverseGen (ConsPat Wildcard (LazyPat (PVar "\966p7a"))) (Case (FieldExtr "i\951") [(LazyPat Wildcard,SetLit [])])) []])) [BoolGuard (FieldMod "d4"),BoolGuard (FieldSet "iG"),LetGuard (PVar "d") (ListCompr (ListLit [FieldMod "\954\956",FieldSet "\959\929kvA\919VX",FieldExtr "_4\964"]) []),MatchGuard (AtPat "m8" (LazyPat (LazyPat (PVar "r")))) (ListCompr (If (FieldMod "xv") (ListLit []) (Constr "\927\955w")) []),BoolGuard (If (Case (Constr "W") [(AppPat (ConstrPat "\922\&3") (PVar "\961C"),FieldExtr "a2")]) (Constr "\914W\963\960s0x\966") (Lambda [Wildcard,PVar "_W",NilPat,Wildcard,FatCommaPat (PVar "w") (FieldPat "\953Sg" (StrictPat (ConstrPat "I_")) (PVar "\962")),LazyPat (FatCommaPat (FieldPat "bK" (StrictPat Wildcard) (ConstrPat "\919C")) (AtPat "o3" (LazyPat NilPat)))] (FieldSet "\947\958r"))),LetGuard (FieldPat "z\951A\955C\962\931O" (LazyPat (FieldPat "\951" Wildcard (ConstrPat "\920X"))) (FatCommaPat (AtPat "\966" (PVar "i9")) (PVar "c"))) (SetCompr (Constr "\931\937nL\946") [Generator (LetGen (PVar "w") (Lambda [FieldPat "\968" (AtPat "zGvu" Wildcard) (PVar "\963\917h\951")] (Operator (FieldExtr "\961") (5,RightAssoc) ":" (SetLit [ListLit [FieldExtr "\965w"]])))) [LetGuard (FatCommaPat (ConstrPat "GL\913\950") (LazyPat (ConstrPat "Z\958"))) (App (ListLit [Constr "U"]) (ListLit [])),BoolGuard (For [Generator (RunGen (FieldMod "\949")) []] (FieldMod "\952\920\962"))],Generator (MatchGen (StrictPat (FieldPat "\953\948\967" (StrictPat NilPat) (AtPat "\950" (PVar "\949\951")))) (Case (ListLit [FieldSet "\956\957\945\953"]) [])) []])],Generator (LetGen (FieldPat "\962\929\955\965D\947b\963" (AppPat (ConstrPat "\927\956") Wildcard) NilPat) (Var "\962")) [BoolGuard (SetCompr (FieldExtr "\965\922\&2\956\962F") [Generator (BindGen (FieldPat "\951" NilPat (StrictPat (PVar "l\947\953I"))) (Lambda [ConsPat NilPat (PVar "\959t7O")] (FieldMod "\949h\969I"))) [MatchGuard (FieldPat "\964H\956\951" (PVar "uI") (StrictPat NilPat)) (Lambda [FieldPat "\958gN7" (PVar "o8\946") (AtPat "c" Wildcard),LazyPat (FieldPat "\952\917LT" (StrictPat (ConstrPat "Z")) (LazyPat Wildcard)),ConsPat NilPat (ConstrPat "D")] (SetCompr (ListLit []) [])),BoolGuard (Rec [Generator (RunGen (Var "\947F")) [MatchGuard (AppPat (ConstrPat "B\964") (ConstrPat "Fy")) (SetLit [])]] (Constr "R"))],Generator (TraverseGen Wildcard (Var "\952O")) [],Generator (LetGen (ConsPat (AppPat (ConstrPat "\936") (LazyPat (PVar "\968"))) (ConstrPat "G\915K\951")) (SetLit [Constr "\922M\951i",ListLit [SetLit [Var "t8J9"]],ListLit [FieldExtr "x2"]])) [BoolGuard (FieldSet "\950"),BoolGuard (Rec [] (ListLit [FieldExtr "\960"])),BoolGuard (Lambda [ConsPat (StrictPat Wildcard) (AtPat "yt\952" NilPat),ConstrPat "\922\934\946\933",Wildcard,AtPat "\962\&1\916\964" (ConsPat (AppPat (ConstrPat "\928\929") NilPat) (AppPat (ConstrPat "Y7jB") (LazyPat (PVar "\951"))))] (SetLit [For [Generator (MatchGen (StrictPat (PVar "tA")) (ListLit [SetLit [FieldSet "ch"]])) [BoolGuard (FieldSet "\950\924")]] (FieldMod "\962\969\&9P")]))]]),LetGuard (ConsPat Wildcard (PVar "xErC")) (Lambda [ConsPat (ConsPat (AtPat "c" (PVar "tp\952\951")) (AtPat "\948yjR\969" Wildcard)) (LazyPat (PVar "nu")),AtPat "\965e\947" NilPat] (Var "i\963")),MatchGuard NilPat (SetLit [ListCompr (Var "\965\&6\960ff\918\929K") [],SetCompr (SetLit []) [Generator (MatchGen NilPat (Constr "\924")) []],SetLit [Constr "O",Var "\967"]]),LetGuard (FieldPat "\957" (ConstrPat "P_IFs\968D\969") Wildcard) (App (Lambda [StrictPat (FatCommaPat Wildcard (ConstrPat "\933l\926z")),LazyPat (FieldPat "\968\915\954" (FatCommaPat Wildcard (PVar "\948")) (StrictPat (AppPat (AppPat (ConstrPat "\935\933") (AtPat "\957\918Hos\956" Wildcard)) (AppPat (ConstrPat "DTc") Wildcard)))),Wildcard,PVar "tFp"] (Var "\956b")) (ListLit [])),LetGuard (AtPat "h" (ConstrPat "\919u\949k")) (For [Generator (RunGen (SetLit [If (FieldExtr "lVW") (FieldSet "\963") (Constr "N0\948z")])) [MatchGuard (FieldPat "mi" NilPat (AtPat "s\928" Wildcard)) (App (ListLit [FieldMod "y\953_k"]) (FieldSet "q\920y\945"))],Generator (RunGen (Var "c")) [LetGuard NilPat (FieldMod "t"),BoolGuard (Case (FieldMod "h\932l") []),LetGuard (PVar "a") (Constr "\927")]] (Lambda [FieldPat "\957\&6H\937\966\915\917\954" (StrictPat (PVar "_\933\914y\964\958HM")) (FatCommaPat (StrictPat Wildcard) (PVar "zM")),AtPat "fIBj" Wildcard,Wildcard,FieldPat "\952" (LazyPat (LazyPat (ConstrPat "Dp"))) (StrictPat (FatCommaPat Wildcard (StrictPat (ConstrPat "GvL\935\&3")))),AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\923") (LazyPat (ConstrPat "\926IjrNh\950\965"))) Wildcard) (LazyPat NilPat)) NilPat) (StrictPat (PVar "\962\965"))) (PVar "t\934v_V"),AtPat "fs\933" (FatCommaPat (PVar "\960n") NilPat),LazyPat (StrictPat NilPat)] (FieldExtr "sW\922")))],Generator (BindGen (FieldPat "\969\956" (AtPat "\952\&1" (PVar "a")) (PVar "m\922\920Y\914")) (Lambda [LazyPat (ConstrPat "\936\923"),ConsPat (ConsPat Wildcard Wildcard) (StrictPat (FatCommaPat (AtPat "\950O" (ConstrPat "\923BkCo\934")) Wildcard)),PVar "\956"] (Rec [Generator (MatchGen NilPat (For [Generator (RunGen (FieldSet "\953\913")) []] (FieldSet "z\955M\958"))) [],Generator (MatchGen (ConsPat (PVar "\957\928uk") Wildcard) (Operator (Constr "F") (6,LeftAssoc) "-" (ListLit [FieldSet "yL"]))) [],Generator (BindGen Wildcard (If (SetLit [Constr "\923"]) (FieldSet "h") (FieldSet "\954"))) [BoolGuard (ListLit []),LetGuard Wildcard (Lambda [PVar "\953\914NN"] (Operator (Var "\952") (5,RightAssoc) "\8658" (Var "\945\955"))),BoolGuard (SetLit [Var "k\964\922\937",FieldExtr "_T",FieldMod "w\945A"])]] (SetLit [Lambda [LazyPat (FieldPat "r\946" NilPat (AppPat (ConstrPat "\918MWQ\955RXC") (LazyPat (AppPat (ConstrPat "\925") NilPat)))),StrictPat (FieldPat "h\929\&9tBQ\961e" NilPat (FieldPat "g\962\937\922" (StrictPat NilPat) (AppPat (ConstrPat "\937") (PVar "cx\913\967\918")))),PVar "rIQQuk",FieldPat "\947c\951\929\918\&5\953\&7" (StrictPat (LazyPat (LazyPat NilPat))) (AtPat "\955\964M\913\&7\920f\934" (ConsPat Wildcard NilPat)),NilPat] (FieldMod "o4\958\923\925T9\956")])))) [LetGuard (FieldPat "vtK" (ConstrPat "\932") (AtPat "\951II" (PVar "\946H"))) (SetCompr (SetCompr (FieldSet "kRCB\919\963") [Generator (MatchGen Wildcard (FieldMod "h")) [BoolGuard (Constr "\934\954")]]) [Generator (RunGen (ListLit [])) [MatchGuard (AtPat "jG" (ConstrPat "\925_BR")) (Constr "\918\947"),MatchGuard NilPat (FieldExtr "ka\925w"),BoolGuard (ListLit [SetLit [Constr "\915"],Var "\950"])]]),BoolGuard (FieldMod "\949G")],Generator (BindGen (FieldPat "\968\963S" (ConsPat (ConstrPat "\916\937") (PVar "\969")) (LazyPat (FatCommaPat (LazyPat Wildcard) NilPat))) (SetLit [])) [MatchGuard (PVar "v\962\934\&3") (FieldExtr "e\957\951t\926wL"),MatchGuard NilPat (Rec [] (Operator (FieldSet "rXq") (3,RightAssoc) "\8743" (SetLit [])))]]))) [BoolGuard (FieldSet "aj\916\933\927\934LA\937\936a"),MatchGuard (StrictPat NilPat) (FieldMod "p\926"),MatchGuard (PVar "r") (Rec [Generator (BindGen (FatCommaPat (FieldPat "\969n" (PVar "wk") Wildcard) (PVar "z\961I")) (For [] (If (Constr "AG") (Var "g") (ListLit [ListLit [FieldSet "\958\967\954\963"]])))) [BoolGuard (Rec [Generator (LetGen Wildcard (FieldSet "\952Z\927")) [LetGuard (ConsPat (AtPat "\966\914Kl" Wildcard) (StrictPat (ConstrPat "\926\933\918j"))) (ListLit [FieldSet "zN"]),LetGuard NilPat (If (SetLit [ListLit []]) (SetLit [FieldSet "uD"]) (FieldExtr "w7")),MatchGuard (PVar "\951") (App (FieldExtr "\965") (FieldMod "\964"))],Generator (LetGen NilPat (Operator (ListLit [Constr "U"]) (6,LeftAssoc) "-" (FieldSet "ieH\927"))) [BoolGuard (App (Var "jc\922") (FieldExtr "\953")),MatchGuard (ConsPat NilPat NilPat) (App (SetLit []) (ListLit [Constr "MC\931"])),MatchGuard NilPat (SetCompr (ListLit [FieldExtr "\967Vd"]) [])],Generator (MatchGen NilPat (ListCompr (SetLit []) [Generator (TraverseGen (LazyPat Wildcard) (FieldExtr "d")) [LetGuard (PVar "\967") (FieldMod "\966b")]])) [MatchGuard (ConsPat (LazyPat (PVar "z\922\913\920")) NilPat) (ListCompr (Constr "Nv\935") [Generator (LetGen NilPat (Constr "Mr")) []]),MatchGuard (LazyPat (StrictPat (AtPat "wCi" Wildcard))) (ListLit []),MatchGuard NilPat (Rec [] (ListLit [FieldSet "\957\931\934\969"]))]] (Constr "\933\937\947\946\959")),LetGuard (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\915\931Bsqt") (LazyPat Wildcard)) NilPat) (StrictPat NilPat)) (AtPat "cy" (PVar "s\915\954\918"))) Wildcard) (FieldSet "\958\927F7x"),MatchGuard (FieldPat "v" (AppPat (ConstrPat "Q\961\&1BHm") (ConsPat NilPat Wildcard)) (FieldPat "b" NilPat (AtPat "\969l" Wildcard))) (FieldExtr "\961")],Generator (LetGen (StrictPat (FieldPat "\962\927\952\957\916" NilPat (AtPat "\946t\935" (AtPat "pCdD" Wildcard)))) (ListCompr (ListLit [FieldSet "\957a"]) [])) [LetGuard (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\921H\963\928\948\964G\966") (AtPat "cc" (ConstrPat "\924\926\924\935y\969\960"))) (StrictPat (ConstrPat "M"))) (StrictPat (PVar "\955q\960"))) (AtPat "b\969" (ConstrPat "\914"))) Wildcard) (LazyPat (PVar "zz"))) NilPat) (Var "\954MD\926\913"),MatchGuard (AtPat "\953\948\&6" (PVar "zu")) (Constr "\923"),BoolGuard (If (SetLit []) (Var "lYA\916\&0rU") (Constr "I\937tc")),MatchGuard Wildcard (For [Generator (TraverseGen Wildcard (FieldExtr "vw")) [BoolGuard (FieldSet "\957")]] (If (FieldMod "\946\947") (SetLit [FieldSet "\945\932o\962"]) (FieldSet "\962k\945\921"))),BoolGuard (FieldSet "js\928sbC"),MatchGuard (AtPat "\945\915" (ConsPat (AtPat "\952\962" (LazyPat (LazyPat Wildcard))) (AtPat "yF\926VV" NilPat))) (FieldMod "\961_\920\920")],Generator (LetGen (LazyPat (FatCommaPat (LazyPat (AtPat "i" (AtPat "_\915\919" NilPat))) NilPat)) (FieldSet "\962\966x")) [MatchGuard (ConsPat (FatCommaPat NilPat (AtPat "z" Wildcard)) (AtPat "\960\&9_U\917\952H" (StrictPat Wildcard))) (FieldMod "lj\913\961"),BoolGuard (SetLit [Var "\956",FieldExtr "u",ListLit [FieldExtr "\947\&0X6",Constr "W\963\928N"]]),MatchGuard Wildcard (FieldSet "j"),LetGuard NilPat (For [] (SetLit [])),LetGuard (FieldPat "\958O63" (FieldPat "l\914" (ConstrPat "\916o\923\958\920E") (AtPat "\954a" (PVar "\946\961"))) (PVar "\953")) (For [Generator (MatchGen (AtPat "oy" Wildcard) (SetLit [SetLit [],Constr "C\948\929k",Constr "\921\916F\935"])) [BoolGuard (ListCompr (FieldExtr "\960\948\919") []),MatchGuard NilPat (App (FieldSet "y") (FieldSet "rO\931y")),BoolGuard (FieldMod "\958D")],Generator (MatchGen (ConstrPat "Vex5") (If (FieldMod "\945\&7") (FieldMod "yz") (FieldExtr "\957q\933"))) [MatchGuard (ConsPat (StrictPat NilPat) (LazyPat (ConstrPat "W9\920"))) (ListCompr (SetLit []) [Generator (TraverseGen NilPat (Constr "\918z")) []]),BoolGuard (Constr "AU\926N")]] (FieldMod "\958"))],Generator (MatchGen (ConsPat (LazyPat (ConsPat Wildcard (StrictPat (ConstrPat "K")))) NilPat) (If (ListCompr (Var "\965") []) (SetCompr (Constr "\928m4X") [Generator (MatchGen (PVar "\950\&0") (FieldMod "\963")) [LetGuard (AppPat (ConstrPat "\922m") (PVar "\952Y")) (Var "\962\949")]]) (SetLit [SetLit [],FieldExtr "egFW"]))) [MatchGuard (LazyPat (LazyPat (ConsPat NilPat (AppPat (AppPat (ConstrPat "\937") (PVar "x0\929")) (PVar "\955Do\923\952\929\954N"))))) (Case (App (FieldSet "du\928A\969\&7\917H") (SetLit [])) []),MatchGuard (FatCommaPat (LazyPat (FieldPat "v" Wildcard Wildcard)) (ConstrPat "\922\948\914AGL")) (Constr "\917F"),LetGuard (FatCommaPat Wildcard (StrictPat (ConsPat (AtPat "dt" (ConstrPat "\929V")) (AppPat (ConstrPat "\932\923\933lt") (AtPat "\968\952" (ConstrPat "T\923")))))) (If (FieldSet "\960") (FieldSet "h\922r6\961") (FieldMod "q2w")),BoolGuard (Case (ListCompr (FieldExtr "blP") []) []),MatchGuard (FatCommaPat (AtPat "\945\&0Y0\926" (LazyPat (AppPat (ConstrPat "N7") (PVar "u\968\969")))) NilPat) (Case (Case (ListLit []) [(Wildcard,Var "qp")]) [(AppPat (AppPat (ConstrPat "\915\&3") Wildcard) (PVar "\948"),Case (Constr "N") []),(FatCommaPat Wildcard (AppPat (ConstrPat "HE27") (LazyPat (PVar "cK"))),Rec [Generator (LetGen (LazyPat (PVar "e")) (FieldSet "\956U")) []] (Var "u\922")),(AtPat "c\965\926F" (FieldPat "\953" (PVar "nO") (LazyPat NilPat)),App (FieldSet "q") (Constr "\927"))])],Generator (TraverseGen (FieldPat "\958" (PVar "\967\965") (FatCommaPat (PVar "n\927") (AtPat "\966" (ConstrPat "\937\933a\918hiy\958")))) (Lambda [Wildcard,NilPat] (ListCompr (Rec [Generator (TraverseGen (AtPat "nf" (PVar "\952\954")) (FieldMod "ps")) [BoolGuard (SetLit [])]] (Var "\951iC\967WkRL")) [Generator (TraverseGen (StrictPat (AtPat "\950" Wildcard)) (FieldMod "z\931")) [LetGuard (AtPat "\956\926" (AtPat "\964" (LazyPat NilPat))) (FieldSet "fB")],Generator (RunGen (Var "u\960\962g")) [BoolGuard (SetCompr (SetLit []) []),MatchGuard (AtPat "m\945\949o" (StrictPat (AppPat (ConstrPat "\935d") (AtPat "\952" NilPat)))) (Var "e5"),BoolGuard (Lambda [ConsPat (StrictPat (ConstrPat "D0\957T")) Wildcard,StrictPat (PVar "k\920\959m"),LazyPat (StrictPat (LazyPat (PVar "k\947s")))] (Lambda [PVar "n\958P\923",AtPat "\964B" (AtPat "\960\913" (AppPat (ConstrPat "\937\917j") (LazyPat (PVar "v\952Su"))))] (FieldMod "\962f\914\955")))]]))) [LetGuard (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\933") Wildcard) Wildcard) (ConstrPat "\921\961\914\&7\924Wc\937")) (PVar "\969\964")) (AtPat "\949a" (PVar "d\965"))) NilPat) (FieldMod "b"),LetGuard Wildcard (FieldSet "\957"),BoolGuard (SetCompr (Case (Var "\951") []) [Generator (LetGen (LazyPat (PVar "s")) (App (FieldMod "mP") (FieldMod "a\948\923D"))) [BoolGuard (Case (FieldExtr "\966\937") [(LazyPat NilPat,ListLit [])]),BoolGuard (Operator (FieldMod "j4\947x") (4,NoAssoc) "<" (Constr "\918\966e")),BoolGuard (Constr "P")],Generator (BindGen (FatCommaPat (AtPat "\964ATy" Wildcard) (StrictPat Wildcard)) (Lambda [AtPat "g" (AtPat "\958x\926" (StrictPat (ConstrPat "L"))),Wildcard,NilPat] (ListCompr (Var "\951\920\915t") []))) [LetGuard (ConsPat Wildcard (ConstrPat "B7j")) (Operator (SetLit []) (6,LeftAssoc) "+" (FieldSet "\960\924aG"))]]),BoolGuard (SetLit [Var "\958\935\918",SetLit [FieldExtr "\963f\950H"],FieldMod "h_t\934\955hsU",SetLit [FieldMod "t\932"],Var "\964",FieldMod "\958F\925\956V\947N",FieldMod "\959"]),MatchGuard NilPat (SetCompr (For [] (FieldExtr "xc")) []),LetGuard Wildcard (SetCompr (SetCompr (Constr "ULB") []) [Generator (BindGen (StrictPat Wildcard) (For [Generator (BindGen NilPat (FieldSet "\947\947")) [LetGuard (PVar "\951c") (Constr "C")]] (FieldMod "s"))) [LetGuard Wildcard (App (FieldExtr "\947\960") (Constr "\925")),LetGuard (FieldPat "g" (StrictPat (PVar "\945E\959")) NilPat) (FieldMod "\969UM\946"),MatchGuard (AtPat "v\937" (PVar "\950o\931")) (ListCompr (FieldMod "b") [Generator (RunGen (Var "v")) []])],Generator (LetGen (FatCommaPat (PVar "\967\924") (AtPat "\966\&0TR" (PVar "\961\925"))) (FieldExtr "\957\922\&9\915")) [LetGuard (PVar "o") (Constr "A\959\918"),MatchGuard (PVar "\968E\925") (FieldMod "\963"),LetGuard (LazyPat (AppPat (AppPat (ConstrPat "G\949L0") (AppPat (ConstrPat "K\921\928\962") (StrictPat (ConstrPat "S")))) Wildcard)) (Constr "C")],Generator (TraverseGen NilPat (FieldSet "\964")) [LetGuard (AppPat (ConstrPat "Zf\968") (StrictPat (FieldPat "\960E1P" (PVar "\963\963") (PVar "\962p")))) (App (ListLit []) (SetLit [FieldExtr "\960"])),LetGuard (AppPat (AppPat (AppPat (ConstrPat "\918") (AtPat "e\946aQ" Wildcard)) NilPat) (LazyPat NilPat)) (SetCompr (FieldMod "v\963") [Generator (MatchGen NilPat (Var "\953\918")) [LetGuard (LazyPat (ConstrPat "\934V")) (ListLit [])]])]]),MatchGuard (FieldPat "e\923" (FatCommaPat (AtPat "cz\958\&5nhQz" (PVar "xn\921")) Wildcard) (ConsPat NilPat Wildcard)) (ListCompr (If (ListLit []) (FieldExtr "h") (ListLit [FieldExtr "\961T\927\&3\964"])) [Generator (BindGen (AtPat "\959\957" (PVar "\952")) (Rec [] (FieldSet "\949"))) [BoolGuard (FieldMod "i\966"),BoolGuard (Operator (FieldMod "x\958\954") (2,RightAssoc) "\8744" (FieldExtr "\961x\916"))]])],Generator (MatchGen NilPat (ListLit [Rec [Generator (TraverseGen NilPat (FieldMod "sE")) []] (FieldExtr "\946"),Lambda [FatCommaPat (ConsPat Wildcard (StrictPat (ConstrPat "\921"))) (LazyPat (StrictPat Wildcard))] (Constr "\915S"),SetCompr (FieldMod "r\948") [Generator (LetGen (ConstrPat "C") (ListLit [FieldExtr "f\928"])) [BoolGuard (FieldSet "\946")]]])) [LetGuard Wildcard (Var "\952")],Generator (TraverseGen Wildcard (Case (FieldMod "\965\969\915\&8") [(ConsPat (StrictPat (PVar "\954")) (ConstrPat "\916"),Var "\952X\951"),(Wildcard,Operator (FieldSet "\952i") (8,RightAssoc) "**" (ListLit [])),(AtPat "w_Mm" (AtPat "\948C" (PVar "\951\955zW")),Constr "Ak")])) [MatchGuard NilPat (Constr "E\962"),BoolGuard (Var "vL\921d38wn"),BoolGuard (SetCompr (App (Constr "\933") (Var "oA")) []),BoolGuard (For [Generator (MatchGen (PVar "\948\927B\932") (Constr "\927\931")) [LetGuard (AtPat "\963Yp" (LazyPat (LazyPat NilPat))) (FieldMod "xi_x"),MatchGuard (LazyPat (PVar "\969\932el")) (FieldExtr "ir\947\931")],Generator (MatchGen NilPat (Operator (FieldExtr "\956") (4,NoAssoc) "\8801" (SetLit [Var "\967\967\968y"]))) [MatchGuard NilPat (Case (FieldSet "aD") [(AtPat "\963T" Wildcard,FieldSet "\953D")]),LetGuard (FatCommaPat Wildcard (LazyPat NilPat)) (ListLit [Constr "\933h\952l",FieldSet "\947\921\946J",FieldSet "a"]),BoolGuard (ListLit [])]] (For [] (ListLit [])))]] (Operator (FieldMod "d") (4,NoAssoc) "\8805" (If (Var "\969x") (Var "d") (FieldExtr "v3")))),MatchGuard (AtPat "a" (AtPat "\957" (AtPat "j" (StrictPat (StrictPat (LazyPat (LazyPat (AtPat "\957" (PVar "d\923"))))))))) (FieldSet "f\937"),LetGuard NilPat (ListLit [Rec [Generator (TraverseGen (AppPat (AppPat (ConstrPat "\918") (StrictPat (ConstrPat "\932\&3"))) Wildcard) (Operator (SetLit []) (5,RightAssoc) "\8658" (FieldSet "\969hA"))) [LetGuard (FieldPat "\962" Wildcard (PVar "dd\953")) (SetCompr (FieldSet "qA") [Generator (RunGen (SetLit [Constr "\936"])) []]),MatchGuard Wildcard (Var "a\928\924")]] (SetCompr (SetLit []) []),FieldMod "\959\&2l1Fp",If (FieldMod "f\956") (SetLit [Constr "D2\960T\953\923R\931B\913"]) (ListLit [])]),MatchGuard Wildcard (App (FieldExtr "\957\934\931") (FieldExtr "m\952")),LetGuard (PVar "s\936sb\937G") (FieldExtr "\952"),MatchGuard (AtPat "\952q\954G" (FieldPat "g" (AppPat (ConstrPat "\931bI\955l\931\956Q\963") (ConsPat (PVar "\960\921") (PVar "lC"))) Wildcard)) (SetLit [Constr "M\951",FieldMod "\958b5N\969O",ListCompr (Var "\968\&7d") [Generator (LetGen (StrictPat Wildcard) (FieldExtr "o")) [LetGuard (PVar "z") (Constr "N\964")]],FieldMod "\965YD_\963",Constr "\936\914\966\949",FieldExtr "\968",Lambda [PVar "\952\963He\946",ConsPat (FieldPat "\956\966x\964" (AtPat "vT\929\968" (PVar "q\917")) NilPat) (StrictPat (PVar "zJn")),ConsPat (AtPat "bv\959\926\&4" (AtPat "k\935\&8S\965" (FieldPat "n" (ConstrPat "Y\932I\969\955") (FieldPat "\961\913" (ConstrPat "SQ") NilPat)))) NilPat,AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "A") (PVar "\952\952\919T")) (PVar "g\957\963gN")) (PVar "j\963\931")) (StrictPat (ConsPat (PVar "k") (StrictPat Wildcard)))) (PVar "sRV"),NilPat,NilPat,ConsPat (AtPat "\950\968\929" (LazyPat (AtPat "\964\969dP\948W" Wildcard))) (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "O") (AppPat (ConstrPat "J") (LazyPat (ConstrPat "\913")))) Wildcard) (StrictPat NilPat)) (LazyPat (PVar "\956"))) NilPat),ConstrPat "\936pPa2\960B\952\920\945\936",FatCommaPat NilPat (AtPat "\954" (StrictPat (FatCommaPat Wildcard (FatCommaPat Wildcard (AtPat "l" (PVar "v\915\952N")))))),Wildcard] (SetLit [])]),MatchGuard Wildcard (ListLit [SetCompr (Rec [Generator (MatchGen Wildcard (For [Generator (MatchGen (StrictPat (PVar "zn")) (ListLit [])) [MatchGuard (AtPat "eN" NilPat) (FieldExtr "\969\960")]] (Constr "I\950g\917"))) [MatchGuard (AtPat "\951l_X" (LazyPat Wildcard)) (FieldSet "\951\958\929\926"),MatchGuard NilPat (If (SetLit []) (Var "o") (FieldExtr "\953"))],Generator (LetGen (AtPat "r" (AtPat "\965q7" (AtPat "\952R" Wildcard))) (FieldSet "mRR")) [],Generator (LetGen (AtPat "p" (AppPat (AppPat (ConstrPat "\914") (PVar "\952E")) (LazyPat (ConstrPat "\917e")))) (Lambda [FieldPat "_Vh" NilPat Wildcard,PVar "m7"] (FieldMod "j"))) [LetGuard (StrictPat (PVar "a")) (ListCompr (Var "y") []),LetGuard NilPat (FieldExtr "v\962\921d"),BoolGuard (For [] (Constr "\923"))]] (SetLit [ListLit [If (SetLit []) (SetLit []) (ListLit [])]])) [Generator (TraverseGen (FieldPat "\946m" NilPat (StrictPat NilPat)) (ListCompr (If (SetLit []) (ListLit [Constr "Rp52rw"]) (FieldMod "\951pu\937\922\949")) [Generator (TraverseGen (AppPat (ConstrPat "GY\919") (StrictPat (LazyPat (LazyPat (PVar "k\935"))))) (SetLit [ListLit [Constr "V\925"],FieldExtr "\951",Constr "\916MH"])) [MatchGuard (ConsPat Wildcard Wildcard) (Constr "T"),MatchGuard (StrictPat NilPat) (ListCompr (Var "\947W") [])],Generator (TraverseGen (FatCommaPat (LazyPat (ConstrPat "Ey\927a")) NilPat) (ListCompr (ListLit []) [Generator (TraverseGen (LazyPat Wildcard) (FieldExtr "\950_")) []])) [LetGuard (StrictPat (FieldPat "\953\934" (LazyPat NilPat) (StrictPat NilPat))) (App (FieldSet "\952\964s\937") (FieldMod "y")),BoolGuard (SetLit []),MatchGuard (StrictPat (FatCommaPat Wildcard NilPat)) (FieldMod "\956\936\961")],Generator (LetGen (AppPat (ConstrPat "\936Z") (FatCommaPat (StrictPat (PVar "e\966n\914")) (LazyPat (ConstrPat "Gi\931")))) (FieldSet "p0nk")) [MatchGuard (AtPat "\953" (ConstrPat "Za")) (FieldSet "\962M\917\917")]])) [LetGuard (FieldPat "y\932\937ka\968e\958" (ConsPat (AtPat "g" (ConstrPat "DG")) (AppPat (ConstrPat "Lh") Wildcard)) (FatCommaPat (PVar "\966") (StrictPat (ConstrPat "F\920\956j\969\926M")))) (SetLit [FieldSet "v\945",FieldSet "n"]),MatchGuard (FatCommaPat NilPat (FieldPat "\948" Wildcard Wildcard)) (Lambda [FatCommaPat (PVar "yv\968") (LazyPat NilPat),NilPat,AtPat "\963\963" (PVar "\954")] (SetLit [FieldMod "voU\913\961vU\963",FieldSet "m\945wzqHor",FieldSet "\956",FieldSet "\948u",FieldSet "\962\&8lD\931"])),MatchGuard (FatCommaPat Wildcard Wildcard) (App (Constr "Z8") (ListLit [For [Generator (LetGen (AtPat "os" NilPat) (Var "\965")) []] (Constr "JBa37\935A")])),BoolGuard (Lambda [AppPat (ConstrPat "J") NilPat,StrictPat (FatCommaPat NilPat (FatCommaPat (AppPat (ConstrPat "\924\967E\945\956\935\961") Wildcard) NilPat)),NilPat,Wildcard,ConsPat (AppPat (ConstrPat "Um") (LazyPat (ConsPat (StrictPat (ConstrPat "G\924")) (AtPat "\966\921\931" Wildcard)))) (FatCommaPat (PVar "\949\931") Wildcard),ConsPat NilPat (LazyPat (FatCommaPat (StrictPat (ConstrPat "\923\926\953")) NilPat)),ConsPat Wildcard (StrictPat (LazyPat (PVar "\959oPb\948\&3"))),FieldPat "sB\954" Wildcard (FieldPat "\967\962\945EC" NilPat (StrictPat (ConstrPat "\913\&9\918")))] (FieldSet "s\957")),MatchGuard (AppPat (AppPat (AppPat (ConstrPat "\918\918i") (ConsPat (PVar "\966") (AtPat "bl" (PVar "\949")))) NilPat) (FieldPat "a\957" (ConstrPat "\919\947\&5") (AppPat (ConstrPat "I\969") Wildcard))) (ListLit [Var "\956\949\949",For [Generator (RunGen (ListLit [])) []] (Var "q\947"),FieldMod "kq\914\&8"])],Generator (TraverseGen (AtPat "h" NilPat) (SetLit [FieldSet "l",Constr "\937KH\950\924g\917\963",FieldMod "dJlHY\922_",ListLit [],SetLit [FieldSet "o"]])) [LetGuard (AppPat (AppPat (ConstrPat "\931\962o\948\914") Wildcard) NilPat) (SetCompr (FieldMod "\964\924l\952") [])]]]),BoolGuard (For [] (If (SetLit [SetLit [SetLit []],FieldExtr "\964z"]) (FieldSet "m\948WD") (SetLit [Constr "H",Constr "U\965"]))),MatchGuard (LazyPat (LazyPat (StrictPat (FatCommaPat (PVar "\957DYOX3M") (PVar "iu"))))) (App (SetLit [FieldExtr "e\927\955"]) (If (Case (SetLit []) []) (SetCompr (SetLit []) [Generator (MatchGen (AtPat "x" (ConstrPat "\936\954")) (ListLit [ListLit []])) []]) (App (FieldMod "\950B9eV5") (FieldSet "m\956\&5")))),BoolGuard (FieldSet "y"),LetGuard (StrictPat (LazyPat (FieldPat "\965" (LazyPat Wildcard) (ConsPat (FieldPat "\945sQr3lkD\961b" (ConstrPat "\935") (AtPat "\951\928rc1V" (PVar "jmx"))) (AppPat (AppPat (ConstrPat "T") NilPat) (LazyPat NilPat)))))) (App (For [Generator (MatchGen (AtPat "k0" (LazyPat (LazyPat Wildcard))) (ListLit [FieldMod "w"])) [LetGuard (AtPat "\948x\922u" (FatCommaPat (PVar "riM2") (AtPat "h\922" (ConstrPat "Eb")))) (Lambda [LazyPat (AtPat "rtM4" (AtPat "\957\967" Wildcard)),ConsPat Wildcard (LazyPat (ConstrPat "S")),AtPat "yZP" (ConsPat (LazyPat Wildcard) (StrictPat Wildcard))] (Var "vxs\946"))]] (For [Generator (RunGen (Var "\965")) []] (Constr "W\958\&5\956"))) (Var "\949"))],Generator (TraverseGen (AtPat "enpt\915pv9S" (AppPat (AppPat (AppPat (ConstrPat "A") (PVar "f")) (FatCommaPat (LazyPat (AtPat "\954JB\952" NilPat)) (StrictPat (ConstrPat "QP")))) (FieldPat "\947\&4" (PVar "j") (FieldPat "f\956\931dA" (LazyPat NilPat) Wildcard)))) (Var "\966\965\915\922\922l\935\934")) [LetGuard (AtPat "\955p0" (FieldPat "_qw\919OD\961" (AtPat "\967" (FatCommaPat Wildcard (PVar "\961\922hHq"))) (PVar "r\955b"))) (Constr "\921"),MatchGuard (ConsPat (ConsPat (AtPat "k\946T\961\968\963u" NilPat) NilPat) (FatCommaPat (ConsPat (PVar "f") (AtPat "g\955_" (PVar "rPesFt"))) (AtPat "u" (AtPat "pz3\963\961c" NilPat)))) (FieldExtr "e\963Q"),MatchGuard (AtPat "tSz" Wildcard) (Operator (If (Var "\969\&8p\935\922") (Case (ListLit [Constr "K\969\947Y"]) []) (FieldSet "\961")) (2,RightAssoc) "\8744" (ListCompr (App (FieldSet "xu") (FieldSet "\957")) [])),MatchGuard (ConsPat (PVar "\959Z") (AtPat "c" (PVar "\947I9B"))) (FieldExtr "h"),BoolGuard (Lambda [AtPat "\963D\952k4c\946\931\933" (FieldPat "k" (ConsPat (FieldPat "iMnut" (LazyPat (PVar "e")) (PVar "\951\962")) (StrictPat (ConsPat (LazyPat NilPat) NilPat))) (LazyPat (ConstrPat "\922v"))),StrictPat NilPat,LazyPat (AtPat "p\960\948" (StrictPat Wildcard)),AtPat "r\956\&8" Wildcard,ConsPat Wildcard (FatCommaPat (StrictPat Wildcard) Wildcard),FieldPat "uMA" (FieldPat "x" (LazyPat (LazyPat (LazyPat NilPat))) (StrictPat NilPat)) (AtPat "\969\952\936\957" (AtPat "l" (LazyPat Wildcard))),NilPat,AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "M\923\960u\928Tc\922E") (AtPat "\966\932\953" (ConstrPat "L"))) (LazyPat Wildcard)) (PVar "_90DccyI\954f")) (AtPat "\950\915pDv" (PVar "zi\916\928"))) (PVar "o\952\933")) (ConstrPat "M")) (StrictPat (ConstrPat "C"))) (LazyPat (ConstrPat "CD"))) (AtPat "y" NilPat)) (ConstrPat "ZLo\932\924L")) NilPat) NilPat) (AtPat "\951\964" NilPat)) (AtPat "l2T\954" (PVar "gL")),StrictPat Wildcard,Wildcard] (FieldMod "ogA\920")),MatchGuard (LazyPat NilPat) (Rec [] (Rec [Generator (RunGen (FieldExtr "h\918")) [],Generator (RunGen (Var "\960\958\961q")) [BoolGuard (FieldSet "haO"),BoolGuard (ListCompr (Constr "R\926\924") [Generator (MatchGen (StrictPat NilPat) (FieldExtr "\958\917")) []])],Generator (TraverseGen (AppPat (ConstrPat "\913\&3") (FieldPat "wV\917\918" (AtPat "\969L" Wildcard) (AtPat "\954a" (PVar "fM\925L")))) (FieldExtr "bxaE")) []] (Var "z"))),BoolGuard (Lambda [StrictPat NilPat,NilPat,AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "O") (AtPat "\955HWY\948Kt" Wildcard)) NilPat) (PVar "z\969")) (AtPat "\951\947\924p" (PVar "\952\949"))) (StrictPat Wildcard)) (PVar "dz\928\961\966")) NilPat) Wildcard] (Rec [Generator (MatchGen (FatCommaPat (AtPat "bz6\954\924\948k" (LazyPat (LazyPat (PVar "g\958\916\931")))) (AppPat (AppPat (AppPat (ConstrPat "T\920E\969\956\&9") NilPat) Wildcard) NilPat)) (SetCompr (If (ListLit [ListLit []]) (ListLit []) (FieldSet "\960s\946")) [Generator (BindGen (AtPat "\958Ft\947" (LazyPat Wildcard)) (Operator (FieldSet "fif") (2,RightAssoc) "\8744" (Constr "\913\958"))) [BoolGuard (Var "rc")],Generator (LetGen (AtPat "wRd" (FieldPat "l\966\915" (AppPat (ConstrPat "GFox") (StrictPat (PVar "\948\968\934Q"))) (PVar "\954"))) (ListLit [FieldExtr "q",FieldMod "\947"])) [LetGuard (StrictPat (PVar "\948\954\&6")) (FieldExtr "u"),LetGuard Wildcard (Operator (FieldExtr "\969vg") (7,LeftAssoc) "%" (FieldSet "\956i\916w")),LetGuard (ConsPat (AtPat "nY\954\921" (PVar "i\965\965\928")) NilPat) (Constr "\920s0")]])) [LetGuard (PVar "v") (ListCompr (For [Generator (MatchGen (AtPat "\952\&3" (ConstrPat "\920\963")) (FieldMod "\950y")) [LetGuard (LazyPat (ConstrPat "\935j")) (FieldMod "x")]] (Constr "R")) [Generator (RunGen (Case (Var "h") [(Wildcard,FieldSet "\948")])) [MatchGuard NilPat (Lambda [Wildcard,AtPat "b\916" (FieldPat "\955\&1x7" (AppPat (ConstrPat "Ku\951A") (ConstrPat "\933")) Wildcard),NilPat,FieldPat "\957R" (AppPat (ConstrPat "W") (PVar "g\933\945")) (AtPat "\945\967\959\953" (ConstrPat "\937"))] (ListLit [App (ListLit []) (FieldExtr "wm")])),LetGuard (AtPat "\961\960\953\931" (ConstrPat "\914\966")) (Var "\945")],Generator (RunGen (If (SetLit []) (SetLit [ListLit [Constr "OHC"]]) (FieldSet "\963\929\919"))) [LetGuard (ConsPat (StrictPat NilPat) (LazyPat NilPat)) (FieldSet "q\951")]]),BoolGuard (SetLit [ListLit [],ListLit [FieldSet "\969W6\916YX"],SetLit [],FieldExtr "y\963",Var "\968Uy\945",SetLit []]),LetGuard (StrictPat (ConsPat (AppPat (AppPat (AppPat (ConstrPat "N\928\960\955\&9") Wildcard) (StrictPat (PVar "l\915"))) (PVar "kL\958ct\966")) (FieldPat "\966\919Zen\925Xs" (StrictPat (ConstrPat "R\913\956q\913")) NilPat))) (FieldSet "a"),LetGuard (PVar "\952O\936\964he\922U") (Lambda [AtPat "\949" (PVar "pTf88O9\966")] (Rec [Generator (LetGen (ConsPat Wildcard (AtPat "\968\924\&6" (ConstrPat "\924\965\925\945"))) (FieldExtr "\967B\937\923")) [MatchGuard Wildcard (FieldMod "\956A\965"),BoolGuard (Rec [Generator (BindGen (StrictPat NilPat) (FieldExtr "m")) [LetGuard (AtPat "\961y" (PVar "hy")) (Var "\955j")]] (ListLit []))],Generator (LetGen Wildcard (Rec [Generator (LetGen (StrictPat Wildcard) (ListLit [FieldMod "\950"])) []] (FieldExtr "wt\964\945"))) [MatchGuard (FieldPat "a\964" (AtPat "\948n" NilPat) (StrictPat Wildcard)) (FieldMod "d"),BoolGuard (Constr "\933")],Generator (TraverseGen (StrictPat (AppPat (ConstrPat "\928\921bq") (PVar "vR\952"))) (FieldSet "x")) []] (Case (SetLit []) [(AtPat "\962g" (ConstrPat "\927d"),FieldMod "t\962")]))),MatchGuard (StrictPat NilPat) (App (For [Generator (LetGen (LazyPat (ConstrPat "E\936")) (Var "aT")) []] (SetLit [Var "\960"])) (App (Constr "Q\945\931\967C") (FieldMod "\969"))),LetGuard (ConsPat (LazyPat (PVar "ed\946\960\933\964Al")) (ConsPat (PVar "o") (AtPat "\969\915" (ConstrPat "\937o")))) (FieldMod "f\960J\969og\932")],Generator (LetGen (ConsPat (AppPat (AppPat (AppPat (ConstrPat "\925") (StrictPat Wildcard)) (StrictPat Wildcard)) (StrictPat (ConstrPat "T"))) (ConsPat (StrictPat (PVar "\955\922")) NilPat)) (Operator (Constr "\921zUz") (8,RightAssoc) "^" (FieldMod "h\951J9T"))) [MatchGuard (LazyPat (FatCommaPat (PVar "\968\915") (AppPat (ConstrPat "CG4") (FieldPat "\957D1\957T\928i" Wildcard NilPat)))) (Case (Var "\945Y\935MZ") []),MatchGuard (FieldPat "l" (PVar "\961\955") (ConsPat NilPat NilPat)) (App (For [Generator (LetGen Wildcard (FieldExtr "\968\925")) []] (FieldSet "b")) (If (FieldExtr "\969\946t\919") (FieldExtr "\952\927") (SetLit [FieldSet "\951\920\926\921"])))],Generator (LetGen (LazyPat (LazyPat (AppPat (AppPat (AppPat (ConstrPat "U") (StrictPat (ConstrPat "XA\928kK"))) (PVar "\963\945")) (PVar "\964")))) (Case (App (FieldSet "h\925El\968\913\915L") (Constr "Z\947\924\915ht")) [(NilPat,FieldMod "l9"),(LazyPat (PVar "\945"),Operator (FieldSet "fp") (4,NoAssoc) ">" (Constr "Ky\934m"))])) [MatchGuard (FieldPat "s" (PVar "\949d0") (FieldPat "i\961b\935\922hz" Wildcard NilPat)) (ListCompr (SetCompr (FieldExtr "\967") [Generator (RunGen (FieldMod "v2")) []]) [])],Generator (RunGen (Lambda [FatCommaPat (PVar "c0\967\923Q") (LazyPat NilPat),AtPat "u" (FatCommaPat (LazyPat (FatCommaPat (LazyPat (PVar "fK")) (StrictPat (PVar "u8Y")))) (PVar "pf")),PVar "i\913",StrictPat Wildcard,StrictPat (ConsPat (ConsPat NilPat (AtPat "k" (PVar "p\968N\933\945\953\&3\952"))) (ConsPat (LazyPat Wildcard) NilPat)),FieldPat "lQw\960\960J" (FieldPat "e\947\924L\955\921p0" (AtPat "n" (ConstrPat "L")) Wildcard) (AtPat "h" (FatCommaPat (PVar "\950") (LazyPat NilPat))),AtPat "y\967\924H\952Y" (AtPat "\946V\961" (AtPat "j" (FatCommaPat (FieldPat "\961" (PVar "t\952") (PVar "s")) (AtPat "\955\950" (PVar "f")))))] (For [] (Rec [Generator (BindGen (LazyPat (PVar "\946\&0")) (FieldMod "\958v")) [BoolGuard (ListLit [FieldExtr "\958R"])]] (Constr "\932"))))) [BoolGuard (Var "hD\923\918w")],Generator (MatchGen (PVar "\952\950T") (App (ListCompr (FieldMod "\963\945") [Generator (RunGen (SetLit [])) []]) (Lambda [AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\923\962\937") (AtPat "\960\929\945\925wp\956r" (ConstrPat "\917"))) (AppPat (ConstrPat "Xu\960w") (StrictPat NilPat))) Wildcard) (LazyPat NilPat)) (PVar "v"),StrictPat (FieldPat "t\925" (FieldPat "a\969" NilPat (LazyPat (PVar "o\967"))) (AtPat "o" NilPat)),FieldPat "s5" (ConsPat NilPat (PVar "\957\935P")) (AppPat (AppPat (ConstrPat "\929\925G3") (LazyPat (PVar "r\922"))) (StrictPat NilPat)),AtPat "wu\924\937Q" Wildcard,FieldPat "x" (LazyPat (FatCommaPat (AppPat (ConstrPat "\937\922\952W") (AppPat (ConstrPat "\923A") (LazyPat (ConstrPat "G")))) (StrictPat Wildcard))) (LazyPat (PVar "d")),FatCommaPat (LazyPat NilPat) NilPat,AtPat "\946Fu" (ConsPat Wildcard NilPat),AtPat "\948" (StrictPat (StrictPat Wildcard))] (SetLit [])))) [MatchGuard (ConsPat NilPat (PVar "hV\920")) (FieldExtr "\967\952"),BoolGuard (For [Generator (BindGen Wildcard (For [] (FieldMod "\964T"))) [LetGuard NilPat (Var "g")],Generator (RunGen (For [Generator (LetGen Wildcard (FieldMod "\959\922")) []] (SetLit [FieldMod "p"]))) [LetGuard (AtPat "mYL\937" (FatCommaPat (AppPat (ConstrPat "H") Wildcard) (AtPat "\961" NilPat))) (Constr "\929"),LetGuard (PVar "\960j9g") (Lambda [AtPat "\966\951" (LazyPat NilPat)] (FieldSet "qK")),BoolGuard (Case (FieldMod "a\956\952q") [])],Generator (MatchGen (LazyPat (StrictPat (LazyPat (ConstrPat "M\968G1")))) (App (ListLit [FieldExtr "\952\935P"]) (FieldExtr "\953G\920"))) [BoolGuard (Constr "\921YY\959")]] (ListLit [])),MatchGuard (PVar "\946i") (SetLit [ListCompr (Var "\951\955") [Generator (TraverseGen (StrictPat Wildcard) (FieldExtr "\948\923")) []],FieldSet "_\949\936m"]),BoolGuard (ListCompr (SetLit [SetCompr (ListLit []) [Generator (TraverseGen (AppPat (ConstrPat "\928H") NilPat) (FieldExtr "yG")) []]]) [Generator (BindGen NilPat (SetCompr (FieldMod "w") [Generator (RunGen (Constr "\937\962")) [LetGuard (AppPat (ConstrPat "\933i") (StrictPat (ConstrPat "Uf"))) (FieldExtr "d\915")]])) [LetGuard (PVar "\945Pi") (Lambda [FatCommaPat (AtPat "\948" (PVar "\950A9")) (PVar "pO"),Wildcard,ConsPat (AtPat "\956\933" NilPat) (AtPat "\963\928" Wildcard),ConstrPat "C"] (Constr "\927\960")),BoolGuard (Rec [Generator (BindGen (PVar "w") (Var "\956\945")) []] (SetLit [])),LetGuard (StrictPat (PVar "\958\&5A5")) (FieldSet "\958\949\922")]])]] (SetLit [SetLit [Var "\968"],SetLit [FieldSet "rB"],FieldMod "r",FieldSet "hQ\914tx"]))),LetGuard (ConsPat (PVar "tIQD\920") (AtPat "y\920LpQ" (FieldPat "xN\951" (FieldPat "y" Wildcard NilPat) (LazyPat (FieldPat "f" Wildcard (AppPat (ConstrPat "RsiMDaZ6") (LazyPat (PVar "\963Q\960\965")))))))) (Constr "O\921zN"),BoolGuard (SetLit [ListLit [],FieldSet "v\966\920",FieldExtr "\945Pu\922WB",FieldMod "\962\923",FieldSet "\945zk_\932P\959\925\968C\919\962\924\931\948",FieldMod "k",Var "l",Constr "E\967o",Constr "\913\967",FieldExtr "\945\932\957knlP9\914\936\960\926\952\967O",FieldMod "gx"]),BoolGuard (App (Case (FieldMod "\951\964") [(Wildcard,Rec [] (SetLit [SetLit []])),(FieldPat "\966\949wv" (LazyPat (ConstrPat "\924\948")) (StrictPat Wildcard),FieldMod "\961G")]) (Case (FieldSet "\965a\960") [(FatCommaPat (AppPat (ConstrPat "H\955\958") NilPat) (PVar "x"),Var "\952M"),(AppPat (AppPat (ConstrPat "\937") (AppPat (ConstrPat "OGO") (PVar "f"))) Wildcard,Rec [] (ListLit [])),(StrictPat (ConsPat (AtPat "nsF\914" Wildcard) (LazyPat (PVar "iH"))),ListCompr (FieldExtr "\965\946\947") [])])),MatchGuard Wildcard (Lambda [FieldPat "y" (FieldPat "\959" (LazyPat (AppPat (ConstrPat "P\924") (FieldPat "m\967" Wildcard (ConstrPat "S_d\937\926\932Rp")))) (ConsPat (StrictPat NilPat) (LazyPat (PVar "s")))) (AppPat (ConstrPat "C\923") (LazyPat (FieldPat "ePYToBPBx" (StrictPat NilPat) (FatCommaPat (AtPat "k" (ConstrPat "X\947E")) (AppPat (ConstrPat "\913k") (LazyPat (PVar "s"))))))),FatCommaPat (FatCommaPat (AtPat "z\946BV" (ConsPat Wildcard (AtPat "z2" Wildcard))) (FieldPat "\947" NilPat NilPat)) (FieldPat "a" Wildcard (AtPat "jK" (PVar "s1"))),StrictPat (StrictPat (FatCommaPat (ConsPat (AtPat "j" (StrictPat (StrictPat Wildcard))) (PVar "l\913x")) (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\934\929") (AtPat "\963b" NilPat)) Wildcard) (AppPat (ConstrPat "J9\951\933") Wildcard)) Wildcard) (AtPat "\951\&7" (PVar "\951"))) NilPat))),StrictPat (FatCommaPat NilPat (PVar "\945")),AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\919\919") (ConstrPat "\923I9a")) Wildcard) (LazyPat Wildcard)) (AtPat "n\932\&7\958\960" NilPat)) NilPat) (AtPat "d\951\948B" NilPat)) (LazyPat (PVar "yqjW"))) (AppPat (ConstrPat "\918") NilPat)) (LazyPat (PVar "c"))) (AtPat "\948o" (PVar "m\937kO"))) NilPat) Wildcard) (AppPat (ConstrPat "\932\&9\953") (LazyPat Wildcard)),NilPat,AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\931Dz") (LazyPat Wildcard)) (StrictPat (AtPat "\946O\932" (PVar "b\929\965_")))) (StrictPat (ConsPat Wildcard (ConstrPat "W\922")))) (AtPat "x\952" Wildcard)) (ConsPat NilPat (AtPat "\950" Wildcard)),FatCommaPat (PVar "\953\918") (PVar "e"),LazyPat (ConstrPat "\913"),StrictPat (FieldPat "\949" (FieldPat "\945" (PVar "\952E\965yiaQ\925") (ConsPat NilPat (ConstrPat "C"))) (FieldPat "\967\959" (LazyPat Wildcard) (LazyPat NilPat)))] (FieldExtr "n")),LetGuard Wildcard (Lambda [PVar "\952\963Ywj",AtPat "km\966B\915" (AtPat "t" Wildcard),AppPat (ConstrPat "\913") (LazyPat NilPat),FieldPat "j8\947\947vwp\932\936\952" Wildcard (AppPat (AppPat (AppPat (AppPat (ConstrPat "\935Fw") (PVar "pL\967\966\931t")) (AtPat "fpt\954" NilPat)) (StrictPat NilPat)) (AtPat "m" NilPat))] (Var "nkhgl"))],Generator (LetGen (FatCommaPat (AppPat (AppPat (ConstrPat "\917\&5") Wildcard) (ConsPat Wildcard (LazyPat Wildcard))) (FatCommaPat (AppPat (AppPat (ConstrPat "Zuq3") (StrictPat (PVar "g\931"))) (PVar "f\928\949\&9T6\960ToL")) (ConsPat (AtPat "p" NilPat) (ConstrPat "C")))) (ListLit [SetLit [FieldExtr "\959"],ListLit [FieldMod "y"],FieldExtr "i",FieldMod "\948\&2",SetLit [],ListLit [],Var "pGULoht\964FR7",FieldSet "yc",FieldSet "h\957",FieldExtr "\964H4L",Var "a7",FieldMod "\966_QjWb\966DA",Var "\952\914"])) [MatchGuard NilPat (Case (Operator (FieldMod "qYs") (5,RightAssoc) "\8658" (SetLit [ListLit [FieldMod "\952M\955"],FieldExtr "k",FieldSet "kn\937f"])) [(AtPat "\965\&6\961\959YF" (PVar "l"),ListCompr (SetLit []) [Generator (MatchGen (LazyPat (FieldPat "h8ri" (StrictPat (PVar "\948S")) (StrictPat (ConstrPat "A\952\964\934")))) (ListLit [Rec [Generator (TraverseGen (PVar "t\947") (FieldSet "u")) []] (Var "dW1")])) [BoolGuard (Var "\969A")]]),(AppPat (AppPat (AppPat (AppPat (ConstrPat "Ho") (AtPat "\950N" (PVar "k"))) (AtPat "bz5\968hU" (ConstrPat "\925\965\946Y"))) Wildcard) NilPat,SetCompr (Lambda [LazyPat (LazyPat NilPat),PVar "f"] (FieldExtr "h")) []),(PVar "_G\915",FieldSet "\952m\960"),(PVar "z\947",Case (Operator (FieldExtr "\963Q\920\955") (7,LeftAssoc) "/" (FieldMod "\947")) []),(StrictPat (ConsPat (AppPat (ConstrPat "KY\925G\945b2\928") (FatCommaPat (StrictPat NilPat) (PVar "aD\960\929\958"))) (AppPat (ConstrPat "HM\920d") (FatCommaPat (PVar "\948\925\964\922\915w4") (AtPat "\969\925\946N" NilPat)))),FieldExtr "\952FZiW"),(ConstrPat "RB3biD",Lambda [Wildcard,FieldPat "\962U9E" (AppPat (AppPat (ConstrPat "M") (AtPat "\952\920" Wildcard)) (StrictPat (PVar "d"))) NilPat,AtPat "\965f2\947M\929" (FatCommaPat Wildcard (FatCommaPat (StrictPat NilPat) (AppPat (ConstrPat "U_\953xgMv") (LazyPat NilPat)))),PVar "a",ConsPat (FatCommaPat NilPat (LazyPat NilPat)) (FatCommaPat NilPat NilPat)] (FieldSet "m"))]),MatchGuard (PVar "w") (If (FieldExtr "n\967\920\918kU9\950") (Rec [Generator (LetGen NilPat (Rec [] (Var "\947\958L"))) [BoolGuard (SetCompr (FieldExtr "w\929\920") []),LetGuard (AtPat "z" NilPat) (Var "\958\926\918")],Generator (MatchGen (FatCommaPat Wildcard NilPat) (SetLit [])) [LetGuard (ConsPat (StrictPat Wildcard) (PVar "\968\&4z")) (App (FieldSet "\945P\962") (ListLit [FieldMod "o9"]))]] (Case (FieldExtr "cIXd0") [])) (Constr "EwI")),MatchGuard (ConsPat (FieldPat "\958\917" (LazyPat (PVar "\962")) (FatCommaPat Wildcard (StrictPat NilPat))) (PVar "u")) (FieldMod "le\947Jb8xlp\929"),BoolGuard (Rec [Generator (MatchGen (FieldPat "\965" (ConsPat (PVar "\966\966\950") (AtPat "\969\&4C" Wildcard)) (ConstrPat "GiuX")) (Rec [Generator (LetGen Wildcard (Operator (FieldMod "x4K\969") (5,RightAssoc) ":" (FieldExtr "\947\913"))) [],Generator (TraverseGen (StrictPat (FatCommaPat NilPat (PVar "\964dP"))) (SetLit [FieldMod "h",Var "z"])) [MatchGuard (AtPat "\948\949" (PVar "f1\928")) (Operator (FieldMod "\949") (4,NoAssoc) "\8804" (Var "\953\968HG"))]] (ListCompr (Constr "\928d") []))) [LetGuard (PVar "\958a") (Constr "H\937\&4"),MatchGuard (LazyPat (StrictPat (LazyPat Wildcard))) (Constr "Sn1"),LetGuard (LazyPat (PVar "ppj")) (For [Generator (MatchGen (ConsPat (AtPat "i" (ConstrPat "\914")) (AtPat "p" NilPat)) (FieldSet "\963\921\960m")) [],Generator (LetGen Wildcard (For [Generator (LetGen (LazyPat NilPat) (FieldSet "u")) []] (SetLit [FieldExtr "\945\923_w"]))) [BoolGuard (Lambda [FieldPat "\964\&9x\957" (PVar "\945\950Y") (AtPat "r0" (ConstrPat "\932\929")),LazyPat NilPat,LazyPat (LazyPat (AtPat "nf\952v" (PVar "c\919"))),NilPat] (Case (FieldExtr "bumr") [])),MatchGuard (LazyPat Wildcard) (FieldMod "ax"),LetGuard NilPat (Var "\964k\934u")]] (Lambda [Wildcard,AtPat "lCm\916\966\&2" Wildcard,AtPat "\947N\954\935" (FatCommaPat Wildcard (ConstrPat "O\921\949t"))] (For [] (ListLit [])))),LetGuard (AtPat "i7" (StrictPat NilPat)) (If (SetLit [Lambda [FieldPat "e" (AppPat (AppPat (AppPat (ConstrPat "\936") (AppPat (ConstrPat "LjWTL\954") (LazyPat (ConstrPat "M\967")))) (LazyPat (PVar "\959\914"))) (PVar "_\967\965")) (LazyPat (AtPat "y" (AtPat "\960" (PVar "\954\&3au"))))] (FieldMod "v\937f")]) (For [Generator (BindGen (PVar "ed") (Var "g")) []] (FieldSet "q\922\951")) (Constr "\937")),MatchGuard (StrictPat (PVar "\957")) (Case (Rec [] (FieldExtr "_\922f\915")) []),MatchGuard (AtPat "zv" Wildcard) (Var "yM\917\947\&0BG7"),LetGuard (FatCommaPat NilPat (AtPat "m\949C" (FieldPat "\952" (AppPat (ConstrPat "\922OY") (StrictPat NilPat)) (PVar "t\929S\953e\922q\961")))) (Constr "V")],Generator (MatchGen (PVar "vvpc\916") (Var "mFl\937\956\948\962\950")) [LetGuard (LazyPat (FieldPat "qUc" Wildcard (ConsPat NilPat (ConstrPat "\913")))) (FieldMod "\967"),LetGuard (ConstrPat "M\933JZ") (ListLit []),MatchGuard (AtPat "n" (FatCommaPat NilPat (AppPat (AppPat (ConstrPat "W") (AppPat (ConstrPat "\926\951\968") (StrictPat NilPat))) Wildcard))) (ListCompr (Lambda [FieldPat "b\926k" (LazyPat (AtPat "p" NilPat)) (FatCommaPat (PVar "\949\963\965M\915u\953") (StrictPat (ConstrPat "\914\935\964"))),PVar "qB\959",ConsPat Wildcard (AtPat "x" (ConsPat (AppPat (ConstrPat "Q\955") (PVar "\964g\932T3\946G\946")) (ConstrPat "U")))] (Lambda [NilPat,StrictPat (ConsPat (FatCommaPat (PVar "drW\961\927OY\921") (PVar "\969")) Wildcard),AppPat (AppPat (AppPat (ConstrPat "L\932") (FieldPat "nvf" (AtPat "\958" (ConstrPat "L")) Wildcard)) Wildcard) NilPat,AtPat "l" (PVar "g"),ConsPat (FatCommaPat Wildcard Wildcard) (AtPat "\945" (ConsPat (AtPat "\963\959\933MV" Wildcard) NilPat)),NilPat] (FieldMod "q\960f4\956"))) [Generator (LetGen (PVar "t2xM") (Constr "\936")) []]),BoolGuard (If (FieldExtr "v") (Operator (FieldExtr "x\947k64B") (7,LeftAssoc) "%" (Var "u4\924U\927")) (ListCompr (SetLit [FieldSet "\964"]) []))],Generator (LetGen NilPat (Lambda [NilPat,StrictPat (AtPat "\959Q\936A" NilPat),NilPat,PVar "\962V\947i\928H",StrictPat (StrictPat (FieldPat "\949" (StrictPat (StrictPat NilPat)) (AppPat (ConstrPat "M\924\951Z") (PVar "v\965\952")))),NilPat,StrictPat (ConstrPat "Z")] (FieldExtr "\955\950hsfV"))) [],Generator (MatchGen (FatCommaPat (FieldPat "e\955" (StrictPat Wildcard) Wildcard) (AppPat (ConstrPat "\937") (AppPat (ConstrPat "K") (AppPat (AppPat (ConstrPat "\928J\921\965\962\924") (AppPat (ConstrPat "C") (PVar "\952\914\918"))) (AtPat "\962vqy\922\929On" (PVar "\965")))))) (SetCompr (Operator (FieldMod "\953\945G\966\935\929\956") (6,LeftAssoc) "-" (FieldSet "n6q")) [Generator (BindGen (AppPat (AppPat (ConstrPat "\915") (AppPat (ConstrPat "B") NilPat)) Wildcard) (SetLit [FieldExtr "mn",FieldSet "\960f",SetLit [SetLit [Var "\968\964\931G"]]])) [MatchGuard NilPat (ListCompr (FieldSet "r\929O\937") [Generator (RunGen (FieldMod "c\960")) [LetGuard (AtPat "c" Wildcard) (FieldSet "\953\&7")]]),BoolGuard (ListLit [ListLit [FieldExtr "\949j"],FieldMod "x\933"])],Generator (BindGen (FatCommaPat Wildcard Wildcard) (SetCompr (FieldExtr "g") [])) [MatchGuard (StrictPat (StrictPat (StrictPat (ConstrPat "\922\&8M\922")))) (ListLit [])]])) [MatchGuard (StrictPat NilPat) (App (FieldSet "f\922") (FieldMod "\946\937\965\932Z8\960\966"))],Generator (LetGen (FieldPat "\954ZQ" NilPat (FatCommaPat (ConstrPat "Rl\927") (AtPat "z" (PVar "f\932")))) (App (FieldMod "\947") (Operator (SetLit []) (4,NoAssoc) "<" (Constr "\926r")))) [],Generator (BindGen (PVar "bdD") (SetLit [Var "a\925cbhg\915",Constr "\916\923\954\920\965v\926",FieldSet "\953",FieldExtr "\962\937s"])) [BoolGuard (FieldSet "s\951"),MatchGuard (LazyPat (LazyPat NilPat)) (FieldSet "h")]] (FieldMod "\949")),MatchGuard (AtPat "li" (ConsPat (PVar "n\933\921F") (FieldPat "h" (FatCommaPat (StrictPat (PVar "\966")) (LazyPat Wildcard)) (ConsPat (StrictPat NilPat) (StrictPat Wildcard))))) (Rec [Generator (RunGen (Rec [Generator (LetGen (ConsPat (StrictPat NilPat) NilPat) (Operator (FieldExtr "_\926") (3,RightAssoc) "\8743" (Var "\951w\958C"))) [LetGuard (AtPat "w6h\952" (ConsPat Wildcard (ConstrPat "OI"))) (Rec [] (Var "\949\921O")),BoolGuard (Lambda [PVar "\960\945",Wildcard,Wildcard] (SetLit [Operator (Constr "\920\&2") (6,LeftAssoc) "+" (SetLit [])])),MatchGuard (FieldPat "\946a\927e" Wildcard (LazyPat Wildcard)) (FieldMod "\959A")]] (Lambda [StrictPat (LazyPat (FieldPat "i" (ConsPat NilPat (PVar "\966\917Z\916O")) (StrictPat (StrictPat (PVar "h\935")))))] (Case (ListLit []) [(NilPat,SetLit [FieldSet "w"])])))) [LetGuard (FatCommaPat NilPat (AtPat "v\915" (FatCommaPat NilPat (StrictPat (ConstrPat "\913"))))) (ListCompr (If (Constr "\927\947") (FieldExtr "h") (ListLit [FieldMod "\962"])) [Generator (BindGen (LazyPat (ConsPat (LazyPat (ConstrPat "\915")) (AtPat "yV\928\&7" Wildcard))) (Lambda [ConsPat Wildcard (StrictPat Wildcard),FatCommaPat (StrictPat (PVar "\950\&2se")) NilPat] (FieldMod "vlqK"))) [LetGuard (FieldPat "s\922dN" Wildcard (StrictPat (ConstrPat "\929\949V\948"))) (Lambda [LazyPat (PVar "g\957\932"),StrictPat (FatCommaPat (AtPat "\947z" Wildcard) (LazyPat (ConstrPat "\923B"))),PVar "\967u",FieldPat "\956kXT" (AppPat (ConstrPat "C\966\&6B") (PVar "\968Iw\965")) (StrictPat NilPat)] (Lambda [NilPat,PVar "\963"] (ListLit [FieldSet "i\932Q\951"]))),BoolGuard (Case (FieldMod "\954") [(Wildcard,ListLit [])]),LetGuard NilPat (For [Generator (TraverseGen NilPat (Constr "\915")) []] (SetLit []))],Generator (BindGen (FatCommaPat (StrictPat (ConstrPat "E")) (AtPat "n" (PVar "\951ly"))) (For [] (FieldExtr "g\922X\913"))) [BoolGuard (Constr "Z\964\927m"),LetGuard Wildcard (ListLit []),MatchGuard (StrictPat (FieldPat "\947\918\&3x" (AtPat "ocx\931" (ConstrPat "\927n\934\945")) Wildcard)) (Case (Var "j") [(PVar "u\950",Var "v")])]]),MatchGuard (AppPat (ConstrPat "\924\966P\948\&6") (ConsPat NilPat (FieldPat "t" (StrictPat (ConstrPat "T")) NilPat))) (SetCompr (ListCompr (FieldExtr "\959") [Generator (TraverseGen (LazyPat (PVar "\954d")) (FieldSet "\958")) [LetGuard (LazyPat Wildcard) (ListLit [])]]) [Generator (RunGen (For [] (Constr "\914Tn3"))) [MatchGuard (ConsPat (StrictPat (ConstrPat "\915r\922")) Wildcard) (ListLit [FieldSet "e\952",Constr "Z\937"]),MatchGuard NilPat (ListLit [])],Generator (LetGen (FieldPat "i\967" (LazyPat (ConstrPat "U\923")) (PVar "lo\955T")) (FieldExtr "f")) [],Generator (LetGen (FatCommaPat Wildcard (LazyPat (PVar "kI\948\914"))) (App (SetLit []) (Constr "K\921sr"))) [BoolGuard (ListCompr (Constr "K7\922") [])]]),BoolGuard (Rec [Generator (MatchGen (LazyPat (FieldPat "\959\931CU" Wildcard (AtPat "\946" (ConstrPat "\925xH\945")))) (Constr "\914")) [BoolGuard (Lambda [FieldPat "\962xo" (PVar "w") (AtPat "\968" (PVar "\967")),AtPat "\964\922\956\&1" (StrictPat (PVar "\958zi")),ConsPat Wildcard (AtPat "\962" NilPat),AppPat (ConstrPat "Z") (ConsPat (StrictPat (ConstrPat "NjM")) (StrictPat NilPat))] (SetLit [SetLit [FieldExtr "a\961"],SetLit [ListLit [FieldSet "\966\925d\965"]]])),LetGuard (LazyPat NilPat) (ListLit [])],Generator (LetGen (ConsPat Wildcard (AtPat "\964" (PVar "\956a\949"))) (FieldSet "\947\923\934")) [],Generator (BindGen (FatCommaPat NilPat (AtPat "\948y\962p" (ConstrPat "AMJL"))) (Lambda [FieldPat "\951\946l" (AppPat (ConstrPat "UiB") (AtPat "z" (PVar "\963\&1NF"))) (AtPat "h\915\924\957" Wildcard),Wildcard] (For [Generator (LetGen (PVar "t\927") (Constr "\923\&7")) []] (Var "mL")))) []] (For [Generator (RunGen (SetLit [FieldMod "a\933"])) [BoolGuard (FieldMod "\950M")]] (ListLit [])))],Generator (TraverseGen (AtPat "yU" (LazyPat (StrictPat (AtPat "e5k\937\&7" (AtPat "m\960" (AtPat "t\914\947\960\916" (StrictPat (PVar "\965\950")))))))) (SetCompr (ListLit []) [])) [MatchGuard Wildcard (If (Lambda [Wildcard,FatCommaPat (FieldPat "\963" (PVar "nS") (AppPat (ConstrPat "\919\950\937\965\936V\932") Wildcard)) (StrictPat (AppPat (AppPat (ConstrPat "\923") (AtPat "eE" (ConstrPat "\936\921x5"))) NilPat)),FieldPat "\945iUO" Wildcard (AtPat "hzJz" Wildcard),FatCommaPat Wildcard NilPat,AtPat "\965FmQZe" (PVar "t\926hD"),AtPat "g" (AtPat "\957\964" (FatCommaPat (AtPat "\966PU\958_\968" NilPat) NilPat)),StrictPat (AtPat "\951" Wildcard)] (SetLit [ListLit [FieldMod "\964"]])) (App (FieldExtr "\964\&3\959Xn\947p") (Var "\953")) (ListLit [FieldSet "h\957\959\919\&9Z",Var "\960"])),LetGuard (FieldPat "p\964" (LazyPat (ConstrPat "\933KP\959f")) Wildcard) (For [Generator (LetGen (FieldPat "y" (StrictPat NilPat) (StrictPat (ConstrPat "\915Z"))) (ListCompr (FieldExtr "p\936\967E") [])) [],Generator (MatchGen NilPat (Rec [] (FieldMod "\957\934\&8"))) [MatchGuard (AppPat (AppPat (AppPat (ConstrPat "F4XS") (LazyPat (PVar "s\937C0"))) (AtPat "\959" Wildcard)) NilPat) (Rec [Generator (TraverseGen (PVar "g\922") (ListLit [])) [MatchGuard (AtPat "\968" NilPat) (FieldMod "l")]] (SetLit [])),LetGuard (LazyPat (FieldPat "y\963\959" (AtPat "l\945\925\922" (PVar "dnW")) (LazyPat Wildcard))) (ListLit [Var "\962\951\914",Var "\960b9\935",FieldSet "\956"]),BoolGuard (App (Var "\949\&9\954f") (FieldSet "f\935\&4K"))],Generator (TraverseGen NilPat (Case (FieldExtr "g\951") [(LazyPat (ConstrPat "S\926"),Var "\945")])) [MatchGuard (StrictPat (AtPat "\949Q\949\957" (AppPat (ConstrPat "L") (ConstrPat "G\913Et")))) (Rec [] (FieldExtr "h")),BoolGuard (ListCompr (FieldSet "\947\925\&8U") [Generator (MatchGen (PVar "\955\918") (Var "\964\&7")) [MatchGuard (LazyPat Wildcard) (SetLit [])]])]] (For [Generator (BindGen NilPat (FieldExtr "k")) []] (FieldMod "\946\920"))),BoolGuard (Operator (FieldExtr "l") (4,NoAssoc) "\8801" (Case (Constr "\933\922_eJ\915\966Y") [(AtPat "\948" (ConstrPat "\921\952"),FieldMod "uU")])),LetGuard Wildcard (SetLit []),LetGuard Wildcard (ListCompr (Rec [Generator (BindGen (StrictPat (ConstrPat "\914")) (SetLit [])) []] (Constr "ZQ")) [Generator (BindGen NilPat (Operator (FieldMod "\949\915\964m") (4,NoAssoc) "\8801" (Var "eIg"))) []])],Generator (MatchGen Wildcard (Lambda [AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\929I") (AppPat (ConstrPat "O\958\913") NilPat)) (AtPat "do\918\961\934" (PVar "\957k\963"))) (StrictPat (ConstrPat "B"))) (LazyPat (PVar "\966\936z"))) Wildcard) (PVar "yWm\926\927pXS")) Wildcard,FieldPat "q" NilPat (StrictPat Wildcard),StrictPat (FieldPat "\958gX" (FatCommaPat (ConstrPat "JR8X") (StrictPat NilPat)) Wildcard),AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\936y") (StrictPat Wildcard)) (StrictPat (PVar "\968j_"))) NilPat) (AtPat "oj" (PVar "\958\937"))) (LazyPat Wildcard)) (LazyPat Wildcard)) NilPat,Wildcard] (Constr "\919\958\931wf"))) [MatchGuard (PVar "\957") (Operator (Rec [] (ListLit [FieldMod "\963"])) (7,LeftAssoc) "*" (Var "\954\927")),LetGuard (LazyPat (PVar "\958")) (SetLit [FieldSet "\968",ListLit [FieldSet "\968\&8D\931"],SetLit [],FieldExtr "l"])]] (Lambda [AppPat (AppPat (AppPat (AppPat (ConstrPat "\932\921o") (FatCommaPat (StrictPat (PVar "p\961T")) (StrictPat (PVar "n\957lW\953\952")))) Wildcard) (StrictPat Wildcard)) Wildcard,LazyPat (AtPat "y\947" (PVar "\960")),FatCommaPat (StrictPat Wildcard) (ConsPat (AtPat "\945CgC" NilPat) (FatCommaPat Wildcard Wildcard)),AppPat (ConstrPat "X") NilPat,StrictPat (StrictPat (PVar "\966x")),PVar "\967M"] (SetCompr (Constr "\927\924ga\967") [Generator (LetGen (AtPat "\952Z" (FieldPat "w" (AppPat (ConstrPat "G\915\951\914") (AppPat (ConstrPat "\933\953") Wildcard)) (PVar "\963\918"))) (Lambda [Wildcard,FatCommaPat (PVar "a\962\968\916") (ConstrPat "WS"),Wildcard,FieldPat "\968\&9" Wildcard (StrictPat Wildcard)] (App (Constr "\918\962jt") (FieldMod "\949t")))) [LetGuard (StrictPat Wildcard) (Lambda [LazyPat (FieldPat "j" (AtPat "aOq\958" Wildcard) Wildcard),Wildcard] (Case (FieldMod "\950QD") [])),BoolGuard (Lambda [StrictPat (FieldPat "\948\948Li" (AtPat "\968v" NilPat) (AtPat "yY" NilPat)),StrictPat Wildcard] (Operator (Var "p") (4,NoAssoc) "\8801" (FieldSet "k"))),BoolGuard (If (FieldMod "s") (FieldMod "_P\949p") (FieldExtr "\954T\924\928"))]]))),BoolGuard (Var "g"),BoolGuard (For [] (SetCompr (Rec [] (FieldMod "ov\945\952\958")) [Generator (LetGen (PVar "r") (ListCompr (FieldSet "\948\919\920") [])) [LetGuard (AppPat (AppPat (AppPat (ConstrPat "\928C\926\950") NilPat) NilPat) Wildcard) (Case (FieldMod "t\918W") [])],Generator (TraverseGen (PVar "\952\933") (If (ListLit [Constr "\934"]) (Constr "\917") (Var "\948_\954P"))) [MatchGuard NilPat (Operator (FieldExtr "\947\954\919j") (3,RightAssoc) "\8743" (Var "a")),MatchGuard (AtPat "\962s\946C" (AtPat "u" Wildcard)) (ListCompr (FieldExtr "h\925e4") [Generator (MatchGen (AtPat "x_" (ConstrPat "\919")) (FieldMod "hp")) [MatchGuard (AppPat (ConstrPat "C\954") (AtPat "\949" NilPat)) (Constr "\917\&0")]])]])),MatchGuard Wildcard (App (FieldSet "rv\957SK\917\920\927") (If (ListCompr (FieldExtr "oCv") []) (Case (SetLit []) []) (FieldSet "\947"))),MatchGuard (ConsPat (LazyPat (FatCommaPat (FatCommaPat (LazyPat Wildcard) Wildcard) (AtPat "mvB" (ConsPat NilPat (AtPat "y" Wildcard))))) (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\936\&64s\929Rk\920") (StrictPat (PVar "p\914"))) (LazyPat (PVar "\963Z\964\&4\956"))) (StrictPat NilPat)) (AtPat "\945" (ConstrPat "\916G"))) (StrictPat Wildcard)) (AppPat (ConstrPat "\927\931") (LazyPat NilPat)))) (SetCompr (Case (Case (Constr "Y") [(Wildcard,FieldMod "\959j")]) [(PVar "pJ",Rec [Generator (LetGen (PVar "b\954") (FieldSet "\958b")) [LetGuard NilPat (FieldMod "q\952")]] (ListLit [FieldMod "p"])),(LazyPat (ConstrPat "\925"),For [Generator (LetGen NilPat (Var "\957")) []] (FieldExtr "\953oK"))]) [Generator (MatchGen (LazyPat (FatCommaPat (PVar "idZu\949\915") Wildcard)) (App (Var "\964\929") (Var "\963\945\&5"))) [BoolGuard (App (Var "\969") (SetLit [If (FieldMod "p\928\919") (SetLit [ListLit []]) (FieldExtr "\945XS8\962\933nj")])),BoolGuard (FieldMod "hU3o"),BoolGuard (For [Generator (LetGen (FieldPat "\945" (AtPat "q\914" NilPat) (LazyPat NilPat)) (SetCompr (SetLit [FieldExtr "e1jN"]) [])) [MatchGuard (StrictPat Wildcard) (Constr "\931\953"),LetGuard (ConsPat (StrictPat (ConstrPat "R")) (PVar "l\937")) (Operator (Var "\962QXd") (5,RightAssoc) ":" (FieldMod "g")),LetGuard (StrictPat (PVar "l8")) (Operator (Constr "\928") (5,RightAssoc) "\8658" (Constr "E\967\916n"))],Generator (MatchGen (AtPat "\954\932\947\918" Wildcard) (Operator (FieldMod "f") (5,RightAssoc) ":" (ListLit []))) [LetGuard (FatCommaPat (PVar "o\934vE") (LazyPat Wildcard)) (For [Generator (MatchGen Wildcard (FieldSet "\953K")) [LetGuard (PVar "cv") (FieldMod "fp")]] (FieldExtr "ipn"))]] (Var "s"))],Generator (RunGen (Case (ListCompr (Constr "T") []) [(FatCommaPat (AppPat (ConstrPat "\913") Wildcard) (AtPat "\950\966c" Wildcard),Var "bS\935")])) [MatchGuard (FatCommaPat NilPat (FieldPat "\969\935f" Wildcard Wildcard)) (Operator (SetCompr (ListLit [FieldSet "qhW9\920\954"]) []) (6,LeftAssoc) "-" (FieldMod "\949y")),LetGuard (FatCommaPat (FatCommaPat (ConstrPat "\934Yb") (PVar "\956fNow\933\948")) (FieldPat "\965\&8\935\&1\956" Wildcard (StrictPat NilPat))) (Operator (FieldExtr "\963") (4,NoAssoc) "<" (For [Generator (RunGen (SetLit [])) []] (Constr "M\945D3"))),LetGuard (FieldPat "_PsM9\916\&5g" NilPat (ConsPat (StrictPat (ConstrPat "C")) NilPat)) (Var "\961Xw\923"),BoolGuard (For [] (Lambda [ConsPat (FatCommaPat (LazyPat NilPat) (StrictPat Wildcard)) (FieldPat "\962O" (ConstrPat "J") Wildcard)] (Constr "\914\920"))),MatchGuard (ConsPat (PVar "w") (StrictPat (AtPat "e\932" (LazyPat (ConstrPat "V\934V\955\913\969Ir"))))) (FieldMod "a\919C\936Lp1Y"),BoolGuard (Operator (FieldMod "n6\934\969") (4,NoAssoc) ">" (Constr "\928\932\960\960\949\932\919")),LetGuard NilPat (Rec [Generator (LetGen (ConstrPat "\916") (Lambda [PVar "\959\957\922\924",FieldPat "\966E7" NilPat Wildcard] (FieldSet "n"))) [BoolGuard (ListCompr (SetLit [Constr "\937s"]) [Generator (TraverseGen (AtPat "t" Wildcard) (FieldSet "\955U")) [LetGuard Wildcard (Constr "\922y")]]),LetGuard (FieldPat "k_" (PVar "\948\929D") (StrictPat (PVar "h"))) (ListCompr (FieldMod "q") [Generator (LetGen (AtPat "ws" (PVar "\946a")) (Var "\963p")) [LetGuard (StrictPat NilPat) (FieldSet "\961")]]),MatchGuard (PVar "\946") (Rec [Generator (MatchGen (StrictPat (ConstrPat "H")) (ListLit [FieldSet "\955\935"])) []] (SetLit [Constr "YR"]))],Generator (BindGen (AtPat "x" (ConsPat (LazyPat Wildcard) (AtPat "\965" Wildcard))) (Constr "W5")) [LetGuard (PVar "i") (App (FieldExtr "\964") (FieldMod "\961"))]] (FieldExtr "\951\949Qh\964c\931"))],Generator (TraverseGen (PVar "\947\933\950") (ListLit [Var "\968E",Case (FieldSet "\961") [(PVar "\953\926",FieldExtr "\952_")]])) [MatchGuard (FieldPat "vF" (AppPat (ConstrPat "\913aJ\925\948l") NilPat) (LazyPat NilPat)) (For [Generator (MatchGen (LazyPat (AtPat "q\919" (AtPat "\965" NilPat))) (Var "w8")) [MatchGuard (PVar "\958\917") (Var "\956r"),MatchGuard Wildcard (App (FieldSet "yKL\935") (SetLit [FieldSet "sI\949\951"])),LetGuard (AtPat "\962" Wildcard) (FieldMod "\960")]] (Lambda [FatCommaPat NilPat (PVar "a"),FieldPat "a\915" (FieldPat "y" Wildcard (StrictPat NilPat)) (AppPat (AppPat (AppPat (ConstrPat "OgP3\921") (PVar "\952")) (StrictPat NilPat)) (PVar "\968\913")),LazyPat (ConsPat (LazyPat NilPat) (ConsPat NilPat (PVar "\968"))),AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "W") (StrictPat Wildcard)) (AtPat "\969" Wildcard)) (LazyPat Wildcard)) Wildcard) NilPat,StrictPat NilPat,LazyPat Wildcard] (Operator (ListLit [FieldExtr "vM3"]) (2,RightAssoc) "\8744" (FieldSet "c\913u\952\932z")))),LetGuard (AtPat "s" Wildcard) (ListCompr (ListLit [ListLit [FieldExtr "\948\969\918\955e"],FieldExtr "\958f\925X\957\&1iG"]) [Generator (MatchGen (AppPat (AppPat (ConstrPat "Uw") (PVar "\964")) (AtPat "\951" (ConstrPat "DYt"))) (App (ListLit []) (SetLit []))) [LetGuard Wildcard (FieldSet "\952\932S"),BoolGuard (If (FieldSet "t\917") (FieldSet "w\922S4") (ListLit []))],Generator (MatchGen Wildcard (SetCompr (SetLit [FieldSet "jl"]) [Generator (BindGen (PVar "\957X") (Var "mt")) []])) [LetGuard (PVar "\966s") (Case (ListLit [SetLit [Var "\949\&2A"]]) []),BoolGuard (Var "\948\962")],Generator (MatchGen (PVar "_M") (For [Generator (TraverseGen (AtPat "\969" (ConstrPat "\913o")) (SetLit [ListLit []])) [MatchGuard (PVar "\966L") (FieldMod "\951I")]] (ListLit []))) [MatchGuard Wildcard (SetLit [FieldSet "\968Z",Var "kM"])]]),BoolGuard (FieldSet "\966\945"),MatchGuard (FatCommaPat (AtPat "\958AD" (LazyPat Wildcard)) (ConsPat NilPat NilPat)) (FieldSet "b"),LetGuard (FatCommaPat (LazyPat (ConsPat Wildcard (StrictPat (ConstrPat "B\956\955\920\934\&0")))) (AtPat "r" (FieldPat "huj\954\&4\920p6" (ConstrPat "\928") (PVar "b")))) (SetCompr (FieldMod "zc\936\955\954T") [Generator (TraverseGen (PVar "\965X") (Rec [] (FieldMod "kOOh"))) [],Generator (MatchGen (FatCommaPat (LazyPat (ConstrPat "E\925\921A")) (AtPat "\956\954xe" (ConstrPat "K\962"))) (Operator (ListLit []) (3,RightAssoc) "\8743" (FieldExtr "d\922\950S"))) []]),MatchGuard (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "SI\963\913\928") (StrictPat Wildcard)) (AppPat (ConstrPat "L") (PVar "j\959"))) Wildcard) (StrictPat (PVar "\963"))) NilPat) (Var "j\956HP\958\&3\968"),MatchGuard (LazyPat (StrictPat (FatCommaPat Wildcard (PVar "\952L")))) (Case (App (FieldExtr "x") (FieldSet "f2")) [(AtPat "l" (LazyPat (LazyPat NilPat)),ListCompr (Var "l") [])])],Generator (MatchGen (AtPat "k" (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\926") (StrictPat (PVar "\963\&49\933m"))) Wildcard) (StrictPat (ConstrPat "\935j"))) (PVar "\957wJ\956")) (LazyPat NilPat)) NilPat)) (For [Generator (RunGen (Var "\950")) [],Generator (LetGen (ConsPat (StrictPat Wildcard) (PVar "_i\964\963")) (Rec [Generator (BindGen (AppPat (ConstrPat "\936") NilPat) (SetLit [])) []] (ListLit []))) [LetGuard (AppPat (ConstrPat "\922h") (FatCommaPat (AtPat "\947S\932X" (ConstrPat "\926\&3\932")) Wildcard)) (If (FieldExtr "\948\913\936Q") (Constr "\914") (Var "\957")),BoolGuard (SetLit [])],Generator (LetGen Wildcard (FieldMod "\966")) [MatchGuard (FieldPat "y\968\969\953" Wildcard Wildcard) (SetCompr (FieldMod "co\947\&2") [Generator (RunGen (Constr "\914\926")) [BoolGuard (Var "gS")]])]] (FieldExtr "sAg\916yP"))) [LetGuard (ConsPat (FatCommaPat Wildcard Wildcard) (AtPat "\953I\927U5\913TA" (AtPat "d\913" (LazyPat (ConstrPat "As"))))) (App (Constr "\918d") (FieldSet "d9C"))],Generator (BindGen (ConsPat Wildcard NilPat) (Operator (Var "cQ\933") (3,RightAssoc) "\8743" (SetCompr (ListLit [FieldMod "\952\923rS"]) []))) [BoolGuard (App (For [] (ListLit [FieldMod "dK\919vK"])) (Var "b\954g7\937"))]]),BoolGuard (FieldExtr "rj\963"),BoolGuard (ListLit [FieldExtr "n\956\966"]),LetGuard (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "T") NilPat) (PVar "\964")) (PVar "hL9")) (AppPat (ConstrPat "\937") (LazyPat (ConstrPat "\917\925H")))) (AppPat (ConstrPat "\933") (PVar "\960J\963"))) NilPat) Wildcard) (PVar "p")) (PVar "\956")) (LazyPat (ConstrPat "R\921k"))) (AtPat "\966\&4ol\925" (PVar "a"))) (LazyPat (PVar "\959dNm"))) (Lambda [StrictPat (PVar "rd"),NilPat,NilPat,ConstrPat "\914",Wildcard,Wildcard,LazyPat (LazyPat (FieldPat "\952" (AppPat (AppPat (AppPat (AppPat (ConstrPat "U\950") (LazyPat (ConstrPat "\927\&3\917\953\927\949\953\&2O\969\&3E\934\913tU"))) (PVar "\962")) (PVar "\949k\917\914ukc")) (StrictPat NilPat)) NilPat)),AtPat "\954" (StrictPat (ConsPat Wildcard (ConsPat (AtPat "\945" Wildcard) (FatCommaPat (AtPat "\963a" Wildcard) (StrictPat (ConstrPat "P\937")))))),AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\919") (AtPat "\960V" (PVar "\968\957_"))) NilPat) (PVar "\957a\933")) (PVar "kG")) (AppPat (ConstrPat "\919z") (AppPat (ConstrPat "\916ZJd\953x") (LazyPat NilPat)))) (StrictPat Wildcard)) (LazyPat (PVar "\950\969oO\956\926\956\923"))) (AtPat "\958vk" Wildcard)) (StrictPat (PVar "z\965\962"))) NilPat,StrictPat (StrictPat (FieldPat "j\965\968GD\918\934" (AtPat "\968JV" (PVar "\965\937")) (StrictPat (LazyPat (ConsPat NilPat NilPat))))),PVar "lX",StrictPat NilPat,ConsPat (PVar "gqVal\955") (StrictPat (StrictPat (PVar "\958\&1\961\924"))),StrictPat (LazyPat (FieldPat "\962X" (PVar "s") NilPat)),NilPat,PVar "k"] (Constr "H")),MatchGuard (FatCommaPat (FieldPat "\963" (FatCommaPat (LazyPat (ConstrPat "L")) (StrictPat (PVar "\969"))) (FieldPat "zm\920" (AtPat "j\925" (ConstrPat "\924P\962")) (LazyPat (PVar "p\945")))) Wildcard) (If (Var "n") (Operator (FieldSet "ukVR\937\929TkE") (3,RightAssoc) "\8743" (Constr "DP9")) (FieldMod "e\950")),LetGuard (AtPat "\950a" NilPat) (ListLit [FieldSet "\954S\928r\914",ListLit [],ListCompr (Constr "G") [Generator (RunGen (Constr "ZS")) [BoolGuard (Constr "\935")]],Lambda [AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "Wg\959V\950g\953S") Wildcard) (AtPat "f\933\&9u\917" (PVar "\953\927b"))) (PVar "z")) (AtPat "x" NilPat)) (AppPat (ConstrPat "\920") NilPat)) (AtPat "\961v\929" NilPat)) NilPat) NilPat) (AppPat (ConstrPat "\923\917\918z") (PVar "cq"))) (LazyPat (PVar "j"))) (AtPat "p" Wildcard)) (AppPat (ConstrPat "\925\917z") NilPat)) (AppPat (ConstrPat "K") NilPat)) (StrictPat (ConstrPat "A\929")),FatCommaPat (LazyPat (ConsPat (FieldPat "\964" (AtPat "sO" NilPat) (StrictPat (ConstrPat "Kh"))) (AppPat (AppPat (ConstrPat "FMA") (PVar "g")) (AtPat "zj\968" (ConstrPat "\935f7"))))) (FatCommaPat (PVar "\964") (StrictPat (StrictPat (AtPat "\961R\959\920Y\936" (ConstrPat "\915"))))),FatCommaPat (FatCommaPat (FieldPat "pj\963" Wildcard (LazyPat (PVar "l"))) (ConsPat (AtPat "\946Z\927_c\917\&3" (ConstrPat "Msj15")) Wildcard)) (StrictPat (FieldPat "h\952\969" (FatCommaPat (AppPat (ConstrPat "\921K4V63T") (StrictPat (PVar "\945o\953"))) (PVar "\955\947i")) (FatCommaPat (AtPat "yM\921" (PVar "\965")) (LazyPat (ConstrPat "GV"))))),ConsPat (ConsPat NilPat NilPat) NilPat,FieldPat "\957l\947\954\945" (StrictPat (AppPat (ConstrPat "S\960D\922\968lK") (StrictPat (ConsPat (AtPat "\959M" (StrictPat Wildcard)) (LazyPat (PVar "g\952")))))) (ConsPat (StrictPat (FatCommaPat (StrictPat (ConstrPat "\914f")) (ConstrPat "Kn"))) (AtPat "\963K\961l" (PVar "s"))),NilPat,NilPat,AppPat (ConstrPat "\920\957\919\955\923\914\947") Wildcard,FieldPat "edRJK" (ConsPat (PVar "kg\934\&9") Wildcard) (PVar "\964"),FieldPat "\963" (StrictPat (ConsPat (FieldPat "n\952\951" (AppPat (ConstrPat "L\969\914\924") (LazyPat (ConstrPat "\929"))) (StrictPat NilPat)) Wildcard)) (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "UT9\953u") (LazyPat Wildcard)) (LazyPat NilPat)) NilPat) (PVar "p")) (AppPat (ConstrPat "\934\955") NilPat)),FieldPat "\962eHu" (LazyPat (ConsPat (FieldPat "\949f_q\936\929" (AppPat (ConstrPat "\935\961") NilPat) (AtPat "\950B" NilPat)) (StrictPat NilPat))) (FatCommaPat (FatCommaPat NilPat (AppPat (ConstrPat "\932D") (PVar "\949"))) Wildcard),LazyPat (LazyPat (LazyPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\916\967") (PVar "q")) (StrictPat Wildcard)) (PVar "\945b")) (PVar "yz")) Wildcard) Wildcard) (LazyPat (ConstrPat "B"))))),ConsPat (FieldPat "f" Wildcard (AppPat (AppPat (ConstrPat "\928") (ConstrPat "\932\949oIx\917")) Wildcard)) Wildcard,ConsPat (PVar "z") NilPat,AppPat (AppPat (ConstrPat "E") (AtPat "k" (AtPat "zsT" (AppPat (AppPat (AppPat (AppPat (ConstrPat "Vr\959") NilPat) (LazyPat NilPat)) (StrictPat NilPat)) (AtPat "p" (PVar "\958\954\&7H")))))) (ConstrPat "V\960"),PVar "l\952\964\966\924"] (Var "w"),FieldMod "i",FieldExtr "\951\945",Constr "\932\961"]),LetGuard NilPat (Case (App (Constr "\915DN9\922a") (FieldSet "v9")) [(FieldPat "\966TWO\929n\966U" Wildcard Wildcard,Operator (FieldExtr "l\914") (4,NoAssoc) ">" (ListCompr (FieldExtr "\961\916\951pu") [Generator (BindGen NilPat (SetLit [FieldMod "\964"])) [BoolGuard (Constr "SS")]])),(AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "F\968g") (AtPat "r8" NilPat)) (ConstrPat "\919\922")) Wildcard) (ConstrPat "V")) (LazyPat Wildcard)) (StrictPat (PVar "\947\916_"))) (AtPat "\945" (PVar "s\964Myg\952")),Var "m\915"),(FatCommaPat (FieldPat "\955\959\&7" (AppPat (ConstrPat "Dd\949") NilPat) (PVar "\950")) (AtPat "\954" (FatCommaPat (AppPat (ConstrPat "\933\&2W\920\968\914gm") (PVar "eo5q\935")) (StrictPat Wildcard))),If (Constr "\915") (ListLit []) (FieldMod "\949U")),(Wildcard,FieldSet "\960Q"),(NilPat,Operator (SetCompr (Var "r\969") [Generator (MatchGen (PVar "ow") (Constr "\924")) []]) (6,LeftAssoc) "-" (Case (FieldMod "k") [(NilPat,FieldSet "\968")])),(StrictPat (ConsPat (PVar "\947\928") (PVar "\963\&3")),Operator (Constr "G\951C\920N\921\&1Z") (8,RightAssoc) "^" (If (FieldMod "p") (FieldMod "\964\917\937\967\&3\927n") (Var "\953\915"))),(LazyPat (AtPat "\965" Wildcard),Rec [Generator (BindGen (AtPat "g" NilPat) (If (FieldExtr "eR") (Constr "\926\959XO") (FieldMod "m"))) [MatchGuard Wildcard (Case (FieldExtr "\961\957D\914") [])],Generator (RunGen (App (SetLit []) (FieldExtr "\956Q"))) [],Generator (LetGen (LazyPat NilPat) (SetLit [FieldSet "\963"])) [BoolGuard (SetLit [])]] (ListLit [Var "e\924",FieldExtr "n\923\968s\927",FieldExtr "\952X"]))])],Generator (RunGen (FieldExtr "\945c")) [LetGuard Wildcard (SetLit [Constr "I",FieldSet "\958WS\959\948\964\955\957",ListLit [],ListLit [FieldSet "c0Q\917"],SetLit [],FieldSet "p_",FieldMod "f\961v\948\931pi\928\950f2",FieldSet "\960",Var "n",SetLit [ListLit [FieldMod "\947"]],Var "qH",ListLit [SetLit []],FieldExtr "yk\958u\922",SetLit [FieldExtr "f7G\969"],Constr "\915\921\961\949Fn\932"]),MatchGuard (StrictPat (StrictPat NilPat)) (Lambda [AtPat "m\917\&1N\924" (LazyPat (ConsPat Wildcard (ConstrPat "\937\947V"))),Wildcard,FatCommaPat (StrictPat (PVar "t")) (LazyPat (LazyPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "M") (PVar "f\914U")) (LazyPat NilPat)) NilPat) (StrictPat Wildcard)) (StrictPat (ConstrPat "\925"))))),LazyPat (ConsPat (PVar "\948\960") Wildcard),AtPat "\954X" (FatCommaPat (StrictPat (LazyPat (PVar "a"))) (LazyPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "L\967") (AtPat "h" (PVar "t\967\&7"))) (LazyPat (PVar "lO"))) (LazyPat Wildcard)) (PVar "q")))),NilPat,FieldPat "\950Nl\935\945LbW\956\962" (StrictPat (PVar "iC\945brK")) (LazyPat (ConsPat (StrictPat Wildcard) (FieldPat "mjT" (AtPat "dV" (ConstrPat "\923r")) (StrictPat (ConstrPat "LwI")))))] (For [Generator (MatchGen (AtPat "y" (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\914\934K9") (AppPat (ConstrPat "Nq\921") (LazyPat NilPat))) (PVar "\964\947UH")) NilPat) (StrictPat (ConstrPat "P"))) NilPat)) (Operator (SetCompr (SetLit [FieldSet "\958\917\951K\950"]) []) (4,NoAssoc) "<" (Lambda [FatCommaPat (PVar "\951") (StrictPat (LazyPat NilPat)),Wildcard,NilPat,Wildcard,ConsPat NilPat (FieldPat "\952" (AtPat "zLL" (ConstrPat "\914")) (StrictPat Wildcard)),StrictPat (LazyPat (ConsPat (ConsPat Wildcard (LazyPat (ConstrPat "\926E9\929h"))) NilPat)),ConsPat (AtPat "\955SN\913" Wildcard) (AppPat (AppPat (AppPat (ConstrPat "Cc\947P\935\917\923\964") Wildcard) NilPat) (AtPat "c\962" NilPat)),FieldPat "d" (FieldPat "b\962H" Wildcard (LazyPat Wildcard)) (AtPat "mV" NilPat)] (For [Generator (LetGen (LazyPat (ConstrPat "\919")) (ListLit [SetLit []])) [LetGuard (StrictPat (PVar "\960\915")) (FieldExtr "\969")]] (FieldExtr "\959\957"))))) [BoolGuard (If (Operator (ListLit [Constr "\929"]) (3,RightAssoc) "\8743" (FieldExtr "\958\921\968")) (FieldSet "a\952\929gse\965\946") (Operator (FieldExtr "y") (8,RightAssoc) "**" (FieldExtr "c\968\&3\951iY\919g"))),LetGuard (FieldPat "\947\949\953cOEdK" (AppPat (ConstrPat "J") (LazyPat (FatCommaPat NilPat (StrictPat Wildcard)))) NilPat) (Case (ListLit [Constr "H",FieldExtr "\963\&6\914Z\937",FieldExtr "\959"]) [(PVar "b",Operator (SetLit [FieldSet "\946"]) (4,NoAssoc) ">" (ListLit []))])],Generator (RunGen (FieldSet "ajT\948\917\914oE")) [LetGuard (FieldPat "s" (PVar "b") (FatCommaPat (ConstrPat "\935O\952") (AtPat "\963ppYx9" (ConstrPat "Wj\953\927")))) (FieldExtr "nZi"),LetGuard (StrictPat (ConsPat (FatCommaPat (LazyPat NilPat) (PVar "ruA\935")) (StrictPat (ConsPat (PVar "pN") (PVar "\963V"))))) (If (For [] (Var "\959R9")) (ListLit [Operator (FieldExtr "\962\961\962Sl\961") (4,NoAssoc) "\8805" (SetLit [])]) (Case (Var "\968\947") [])),LetGuard (PVar "\968R") (Var "c\950rQC\947"),MatchGuard (LazyPat (LazyPat (AppPat (AppPat (ConstrPat "Q") NilPat) (FieldPat "p_Jt4" (AtPat "\959" (PVar "\946\965\933A\913YF")) (AtPat "\969" (PVar "p")))))) (Lambda [AppPat (ConstrPat "V") NilPat,ConsPat (FieldPat "kB" (StrictPat NilPat) (StrictPat (PVar "\952\956\954"))) Wildcard,NilPat] (FieldSet "\964\926l"))],Generator (RunGen (Operator (Constr "\932YgX\949\920") (3,RightAssoc) "\8743" (For [Generator (TraverseGen (PVar "\954a") (Var "\948o")) []] (FieldSet "y\920\&4S")))) [LetGuard (AtPat "\948" (StrictPat (StrictPat (AppPat (AppPat (ConstrPat "C") NilPat) (ConsPat (AtPat "\956t_" Wildcard) NilPat))))) (FieldExtr "z"),LetGuard (ConsPat (ConsPat NilPat (StrictPat (PVar "\960"))) (PVar "\968\957\948\946\915")) (ListCompr (ListLit []) []),MatchGuard (LazyPat (StrictPat (AtPat "\959na\962" (LazyPat (LazyPat Wildcard))))) (Case (Var "p") [])]] (Var "\953OE"))),LetGuard (ConsPat (PVar "h") (AppPat (AppPat (AppPat (ConstrPat "\935\969") (FatCommaPat (AtPat "t\967U\946ocdr" Wildcard) (AtPat "w" NilPat))) (FieldPat "\955nKU_D" (StrictPat Wildcard) (ConstrPat "\915"))) (StrictPat NilPat))) (SetLit [Var "\949Z9\968w",ListLit [],FieldExtr "bzUJ\919",FieldMod "g\924\962\927E\950",FieldMod "i_\929\947\949\945H9\936MN\969g\933F\922",ListLit [],SetLit [FieldSet "t3\950\952X\965_"],ListLit [ListLit [Constr "Ih\925\&4X"]],FieldExtr "m\933e6\936t",ListLit []])],Generator (RunGen (For [Generator (MatchGen (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "Y\919") Wildcard) (AtPat "zpj\945" Wildcard)) (ConstrPat "W")) (LazyPat (ConstrPat "\935E\936\954"))) NilPat) (FieldExtr "\949")) [LetGuard (StrictPat (ConsPat Wildcard Wildcard)) (If (Var "fVucws\969") (SetLit []) (Lambda [AtPat "\953" (ConsPat (StrictPat (FatCommaPat (ConstrPat "\918\&24U\955\958") (AtPat "hj" (ConstrPat "\932\918")))) (LazyPat NilPat)),NilPat] (Constr "FR1S")))],Generator (MatchGen (StrictPat (ConsPat (FatCommaPat (StrictPat Wildcard) Wildcard) (FieldPat "\959\945Q\932y" (PVar "z") (AtPat "hK" Wildcard)))) (Operator (SetLit []) (7,LeftAssoc) "%" (FieldMod "\952Z\922"))) [],Generator (LetGen Wildcard (Operator (FieldMod "\949e\916jN") (7,LeftAssoc) "/" (For [Generator (LetGen (ConstrPat "MK") (FieldExtr "jn")) []] (Var "\947")))) [BoolGuard (SetCompr (SetCompr (ListLit []) [Generator (MatchGen (ConstrPat "\936") (SetLit [FieldMod "\951b"])) []]) [Generator (TraverseGen (AppPat (ConstrPat "Y\937U") (AppPat (ConstrPat "UiT") (FieldPat "z\956" (StrictPat Wildcard) NilPat))) (Var "\966")) [],Generator (RunGen (SetLit [Lambda [NilPat] (App (FieldSet "\960\&8\926\&6") (ListLit []))])) [BoolGuard (Operator (FieldSet "sXK") (2,RightAssoc) "\8744" (FieldMod "q"))],Generator (BindGen (LazyPat (ConsPat NilPat Wildcard)) (Lambda [Wildcard] (SetCompr (SetLit [FieldSet "v"]) []))) []])],Generator (TraverseGen (LazyPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "AJc\962b\913\952") (AppPat (ConstrPat "\936") (PVar "\963\922\964\959"))) Wildcard) NilPat) (PVar "l")) (PVar "\962\&4"))) (FieldExtr "\947\955B\963\&4U\913\945")) [LetGuard (AtPat "z" (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "M\967") (LazyPat NilPat)) (PVar "\960\937\915\932qaK")) (LazyPat (ConstrPat "M\948hE"))) (PVar "\947\965\923C1\960\&3\968")) (AppPat (ConstrPat "\932") Wildcard))) (Case (ListLit [SetLit [SetLit []],FieldMod "\968\913\926bkE\935\&9"]) []),BoolGuard (Operator (App (Var "\962") (SetLit [FieldMod "\952\913"])) (7,LeftAssoc) "%" (Operator (FieldSet "\946") (4,NoAssoc) "<" (FieldExtr "o\926"))),LetGuard NilPat (FieldExtr "\945"),BoolGuard (Constr "\931D\926\949ai\947"),MatchGuard (ConsPat (AtPat "w" (PVar "sPXXEn")) (PVar "l\921")) (Var "lM\914\945U\951U\948"),MatchGuard (FieldPat "cS" (AppPat (AppPat (ConstrPat "\926\&1") NilPat) (PVar "\951R\916\955\&2\953")) (AppPat (AppPat (AppPat (ConstrPat "\916\&3") (PVar "\962\955\948e4")) Wildcard) NilPat)) (For [Generator (BindGen (PVar "\952zm") (ListCompr (Var "s\933\916\964") [Generator (LetGen (AppPat (ConstrPat "\913\916") (AtPat "\957l" (ConstrPat "\916p"))) (FieldSet "q\950")) [BoolGuard (Constr "I")]])) [BoolGuard (ListLit [FieldSet "\956Io",Var "\965"])],Generator (BindGen (LazyPat Wildcard) (ListLit [SetCompr (Var "g\917\913\955") []])) [LetGuard (LazyPat (FatCommaPat (AtPat "q" (ConstrPat "\922")) (PVar "k"))) (Rec [] (ListLit []))]] (Case (FieldSet "tR") [(Wildcard,Constr "V\961")]))],Generator (MatchGen (FatCommaPat (LazyPat Wildcard) (FatCommaPat (AppPat (ConstrPat "UU") Wildcard) Wildcard)) (Var "\968y")) [],Generator (TraverseGen (PVar "hn") (ListCompr (For [Generator (BindGen (PVar "u\922") (Var "\951\917")) [BoolGuard (SetLit [FieldExtr "q3"])]] (ListLit [FieldExtr "wm4F\929u\920\917"])) [Generator (LetGen (AtPat "\952r\967\&5" (PVar "q")) (App (Var "\954") (Var "\959x"))) [BoolGuard (Case (Var "j") [(NilPat,FieldMod "b\923")]),BoolGuard (SetCompr (Constr "\926") [Generator (BindGen (ConstrPat "\923y") (Var "f\933")) [LetGuard (AtPat "\957\934" (ConstrPat "S\954")) (FieldSet "_\960")]])]])) [LetGuard (PVar "f") (FieldSet "r"),LetGuard (FatCommaPat (ConsPat Wildcard NilPat) (FieldPat "x" (LazyPat NilPat) (LazyPat (PVar "a")))) (For [Generator (RunGen (SetLit [ListLit [],Var "\960"])) [LetGuard NilPat (Var "\951S\948"),MatchGuard (LazyPat (FatCommaPat (PVar "h\959j\962") (ConstrPat "Q\919zY"))) (Constr "\936\&7W\928"),LetGuard (ConsPat Wildcard (StrictPat Wildcard)) (SetLit [Case (ListLit [FieldSet "\960\945"]) []])]] (App (FieldMod "sm\950") (Var "k\927N\952\964J")))],Generator (MatchGen (FieldPat "\964" (LazyPat (StrictPat (StrictPat (ConstrPat "S\961\932\965v")))) (FieldPat "\947deaPG" (StrictPat (PVar "s")) Wildcard)) (If (Constr "\925") (Case (FieldExtr "t\964") [(AtPat "\965" NilPat,SetLit [FieldSet "\962"])]) (FieldMod "v8wH"))) [BoolGuard (FieldExtr "i\966"),LetGuard (AtPat "z3" (AtPat "\945" (PVar "\966\&2u"))) (Rec [Generator (BindGen (ConsPat (LazyPat NilPat) (ConstrPat "\921")) (Case (FieldMod "zQZ\961") [(AtPat "\952\&9" Wildcard,FieldExtr "g")])) [LetGuard (FieldPat "p\934\&9\935" (StrictPat NilPat) NilPat) (SetLit [FieldSet "\965l\964r",FieldExtr "\969e"]),LetGuard (FieldPat "\950\925" NilPat (LazyPat (ConstrPat "\926"))) (SetCompr (SetLit [FieldExtr "w\925mV"]) [])]] (FieldExtr "\949\918e")),LetGuard Wildcard (FieldMod "sOb"),LetGuard (AtPat "\969\&9q" (LazyPat (LazyPat (FieldPat "\951\917\933Q" (LazyPat (StrictPat NilPat)) (LazyPat (ConstrPat "KQk\916\959")))))) (SetLit [SetLit [Constr "\924\927\917tm"],ListLit [],Var "\949",ListLit []]),BoolGuard (FieldSet "lB\931\967"),MatchGuard (ConsPat (StrictPat NilPat) (LazyPat (StrictPat NilPat))) (Var "_\955\&9"),LetGuard Wildcard (FieldSet "\964M_\937\957\963\965")]] (If (Case (FieldExtr "\964") [(Wildcard,Var "\947\&5")]) (ListCompr (FieldSet "\948") []) (For [Generator (RunGen (FieldMod "\952z")) []] (SetLit []))))) [LetGuard (AtPat "\969" (ConsPat (FatCommaPat (ConsPat (AtPat "\961S_\961" (ConstrPat "\922")) (AppPat (ConstrPat "J") (AtPat "\964" (PVar "\950W\921\914\913")))) (FieldPat "r\932" (PVar "\954") (StrictPat Wildcard))) (FieldPat "z\929GuLL" (FatCommaPat (ConstrPat "N") (AppPat (ConstrPat "\914F\956\928") (AtPat "\947" Wildcard))) Wildcard))) (SetCompr (FieldMod "\950c\950") [Generator (TraverseGen (PVar "s") (FieldSet "a")) [LetGuard (AtPat "\945p\921" Wildcard) (SetLit [SetLit [Constr "Ep"],Var "pK\920",Var "\953",ListLit [],SetLit [],Var "\947\&3",ListLit []]),MatchGuard (LazyPat Wildcard) (SetLit [ListLit [ListLit [SetLit []]],Constr "G",ListLit [],FieldExtr "u\937",Var "\959j\934\955"]),MatchGuard (LazyPat (PVar "c\963\927")) (Lambda [LazyPat (ConstrPat "\925"),ConsPat (LazyPat Wildcard) (FatCommaPat (LazyPat (PVar "\961\928\948\937x")) (ConstrPat "\936MD")),FieldPat "u" (LazyPat NilPat) (LazyPat (ConsPat (LazyPat NilPat) (LazyPat Wildcard)))] (Operator (Constr "\928\947") (5,RightAssoc) ":" (Lambda [ConsPat NilPat (StrictPat NilPat),AtPat "elX\952" (FatCommaPat (AtPat "o\969\921\963\929GD\946" NilPat) NilPat),FieldPat "\957\952\969" (AppPat (ConstrPat "\924\959\961\952G") (LazyPat (StrictPat (PVar "\967\956b\921\932i")))) (ConstrPat "KE"),StrictPat (ConstrPat "\933"),StrictPat NilPat] (Var "k\956\928_\956")))),LetGuard (StrictPat (FieldPat "\958" (FieldPat "jw" (StrictPat (ConstrPat "\925\965i\937\937")) (AtPat "o" Wildcard)) (FatCommaPat (StrictPat (ConstrPat "\913\952\928i\937U\923\&5")) (PVar "wL")))) (Constr "Z\965")],Generator (MatchGen (ConsPat (ConsPat (StrictPat Wildcard) Wildcard) (PVar "\966\&2")) (App (Constr "Wk\954zIv") (Operator (FieldMod "\964J") (7,LeftAssoc) "*" (Constr "\916")))) [MatchGuard (LazyPat (FatCommaPat (LazyPat (PVar "\952")) (ConstrPat "Z\916"))) (If (Var "\965") (Var "\951id\952\946\&9tD") (FieldMod "az")),BoolGuard (ListLit [FieldMod "msCnV\951o8"]),LetGuard NilPat (Lambda [ConsPat (PVar "\946\915\932p") Wildcard,LazyPat (ConsPat Wildcard Wildcard)] (Case (Var "_j\916") [])),LetGuard Wildcard (Constr "\921o")],Generator (TraverseGen (PVar "\965") (Lambda [LazyPat (ConstrPat "O\932\934s"),Wildcard,NilPat,ConsPat (FatCommaPat (StrictPat (ConstrPat "MhA\964")) (ConstrPat "W\954jC\951")) (PVar "z4IWz"),AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "C4M\946\967Kq") NilPat) (ConstrPat "Bq\963pO\959")) (AtPat "\962" NilPat)) (PVar "i\915\927\960\916hnl")) NilPat) (ConstrPat "G\965"),AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "S\929\914") (StrictPat Wildcard)) Wildcard) (LazyPat (ConstrPat "THX"))) Wildcard) (StrictPat NilPat)] (ListCompr (ListLit [SetLit [FieldMod "gP"],FieldExtr "t",FieldMod "\969\937\&8p\954"]) [Generator (LetGen Wildcard (FieldExtr "\968\&8")) [],Generator (MatchGen (FieldPat "\951\956\935" (PVar "r") (LazyPat (PVar "\964\947"))) (Rec [Generator (RunGen (FieldSet "v\963")) []] (Var "s\966"))) []]))) [],Generator (RunGen (Operator (If (ListLit []) (ListLit [FieldExtr "\953\919"]) (FieldExtr "\945B")) (4,NoAssoc) "\8805" (Var "\969\951R"))) [LetGuard (LazyPat (LazyPat (LazyPat (AtPat "\952" Wildcard)))) (ListLit [Case (FieldSet "ren\962\966\&544") [(PVar "\952\933",FieldMod "\947v")],Lambda [FatCommaPat (PVar "\946\913s\965") (AppPat (AppPat (ConstrPat "\914H") (PVar "c")) NilPat),NilPat,NilPat,FatCommaPat (ConsPat (AppPat (ConstrPat "EW\956\918p9") (PVar "\964\&8")) (AtPat "\966\959" (PVar "\951\919\926\934"))) (AtPat "\960" (FatCommaPat (LazyPat Wildcard) (PVar "at8\929N9"))),FatCommaPat (PVar "\961LWU\918\964") (AtPat "\953" (ConsPat (StrictPat Wildcard) (PVar "d"))),PVar "dr\953",ConsPat (PVar "g\916\&2") (AppPat (ConstrPat "Qa\920") (StrictPat (LazyPat (StrictPat NilPat))))] (App (Constr "W\945j\966\931\952_\924") (Var "g\955K"))]),LetGuard (FatCommaPat (ConsPat (PVar "l") (ConstrPat "\927\&2")) (FatCommaPat Wildcard (LazyPat (PVar "l")))) (Rec [Generator (LetGen (ConsPat (AppPat (ConstrPat "\920\919\&1Z") (AtPat "\953" (PVar "y\928"))) (ConstrPat "\929\959\925\946")) (Lambda [PVar "\963r2\922"] (Rec [] (FieldSet "e4Qt")))) [LetGuard (LazyPat (ConsPat (LazyPat NilPat) (LazyPat (ConstrPat "Yp\957I")))) (FieldSet "\947z\965O"),BoolGuard (SetLit [ListLit [FieldExtr "g"],FieldMod "rV"]),MatchGuard (LazyPat NilPat) (ListCompr (Constr "\937") [])]] (Constr "\921co")),MatchGuard (ConsPat (StrictPat (LazyPat Wildcard)) (StrictPat (FieldPat "\948" (PVar "h\957") (AppPat (ConstrPat "M") (PVar "phHz\950\931"))))) (SetLit [FieldSet "\947\959\&0\964vw\920\965",Constr "T",Var "\949",FieldMod "z",ListLit [FieldExtr "hed"],FieldExtr "e0"]),LetGuard Wildcard (SetLit [SetLit [],Constr "C",FieldSet "_\959G",Constr "\929\966\&8\926",FieldExtr "kn\933\915\950"]),BoolGuard (FieldSet "\951Q")],Generator (RunGen (Var "\945Z\950")) [LetGuard (FatCommaPat (FieldPat "e9" NilPat (LazyPat (PVar "rw"))) (PVar "ev\936\967\963\951")) (ListLit [SetCompr (FieldSet "b\924") [],FieldSet "\948\922"]),MatchGuard (StrictPat (PVar "z")) (Var "\966"),LetGuard (AtPat "m\936V\937\967dh" (FieldPat "c\929cm\959" (FatCommaPat (ConstrPat "LsQ") NilPat) (ConsPat (PVar "l") (PVar "ht")))) (ListLit [FieldSet "gtD\923\946u",Var "w\919\933",Constr "\914V\925",FieldSet "\953\933",FieldMod "\950T",Constr "\913jG"]),LetGuard (StrictPat (FieldPat "z7" (FieldPat "\959\963_" NilPat (ConstrPat "Y0A\922U\957H\946")) (FieldPat "\952\921\965" Wildcard (StrictPat (ConstrPat "T\965\922\966\947Y\964a"))))) (SetCompr (If (FieldExtr "\946\921u") (SetLit [FieldSet "n"]) (FieldMod "\953")) [Generator (MatchGen (PVar "\949V\919") (ListCompr (FieldSet "\952L") [Generator (RunGen (FieldMod "aH")) []])) [MatchGuard (LazyPat (FatCommaPat (AtPat "k3\913W" (ConstrPat "Ic2\955")) (PVar "\948\&16\951"))) (FieldSet "\949\924"),LetGuard (FieldPat "\962\929F\968" (StrictPat Wildcard) (LazyPat Wildcard)) (Var "hp")]]),LetGuard (PVar "\963_") (Lambda [FieldPat "i" (AtPat "\959" (AppPat (AppPat (ConstrPat "T") (LazyPat NilPat)) NilPat)) (StrictPat (FatCommaPat (PVar "\963") (LazyPat (ConstrPat "\918")))),PVar "tskzHXmx",LazyPat (FieldPat "\966h" (FatCommaPat (AppPat (ConstrPat "\928\925\916") (AtPat "y\914" (ConstrPat "\913_8\925"))) (PVar "\958p\960")) (FieldPat "z" (StrictPat Wildcard) (PVar "\966\914O\953"))),Wildcard,Wildcard] (Var "w")),BoolGuard (Rec [Generator (LetGen (FatCommaPat (StrictPat (ConstrPat "KX")) (PVar "\958\968d")) (If (FieldExtr "\951") (FieldMod "r") (FieldMod "\948\961"))) [LetGuard NilPat (Constr "\913\961\923\933")],Generator (MatchGen NilPat (ListLit [ListLit [],SetLit [Var "\965"]])) [LetGuard (AppPat (AppPat (AppPat (ConstrPat "DWJS") Wildcard) (LazyPat (PVar "\961"))) (LazyPat Wildcard)) (Operator (FieldSet "g") (4,NoAssoc) "\8804" (Constr "L91\924"))],Generator (LetGen (PVar "\968\929aY") (Constr "\918")) []] (ListCompr (ListLit [Constr "\917ii\967\946\&3"]) []))]]),LetGuard (StrictPat NilPat) (Var "\953U\917"),BoolGuard (App (If (Var "\956\964\956") (Case (ListLit []) [(PVar "\960e",FieldExtr "d\945")]) (ListCompr (Constr "\934") [Generator (LetGen Wildcard (Constr "\929\925")) [BoolGuard (SetLit [ListLit [FieldSet "t"]])]])) (Rec [Generator (TraverseGen Wildcard (Case (ListLit []) [])) [MatchGuard (ConstrPat "\913") (ListLit []),MatchGuard NilPat (ListCompr (Constr "Z\925\934x") []),MatchGuard NilPat (Constr "\929gP\951")],Generator (RunGen (Constr "Rt\915\913")) [LetGuard (ConsPat (LazyPat NilPat) (AppPat (ConstrPat "F\924\932\913") Wildcard)) (Lambda [ConstrPat "J"] (Var "t\924\948\&1")),MatchGuard Wildcard (SetCompr (FieldMod "\958VJ\965") [Generator (BindGen (ConstrPat "K\928") (FieldSet "w\946")) []])],Generator (MatchGen (AtPat "rGgn" Wildcard) (Var "b\959iJ")) []] (For [] (Var "mN"))))],Generator (MatchGen (StrictPat NilPat) (Operator (If (App (Var "\947\969\&5T") (ListLit [])) (Case (SetLit []) []) (Operator (Var "c\967") (6,LeftAssoc) "+" (FieldMod "n"))) (4,NoAssoc) ">" (FieldMod "x_lSI\913\932"))) [LetGuard (AtPat "c8vp\959\916" (LazyPat (AtPat "\962\959\&3\968\959\960j\959\936\914" (StrictPat (LazyPat Wildcard))))) (FieldSet "\945"),LetGuard (StrictPat (AtPat "\953" (AppPat (AppPat (AppPat (AppPat (ConstrPat "Y") (LazyPat (AppPat (AppPat (ConstrPat "E\933") (PVar "c")) (LazyPat Wildcard)))) (FatCommaPat NilPat (StrictPat (ConstrPat "Cgh\937\922O\935")))) (FatCommaPat (StrictPat (PVar "\967")) NilPat)) Wildcard))) (Operator (FieldExtr "\964\920\958O") (5,RightAssoc) "\8658" (SetLit [FieldMod "\955\&9F8",ListLit [SetLit [Var "m"]],FieldExtr "n",SetLit [],FieldSet "k\932\958",FieldExtr "\966",SetLit [FieldSet "s"]])),LetGuard (ConsPat NilPat (ConsPat (AppPat (AppPat (ConstrPat "\916PZX\924") NilPat) Wildcard) (AtPat "\964w" (AtPat "eR\919C\964" (AppPat (ConstrPat "U\966") NilPat))))) (Case (ListLit [FieldSet "\946Z",SetLit [FieldMod "r0fy\915"],Constr "La\924\&3i\935dHW",FieldMod "a\950T\956\920\967",SetLit [Constr "V\960z\931\927"]]) []),LetGuard NilPat (Case (For [Generator (MatchGen (FieldPat "\949" (StrictPat (ConstrPat "\918X\935")) (StrictPat NilPat)) (ListLit [FieldSet "dFm\956",ListLit [ListLit []]])) []] (Var "\962")) [(FieldPat "\960\951q\949M\961EX" (LazyPat (FatCommaPat (AtPat "m\947" (PVar "bd\926B")) (PVar "y"))) (ConsPat Wildcard (StrictPat (ConstrPat "\914p\946B9"))),SetCompr (Operator (Var "\945\947b") (3,RightAssoc) "\8743" (FieldExtr "\964")) []),(Wildcard,FieldExtr "\966"),(ConstrPat "X\936",If (FieldMod "y\969\927g\920y\913\&1") (SetLit [FieldExtr "\951",FieldMod "\948F"]) (Var "\948")),(PVar "v\915uB7g9\932",If (Rec [] (Constr "\935\&6")) (Constr "P") (Var "\957c"))])],Generator (MatchGen (LazyPat (ConsPat NilPat (ConsPat (AtPat "p" (FatCommaPat Wildcard (StrictPat Wildcard))) (LazyPat (LazyPat NilPat))))) (For [Generator (RunGen (SetLit [FieldMod "\963\955zp\968\949\929\933",SetLit [],Var "j",SetLit [FieldSet "o"],FieldSet "a\922t"])) [BoolGuard (App (ListLit [ListLit [FieldExtr "\954h\956"],SetLit []]) (For [Generator (BindGen (LazyPat (ConstrPat "\922\&0")) (Constr "R\921")) [MatchGuard (LazyPat (PVar "y")) (Constr "\918")]] (ListLit [])))],Generator (RunGen (FieldMod "\949\957h")) [MatchGuard (StrictPat (LazyPat (StrictPat (FieldPat "\949" (FatCommaPat (LazyPat (ConstrPat "UKXv7\959x\963")) (PVar "\964O")) (AppPat (ConstrPat "\929R\915") (ConstrPat "\921\917W\950\967\961\950G")))))) (FieldSet "zE"),BoolGuard (ListCompr (FieldExtr "o\948d_") [])],Generator (TraverseGen (ConstrPat "\927\926\932\966Q") (Operator (Rec [] (FieldSet "\951RO")) (4,NoAssoc) "\8801" (Constr "\933"))) [BoolGuard (For [Generator (RunGen (Operator (ListLit []) (3,RightAssoc) "\8743" (FieldExtr "f"))) [MatchGuard Wildcard (Rec [Generator (MatchGen NilPat (FieldMod "\945m")) []] (FieldMod "z\947Vp"))],Generator (TraverseGen (LazyPat (FatCommaPat (PVar "\954") (PVar "\956WH\917"))) (Lambda [PVar "go\918\924",LazyPat (AtPat "\955X" NilPat)] (Rec [] (Constr "\920DUM")))) [BoolGuard (For [Generator (BindGen (LazyPat Wildcard) (FieldMod "_u")) [LetGuard (PVar "du") (Constr "\932")]] (SetLit []))]] (FieldMod "\959")),MatchGuard (ConsPat (AtPat "\947" NilPat) Wildcard) (Rec [Generator (RunGen (Var "\964\932")) [LetGuard (StrictPat (FieldPat "j" Wildcard (AppPat (ConstrPat "\916\931\955\&2") (PVar "n")))) (FieldSet "s\951W"),BoolGuard (FieldMod "t")],Generator (MatchGen (AtPat "akC\920" (StrictPat Wildcard)) (ListCompr (FieldSet "nz\953T") [Generator (BindGen (PVar "f\931") (Var "\954")) [BoolGuard (Constr "E\964")]])) [MatchGuard (AppPat (AppPat (AppPat (ConstrPat "Fp") Wildcard) (StrictPat (PVar "\967"))) Wildcard) (Constr "\920\935")]] (SetLit [SetLit [],ListLit [ListLit [FieldSet "q\949\&9"]]])),BoolGuard (ListLit [Lambda [StrictPat (PVar "so"),AtPat "\954\933\926d\965q\950S" (FieldPat "\960\&7" (AppPat (AppPat (AppPat (ConstrPat "\933\956\969\&3nC\937") (PVar "\964z\969e0xb\936")) (AppPat (ConstrPat "F") NilPat)) (LazyPat (ConstrPat "J\932oi\916\931U"))) (FatCommaPat (StrictPat (PVar "u\927jy")) NilPat)),ConsPat Wildcard (FatCommaPat NilPat (LazyPat (ConstrPat "\936\922\&1h42"))),AtPat "q\921" (FatCommaPat (LazyPat (ConsPat (ConstrPat "\917dP\947\916") (AtPat "\968H9b" (ConstrPat "\917")))) (PVar "\966\924D")),Wildcard,AppPat (AppPat (ConstrPat "Aj") NilPat) NilPat,Wildcard] (FieldExtr "bF\967\967\946E"),Case (FieldMod "v") [(NilPat,Var "\959\956")],SetLit []]),LetGuard (AppPat (ConstrPat "V\937\926\914X\959\&6Y") (ConsPat (AtPat "\948\928\913t\961\&8cf" (PVar "vFC\956D")) (LazyPat (ConsPat (PVar "\946\954M\936\927\&7\964") (AtPat "\962wx\933\958\&0" (PVar "v_s\946")))))) (Operator (Rec [] (FieldExtr "o\932")) (3,RightAssoc) "\8743" (SetLit [])),BoolGuard (For [Generator (MatchGen (AtPat "\956\937\956\960" Wildcard) (Case (ListLit []) [])) [],Generator (BindGen (AppPat (AppPat (AppPat (ConstrPat "M4") (PVar "s")) (LazyPat NilPat)) (LazyPat NilPat)) (Case (ListLit [Var "\951"]) [(AtPat "\945\923" Wildcard,ListLit [])])) [BoolGuard (FieldMod "\948\966f"),MatchGuard NilPat (Var "t\920\951\931"),LetGuard NilPat (SetCompr (ListLit [Constr "Wt"]) [])],Generator (MatchGen (ConsPat (PVar "\953\&5eC") (StrictPat Wildcard)) (If (SetLit []) (FieldExtr "\947w\967V") (SetLit []))) [MatchGuard (AtPat "j" (PVar "\947")) (FieldSet "s\924o\925"),LetGuard Wildcard (App (Constr "J\951") (ListLit []))]] (Var "\949F\924\&9")),LetGuard (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\923\&7\917\963N\947") (StrictPat Wildcard)) NilPat) (AtPat "\962\923" (PVar "ug"))) (AtPat "q\916\&6f" Wildcard)) (StrictPat NilPat)) (Operator (SetLit [Var "\960\921\931u\924",FieldExtr "\965\937b\934\948",FieldSet "a\931J\946\&6\924N"]) (6,LeftAssoc) "-" (FieldExtr "\954\958R"))],Generator (TraverseGen (AtPat "u\947\969" NilPat) (Operator (ListLit [Var "lPEw",FieldExtr "pl"]) (7,LeftAssoc) "%" (Lambda [AppPat (AppPat (ConstrPat "\916\951") (StrictPat (PVar "\965"))) (AtPat "\947F\952" (ConsPat (LazyPat (ConstrPat "\929")) Wildcard)),FatCommaPat (PVar "z") (StrictPat (StrictPat Wildcard)),AtPat "d" (FatCommaPat (LazyPat (PVar "c")) (LazyPat (FatCommaPat (PVar "w") (LazyPat (ConstrPat "\929"))))),LazyPat (StrictPat (FieldPat "\969i\946\964\956Q\936" NilPat (ConsPat (StrictPat (PVar "\965")) (LazyPat (PVar "mg\937"))))),StrictPat Wildcard,AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "CtUGxz") NilPat) (StrictPat (PVar "sU\959\919\945\948"))) (ConstrPat "W\919\961\954X\962c")) (LazyPat NilPat)) (AppPat (ConstrPat "\923u\962LT\914\952") (PVar "c"))) Wildcard) (AtPat "\945" NilPat),Wildcard,ConsPat (ConsPat (AtPat "g" (ConstrPat "\929yJlyxP\916")) (LazyPat Wildcard)) (ConsPat NilPat (AtPat "pos\956v0q\955" (ConstrPat "YR\931Gz")))] (ListCompr (ListLit []) [Generator (TraverseGen (StrictPat (PVar "i")) (FieldExtr "h\963")) []])))) [MatchGuard (FieldPat "\947N\956\&0PMTG" (StrictPat (AtPat "b\914G" (ConstrPat "\915"))) (LazyPat (LazyPat (AtPat "\960X" NilPat)))) (ListLit [FieldMod "\948\&6",FieldExtr "t\967Hyot\923\916",SetLit [],ListLit [],FieldSet "mNW\964\&0xwO",FieldMod "\965\923",Var "hOF"]),BoolGuard (Rec [Generator (LetGen NilPat (Rec [Generator (LetGen (StrictPat NilPat) (FieldSet "jp")) []] (FieldSet "_\917V\954"))) [BoolGuard (SetLit [])],Generator (TraverseGen (FieldPat "l" Wildcard NilPat) (Case (ListLit [Var "\954\957"]) [(NilPat,SetLit [])])) [LetGuard (FatCommaPat (PVar "\948GR") NilPat) (Lambda [FieldPat "m" (AtPat "\962\955\950E" Wildcard) (AtPat "w" Wildcard),PVar "ff"] (Rec [] (SetLit [])))],Generator (BindGen (ConstrPat "\929") (SetCompr (SetLit [FieldSet "w"]) [Generator (MatchGen (PVar "d") (SetLit [])) [MatchGuard NilPat (Constr "\913\954")]])) [BoolGuard (Operator (FieldSet "v\915\&4") (6,LeftAssoc) "-" (FieldMod "eH\945\937"))]] (Lambda [ConstrPat "\922"] (Constr "K\953\917"))),LetGuard (StrictPat (StrictPat (StrictPat (AppPat (ConstrPat "\932B\954a\919") (ConstrPat "\920\948_"))))) (SetLit [Rec [Generator (LetGen (AppPat (AppPat (ConstrPat "\915f") (AtPat "bepF" (PVar "kv\923h"))) (LazyPat NilPat)) (ListCompr (FieldMod "\963") [])) [LetGuard (PVar "x\921\937\953") (App (ListLit [FieldMod "w\964\968B"]) (FieldMod "\946\926\923"))],Generator (RunGen (If (Constr "\929\965\936\951") (Constr "\915") (FieldExtr "zR0m"))) []] (Case (Constr "HQ8\956\925") [(Wildcard,FieldExtr "\956a")])])],Generator (BindGen (FatCommaPat (ConsPat (AppPat (ConstrPat "\920") (AppPat (ConstrPat "\929\&2") (AppPat (ConstrPat "V\929\&1q") (LazyPat NilPat)))) (AppPat (ConstrPat "L") Wildcard)) (AppPat (ConstrPat "H") NilPat)) (SetLit [Constr "\919b1N",FieldExtr "\953_\913\934",FieldSet "b\937yV2\951n\954",FieldSet "\968\927",Var "\969"])) [BoolGuard (Case (Rec [Generator (RunGen (ListLit [])) []] (FieldMod "\954\958F")) [(FatCommaPat (LazyPat NilPat) (AtPat "f\934Q" NilPat),Var "y9U\915"),(FatCommaPat (PVar "\967N\915\917") (StrictPat NilPat),Constr "\922\945x\922")]),MatchGuard (FieldPat "f" (AtPat "\945n" (LazyPat (LazyPat (PVar "o\914o")))) NilPat) (Var "\950l")],Generator (TraverseGen NilPat (ListCompr (FieldExtr "\965\931") [Generator (TraverseGen (AppPat (ConstrPat "F") (ConsPat (AtPat "\950W" (ConstrPat "\915\963L\928")) NilPat)) (ListCompr (ListLit []) [Generator (TraverseGen Wildcard (ListLit [])) [LetGuard (AtPat "q\932" NilPat) (SetLit [])]])) [MatchGuard (FieldPat "\963\964\&92" (AppPat (ConstrPat "RI") (LazyPat (ConstrPat "UQ"))) (AtPat "\960\958Q\946" (PVar "iJ0F"))) (FieldSet "\946Q7X"),MatchGuard (StrictPat (AtPat "\968" (AppPat (ConstrPat "\913INa") (LazyPat (PVar "\958v4\967"))))) (FieldMod "\951")]])) [LetGuard (PVar "o\969") (FieldSet "sO")]] (For [] (Var "\957")))) [BoolGuard (For [Generator (BindGen (AppPat (ConstrPat "\920YFvC\948\928\921") (PVar "i\961\913")) (For [Generator (LetGen (FatCommaPat (LazyPat (ConstrPat "\924\&3\945\952")) (PVar "\961J")) (Var "\959\936\&8")) [LetGuard (AppPat (AppPat (AppPat (ConstrPat "\914y") (StrictPat (ConstrPat "\937N\916B"))) (PVar "kQ0")) (AppPat (ConstrPat "JQ") Wildcard)) (ListLit [FieldSet "ql\952",FieldExtr "\948u\932"])],Generator (BindGen (FatCommaPat (AppPat (ConstrPat "\919__\924") (StrictPat Wildcard)) (LazyPat Wildcard)) (FieldExtr "\961LT\957")) [BoolGuard (Rec [Generator (TraverseGen (ConstrPat "M") (FieldSet "qp")) []] (FieldMod "b"))]] (Constr "\928\&7\962\&1"))) [LetGuard (FieldPat "wIp\965" NilPat (AtPat "f" (FatCommaPat Wildcard (LazyPat NilPat)))) (ListCompr (SetLit [SetLit [Constr "ZPM"],FieldSet "\956R\963",Constr "\936\951"]) [Generator (MatchGen Wildcard (Case (FieldExtr "\959") [])) []]),BoolGuard (For [] (Var "ck\924")),LetGuard (LazyPat NilPat) (Operator (Var "cC") (4,NoAssoc) "\8804" (Constr "\931mV\914\913")),BoolGuard (Lambda [ConsPat (StrictPat (LazyPat NilPat)) (PVar "\953\934KzEYgS"),StrictPat (LazyPat (FatCommaPat Wildcard (FatCommaPat (StrictPat (ConstrPat "\932pxdv\914")) (PVar "\947"))))] (For [] (FieldExtr "u\947K9w"))),BoolGuard (If (FieldExtr "y1on") (ListCompr (Var "\947pgW\929X\917q") []) (FieldExtr "wl\931")),MatchGuard (LazyPat NilPat) (App (If (FieldMod "xL\921\934h\933H") (Constr "\913\952\&6a") (FieldMod "\963")) (SetLit [])),LetGuard (ConsPat (ConsPat (PVar "h\958") Wildcard) (PVar "n\934G")) (ListLit [FieldExtr "\949\&0\968_e",FieldMod "\957nI",Constr "\936\951\956\919\933\&7\923\965",Constr "\915",Var "\953\933F\937\947B",Constr "BP5X",FieldSet "v\960D4"])],Generator (RunGen (If (Var "\949") (Rec [Generator (MatchGen Wildcard (Constr "\931n")) [MatchGuard (PVar "\966") (FieldMod "\947z")]] (FieldMod "\956\960")) (ListCompr (Var "\967kU\925") []))) [BoolGuard (If (FieldMod "\965") (Case (FieldExtr "w") [(PVar "l",Var "\956\920")]) (ListLit [Lambda [AppPat (ConstrPat "P53\935\&4d") (AtPat "\958\953" NilPat),AtPat "hq" Wildcard,FieldPat "x" (LazyPat (ConsPat (AtPat "fRx" Wildcard) (AppPat (ConstrPat "UJ\926\969") (LazyPat (ConstrPat "\928\947"))))) (ConsPat (LazyPat NilPat) (StrictPat (PVar "\950\916QaM")))] (FieldMod "\960\968")])),LetGuard (AppPat (ConstrPat "K") (PVar "p_\934y")) (If (SetLit [SetCompr (FieldExtr "e\969i") [Generator (LetGen Wildcard (FieldExtr "kR")) []]]) (FieldExtr "p\950") (Operator (FieldSet "\959") (4,NoAssoc) "\8801" (FieldMod "wA\963\&5NQ\949J"))),BoolGuard (App (If (FieldExtr "\945A\946Z7x") (Var "y") (FieldMod "\953")) (ListCompr (Var "uL") [Generator (BindGen (AppPat (ConstrPat "G\958") Wildcard) (Constr "M")) []])),LetGuard (AppPat (AppPat (ConstrPat "T\967\923") (LazyPat (ConsPat (ConstrPat "D") (StrictPat (PVar "\954h\926q\965a\965\927"))))) (AtPat "yPd\958Fzd" Wildcard)) (SetCompr (For [Generator (LetGen (AtPat "\960\964" NilPat) (FieldMod "u\968")) [BoolGuard (ListLit [])]] (Var "\965\916")) [Generator (MatchGen Wildcard (App (ListLit [SetLit [ListLit []]]) (FieldMod "\949"))) [],Generator (TraverseGen (AtPat "\955q" (FatCommaPat (StrictPat NilPat) (LazyPat Wildcard))) (Case (FieldExtr "\963") [])) [BoolGuard (Constr "L\915H\928"),LetGuard (ConsPat (PVar "\967\956\946") (AtPat "\951\949\&5l" Wildcard)) (Constr "\937")]]),BoolGuard (Var "\965")],Generator (RunGen (Constr "\918D")) [LetGuard (PVar "n") (SetLit [Var "\945\&5",SetLit [FieldMod "yjD\924\954\921\961H"],ListLit [],FieldMod "g\937\947"]),BoolGuard (ListCompr (ListLit []) [Generator (LetGen (LazyPat Wildcard) (Rec [Generator (BindGen (AppPat (ConstrPat "Tz") (LazyPat (ConstrPat "M"))) (FieldMod "\963")) [LetGuard NilPat (FieldMod "k\925")]] (FieldMod "\957"))) []]),LetGuard (StrictPat (AtPat "rM" (FatCommaPat (StrictPat (PVar "yHF0e")) NilPat))) (Rec [Generator (TraverseGen (PVar "d") (App (ListLit []) (SetLit [FieldMod "oj\933"]))) [LetGuard (AppPat (AppPat (ConstrPat "J") (LazyPat Wildcard)) (StrictPat Wildcard)) (ListCompr (Constr "B7Ok") [])],Generator (MatchGen (AtPat "vD_M" Wildcard) (Constr "\915\&6")) [BoolGuard (ListCompr (FieldSet "\956") [])],Generator (BindGen (FatCommaPat (ConstrPat "\918O\949\968") (StrictPat NilPat)) (ListCompr (SetLit []) [Generator (TraverseGen (StrictPat (PVar "a")) (SetLit [])) []])) [BoolGuard (FieldExtr "e"),BoolGuard (Constr "\914g")]] (ListLit [FieldSet "\952"]))],Generator (MatchGen NilPat (ListCompr (Constr "Z3") [Generator (RunGen (FieldSet "c")) [BoolGuard (Constr "X7\945")]])) [BoolGuard (For [] (Lambda [ConsPat (AtPat "a" (StrictPat Wildcard)) (LazyPat (AtPat "\953p\952GmGR" (PVar "\965QH\918")))] (Case (Constr "P") [(Wildcard,FieldMod "x")]))),LetGuard (FieldPat "b" (AtPat "ldC" NilPat) Wildcard) (SetLit [FieldExtr "s\925pS020\916",ListLit [FieldMod "\958Cp"],Var "\946Ea",FieldMod "\952"]),BoolGuard (SetLit [SetCompr (Operator (FieldMod "\950") (4,NoAssoc) ">" (SetLit [])) [Generator (LetGen (PVar "w3\937D") (ListLit [FieldSet "l\937\926O",ListLit [FieldSet "i"]])) [BoolGuard (If (SetLit [ListLit [FieldSet "\965\&1o"]]) (ListLit [FieldMod "\954TD"]) (FieldSet "c\965\&8\964"))]]]),BoolGuard (SetCompr (SetLit [Operator (FieldSet "\951g") (4,NoAssoc) ">" (FieldExtr "ecZ")]) [Generator (BindGen (StrictPat (ConsPat (AtPat "uj" (ConstrPat "W\920")) (StrictPat (ConstrPat "\932\925\926")))) (App (Constr "A1\934x") (Var "at\967\960"))) [],Generator (TraverseGen (StrictPat (ConsPat (ConstrPat "OZJO") NilPat)) (FieldMod "\951u\951\962")) [LetGuard (FieldPat "\960f" (AtPat "\961\922F" NilPat) (StrictPat (ConstrPat "\926"))) (SetCompr (SetLit []) [Generator (TraverseGen (StrictPat NilPat) (Constr "S")) [MatchGuard (AtPat "\953\955" Wildcard) (Constr "Z\935")]]),LetGuard (LazyPat (AtPat "c\927\928\932" (LazyPat Wildcard))) (Operator (ListLit [Constr "\918"]) (8,RightAssoc) "**" (Constr "W\925Y"))]])]] (App (Constr "\931Jxvi\921") (FieldSet "aX\916\&4"))),LetGuard (StrictPat (LazyPat (PVar "\968uI\962\957\948"))) (FieldMod "\966"),LetGuard (FieldPat "w" (LazyPat (StrictPat (ConsPat (PVar "\952") (ConsPat NilPat (AtPat "h" Wildcard))))) Wildcard) (ListCompr (SetCompr (SetLit [FieldExtr "i\917\956",FieldMod "\968"]) [Generator (BindGen (PVar "\953\949\956") (FieldSet "\962")) [BoolGuard (ListCompr (FieldMod "s\919\&9") [Generator (LetGen (AppPat (ConstrPat "\937") Wildcard) (FieldSet "nt")) [LetGuard NilPat (SetLit [])]]),MatchGuard (FieldPat "vtrK" (LazyPat Wildcard) (PVar "\964\935\969")) (App (FieldMod "vLIS") (FieldExtr "\946"))],Generator (LetGen (PVar "\953\959") (Case (FieldMod "g") [])) [LetGuard (FieldPat "s" (StrictPat Wildcard) (StrictPat NilPat)) (ListCompr (SetLit []) [])]]) [Generator (MatchGen (AppPat (AppPat (ConstrPat "\932") (StrictPat (FieldPat "\968\921\963\&2" (ConstrPat "\932\924") (StrictPat NilPat)))) (FieldPat "j" (PVar "i") (AtPat "to\916\923\924PV\963" Wildcard))) (FieldSet "\962x\925\&3\926\951\966")) [BoolGuard (Case (App (Constr "M") (FieldMod "\947\945")) [(PVar "_v\937\964",Lambda [ConsPat (AtPat "l" Wildcard) (StrictPat NilPat),FatCommaPat (LazyPat (PVar "paf")) Wildcard] (ListCompr (ListLit [SetLit []]) [])),(Wildcard,Lambda [AtPat "lnNX" (FatCommaPat (PVar "t") (LazyPat Wildcard)),NilPat,FieldPat "d" (AtPat "c" NilPat) Wildcard] (ListCompr (FieldMod "xwD1") [Generator (TraverseGen (AppPat (ConstrPat "Aq") (StrictPat (ConstrPat "\915r"))) (Constr "\921")) []])),(AppPat (AppPat (AppPat (ConstrPat "S\955N\950") (LazyPat (PVar "f"))) NilPat) NilPat,Lambda [ConsPat NilPat Wildcard,FieldPat "\947k\951O" (LazyPat (ConstrPat "X")) (AtPat "\951" Wildcard),Wildcard] (FieldExtr "\964\928k\933"))]),MatchGuard (LazyPat (PVar "\949ddx8b\964")) (FieldSet "jf"),BoolGuard (SetLit [ListLit [Var "\953A"],ListLit [SetLit [FieldExtr "\950"]],FieldMod "vw\961v",SetLit [Constr "W\965"],Var "e",Var "\959l\951\913\969\959o",Var "ci"]),BoolGuard (SetCompr (Lambda [NilPat,AppPat (AppPat (AppPat (AppPat (ConstrPat "G\952") (StrictPat Wildcard)) (AtPat "u" NilPat)) NilPat) Wildcard,PVar "\968",FatCommaPat (StrictPat (LazyPat (LazyPat (ConstrPat "\920mG")))) (AtPat "\962G" (FieldPat "c" (AtPat "\958" (PVar "g\965k4")) (PVar "\946\964\937\951"))),NilPat] (Constr "M\969\963\967\923R\921\929")) [Generator (TraverseGen (ConstrPat "G") (If (SetLit []) (FieldMod "\945\926\927") (FieldMod "l\921"))) [BoolGuard (FieldSet "p\959")]]),MatchGuard (PVar "r\958\921\963") (FieldMod "m\957Tgn")],Generator (MatchGen (StrictPat NilPat) (FieldMod "o\928\968b\966K\967\958")) [],Generator (LetGen (LazyPat (AppPat (ConstrPat "Y\927\962b\959q5N") (FieldPat "jr\946" (FatCommaPat Wildcard (LazyPat NilPat)) (FatCommaPat (StrictPat NilPat) Wildcard)))) (Constr "\925WE")) [MatchGuard (AppPat (AppPat (AppPat (AppPat (ConstrPat "\916\&3E") (ConstrPat "X")) (LazyPat NilPat)) (AtPat "\960\947\917\936\&7lge" NilPat)) (LazyPat (PVar "\954\952\&6gW\935H\929"))) (FieldSet "\964v9"),BoolGuard (App (Constr "\913") (SetLit [Var "nh",FieldSet "\955\&0\959u\915\951v\928"])),BoolGuard (Rec [] (Constr "S\921")),MatchGuard (PVar "\949") (FieldSet "r"),BoolGuard (SetLit [ListLit [FieldMod "e"],SetLit [Var "\952"],FieldSet "_\924t\926\919DP\920",FieldMod "c",FieldMod "\957",ListLit []]),BoolGuard (FieldSet "\966R\929\947"),BoolGuard (Operator (ListLit []) (5,RightAssoc) ":" (Operator (SetLit []) (5,RightAssoc) "\8658" (ListLit [])))],Generator (BindGen (FatCommaPat (StrictPat (StrictPat NilPat)) (ConsPat NilPat Wildcard)) (SetCompr (Lambda [ConsPat (StrictPat (PVar "\961\961I9")) (StrictPat (AtPat "\964D\915" (ConstrPat "C\928s\936\963\915\&5\969"))),FatCommaPat (FatCommaPat (AtPat "\949K\950" Wildcard) NilPat) (FatCommaPat (PVar "g\962") (PVar "\964\967Ts")),StrictPat (FatCommaPat (StrictPat (AtPat "\963OV3\953\947" (LazyPat (ConstrPat "\915")))) (FatCommaPat (AppPat (ConstrPat "A") Wildcard) (StrictPat NilPat))),FatCommaPat (LazyPat (AppPat (ConstrPat "A\955b\915z\947") Wildcard)) (ConsPat (ConstrPat "\923") (LazyPat NilPat)),FieldPat "rK" NilPat (ConsPat (ConstrPat "\916Zb9k0\936\951") (AtPat "gZ\933" (ConstrPat "\924"))),AtPat "gc\967\917\945" (ConsPat Wildcard (LazyPat (ConstrPat "\927G\948"))),ConsPat (LazyPat (FieldPat "\968a" (AppPat (ConstrPat "\932\934") (LazyPat (ConstrPat "\916\&7A\969\915\925pz"))) NilPat)) (StrictPat (AtPat "\949JLfZW0v" (LazyPat NilPat))),Wildcard] (Lambda [StrictPat NilPat,AtPat "\965\&3" (FieldPat "z\955" (PVar "rao") (AtPat "oD\919\926\936" (FatCommaPat Wildcard (LazyPat NilPat)))),LazyPat (AppPat (ConstrPat "\917\929") (StrictPat (PVar "c\931\931"))),FatCommaPat NilPat (FieldPat "\951" (LazyPat NilPat) (AppPat (ConstrPat "\918\913") (LazyPat (ConstrPat "\927")))),FatCommaPat (FieldPat "c\918\955" (LazyPat NilPat) (StrictPat (PVar "\958Dn\920\925\934e\932"))) (FieldPat "\947J3\956\&3" Wildcard (AtPat "t" NilPat)),Wildcard,PVar "\956H\928L\969\&1\954",NilPat] (ListLit []))) [Generator (BindGen (FatCommaPat Wildcard NilPat) (For [] (SetLit []))) [BoolGuard (Var "u"),MatchGuard (LazyPat Wildcard) (SetCompr (Constr "\916\&6\916\917") [Generator (TraverseGen (AppPat (ConstrPat "Jf") (AppPat (ConstrPat "Ud") Wildcard)) (Constr "\936\953")) [BoolGuard (Var "\954")]])],Generator (MatchGen (StrictPat (ConstrPat "\917")) (SetLit [FieldMod "sM9\959",Constr "\928\924",Var "\965\914\952"])) [MatchGuard NilPat (Lambda [AppPat (AppPat (AppPat (ConstrPat "\922\916e") (LazyPat NilPat)) (ConstrPat "\922U")) Wildcard,StrictPat (ConsPat (AppPat (ConstrPat "N") (PVar "ie\953")) (AtPat "\968X" (ConstrPat "\923\954\945")))] (FieldMod "\963x\934")),MatchGuard (FieldPat "ul3" (ConstrPat "\934\964\&9") (AppPat (ConstrPat "P\961") (StrictPat NilPat))) (Lambda [FieldPat "fG\955\958" (AtPat "rno\967" NilPat) (ConstrPat "Rd\922l"),ConsPat Wildcard (StrictPat Wildcard),StrictPat (AppPat (AppPat (ConstrPat "L") (ConstrPat "\921")) (AtPat "k" (PVar "\956"))),StrictPat (AppPat (ConstrPat "O\951\947\966") Wildcard)] (FieldSet "\949"))],Generator (RunGen (Var "\951\961\934Z")) [LetGuard (FieldPat "b" NilPat (StrictPat (PVar "\965"))) (SetCompr (FieldExtr "yJ") []),BoolGuard (Rec [] (SetLit [SetLit [Constr "\917\962zC"]]))]])) [MatchGuard Wildcard (SetLit []),BoolGuard (ListLit [SetLit [Constr "AD"],FieldExtr "\947K3SZ",Var "cWf\951\920\965x",FieldExtr "l\959\953eg",ListLit []]),MatchGuard (LazyPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "C\956U") (ConstrPat "GpO")) (StrictPat (PVar "vq"))) (StrictPat (PVar "fb4\964\965A"))) (AppPat (ConstrPat "\913\951\918") (PVar "k"))) NilPat)) (ListCompr (FieldMod "c\962\951\916\924\948Dd") [Generator (RunGen (If (SetLit [Var "y\920"]) (Var "\945") (Constr "\919Sr\964"))) [MatchGuard (PVar "z\963o\921") (ListCompr (FieldMod "\965\&5\934P") [Generator (LetGen (AtPat "yH" Wildcard) (ListLit [Constr "Y6"])) [MatchGuard (AppPat (ConstrPat "\929") (LazyPat NilPat)) (FieldMod "\957")]])],Generator (TraverseGen (FieldPat "z" (AtPat "\956" (ConstrPat "LSK\915")) (PVar "\949d")) (ListCompr (FieldSet "\954\&51w") [Generator (RunGen (Var "\966")) [MatchGuard (AtPat "\961l" NilPat) (Constr "\921j")]])) [MatchGuard (LazyPat NilPat) (FieldMod "d"),LetGuard (ConsPat (PVar "\953\956O\955") (AppPat (ConstrPat "J") NilPat)) (ListLit [ListLit [Var "\958\964Gn"],Var "\949",Var "\950"])],Generator (RunGen (ListCompr (FieldMod "\967z") [Generator (MatchGen (StrictPat Wildcard) (ListLit [])) []])) [BoolGuard (SetCompr (FieldExtr "\966J\956") [Generator (BindGen NilPat (FieldSet "\961\&9")) [MatchGuard (AtPat "\959" Wildcard) (ListLit [FieldExtr "gr"])]])]]),BoolGuard (Var "y"),LetGuard (StrictPat (FieldPat "\948\928" (StrictPat (LazyPat NilPat)) (LazyPat (AtPat "\956wSI" NilPat)))) (Var "l")]]),LetGuard (AppPat (ConstrPat "\929\934L9\920") (FieldPat "du\921Mo" (FatCommaPat (ConsPat (LazyPat (PVar "\962")) NilPat) (LazyPat (FieldPat "\947" NilPat (StrictPat (ConstrPat "\916"))))) (PVar "\965D"))) (Rec [Generator (MatchGen (FatCommaPat (ConstrPat "I\927") Wildcard) (FieldSet "\957\926\953\968")) [BoolGuard (SetCompr (If (FieldExtr "\967\&5\960\947") (ListLit [FieldExtr "v"]) (FieldSet "k\937i\949\955")) []),BoolGuard (Var "\959"),BoolGuard (App (Case (SetLit [Var "\962\931e\969\964"]) []) (SetCompr (Var "\945_w_q\914C\948") [Generator (TraverseGen (LazyPat NilPat) (FieldSet "\969\955")) [LetGuard (StrictPat (PVar "e\950")) (Constr "Z")]])),BoolGuard (SetLit []),MatchGuard (ConsPat (FieldPat "r" (AtPat "d5\953\935h" (PVar "\950\937p")) Wildcard) NilPat) (Rec [Generator (BindGen NilPat (FieldSet "\964\918\914\953")) [MatchGuard (PVar "v\933\933\950") (Constr "P\956\926")],Generator (BindGen NilPat (App (FieldSet "d6k") (FieldExtr "a\955"))) [MatchGuard (FatCommaPat NilPat (LazyPat Wildcard)) (SetCompr (ListLit [ListLit []]) [Generator (LetGen NilPat (ListLit [])) []])],Generator (RunGen (FieldMod "k\955Nr")) []] (For [] (FieldMod "\966E\915")))],Generator (LetGen NilPat (FieldSet "b\949Ee\954")) [LetGuard (FatCommaPat (FieldPat "\945\950" (AtPat "l_" NilPat) NilPat) NilPat) (FieldSet "\957"),BoolGuard (ListCompr (FieldMod "om\933\948\953") []),BoolGuard (FieldSet "p\932\932\914\915\919\&1t"),MatchGuard (FatCommaPat (AtPat "\954\952\914U" (AppPat (AppPat (ConstrPat "E") (StrictPat Wildcard)) (PVar "g\935k"))) (FieldPat "\946" NilPat (AtPat "eBJm" NilPat))) (Case (SetCompr (ListLit []) [Generator (RunGen (Var "\954")) [LetGuard Wildcard (Constr "V\951")]]) [(LazyPat (ConsPat (AtPat "h\968K" Wildcard) Wildcard),Case (FieldExtr "\946A") []),(PVar "\966\&7",For [Generator (TraverseGen (StrictPat (PVar "\965\919")) (Var "\953G")) []] (FieldMod "t3\965\947"))]),MatchGuard (FatCommaPat (StrictPat (AppPat (ConstrPat "\918") (FieldPat "rXV" (AtPat "\947\960" Wildcard) (LazyPat Wildcard)))) (LazyPat (ConstrPat "\932G"))) (Operator (Var "\951\917") (5,RightAssoc) ":" (FieldExtr "\959\947L\958")),MatchGuard (FatCommaPat (AtPat "x\936R" (PVar "\945")) (StrictPat (FieldPat "g\932" (PVar "e3") (StrictPat Wildcard)))) (SetLit [For [Generator (RunGen (SetLit [ListLit []])) []] (FieldExtr "d"),Constr "K"])],Generator (BindGen (PVar "x") (Lambda [Wildcard,FatCommaPat (FatCommaPat (PVar "\962L\922\931v") (AppPat (ConstrPat "IX6y\957CU\961") (LazyPat Wildcard))) (StrictPat (AppPat (ConstrPat "\917Fr") (PVar "\947"))),LazyPat NilPat,FieldPat "qP_\964" (FieldPat "\951" (AppPat (ConstrPat "\937_\963") NilPat) (AtPat "\956" (ConstrPat "G"))) (FieldPat "\957V" (PVar "qbh77") (StrictPat (ConstrPat "A\926\&3Ox")))] (If (ListCompr (FieldSet "\955\931Mq") [Generator (BindGen NilPat (Var "_m")) [BoolGuard (SetLit [])]]) (ListLit [SetCompr (ListLit [FieldExtr "\962\953"]) [Generator (RunGen (SetLit [FieldMod "jr"])) []]]) (App (FieldSet "\959") (FieldExtr "t"))))) [MatchGuard (FatCommaPat Wildcard (PVar "\966\&2G\920u\951\929u")) (Rec [Generator (RunGen (Var "eKw\965")) [BoolGuard (FieldExtr "v"),LetGuard NilPat (ListLit [FieldExtr "\955PXB",Constr "\914\964"]),BoolGuard (SetCompr (Var "c\951f\952") [])],Generator (BindGen (ConsPat (AppPat (ConstrPat "N\964") (AtPat "\956\945yd" (ConstrPat "\934"))) (ConstrPat "I\917\913\913")) (ListCompr (Constr "L") [])) [BoolGuard (Var "\946t"),BoolGuard (Lambda [AppPat (AppPat (AppPat (ConstrPat "\919\962\916\935") Wildcard) (LazyPat Wildcard)) Wildcard,LazyPat (PVar "\957")] (SetCompr (FieldSet "p\935\918y") [])),BoolGuard (If (FieldExtr "\965\957") (FieldMod "qrm\957") (Constr "\920I"))],Generator (BindGen (AppPat (ConstrPat "\933") (AppPat (ConstrPat "\921") (PVar "\968u\928"))) (Rec [Generator (MatchGen (LazyPat NilPat) (SetLit [])) [BoolGuard (FieldSet "p")]] (Var "\964UD"))) []] (SetLit [SetCompr (FieldSet "\964NU") [Generator (TraverseGen (LazyPat (PVar "no")) (FieldExtr "\955k")) [LetGuard (StrictPat NilPat) (Var "\958")]]])),BoolGuard (Var "\948g\954n\968\966\947"),MatchGuard (FieldPat "\945\920" Wildcard (StrictPat (PVar "\966"))) (Constr "\928"),BoolGuard (Operator (Operator (SetLit [FieldSet "c\923O\928"]) (4,NoAssoc) "<" (Var "\961")) (8,RightAssoc) "^" (Lambda [AtPat "w\946" NilPat] (ListLit [SetCompr (Constr "\932") []])))],Generator (TraverseGen (ConsPat (AtPat "t" (StrictPat (StrictPat NilPat))) (AppPat (AppPat (AppPat (ConstrPat "K") (ConstrPat "\920\950Y")) (PVar "\960w0WW")) (AtPat "m" (ConstrPat "\923\&8\913f\963")))) (FieldMod "ix2v\918")) [MatchGuard (ConsPat (LazyPat NilPat) (LazyPat Wildcard)) (Case (FieldExtr "\957CKU\915\963\&60") [(Wildcard,FieldMod "b\965\&1\920"),(AtPat "p" Wildcard,If (ListLit []) (FieldExtr "\946\921d\959") (ListLit [ListLit [FieldMod "\947"]]))])],Generator (LetGen (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\925ko") (StrictPat (ConstrPat "Q"))) (AtPat "\969g\966" (PVar "b\937XE"))) Wildcard) (LazyPat NilPat)) (AtPat "m" (PVar "h"))) Wildcard) (AppPat (ConstrPat "\936\936AI") (PVar "fM"))) (FieldSet "\950")) [MatchGuard NilPat (App (Lambda [Wildcard,NilPat] (ListLit [App (FieldMod "iY\931L\951j\968\954") (FieldMod "t\947s\926\924k")])) (Rec [Generator (LetGen NilPat (Constr "EU")) [BoolGuard (FieldSet "ad")]] (FieldMod "ymW\929M"))),BoolGuard (If (For [] (FieldExtr "bSw")) (Case (FieldExtr "n6k\923z\950\960") [(AppPat (ConstrPat "E") (AppPat (ConstrPat "\921r") (LazyPat (PVar "k\960"))),ListLit [])]) (SetCompr (Constr "G") [])),BoolGuard (FieldMod "aP\925\959\937\968d\957"),BoolGuard (Lambda [NilPat] (SetLit [])),LetGuard (FieldPat "j4\947\937\968D" (LazyPat (AppPat (AppPat (ConstrPat "\913\927\914") (StrictPat Wildcard)) (PVar "\969"))) (LazyPat (AppPat (ConstrPat "\936lJt") (StrictPat (LazyPat (PVar "\963K1\916")))))) (Rec [Generator (TraverseGen NilPat (App (Var "xa") (Var "\958"))) [BoolGuard (SetCompr (Var "_JN") [Generator (LetGen (StrictPat (PVar "n")) (Var "\962D")) []])]] (Var "v"))],Generator (BindGen NilPat (FieldMod "\968z\951\934\936")) [MatchGuard Wildcard (ListCompr (FieldMod "au") [Generator (LetGen (StrictPat (ConsPat (LazyPat Wildcard) (PVar "zf"))) (Operator (Var "m\965") (8,RightAssoc) "**" (SetLit []))) [],Generator (RunGen (Operator (FieldMod "\967rj") (4,NoAssoc) "\8804" (FieldMod "\949\915\917"))) [],Generator (MatchGen (AtPat "xJ\964\927" (ConsPat (StrictPat Wildcard) NilPat)) (SetLit [FieldMod "\948G",ListLit [Constr "\935"],Constr "\933"])) []]),LetGuard (ConsPat (AtPat "fM\927B\934\947" NilPat) (FieldPat "\948\929" NilPat Wildcard)) (SetLit [FieldExtr "m",FieldMod "\948",FieldExtr "k\959\954\&2\954G",ListLit [FieldSet "a"],ListLit [],FieldSet "r\915"]),BoolGuard (App (Var "\958") (If (FieldMod "p2a\934W") (SetLit [Var "\964o\921\958T\919\918I"]) (Var "e"))),LetGuard (AppPat (AppPat (AppPat (AppPat (ConstrPat "\929\913") (AtPat "qy" (ConstrPat "\925\927W\957\964\&3O"))) (LazyPat Wildcard)) (PVar "\961E\915bBh")) NilPat) (SetCompr (SetLit [FieldMod "\954d",ListLit []]) []),LetGuard NilPat (FieldMod "_f\924a")]] (SetLit [FieldSet "o",FieldExtr "b5dX\936\913o",SetLit [],Var "\946\931\947"])),BoolGuard (FieldExtr "oC\937K_"),BoolGuard (FieldMod "l\949\&03\953"),LetGuard (PVar "z\937") (SetCompr (If (Lambda [FatCommaPat Wildcard (LazyPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\922\961\&3\967mB") (LazyPat (PVar "\958v"))) NilPat) (PVar "\959c\964")) (PVar "\957")) Wildcard)),FatCommaPat (FatCommaPat (LazyPat (PVar "s")) (StrictPat Wildcard)) (FieldPat "z" (AppPat (AppPat (AppPat (ConstrPat "PF_") (StrictPat (ConstrPat "W\926k"))) (PVar "i\933")) NilPat) (PVar "\947W")),StrictPat NilPat,FieldPat "\950M" NilPat (FatCommaPat (AppPat (ConstrPat "E") (AppPat (ConstrPat "\913kC\958B\924") (LazyPat (LazyPat (PVar "n\957"))))) NilPat),Wildcard,FatCommaPat (AppPat (AppPat (AppPat (ConstrPat "J\967\921\931_") (PVar "\952a\929")) (AtPat "qo\956\927\965" NilPat)) (FatCommaPat (AppPat (ConstrPat "O") (PVar "fO7i")) NilPat)) (ConsPat (ConsPat (PVar "kevmL") (AppPat (ConstrPat "U") (LazyPat (ConstrPat "B\949Z")))) (FatCommaPat NilPat (AtPat "\961\948z" (PVar "i\918H\965n")))),NilPat,AtPat "rc\957\928s\948\&5Z\950\945C" Wildcard,LazyPat (FatCommaPat (AtPat "q\920" (LazyPat Wildcard)) (StrictPat Wildcard)),PVar "mk",FieldPat "s" (StrictPat (AtPat "nre" (PVar "o"))) (FieldPat "\952\&3" NilPat (StrictPat (StrictPat (LazyPat Wildcard))))] (SetLit [])) (Rec [Generator (BindGen (ConstrPat "\935\932") (FieldSet "b\952")) [LetGuard (AtPat "\961\950" (ConstrPat "D\916")) (Constr "E8")]] (Var "h")) (SetLit [FieldExtr "\960",FieldExtr "x4"])) []),BoolGuard (FieldSet "l"),BoolGuard (FieldExtr "\966\950\949\932f"),MatchGuard Wildcard (FieldMod "h\955"),LetGuard (FieldPat "\960" (FatCommaPat (AtPat "\963" (PVar "ts\959v\932F0\945\927\928Y\962\963\925")) Wildcard) (LazyPat (StrictPat (FatCommaPat Wildcard Wildcard)))) (ListCompr (Var "p") [Generator (BindGen (PVar "l") (ListCompr (Var "\953\&0\956") [Generator (TraverseGen (ConsPat (ConstrPat "\927\917") (PVar "\948")) (SetCompr (FieldMod "\968") [])) [MatchGuard (FieldPat "\965" (AppPat (ConstrPat "G") (PVar "\949BL")) Wildcard) (ListLit [Lambda [ConsPat Wildcard (LazyPat NilPat),Wildcard,AppPat (AppPat (AppPat (ConstrPat "EXd\913") NilPat) (PVar "u\959B")) (StrictPat (PVar "\951\963")),LazyPat (FatCommaPat (AtPat "s" Wildcard) (StrictPat NilPat))] (Operator (SetLit []) (4,NoAssoc) ">" (Var "\948"))]),MatchGuard (FatCommaPat Wildcard Wildcard) (SetLit [SetLit [],SetLit [Var "\958"],ListLit []])],Generator (RunGen (Operator (ListLit [FieldMod "k"]) (4,NoAssoc) "\8805" (ListLit []))) [LetGuard (FatCommaPat Wildcard (LazyPat NilPat)) (If (FieldExtr "\955Q") (FieldMod "\956\952f") (Constr "TC")),LetGuard (PVar "\957\934W\959") (Operator (FieldSet "p\958") (6,LeftAssoc) "-" (FieldSet "\961"))],Generator (MatchGen (AppPat (AppPat (AppPat (ConstrPat "L") (LazyPat (ConstrPat "R"))) (LazyPat (ConstrPat "AM\915"))) (StrictPat (PVar "\963\&6\915"))) (SetCompr (ListLit []) [Generator (RunGen (ListLit [])) [LetGuard (AtPat "\948" NilPat) (SetLit [ListLit []])]])) []])) [BoolGuard (Operator (Rec [Generator (TraverseGen (StrictPat Wildcard) (ListLit [])) []] (ListLit [ListLit []])) (4,NoAssoc) "<" (Case (FieldExtr "\966") [(Wildcard,FieldExtr "\969k")]))],Generator (MatchGen (FatCommaPat (FatCommaPat (LazyPat Wildcard) Wildcard) Wildcard) (ListLit [FieldExtr "vu\924Y\957",Constr "I",Var "oJ\945",Var "x\931",Constr "T\921\924ON\937",ListLit []])) [BoolGuard (SetCompr (Operator (Constr "\919\946") (5,RightAssoc) "\8658" (ListLit [])) [Generator (LetGen (StrictPat (FatCommaPat (StrictPat Wildcard) (PVar "zUq"))) (Var "j0")) []])]]),MatchGuard (AtPat "w" (FieldPat "u\933" Wildcard Wildcard)) (FieldExtr "u"),BoolGuard (FieldMod "lG\961nXr\934\914"),MatchGuard Wildcard (SetCompr (Var "rsC\952\918\916\962") [Generator (RunGen (FieldSet "h3v")) [LetGuard (AtPat "\954a" (AppPat (ConstrPat "\921n\913") (ConsPat NilPat (FatCommaPat NilPat NilPat)))) (For [Generator (MatchGen (ConsPat (PVar "r") Wildcard) (Rec [] (ListLit []))) [BoolGuard (If (FieldSet "\957uJs") (SetLit []) (Constr "R\934"))],Generator (MatchGen (StrictPat (AppPat (ConstrPat "\922\934") (PVar "\962\952"))) (Var "a\933\956")) [MatchGuard (FieldPat "\949" (LazyPat (ConstrPat "\927\956")) (StrictPat NilPat)) (FieldExtr "z"),LetGuard (PVar "\960s") (FieldSet "l0fj")]] (Lambda [LazyPat (ConsPat (LazyPat (StrictPat (AtPat "\946D\931\921t\933r" (ConstrPat "\927U\967r")))) (AppPat (AppPat (AppPat (ConstrPat "B\958") Wildcard) (PVar "\960Un\925qDz_")) (AtPat "\964H" NilPat)))] (Rec [Generator (MatchGen (PVar "q\917") (Constr "B")) []] (FieldExtr "\946\933\915\962\959\957l")))),LetGuard (ConsPat (FieldPat "c\956EP\947sia" NilPat (StrictPat (ConstrPat "\924"))) (PVar "\950\&25")) (FieldMod "g\927\917"),BoolGuard (App (Case (FieldMod "\950\950\&5") [(PVar "\945_",Var "\960")]) (Rec [] (SetLit [Constr "\924"]))),LetGuard (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\924Q") (StrictPat (ConstrPat "U\959"))) NilPat) (StrictPat NilPat)) Wildcard) NilPat) (StrictPat Wildcard)) (Constr "\933\&50")],Generator (BindGen (ConsPat (PVar "\967s3") (AtPat "k\960\&5d" (StrictPat Wildcard))) (If (Operator (Constr "\936\925") (8,RightAssoc) "**" (Var "i")) (Lambda [AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\922l") (ConstrPat "\934\958\956q0\956\&3")) Wildcard) NilPat) (ConstrPat "R\931")) Wildcard] (FieldExtr "kv\967\966")) (ListCompr (Constr "\915\937x") []))) [BoolGuard (ListLit [App (Constr "BR") (SetLit []),Constr "\927rG\934\963V"]),LetGuard (PVar "\956dqQ\925qE\968") (If (ListLit []) (App (FieldMod "k0\923\916") (Constr "\918")) (SetCompr (ListLit []) [Generator (RunGen (Var "\965a")) []])),LetGuard (ConstrPat "\931Fk\919") (For [Generator (BindGen Wildcard (FieldExtr "qy\924\969")) [MatchGuard (FieldPat "wVK" (StrictPat NilPat) (AtPat "s" (PVar "t\960\920\960"))) (For [] (SetLit [FieldMod "\947\966p"])),BoolGuard (SetCompr (FieldSet "k") []),MatchGuard (FatCommaPat Wildcard (LazyPat Wildcard)) (Operator (FieldExtr "\958L") (6,LeftAssoc) "+" (SetLit [FieldSet "\968\918\&0"]))]] (App (FieldExtr "qY") (FieldMod "\956"))),LetGuard (PVar "\960") (App (ListLit []) (FieldExtr "\951\959\916\945qr\962x")),LetGuard NilPat (Rec [Generator (TraverseGen (AtPat "ri" (StrictPat (StrictPat NilPat))) (ListCompr (FieldSet "\953\965Oq") [])) [LetGuard (FieldPat "fX\935B" NilPat (ConstrPat "PK\952y")) (ListCompr (Var "\962") [Generator (LetGen (PVar "\968") (FieldExtr "\962\917")) [MatchGuard (ConstrPat "\924\965") (Var "\945\929")]])],Generator (TraverseGen Wildcard (Operator (SetLit []) (4,NoAssoc) "<" (Var "\945\950m"))) [MatchGuard (AppPat (ConstrPat "\932p\949") Wildcard) (Case (Constr "\929\968m") [(StrictPat (PVar "_\965"),ListLit [Var "\955p"])]),BoolGuard (Var "e")]] (SetCompr (ListLit []) [Generator (BindGen NilPat (FieldMod "x0")) []])),BoolGuard (Var "h\962"),MatchGuard (AtPat "\953\925\&5wl\927" (PVar "\949")) (Rec [] (If (FieldMod "f") (Constr "Qnb") (FieldSet "r\917")))],Generator (TraverseGen (FatCommaPat (StrictPat (FatCommaPat NilPat Wildcard)) (PVar "v\923\921A")) (FieldSet "\946\&5\959\956\955JM\931")) [],Generator (TraverseGen (AtPat "j\915" (LazyPat (LazyPat (LazyPat Wildcard)))) (For [Generator (LetGen (ConsPat (StrictPat (ConstrPat "P")) (PVar "\959g")) (Constr "\917U")) [LetGuard (AtPat "u" (ConsPat Wildcard (AtPat "ncs\954" NilPat))) (App (FieldExtr "\968") (FieldSet "vUYs")),BoolGuard (Case (Var "\957eLQ") []),LetGuard NilPat (ListLit [])],Generator (TraverseGen (LazyPat (PVar "f")) (Operator (Var "lMB\919") (4,NoAssoc) ">" (ListLit []))) [MatchGuard (FatCommaPat (ConstrPat "\924p\931\955") (LazyPat (ConstrPat "\929"))) (SetLit [Var "u",ListLit [FieldSet "c"]])]] (ListLit [Constr "\917pcl",FieldSet "\955\968\965v",Var "\953\935"]))) [BoolGuard (Operator (If (SetLit [ListLit [Constr "\920"]]) (Constr "T\962K\965\927\955l\957") (FieldSet "\967WJz")) (8,RightAssoc) "**" (SetLit [FieldExtr "\961M",SetLit []])),BoolGuard (Var "\958"),MatchGuard (ConsPat (FieldPat "e" (StrictPat NilPat) (StrictPat (PVar "aRjW\963"))) Wildcard) (Constr "Z\919")],Generator (BindGen (ConsPat Wildcard (PVar "fT\946")) (FieldSet "\947\947x\945ca9")) [BoolGuard (Rec [] (Operator (Constr "\932") (7,LeftAssoc) "%" (FieldMod "\953"))),MatchGuard (StrictPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\920") (ConstrPat "\917")) (LazyPat Wildcard)) (AtPat "\964\955\967" (PVar "jVu"))) (StrictPat Wildcard)) NilPat)) (ListCompr (SetCompr (FieldExtr "\947\919") [Generator (TraverseGen Wildcard (SetLit [])) []]) []),LetGuard (LazyPat (ConsPat (AtPat "z" NilPat) (ConsPat (LazyPat (PVar "\945")) NilPat))) (SetCompr (For [] (ListLit [])) [Generator (BindGen NilPat (ListLit [])) [BoolGuard (FieldMod "l")],Generator (MatchGen (FieldPat "cs" NilPat (AtPat "g" NilPat)) (SetLit [Constr "\933\959A",SetLit [Constr "\931\932\&8"]])) [BoolGuard (FieldExtr "\954"),MatchGuard (PVar "d\960\964\937") (App (Var "\953U") (Var "m\919\945"))]])]])],Generator (RunGen (Operator (Lambda [PVar "i6a\959Y",ConsPat NilPat Wildcard] (Case (FieldMod "\948\926kT\919L\931\955\964Iq\969") [])) (5,RightAssoc) "\8658" (FieldMod "\960\&0"))) [LetGuard (LazyPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "Q\916\&4") (PVar "\945")) Wildcard) (FatCommaPat (AtPat "cf" NilPat) Wildcard)) (PVar "b\926H")) (ConsPat (StrictPat NilPat) Wildcard)) (FatCommaPat (LazyPat NilPat) (ConstrPat "Ki")))) (Constr "\913\&5Dc_"),LetGuard (AtPat "_2\928\928" (LazyPat (LazyPat (AtPat "k\967" (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "IHY") NilPat) Wildcard) (AtPat "b\958M\920\951" NilPat)) (StrictPat (PVar "\956"))) (PVar "xn")) NilPat) (AtPat "\960\913\&3s2vr\964" NilPat)) NilPat) NilPat) (AtPat "b\949" Wildcard)))))) (Operator (Lambda [AtPat "p\923" (FatCommaPat (ConsPat (ConsPat NilPat (StrictPat (PVar "\955t\931r\927\931"))) (StrictPat NilPat)) NilPat),ConsPat (FieldPat "\950a" (AppPat (ConstrPat "ZV\958") (StrictPat Wildcard)) (AtPat "\962a5" (FieldPat "q" (LazyPat (ConstrPat "W8")) (StrictPat NilPat)))) (ConsPat (FieldPat "x\964FW\933a\918na2" (StrictPat (ConstrPat "C0")) (AtPat "\955lV" NilPat)) NilPat),AtPat "\965\922gi" (ConsPat (FatCommaPat Wildcard Wildcard) Wildcard),FatCommaPat (StrictPat (FatCommaPat (StrictPat (ConstrPat "\916")) (ConsPat (PVar "\968") (LazyPat (PVar "\953\948\955\933"))))) (StrictPat (AtPat "iz" (PVar "t\931OP\954\954\927"))),NilPat,NilPat] (ListLit [Rec [Generator (BindGen (LazyPat (PVar "\947Q")) (ListLit [])) []] (Constr "\919"),App (Var "h") (FieldMod "\945b7R\949W")])) (5,RightAssoc) "\8658" (Rec [Generator (LetGen (ConsPat NilPat (AtPat "r\916" Wildcard)) (App (FieldExtr "lr\913k") (SetLit [SetLit [FieldSet "j"]]))) [LetGuard Wildcard (Constr "\922y"),BoolGuard (FieldMod "ap"),LetGuard (LazyPat (FatCommaPat NilPat (PVar "\948r0"))) (Constr "S\918")],Generator (TraverseGen Wildcard (Operator (Constr "\935\929\&6") (5,RightAssoc) "\8658" (SetLit [ListLit [Constr "H"]]))) [],Generator (RunGen (Var "\967d\918r")) [BoolGuard (For [] (SetLit [])),MatchGuard (AtPat "s\968\954" NilPat) (Constr "\931\966")]] (ListCompr (FieldExtr "\948hI") [Generator (BindGen Wildcard (ListLit [])) [LetGuard NilPat (Constr "\913")]]))),LetGuard (LazyPat (FieldPat "\949" Wildcard (LazyPat (ConsPat (LazyPat (AppPat (ConstrPat "D\966\&0x\923\969W\957X\955") (ConsPat (AppPat (ConstrPat "\913\962") (StrictPat NilPat)) (ConstrPat "K\927\&1")))) (StrictPat Wildcard))))) (FieldMod "a0Q7\916\959Q"),LetGuard (StrictPat (ConsPat (LazyPat (AtPat "p\950d\953\&1gF" (FieldPat "\967du" (AtPat "\960S" (PVar "\969\915")) (StrictPat (ConstrPat "R"))))) (ConsPat (AppPat (ConstrPat "\914") (AppPat (AppPat (ConstrPat "G\963\945I\922es\948") (ConstrPat "W\967\915")) (AtPat "\965\956\962\&5\918S\962\&3\933" Wildcard))) (ConsPat (ConstrPat "K\934\949G\913\946\924\964j") (AppPat (ConstrPat "V") (StrictPat (PVar "c\962e"))))))) (ListLit [FieldMod "\957\926\936",ListLit [],ListLit [],FieldMod "odb",FieldMod "y",Constr "\921Y\968\924\946",SetLit [],Constr "T",SetLit [],FieldExtr "\964\968J\917\963\954r\932\965d"]),LetGuard Wildcard (Operator (App (SetCompr (FieldSet "\946i") [Generator (TraverseGen (PVar "\951") (Constr "\927W")) [LetGuard (LazyPat (ConstrPat "\937_")) (Var "pO")]]) (Rec [] (Constr "\916"))) (7,LeftAssoc) "/" (Rec [Generator (LetGen (FatCommaPat (PVar "o\928\913") NilPat) (Rec [] (Var "pnT"))) [BoolGuard (Operator (FieldExtr "\965\917\926\956") (7,LeftAssoc) "*" (Constr "\919a")),BoolGuard (FieldExtr "\966\969\927\958"),BoolGuard (Rec [Generator (MatchGen NilPat (FieldMod "\967q")) []] (FieldSet "\965\956gl"))],Generator (TraverseGen (StrictPat (AtPat "k\917" (LazyPat NilPat))) (If (Constr "K\946") (SetLit []) (Var "v"))) []] (SetCompr (FieldMod "e") []))),LetGuard (AtPat "v6\915\918\&0w\953" (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\924I\917\959") (LazyPat (ConstrPat "\915\947\&9"))) (AtPat "yY\949" (ConstrPat "Ztv\956\926"))) (AtPat "v" (PVar "\954"))) Wildcard) (AtPat "z" (PVar "pp"))) Wildcard) (StrictPat (ConstrPat "\929F8"))) (AtPat "\948d\915\948" NilPat)) (StrictPat Wildcard)) (AtPat "h" (PVar "\951J"))) (LazyPat (PVar "z")))) (ListCompr (For [] (App (Constr "\926") (FieldExtr "e\928D"))) [Generator (BindGen NilPat (Constr "W")) [LetGuard (ConsPat Wildcard (FatCommaPat (ConstrPat "\916i\947D\955\929St") (LazyPat Wildcard))) (If (Constr "\914") (SetCompr (Constr "B") [Generator (TraverseGen (ConstrPat "Xb") (Var "\953x")) [LetGuard (PVar "oq") (FieldExtr "jM")]]) (ListLit [])),BoolGuard (Rec [Generator (LetGen (StrictPat (StrictPat (StrictPat (PVar "\967\916X")))) (Constr "WInU")) [LetGuard NilPat (SetLit []),LetGuard Wildcard (Lambda [ConsPat Wildcard (AtPat "eo5a" (ConstrPat "BefL")),AtPat "hh\965Q" NilPat,PVar "\969"] (SetCompr (Constr "S\924") [Generator (BindGen (AtPat "\945\921" NilPat) (FieldSet "mp")) []]))],Generator (TraverseGen (FieldPat "mHGY" (LazyPat (PVar "\959qt\955")) NilPat) (If (FieldMod "\947") (ListLit []) (FieldExtr "\946"))) [BoolGuard (SetLit [ListLit [ListLit [SetLit []],FieldSet "a",SetLit []]]),LetGuard (AppPat (ConstrPat "PzP") (AtPat "\964" (AppPat (AppPat (ConstrPat "Q9") (AtPat "q" (ConstrPat "C"))) (LazyPat NilPat)))) (ListCompr (FieldSet "bk\963") [Generator (BindGen (PVar "\956") (FieldExtr "\965y")) [BoolGuard (FieldMod "_\919")]])]] (If (FieldMod "\953") (FieldSet "\962pkQ\965Y\932o") (FieldSet "\952Yy\929\&8"))),LetGuard (AppPat (AppPat (AppPat (AppPat (ConstrPat "UjIa\963D\948") (LazyPat Wildcard)) (PVar "j\933g\946")) (AtPat "mGr\936R\954p\952" NilPat)) (StrictPat NilPat)) (Operator (Rec [] (Constr "GWZ")) (6,LeftAssoc) "+" (Lambda [StrictPat (StrictPat (StrictPat NilPat)),Wildcard,AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\926gr\918") NilPat) Wildcard) (AtPat "\962" Wildcard)) (LazyPat (ConstrPat "EA5\954"))) (AtPat "e" Wildcard)) (LazyPat (PVar "j")),NilPat] (SetCompr (ListLit [ListLit [FieldSet "\965"]]) [Generator (BindGen (StrictPat Wildcard) (FieldMod "\967B")) [BoolGuard (SetLit [])]]))),MatchGuard (StrictPat NilPat) (SetLit [ListLit [],Var "\951",SetLit [],FieldExtr "\946MJ",ListLit [SetLit [Var "\948"]]]),MatchGuard (AppPat (AppPat (AppPat (ConstrPat "H") NilPat) (AppPat (ConstrPat "\928\951\&6\961\&6E\921q") Wildcard)) (PVar "q")) (App (Rec [Generator (BindGen (LazyPat (ConstrPat "\916P")) (Constr "\921")) []] (FieldMod "\947\926")) (Var "\958PH")),MatchGuard (FieldPat "am\963rn" (AtPat "\954" (FieldPat "\953S" (StrictPat (PVar "\969\964\945\957q\960")) NilPat)) (StrictPat (AtPat "\952l" (AtPat "\957" (ConstrPat "U"))))) (Rec [Generator (MatchGen (FieldPat "\962" (LazyPat Wildcard) Wildcard) (SetLit [FieldSet "\949Y9",Var "\957"])) [MatchGuard (ConsPat (AppPat (ConstrPat "\913UF") (PVar "d\933")) (AtPat "\947" NilPat)) (FieldExtr "jC"),LetGuard (StrictPat (FieldPat "\948vFI" (PVar "qDh\934") (StrictPat (PVar "\956\966\953f")))) (Constr "\923\953")],Generator (TraverseGen Wildcard (If (FieldExtr "\949pR") (SetLit []) (ListLit []))) [LetGuard (FatCommaPat Wildcard (LazyPat NilPat)) (Operator (SetLit []) (4,NoAssoc) "\8805" (FieldMod "\962"))],Generator (LetGen (ConsPat (PVar "\953KAf") NilPat) (ListLit [])) [MatchGuard NilPat (For [Generator (MatchGen (PVar "\950") (ListLit [])) [LetGuard (AtPat "fp" Wildcard) (Constr "\931b")]] (Constr "\923")),BoolGuard (Operator (SetLit [SetLit [SetLit [ListLit []]]]) (4,NoAssoc) "<" (FieldSet "k\925ex")),MatchGuard (AppPat (AppPat (ConstrPat "W_") (ConstrPat "\928Mw\966")) (AtPat "c\968\946" NilPat)) (Var "u\923WK")]] (Var "v"))],Generator (LetGen (PVar "rV\968\915") (For [Generator (MatchGen (LazyPat (FatCommaPat (ConstrPat "\923") (AppPat (ConstrPat "C\917\922") NilPat))) (If (Var "b\920\937") (SetLit []) (Constr "\934\958X"))) [MatchGuard NilPat (FieldExtr "\968w"),BoolGuard (App (FieldSet "\957T") (FieldMod "s\946p4"))],Generator (TraverseGen (ConsPat (AtPat "l" (ConstrPat "\922\935")) (AppPat (ConstrPat "H\967\933c") (LazyPat (ConstrPat "\917")))) (Var "\963TSL")) []] (FieldSet "h\936E\913"))) [MatchGuard (AtPat "p\937B\953\962\&0c\929" (StrictPat NilPat)) (ListLit [FieldMod "o",Case (FieldMod "krvI\953M") [],ListLit []]),LetGuard NilPat (If (ListCompr (Constr "\916") []) (SetCompr (FieldExtr "\954") []) (Operator (FieldExtr "\958\928BU") (4,NoAssoc) "\8800" (FieldMod "m\937OO\967L"))),MatchGuard (ConsPat (AppPat (AppPat (AppPat (ConstrPat "P\959P\945Y") Wildcard) (LazyPat NilPat)) (StrictPat (ConstrPat "\925\&1\936"))) (FatCommaPat Wildcard (PVar "v"))) (FieldSet "i\931\932\924\954\927"),BoolGuard (SetCompr (Constr "\937\923\963\967o") []),MatchGuard (AtPat "\963" (LazyPat (StrictPat NilPat))) (Var "nW"),MatchGuard (AtPat "j\952I3\914" (FieldPat "u\956" (StrictPat (ConsPat (PVar "\948hD") (PVar "y\916"))) (PVar "\966lj\962\967"))) (Constr "B\924")],Generator (RunGen (Var "\956\&7")) [],Generator (TraverseGen NilPat (SetLit [Var "u",SetLit [FieldExtr "\964_Wl"],FieldSet "t",SetLit [ListLit []]])) [LetGuard (LazyPat (StrictPat (LazyPat (ConsPat (FieldPat "\968sB\937\968o\951y" (AppPat (ConstrPat "Z\956dvtq\964\&6") Wildcard) (AtPat "\950" (ConstrPat "X"))) Wildcard)))) (FieldMod "\947\920"),BoolGuard (Case (FieldMod "\947\959\963U\945vh4") [(AtPat "\952x\948\927" Wildcard,For [Generator (TraverseGen (LazyPat NilPat) (Constr "\929")) []] (Var "\962v\951")),(FieldPat "\968dxq" Wildcard (PVar "\966"),ListCompr (FieldSet "n\916m") [Generator (MatchGen (AtPat "b\948" NilPat) (Var "\962\&3")) []]),(NilPat,FieldExtr "\958\957\923\967")]),BoolGuard (Case (Rec [] (FieldSet "\950")) [(FieldPat "\945l" NilPat (LazyPat NilPat),SetCompr (ListLit [FieldExtr "x\914o"]) []),(ConsPat Wildcard (LazyPat (ConstrPat "\935")),FieldMod "d\963")]),BoolGuard (Var "\955t8"),MatchGuard (AtPat "nX" (AtPat "f\932f\961\936D" (FatCommaPat (PVar "\962\917\&9D\960q\918\961") (AtPat "ph" (StrictPat (PVar "w6v")))))) (App (ListLit [SetLit [],FieldMod "\960\&6V\922h9B",SetLit []]) (If (FieldSet "n") (Constr "\937") (SetLit []))),LetGuard Wildcard (Constr "T\950\935\959")],Generator (MatchGen Wildcard (ListLit [FieldMod "\967\967L\957",Constr "C",FieldExtr "k",Var "\969C\952\960\931"])) [BoolGuard (Constr "\937\&28"),LetGuard (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\932\919") (ConstrPat "\932")) (LazyPat (ConstrPat "\928\921\964\&9uy\946s"))) Wildcard) (LazyPat (ConstrPat "Q\935\913\965Gw"))) Wildcard) (Rec [Generator (TraverseGen (AppPat (AppPat (AppPat (ConstrPat "XuLG") NilPat) (StrictPat (ConstrPat "\913"))) (AtPat "\952\963GF" (ConstrPat "Y"))) (ListLit [Constr "\928",ListLit [],SetLit [Constr "\917\&8"]])) []] (Var "\947\937")),BoolGuard (For [Generator (BindGen NilPat (App (FieldMod "jV") (FieldSet "\945\965n"))) [],Generator (LetGen Wildcard (Rec [Generator (TraverseGen (StrictPat Wildcard) (ListLit [])) [MatchGuard (AtPat "\958\956" (ConstrPat "IW")) (Var "r\931")]] (FieldExtr "sxT"))) [LetGuard (FieldPat "\964" Wildcard Wildcard) (Case (FieldSet "o\954k") []),LetGuard (ConsPat (StrictPat (ConstrPat "\931")) (StrictPat NilPat)) (FieldSet "\957\923OI")]] (Lambda [AtPat "\959" (PVar "v"),ConsPat (AppPat (AppPat (AppPat (ConstrPat "V\915") (AtPat "w\963U\928\954" (PVar "y"))) (PVar "\964\925\931\&6")) (PVar "np\918\933\963")) (PVar "\960")] (App (FieldExtr "qO\962IM\922\927W") (ListLit [])))),MatchGuard NilPat (Operator (App (Var "\948") (FieldMod "\950\963")) (7,LeftAssoc) "/" (App (FieldExtr "\969ka") (Var "y"))),MatchGuard NilPat (SetCompr (Rec [Generator (MatchGen (StrictPat Wildcard) (Var "\954")) []] (Constr "M\916m")) [Generator (BindGen (AtPat "x" (FatCommaPat Wildcard NilPat)) (Rec [Generator (LetGen (PVar "\959\957") (Var "os")) []] (FieldExtr "\959o\955\917"))) [],Generator (RunGen (Lambda [ConsPat Wildcard (LazyPat Wildcard),AtPat "\958h" (StrictPat (AppPat (ConstrPat "\926M\966") (LazyPat (PVar "x\967\925"))))] (Constr "\933"))) []])],Generator (TraverseGen NilPat (ListLit [FieldMod "s",Var "\946\965",FieldMod "\952\923\919\947\926W",FieldExtr "z\926",ListLit [FieldExtr "ey4"],FieldSet "s7\965M\960t",SetLit []])) [MatchGuard Wildcard (SetLit [ListLit [],FieldExtr "\968omi",FieldSet "\948\924",ListLit [],FieldSet "g\918r",Constr "MZ\951\963FdzL"]),BoolGuard (Operator (SetLit []) (8,RightAssoc) "^" (Operator (FieldSet "dP") (5,RightAssoc) "\8658" (Constr "Z"))),MatchGuard NilPat (SetLit [Var "bpR\937\964E",FieldSet "\957\951Oph",FieldMod "j\926",Constr "\923\962",FieldSet "kM2S\925E",Constr "\915waH"]),MatchGuard (ConsPat Wildcard (AppPat (ConstrPat "\932\921") (ConsPat (AppPat (ConstrPat "Sb") NilPat) (PVar "\961\919\934\948uMU")))) (Lambda [LazyPat (AtPat "sq6" (AtPat "\966\966" (AtPat "aWjU" NilPat))),FieldPat "\953" (StrictPat (StrictPat (LazyPat NilPat))) NilPat,FatCommaPat (ConstrPat "X") (AtPat "rE\950vG\953K\927" (AtPat "\958Zg" (ConstrPat "DM"))),AtPat "p\951\937TThbk" (PVar "\959qU\915\935N\915"),Wildcard] (FieldExtr "\957")),BoolGuard (FieldSet "d\924\&5\937W\966\919")],Generator (RunGen (FieldMod "\945")) [MatchGuard (AtPat "\961lq\918j\922C" NilPat) (Constr "\924"),BoolGuard (Var "r\914qU\926\935\920Q"),MatchGuard (ConsPat Wildcard (ConsPat (PVar "l") (StrictPat Wildcard))) (If (Case (FieldExtr "\959Wq\949\933\914W") [(LazyPat NilPat,Var "r")]) (FieldSet "h") (ListLit [For [] (Var "d\921")])),BoolGuard (App (Operator (ListLit [FieldExtr "\952s"]) (2,RightAssoc) "\8744" (FieldSet "n")) (ListCompr (SetLit []) [Generator (TraverseGen (LazyPat Wildcard) (FieldSet "in")) [MatchGuard (ConstrPat "\926") (FieldMod "\963\963")]])),LetGuard Wildcard (Rec [Generator (TraverseGen (AtPat "\967MIi" (LazyPat (StrictPat (ConstrPat "\920")))) (App (FieldExtr "j") (FieldMod "m\958"))) [MatchGuard (FatCommaPat (AtPat "\949\927f\919" (ConstrPat "\933k")) (ConstrPat "\917\945\955z")) (Case (Constr "\924\915UE") [(AtPat "\955\951" (ConstrPat "\922\958"),FieldMod "l\963")]),MatchGuard (ConsPat (PVar "jU") NilPat) (SetCompr (SetLit []) [Generator (TraverseGen (AppPat (ConstrPat "G\952") (PVar "\966C")) (Var "mi")) []])]] (FieldSet "y")),MatchGuard (ConsPat Wildcard (ConsPat (AtPat "\957aqK" NilPat) (PVar "\947"))) (SetLit [ListLit []])]]),LetGuard (ConsPat (StrictPat (PVar "tx")) (LazyPat (FieldPat "\953\946" (PVar "tN\932\947") (StrictPat (StrictPat (StrictPat (PVar "a\951"))))))) (SetCompr (If (Case (SetLit []) [(ConstrPat "Tt",ListLit [])]) (ListLit [FieldExtr "\952\&1h35X",FieldSet "\955y\957\&3"]) (SetCompr (ListLit [FieldMod "ow7\959"]) [Generator (BindGen NilPat (ListLit [])) []])) [Generator (BindGen NilPat (SetCompr (FieldExtr "\953") [Generator (LetGen (ConstrPat "Y") (App (SetLit []) (Constr "\927\949"))) [BoolGuard (ListLit [FieldSet "kfF\954",SetLit []]),BoolGuard (Constr "\936"),MatchGuard (AppPat (AppPat (AppPat (ConstrPat "\918hcI") Wildcard) (PVar "\952\963")) NilPat) (FieldSet "\963t3e")],Generator (BindGen Wildcard (For [] (SetLit []))) [MatchGuard (FieldPat "\959\927Vg" (AtPat "\959\962Ye" NilPat) (LazyPat NilPat)) (SetCompr (SetLit []) [])],Generator (TraverseGen (PVar "d9Ir") (ListCompr (FieldExtr "fL") [Generator (BindGen (LazyPat NilPat) (FieldMod "u")) []])) []])) [],Generator (MatchGen NilPat (SetCompr (Var "vL77") [Generator (TraverseGen (StrictPat (AtPat "ux\959" (AtPat "\968" (PVar "i\960\&7\950")))) (For [] (ListLit [FieldSet "\959"]))) [MatchGuard NilPat (App (FieldMod "\950i") (Var "cp\961\&8")),LetGuard (AppPat (AppPat (ConstrPat "\917_\926\923") (PVar "\962\&1")) Wildcard) (Rec [] (Var "\948L\923\950"))],Generator (RunGen (Operator (ListLit [Var "k\963"]) (4,NoAssoc) ">" (SetLit []))) [BoolGuard (FieldExtr "\960j")],Generator (BindGen (StrictPat (FieldPat "k" NilPat (LazyPat Wildcard))) (If (Constr "GBV\969") (FieldExtr "z") (ListLit []))) []])) [LetGuard (PVar "b") (Lambda [AtPat "\965f" (FatCommaPat (PVar "r") (StrictPat (PVar "\948\925"))),Wildcard,PVar "n\923pHK",LazyPat NilPat] (ListCompr (ListCompr (Var "\969DZ\948") []) [Generator (MatchGen (AtPat "\967\948" (ConsPat NilPat (LazyPat Wildcard))) (SetLit [Constr "V\916\965"])) [LetGuard (ConsPat (PVar "q") (PVar "aKji")) (FieldMod "\962")],Generator (MatchGen (AtPat "q1" (FatCommaPat (PVar "g") NilPat)) (Operator (Var "xWz\934") (7,LeftAssoc) "*" (FieldMod "\958U\969"))) [BoolGuard (If (ListLit [ListLit []]) (FieldMod "gA\949\968") (FieldSet "_a\945\&1")),BoolGuard (FieldSet "\959")],Generator (TraverseGen (AtPat "\945r" (FatCommaPat NilPat (StrictPat NilPat))) (Var "\959N\928I")) [MatchGuard (FieldPat "hG\953\963" (AtPat "\960" (PVar "pR")) (PVar "\964")) (If (FieldSet "\969") (Constr "\915C") (Var "\946")),MatchGuard (ConsPat (StrictPat (ConstrPat "\917\918\960\921")) Wildcard) (If (ListLit []) (Constr "L") (Var "gWvh"))]])),LetGuard (FieldPat "u" (AtPat "p" NilPat) NilPat) (SetCompr (Var "hU") [Generator (RunGen (Case (FieldSet "l\929\927V") [(ConstrPat "Dp",ListLit [ListLit [SetLit [Var "jw"]]])])) [BoolGuard (ListCompr (Var "\945K7") [Generator (MatchGen (PVar "\947\&5") (FieldExtr "cr")) []]),MatchGuard (AppPat (ConstrPat "\935O\969\&2") (FatCommaPat (LazyPat NilPat) Wildcard)) (FieldExtr "\957B\937g")],Generator (BindGen Wildcard (SetLit [FieldMod "bQ\956z",FieldSet "\947lj\954",FieldExtr "o"])) [MatchGuard Wildcard (Case (FieldSet "\964k") [(LazyPat (ConstrPat "\932\&0"),Var "p\966")])],Generator (BindGen (PVar "ik") (Lambda [FatCommaPat NilPat (AtPat "\966" (PVar "c"))] (Lambda [LazyPat (LazyPat (ConstrPat "\913\&0\958"))] (Constr "\926\928")))) [MatchGuard (ConsPat (AtPat "s\947G0" (PVar "yP")) (StrictPat (ConstrPat "\920"))) (Rec [Generator (TraverseGen (LazyPat (PVar "v")) (FieldMod "hS")) []] (Constr "\913\951")),LetGuard Wildcard (If (Var "i") (Constr "\931\965Y4") (ListLit [])),LetGuard (ConsPat Wildcard Wildcard) (If (Constr "\933") (FieldExtr "y") (FieldExtr "vq\915\&5"))]]),BoolGuard (If (ListLit [App (FieldMod "q\921") (Var "\964")]) (Operator (ListLit [Constr "\928\918"]) (5,RightAssoc) "\8658" (SetLit [ListLit [ListLit [Var "v"]]])) (Rec [Generator (LetGen (ConstrPat "\913\946") (Constr "\925")) [BoolGuard (FieldSet "\969")]] (Constr "H\951"))),MatchGuard (StrictPat (LazyPat (FatCommaPat (AtPat "\947" (PVar "eP\933\&8L\917N\917")) (FatCommaPat (AppPat (ConstrPat "\919D\965") (PVar "l\959")) (PVar "w\917"))))) (If (FieldExtr "yC\962") (SetCompr (ListLit []) [Generator (LetGen NilPat (FieldExtr "\957\957")) [LetGuard (LazyPat NilPat) (ListLit [Constr "X"])]]) (Lambda [StrictPat (AtPat "\955EH" NilPat),PVar "dY\952\936\960A\928",LazyPat (AtPat "\962" NilPat),AtPat "\964V" (LazyPat (ConsPat (StrictPat Wildcard) Wildcard)),FatCommaPat (StrictPat (FatCommaPat (PVar "a\922") (StrictPat (PVar "\966\&1")))) (AtPat "\960\958j" NilPat),AtPat "\956y\915" NilPat,AtPat "i" (PVar "lU\951"),PVar "mbN"] (FieldSet "\962"))),MatchGuard (AtPat "k\961" (FieldPat "\961\&5" (StrictPat (StrictPat Wildcard)) (LazyPat (FieldPat "koEb\919" (StrictPat (ConstrPat "D")) (PVar "\959ZcVE"))))) (SetCompr (ListLit [FieldExtr "\948"]) [Generator (BindGen (AtPat "\969We\922" (PVar "n")) (ListLit [])) [MatchGuard (ConsPat NilPat (AppPat (ConstrPat "H_") Wildcard)) (ListLit [FieldExtr "wnS\949",Constr "SZo",Var "_\967\947\&5"])]])],Generator (MatchGen (FieldPat "u\960\954\918\947\950" (FieldPat "h" (LazyPat NilPat) (AtPat "xh" NilPat)) (AppPat (ConstrPat "\918\967\929\953E\950k\920") (StrictPat (AppPat (AppPat (ConstrPat "\923") NilPat) (PVar "dcy"))))) (Var "\950")) [BoolGuard (Constr "\932"),BoolGuard (Lambda [NilPat,Wildcard,LazyPat (ConsPat NilPat (FatCommaPat (AppPat (ConstrPat "\936\922Z") Wildcard) (StrictPat Wildcard))),PVar "k\951"] (SetLit [FieldSet "\946QXN0Xo\936",Var "\953",FieldMod "r\913lI",SetLit [],Constr "\917\923\931",FieldMod "kh\920\966"]))],Generator (TraverseGen Wildcard (FieldSet "\947")) [],Generator (RunGen (FieldExtr "\968Xw")) [LetGuard (LazyPat (FatCommaPat (PVar "g\951") (ConsPat Wildcard (ConstrPat "D")))) (For [Generator (TraverseGen (LazyPat Wildcard) (Lambda [FieldPat "\958dY\918" Wildcard (StrictPat NilPat),FieldPat "\968TR" (ConstrPat "\937\&8") (LazyPat (ConstrPat "Q\935s1"))] (SetCompr (Constr "RB\920\931") []))) [LetGuard (FieldPat "tZ\924Y" (AtPat "\964afZ" NilPat) (StrictPat (PVar "\966\951_\966"))) (App (FieldMod "\950h\960") (FieldSet "\953\951")),BoolGuard (ListCompr (SetLit []) []),BoolGuard (SetLit [Case (Constr "A") []])],Generator (MatchGen (FieldPat "\950Sdc" (LazyPat NilPat) Wildcard) (Operator (SetLit [FieldExtr "xO\961"]) (2,RightAssoc) "\8744" (FieldExtr "\969"))) [BoolGuard (Rec [Generator (LetGen (PVar "w\956") (FieldExtr "l")) [LetGuard Wildcard (Constr "\913\927")]] (SetLit [])),BoolGuard (If (FieldExtr "z3") (Var "\950") (FieldExtr "\952REs")),LetGuard NilPat (Operator (FieldSet "n") (4,NoAssoc) "<" (Var "\950\965\916S"))],Generator (RunGen (Lambda [ConsPat (StrictPat NilPat) Wildcard,ConsPat (AppPat (ConstrPat "X\960\&5C") (ConstrPat "V")) (StrictPat NilPat),FatCommaPat (StrictPat Wildcard) NilPat] (Constr "\932k"))) [MatchGuard (LazyPat (AppPat (AppPat (ConstrPat "\923\925\913c") Wildcard) (StrictPat NilPat))) (SetCompr (FieldExtr "\946") [Generator (MatchGen (LazyPat (ConstrPat "A")) (FieldMod "ua")) [LetGuard (AtPat "r\917" NilPat) (Var "c")]]),LetGuard (PVar "\953\917\948\951") (If (FieldSet "\947A\929\922") (FieldExtr "\957") (Var "jD\955u"))]] (Case (Var "\964UB\937\926") [])),LetGuard Wildcard (FieldSet "s"),BoolGuard (Var "_\937cg\914D")]]),MatchGuard (FatCommaPat (PVar "l\923\951\925") (AtPat "a" NilPat)) (Lambda [FatCommaPat (PVar "f") (LazyPat (ConsPat (StrictPat (AppPat (ConstrPat "E") NilPat)) (AppPat (AppPat (ConstrPat "B") (StrictPat NilPat)) (StrictPat NilPat)))),LazyPat Wildcard,AtPat "q" (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "Jc") (StrictPat Wildcard)) (FatCommaPat (PVar "x") Wildcard)) NilPat) NilPat) (PVar "\948uT\964COH")),Wildcard,FatCommaPat (PVar "\962WL\948\966") Wildcard,StrictPat NilPat,ConsPat (FieldPat "zQ" (FieldPat "\945" (AtPat "qj\956\&1" (PVar "k")) (StrictPat NilPat)) (FieldPat "\964" (AtPat "\966\&5jR\936\917S" (ConstrPat "\928X\952")) NilPat)) (PVar "z\953"),AtPat "vl" NilPat,AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "Gvw\969\917") (FieldPat "u\957" Wildcard Wildcard)) (AtPat "\946d" (AppPat (AppPat (ConstrPat "I\947") (StrictPat Wildcard)) (PVar "tS\957\&7c")))) (FieldPat "\952m" (StrictPat (ConstrPat "\934\&7HNP")) (LazyPat (PVar "\951\920")))) NilPat) (FatCommaPat (AppPat (ConstrPat "\915") (AppPat (ConstrPat "\926\947y") (LazyPat (ConstrPat "M")))) NilPat),AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\916\954\916DIH") (AtPat "d57x\945\918\937" Wildcard)) (AppPat (ConstrPat "R") NilPat)) Wildcard) (AtPat "\950v0" (ConstrPat "\931"))) NilPat) NilPat) (StrictPat NilPat)) (LazyPat Wildcard)) (StrictPat NilPat)) (LazyPat NilPat),AtPat "i9" (AtPat "y" Wildcard)] (Rec [Generator (RunGen (Rec [Generator (RunGen (FieldMod "i")) [MatchGuard (StrictPat (PVar "m")) (SetCompr (Var "\964mXg") [Generator (BindGen (StrictPat NilPat) (Var "ke")) [LetGuard (AppPat (ConstrPat "O") NilPat) (FieldMod "\960")]]),MatchGuard NilPat (ListLit [FieldMod "\949kkx",FieldSet "\945vv\919"])],Generator (MatchGen NilPat (SetLit [SetLit [Var "k\951\929\928"],Var "\954\&6Qe",Var "\962K"])) [LetGuard NilPat (Rec [Generator (MatchGen (StrictPat NilPat) (FieldExtr "\950F")) []] (FieldMod "\948\960T\915")),LetGuard NilPat (FieldExtr "g\952\915"),BoolGuard (FieldExtr "az")]] (FieldSet "e\915"))) [MatchGuard (FieldPat "\964M\929Y" (PVar "\959k") Wildcard) (FieldMod "zO"),BoolGuard (ListCompr (SetLit [SetLit [ListLit []],Var "xl",ListLit []]) [Generator (LetGen (FieldPat "\960\923SD" (AtPat "\946QS4" NilPat) (LazyPat Wildcard)) (SetCompr (SetLit []) [Generator (LetGen Wildcard (Var "\951")) []])) [LetGuard (LazyPat NilPat) (FieldSet "yrEf")],Generator (BindGen NilPat (Rec [Generator (BindGen (StrictPat Wildcard) (FieldMod "\945\920")) []] (ListLit []))) [MatchGuard (ConsPat (PVar "wN84") (AppPat (ConstrPat "H") (PVar "g"))) (For [Generator (BindGen (PVar "gT") (FieldMod "nS")) [BoolGuard (Var "\952")]] (FieldMod "a")),LetGuard (FatCommaPat (StrictPat Wildcard) (LazyPat NilPat)) (Operator (Constr "\928i") (2,RightAssoc) "\8744" (SetLit [ListLit []]))],Generator (MatchGen (AppPat (AppPat (AppPat (ConstrPat "\931CZ") Wildcard) (AtPat "lM" (PVar "\962"))) (StrictPat NilPat)) (Operator (Var "\960") (7,LeftAssoc) "*" (SetLit [Var "h\931\935\959"]))) [MatchGuard (AppPat (AppPat (AppPat (ConstrPat "H") (AppPat (ConstrPat "X") (ConstrPat "\914Y\923\963"))) (LazyPat NilPat)) (StrictPat Wildcard)) (For [] (ListLit []))]]),MatchGuard Wildcard (ListCompr (Rec [Generator (RunGen (SetLit [])) []] (FieldMod "ju")) [Generator (TraverseGen (PVar "nu\960\968") (FieldMod "\956K")) [BoolGuard (Case (Var "\953rI") [(Wildcard,ListLit [ListLit [FieldMod "\961"]])]),BoolGuard (Lambda [ConsPat NilPat NilPat,PVar "d\966",PVar "\952S\917"] (App (Constr "\932LY\955") (FieldMod "amKG"))),LetGuard (StrictPat (AppPat (AppPat (ConstrPat "NQj") (StrictPat (ConstrPat "\929\929w\960"))) Wildcard)) (SetLit [Operator (ListLit []) (3,RightAssoc) "\8743" (Var "wIX")])],Generator (TraverseGen Wildcard (Operator (FieldExtr "td") (4,NoAssoc) "<" (Var "g"))) []]),BoolGuard (Rec [Generator (BindGen NilPat (Case (FieldExtr "\961B") [(AppPat (ConstrPat "DX") (ConstrPat "\922\959"),SetLit [])])) [LetGuard (AppPat (AppPat (ConstrPat "\922F") (StrictPat (PVar "\947_q"))) (LazyPat Wildcard)) (ListLit [For [] (FieldMod "n\962\917")]),BoolGuard (FieldExtr "\962")],Generator (TraverseGen (FatCommaPat (ConstrPat "Y\928\964\&6") Wildcard) (Lambda [StrictPat (AppPat (ConstrPat "K\936\946Q") (StrictPat (AtPat "\960" NilPat))),FatCommaPat (ConstrPat "L\961") (PVar "\950\946"),AtPat "i" (ConsPat (StrictPat Wildcard) (ConstrPat "Ci")),Wildcard] (SetLit [Constr "LbNh",SetLit [Var "sA"]]))) [MatchGuard (ConsPat (StrictPat (ConstrPat "\923\&34m")) (ConstrPat "Q")) (Operator (Constr "\914\966\&0w") (4,NoAssoc) "\8800" (FieldMod "h\924i\952")),MatchGuard (AtPat "haof" (FieldPat "xY6m" Wildcard (AppPat (ConstrPat "B") (LazyPat NilPat)))) (Var "g"),BoolGuard (SetCompr (FieldMod "\953") [Generator (RunGen (FieldMod "\952C")) []])]] (ListLit [])),MatchGuard Wildcard (SetCompr (SetCompr (FieldSet "mTQ\960pwh7") [Generator (MatchGen (LazyPat NilPat) (ListLit [])) [MatchGuard (AppPat (ConstrPat "D\921") (PVar "j")) (FieldMod "\955\918")]]) [Generator (RunGen (FieldSet "\963")) [LetGuard (ConsPat (LazyPat (ConstrPat "J")) (AppPat (ConstrPat "L\937\925w") NilPat)) (Rec [Generator (MatchGen NilPat (FieldSet "\951U")) []] (FieldMod "xhXe"))],Generator (LetGen NilPat (For [] (Var "uVpm"))) [BoolGuard (If (FieldSet "q") (FieldExtr "\946S\950\935") (ListLit [FieldMod "\957\919\924"])),LetGuard (LazyPat (PVar "kB")) (Case (Var "\956C") [(LazyPat NilPat,FieldSet "\959a")])]]),BoolGuard (ListLit [Constr "W\952\&8",Var "j"]),LetGuard (LazyPat (PVar "y6OK\913")) (FieldSet "k")],Generator (RunGen (App (Constr "PrJ_H0IB") (For [] (Var "\960hbn3")))) [LetGuard (ConsPat Wildcard (ConsPat (ConstrPat "\920T") (ConstrPat "TU"))) (SetCompr (Lambda [FatCommaPat (AppPat (AppPat (AppPat (ConstrPat "Fv\969MF\923\962") Wildcard) (AtPat "f" NilPat)) (LazyPat (PVar "\966\969\951"))) (StrictPat (AtPat "\947\951" (LazyPat (PVar "m\962\932\965x\929"))))] (Var "w5IJ\927")) []),MatchGuard (AtPat "\963A" Wildcard) (Lambda [AtPat "\948\956\962\937" (FieldPat "\946\913\924" (StrictPat (ConstrPat "M")) (LazyPat (StrictPat NilPat))),AppPat (AppPat (AppPat (AppPat (ConstrPat "UQt") (PVar "\952\933g")) (PVar "\957I")) (StrictPat (ConstrPat "\929"))) (AtPat "lV" Wildcard),FatCommaPat NilPat NilPat,AtPat "\965\967" (FieldPat "ld\931" (PVar "\960\&3") (AtPat "q\923\926\921\949" Wildcard)),AppPat (AppPat (AppPat (ConstrPat "PIF\948\918\953") (StrictPat (StrictPat NilPat))) (StrictPat (AppPat (ConstrPat "E\918\952\967tL") (PVar "\963\916")))) (ConsPat Wildcard NilPat)] (Operator (If (FieldExtr "vS\960\935") (Var "\951") (FieldMod "u\936GGV")) (7,LeftAssoc) "*" (FieldSet "f"))),BoolGuard (FieldMod "\958K\945\&8c"),MatchGuard (AppPat (ConstrPat "\917a") (FieldPat "\950" (ConsPat (LazyPat Wildcard) (ConstrPat "Lo")) (AppPat (ConstrPat "HT\920\917RQ") (ConstrPat "V")))) (Rec [Generator (MatchGen (PVar "q") (ListCompr (FieldMod "uXA5") [Generator (TraverseGen Wildcard (FieldSet "\945")) []])) [MatchGuard (FieldPat "\952s" (LazyPat NilPat) (StrictPat NilPat)) (SetCompr (FieldExtr "\947\946x\966") [Generator (RunGen (ListLit [])) [BoolGuard (FieldExtr "\962")]])]] (ListLit [ListLit [Var "y\947\959\967_"],FieldMod "\954\932_\950\967",FieldMod "\963Z6t"])),LetGuard (AppPat (AppPat (AppPat (AppPat (ConstrPat "P\963iE") Wildcard) (AtPat "_\913H\956H\923\947" NilPat)) (LazyPat Wildcard)) (AtPat "z36u" Wildcard)) (If (Rec [Generator (RunGen (FieldSet "v")) [BoolGuard (ListLit [FieldExtr "\959m"])]] (FieldSet "z\967Uo\969")) (Var "\946Z") (Var "v")),MatchGuard NilPat (If (SetCompr (SetLit []) []) (FieldExtr "\958") (Lambda [AtPat "p\926\&9c\959q8" Wildcard,ConsPat NilPat (PVar "wEe2\936\933C"),FatCommaPat (PVar "uS") (AtPat "\952uf" (AppPat (AppPat (ConstrPat "Z\927T") (LazyPat (PVar "l\935"))) NilPat)),NilPat,LazyPat (FatCommaPat (FieldPat "\955\936\&6\929C" (AtPat "\957\&6\931s4\950\956M" (ConstrPat "\924Z0\955\929")) (AppPat (ConstrPat "OR") (PVar "ca8Du\913"))) (AtPat "\945\959I" (PVar "y\969m\952\923")))] (FieldSet "\958l\969\&1I")))],Generator (RunGen (Rec [Generator (TraverseGen NilPat (Constr "H\913\957")) [MatchGuard (AtPat "\947\&3N" (PVar "\946G8o")) (Operator (ListLit [FieldExtr "\967\914\922X"]) (7,LeftAssoc) "%" (FieldExtr "z")),MatchGuard (AtPat "s\918\&0" (StrictPat NilPat)) (App (Var "d") (FieldMod "\964\&3")),BoolGuard (Var "\954")]] (App (FieldSet "a\923") (Var "\958\947W")))) [LetGuard (ConsPat (StrictPat (AtPat "\952sx\958" (PVar "\953\947"))) (LazyPat (AtPat "\950" (LazyPat NilPat)))) (For [Generator (MatchGen (FatCommaPat (ConstrPat "Y\953y9") (LazyPat (ConstrPat "ZT4k"))) (Constr "\917")) [LetGuard (ConsPat (StrictPat (ConstrPat "\933\928\923E")) (AtPat "bPl\919" NilPat)) (Case (Constr "W") [(NilPat,Var "k")])],Generator (TraverseGen NilPat (SetLit [Constr "B\969Nh",FieldMod "\959nv"])) []] (If (FieldExtr "\966") (FieldSet "\969") (FieldExtr "\959fgY"))),LetGuard (FieldPat "\947lczD" (FatCommaPat Wildcard (AtPat "r" Wildcard)) (PVar "eb\937")) (FieldExtr "q\955fu"),MatchGuard (StrictPat (AtPat "\949vumN" (AtPat "\961\961" (FieldPat "zy" Wildcard Wildcard)))) (Case (FieldSet "nu4\923") [(Wildcard,Constr "\915o"),(FatCommaPat (PVar "\964") (StrictPat Wildcard),ListLit [Rec [Generator (MatchGen (LazyPat (ConstrPat "\932r")) (Constr "R")) []] (FieldSet "e")]),(FieldPat "c5\958R" NilPat NilPat,SetCompr (ListLit [ListLit [Constr "\913\937"]]) [])])],Generator (LetGen (FatCommaPat NilPat (LazyPat (AppPat (AppPat (ConstrPat "\932\962h\950cdq\950") NilPat) (AtPat "oT\914" NilPat)))) (ListLit [FieldMod "vE",Var "u",FieldSet "i\948",FieldMod "\965Gc\967",Constr "\922n\915\966\&5",FieldExtr "b"])) [MatchGuard (FieldPat "k" (FatCommaPat (AtPat "nZ" (PVar "dz")) (ConstrPat "\922")) (LazyPat Wildcard)) (Case (For [] (Var "s\935")) [])],Generator (TraverseGen Wildcard (App (Rec [Generator (TraverseGen (ConstrPat "X\948") (FieldExtr "zJ")) []] (FieldExtr "\963s\960\919\917\923\&7\935")) (Operator (Constr "H\928A") (4,NoAssoc) "\8800" (ListLit [FieldSet "r"])))) [MatchGuard (PVar "yeOO\948vE\959") (Constr "\919Y4I\917\913\934")],Generator (BindGen Wildcard (App (Constr "\927g\932z\967e9j") (Var "g\915x"))) [LetGuard (ConsPat NilPat (AtPat "\966\964\&3" (FieldPat "cVs" (ConstrPat "HVQg\928\948") (StrictPat (ConstrPat "Y"))))) (Var "i"),LetGuard (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\920") (PVar "\955L_k")) (StrictPat (ConstrPat "U"))) (AtPat "a3m_" (ConstrPat "\921Db\927_\919"))) (StrictPat (ConstrPat "\913F"))) Wildcard) (If (ListLit [ListCompr (FieldExtr "\955_w4") []]) (ListLit [FieldExtr "\959Q"]) (Operator (FieldExtr "\958e\947") (4,NoAssoc) "\8805" (SetLit [])))],Generator (RunGen (Lambda [AtPat "c" (LazyPat (FieldPat "\954O4B8\953\&0\929" Wildcard Wildcard))] (For [Generator (LetGen NilPat (Operator (FieldSet "\959") (7,LeftAssoc) "/" (SetLit [SetLit []]))) [LetGuard Wildcard (ListLit []),BoolGuard (Constr "N"),LetGuard (FieldPat "frUf" (PVar "n") (PVar "\966")) (FieldSet "p")],Generator (LetGen (PVar "\957\964") (Rec [Generator (RunGen (SetLit [ListLit []])) [BoolGuard (ListLit [FieldMod "\947"])]] (Constr "\916\925\&53"))) [],Generator (RunGen (Rec [] (ListLit [Var "g4"]))) [BoolGuard (SetCompr (FieldMod "\958Z") [Generator (BindGen (StrictPat (PVar "n\932")) (ListLit [])) [MatchGuard (PVar "lm") (FieldExtr "r\917")]]),LetGuard (StrictPat (FieldPat "\959" (AppPat (ConstrPat "\924") (ConstrPat "\929_\955M")) (LazyPat NilPat))) (ListLit [FieldExtr "f_Y0"])]] (Lambda [AtPat "fI\945" (FatCommaPat (ConsPat NilPat Wildcard) (LazyPat (FieldPat "\968vo" (PVar "\961t") (StrictPat NilPat)))),FatCommaPat (ConsPat (ConstrPat "L\957r") (AtPat "nq" (ConstrPat "\937\&8"))) (ConstrPat "\932"),ConsPat (StrictPat (PVar "\949")) NilPat,ConstrPat "O",NilPat] (FieldExtr "je\918"))))) [BoolGuard (If (Operator (FieldSet "f") (5,RightAssoc) ":" (FieldSet "\953")) (SetLit [SetLit [],Constr "G\951"]) (Var "\958\958\967")),LetGuard (PVar "k3Xcn\915RY") (Case (ListCompr (FieldSet "j") [Generator (MatchGen Wildcard (FieldExtr "v\922")) [BoolGuard (FieldMod "\958\949")]]) [(FieldPat "\957i" (PVar "\955\950R\926") NilPat,Operator (SetLit [FieldSet "pI"]) (4,NoAssoc) "\8805" (SetLit [FieldExtr "x"]))]),MatchGuard (ConsPat Wildcard Wildcard) (If (Var "g\946") (Var "i") (SetCompr (ListLit []) [Generator (TraverseGen NilPat (ListLit [FieldExtr "py"])) []]))]] (FieldExtr "\967\&8\948x"))),LetGuard (AppPat (ConstrPat "Y") Wildcard) (Var "\968_\914yq"),MatchGuard (AtPat "\965" NilPat) (Lambda [LazyPat Wildcard,ConsPat (PVar "ql") (FieldPat "\962\924\960" NilPat NilPat),AtPat "\963\967" (StrictPat Wildcard),Wildcard,AtPat "cq\957\946\&7" NilPat,Wildcard,AtPat "\949" (LazyPat (FatCommaPat NilPat (StrictPat (LazyPat (StrictPat Wildcard))))),StrictPat (AppPat (AppPat (ConstrPat "Y\948\957\&7_") (ConsPat (AtPat "\958A" Wildcard) (StrictPat (AtPat "\946Q4fuSG2" (AtPat "bh\916\948" (ConstrPat "N\920\954")))))) (StrictPat (ConstrPat "\917u"))),AppPat (AppPat (ConstrPat "U") (AtPat "etc" (AppPat (AppPat (AppPat (AppPat (ConstrPat "\921") (PVar "\952Mk\959")) (ConstrPat "\915SJ")) (AtPat "mZS" (PVar "qXUdq"))) Wildcard))) (AppPat (AppPat (AppPat (ConstrPat "\923\965") NilPat) (FieldPat "_y" (PVar "\949B\960K\925\&5O\927\&7W\916") (LazyPat (ConstrPat "G")))) (AppPat (ConstrPat "\925O0") NilPat)),LazyPat (LazyPat (PVar "c")),ConsPat (ConsPat (PVar "tK") (PVar "kG3")) (PVar "i\915D\922"),LazyPat NilPat,FieldPat "\953" (FieldPat "\964" (FieldPat "w\919" (AtPat "j" (ConstrPat "Bk")) (StrictPat (ConstrPat "K"))) (ConsPat (ConstrPat "\914z\964\945G2\945\935wy\931_") (PVar "\966\931\966"))) (PVar "\961h5\931C"),FieldPat "\959f" (AtPat "aBg\969g9\967\950\936\955" (StrictPat (StrictPat Wildcard))) (FatCommaPat (FatCommaPat (StrictPat (PVar "h\952DQK")) (AtPat "\962\947" NilPat)) (ConsPat (AppPat (ConstrPat "\935H\952\967") NilPat) (PVar "\957g"))),Wildcard,NilPat] (Rec [Generator (TraverseGen (PVar "\953Y3") (SetLit [Rec [] (ListLit []),For [] (FieldMod "fO\964\928e"),Var "\953"])) [MatchGuard NilPat (ListCompr (ListLit [Case (SetLit [FieldMod "u"]) []]) []),MatchGuard (AtPat "i\924\&5\929\&5oR" (StrictPat (StrictPat (FieldPat "\950" (ConsPat (ConstrPat "\913\&5") (AppPat (ConstrPat "\931Mc") (PVar "\960\926hQ\922\959A"))) (AtPat "n" Wildcard))))) (Var "i\925u\925"),BoolGuard (Lambda [FatCommaPat (FieldPat "\956\969\927vN\969\917p" NilPat Wildcard) Wildcard,Wildcard,PVar "\945",AtPat "\964Yge" (ConsPat (StrictPat (LazyPat (LazyPat (ConstrPat "Y")))) (ConsPat (LazyPat Wildcard) Wildcard)),Wildcard,LazyPat (FatCommaPat Wildcard NilPat),Wildcard] (For [Generator (BindGen (AtPat "_i" (AppPat (ConstrPat "\932\954") NilPat)) (FieldExtr "z")) [MatchGuard (AppPat (AppPat (ConstrPat "T\967\962") (PVar "\952yA")) (ConstrPat "\934N\969\965")) (Operator (FieldMod "\945\&6\933Y") (3,RightAssoc) "\8743" (Var "\946I")),MatchGuard (AppPat (ConstrPat "\932") NilPat) (Var "\965eai"),LetGuard Wildcard (Case (FieldExtr "\956") [(PVar "_\953",FieldMod "\962U")])],Generator (RunGen (ListLit [])) [],Generator (BindGen Wildcard (Lambda [ConsPat (AtPat "k_" Wildcard) (LazyPat Wildcard),ConsPat (LazyPat (PVar "u\925")) (AppPat (ConstrPat "Ku") (StrictPat NilPat)),LazyPat (ConsPat NilPat NilPat),FatCommaPat Wildcard (PVar "t\923\955F")] (Case (ListLit [FieldMod "p\962jU"]) [(LazyPat (PVar "q"),ListLit [])]))) [LetGuard (AppPat (AppPat (AppPat (ConstrPat "\936kxf") (AtPat "\966" NilPat)) (AtPat "\951\932" NilPat)) Wildcard) (Constr "\926cyF")]] (ListLit [FieldExtr "y\916\950h"]))),LetGuard NilPat (Lambda [FatCommaPat Wildcard Wildcard,LazyPat NilPat,FieldPat "\962\959\953" (FieldPat "\960z" (PVar "e\947") NilPat) (ConsPat (PVar "n\955sn") NilPat),AppPat (AppPat (AppPat (AppPat (ConstrPat "\935Rv") (AtPat "\965\926" (PVar "w\963X"))) (LazyPat (PVar "n\922"))) (StrictPat (PVar "\948\&2VBj"))) (LazyPat (ConstrPat "Y\946ot\921ZQ\959")),AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "A\932") (PVar "m8")) (ConstrPat "\914Mrwq")) NilPat) Wildcard) (AtPat "\953\915" Wildcard)) (PVar "\956\967"),StrictPat (FatCommaPat (FieldPat "fI1y" (AppPat (ConstrPat "UJ\919") (LazyPat (ConstrPat "V4zH"))) (LazyPat Wildcard)) (AppPat (AppPat (AppPat (ConstrPat "\931\949\965yxH\925\&4") (StrictPat (PVar "\960f\962"))) (PVar "l\920IHkBMk")) (AtPat "\964Q" Wildcard)))] (SetCompr (SetCompr (ListLit [Constr "I\946u"]) []) [Generator (MatchGen (PVar "\966j\963\962") (FieldMod "\945M\954")) [MatchGuard (FatCommaPat (ConstrPat "\927") (LazyPat NilPat)) (Case (ListLit [Constr "H"]) [])],Generator (TraverseGen (PVar "\946\947\&2\968") (Constr "\937n\953")) [LetGuard (AppPat (AppPat (AppPat (ConstrPat "Mn\916s") (PVar "e")) (PVar "_J\936")) (StrictPat (PVar "\947"))) (FieldExtr "rSL")],Generator (RunGen (Constr "\923\927")) [LetGuard (ConsPat (AppPat (ConstrPat "G6\966") Wildcard) NilPat) (Constr "Nv"),LetGuard (StrictPat (FatCommaPat NilPat (AppPat (ConstrPat "\925\955i") NilPat))) (Constr "\926kjT")]]))],Generator (MatchGen (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\920\919") (StrictPat Wildcard)) Wildcard) (AtPat "\945aA" Wildcard)) (AppPat (ConstrPat "Gm") NilPat)) (StrictPat (ConstrPat "\926M\959"))) Wildcard) (Constr "\936\925w\965\954")) [MatchGuard (AtPat "v\958\955" (AtPat "\953I" (PVar "q"))) (FieldSet "\952"),LetGuard (ConsPat (FatCommaPat (AtPat "\962sc\969\927Gbj" (ConstrPat "JXe\928Y")) NilPat) Wildcard) (Operator (SetLit []) (8,RightAssoc) "^" (FieldSet "\963mj\932\936")),LetGuard (ConsPat Wildcard (FatCommaPat NilPat NilPat)) (If (Operator (SetLit [ListLit []]) (7,LeftAssoc) "*" (FieldMod "\958\&9")) (FieldSet "x\916X") (ListCompr (FieldMod "z") [Generator (LetGen (LazyPat (PVar "\964b")) (FieldExtr "o")) []])),MatchGuard NilPat (Rec [Generator (BindGen Wildcard (Lambda [StrictPat NilPat,FatCommaPat NilPat (ConstrPat "\925\&7\918d"),FieldPat "\962\923" (AtPat "c\923y_" (PVar "\957eu\927")) (LazyPat Wildcard),PVar "c\955\966"] (FieldSet "j\945w"))) [LetGuard (ConsPat (AtPat "s\927\&2G" NilPat) NilPat) (ListLit [Constr "E0",Constr "N\937K\936",FieldMod "z\922\946"])],Generator (MatchGen NilPat (Operator (FieldSet "r\955\&2S") (5,RightAssoc) ":" (SetLit []))) [MatchGuard (LazyPat (FatCommaPat (LazyPat Wildcard) (AtPat "k" (ConstrPat "\917\948y\926")))) (App (Var "mq") (FieldMod "f\931\952\949")),BoolGuard (Rec [Generator (BindGen NilPat (FieldSet "a")) []] (FieldExtr "\958C"))]] (App (Constr "I\945\935q") (Constr "\915nR"))),BoolGuard (Constr "FFKF")],Generator (MatchGen (PVar "\945\921\962\927") (ListCompr (For [] (FieldMod "bN")) [Generator (TraverseGen Wildcard (App (FieldSet "is") (FieldExtr "\950\947"))) []])) [LetGuard (FatCommaPat Wildcard (LazyPat (ConsPat Wildcard NilPat))) (For [Generator (MatchGen (FieldPat "uWc" (PVar "p\958\931\950") (AppPat (ConstrPat "G") Wildcard)) (If (ListLit [FieldSet "\948"]) (Constr "\923Z\913\951") (SetLit [FieldMod "\967\965A\966"]))) [MatchGuard (StrictPat (StrictPat Wildcard)) (Lambda [PVar "\961\&5\947\932",AppPat (AppPat (AppPat (ConstrPat "O") NilPat) (ConstrPat "\917x")) (LazyPat (PVar "l")),AtPat "\963\917" NilPat,FatCommaPat (PVar "z\958") (AtPat "\968YK\921" NilPat)] (SetLit [ListCompr (Var "a") [Generator (LetGen Wildcard (FieldExtr "\947o")) [MatchGuard (PVar "l") (ListLit [ListLit [FieldSet "_J"]])]]])),LetGuard (LazyPat (PVar "bvuu")) (For [Generator (LetGen (StrictPat Wildcard) (Var "\962\924")) [MatchGuard (PVar "\957") (ListLit [FieldSet "\959k"])]] (FieldMod "\969\969\932z")),BoolGuard (ListCompr (SetLit [Var "j\960\915\935"]) [])],Generator (TraverseGen (FieldPat "thl\915" Wildcard (LazyPat (PVar "\956V"))) (Var "n")) [],Generator (LetGen (FieldPat "e\915" (PVar "s\949\&5\949") Wildcard) (SetCompr (FieldMod "\945q\953\914") [])) [BoolGuard (Operator (Var "wVo") (4,NoAssoc) "\8801" (Var "s\933\958\926"))]] (For [Generator (MatchGen (StrictPat NilPat) (FieldSet "\960c")) [MatchGuard NilPat (FieldMod "\956J")]] (FieldExtr "\969T\917")))],Generator (TraverseGen (ConsPat (AppPat (ConstrPat "M") (FieldPat "\957q" (AtPat "cPv" (ConstrPat "B")) (AtPat "fZAA9" Wildcard))) (PVar "i\923rNSU\952m")) (ListLit [SetLit [If (Constr "F") (FieldSet "r\960W4fB\921Z") (ListLit [FieldSet "s"])],Constr "Nc\966T\927\954\&6\949"])) [LetGuard (LazyPat (PVar "\945")) (Var "\957Q\921y\924O2")],Generator (LetGen (FieldPat "p" (AppPat (AppPat (ConstrPat "\935PD") (AtPat "j6" (PVar "z"))) NilPat) (LazyPat (AppPat (AppPat (ConstrPat "Up8") (LazyPat (ConstrPat "\917\923"))) Wildcard))) (Lambda [LazyPat Wildcard] (Lambda [LazyPat (PVar "p"),FieldPat "w\914L" Wildcard (FieldPat "u" (PVar "h\966") NilPat),AtPat "p\947" (AtPat "x\925\957" (AppPat (ConstrPat "K") (FieldPat "\963\966\936\928" Wildcard (AtPat "\956\919\959" NilPat))))] (SetCompr (Constr "WUf") [])))) [MatchGuard (LazyPat (AtPat "\957\958" (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\913I\960_") (LazyPat (PVar "c"))) Wildcard) (StrictPat NilPat)) (StrictPat (PVar "\945"))) (PVar "\957\928\969\&4")))) (SetCompr (Var "qp") [Generator (RunGen (ListCompr (FieldExtr "ulgi") [])) []]),LetGuard NilPat (Operator (Rec [] (ListLit [])) (4,NoAssoc) "<" (ListCompr (SetLit []) [])),MatchGuard (AppPat (AppPat (ConstrPat "FP") (PVar "\945_SvX\931\927A")) (LazyPat (StrictPat (AtPat "\951\956\962" NilPat)))) (SetLit []),BoolGuard (ListLit [FieldMod "g\963\966\951\&80\933W",Var "t\915\969\&6l\963",Constr "I",Constr "PFuXFqj",FieldExtr "wW\913\966\914PW"]),LetGuard (StrictPat (ConsPat Wildcard (PVar "\952l\914\967"))) (Constr "\935")]] (SetCompr (ListLit [Rec [] (Var "d\951")]) [Generator (RunGen (App (FieldMod "\948\&6k\947") (Constr "\925\&7\919\932"))) [MatchGuard (FatCommaPat (AtPat "\950" (ConstrPat "F\937\963\968")) NilPat) (SetCompr (SetLit []) [Generator (MatchGen NilPat (SetLit [FieldMod "f\920"])) []]),LetGuard (PVar "\964\920") (ListCompr (SetLit [ListLit [ListLit []]]) [Generator (TraverseGen (LazyPat (ConstrPat "HT")) (SetLit [ListLit [Var "\948"]])) [LetGuard (LazyPat (ConstrPat "\934\920")) (Constr "L")]]),LetGuard (FatCommaPat NilPat Wildcard) (Constr "\923\918L")],Generator (BindGen NilPat (FieldMod "\953\&7")) [],Generator (RunGen (Case (FieldMod "m") [(ConstrPat "\917",FieldExtr "\965C")])) []]))),LetGuard (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\927\945") (AppPat (AppPat (ConstrPat "Tfx\960\&0") (StrictPat (PVar "\952"))) (LazyPat (PVar "dt\922")))) (AppPat (AppPat (ConstrPat "\923\&6\935") (ConstrPat "Gwi")) (StrictPat (PVar "\962\947\952")))) (AtPat "\965" NilPat)) (StrictPat (AtPat "v\937Z" (ConstrPat "A")))) (ConsPat NilPat (StrictPat (ConstrPat "\932")))) Wildcard) (SetLit [FieldSet "f0\917f\924sY",FieldMod "\968LG\937",FieldMod "f\969\946\931",FieldMod "i\961\932m\918krX\932\&1",SetLit [],SetLit [FieldMod "wV\967j\917M2P"],ListLit [FieldMod "\955\923"],FieldSet "\966\954",FieldMod "nY\962E",Constr "XB\934\&8\966\966Jx\917",FieldSet "\958UHDtT\917"]),LetGuard (PVar "v") (FieldSet "\961"),MatchGuard NilPat (SetLit [Constr "K\926\&2\956aK",Constr "\934",FieldExtr "eU\945\931",SetLit [FieldSet "\950"],ListLit [Constr "M\927"],FieldExtr "a",Constr "K",Constr "JvES\931",ListLit [],Constr "B"]),LetGuard (ConsPat (PVar "\968") (ConsPat (StrictPat (StrictPat NilPat)) (ConsPat (StrictPat (PVar "\966")) (AtPat "z_\936\964\968" (ConstrPat "S"))))) (ListLit []),LetGuard (StrictPat (FatCommaPat (PVar "\959") (ConsPat (PVar "qI") (StrictPat (AtPat "f" NilPat))))) (FieldExtr "\945\923")],Generator (LetGen (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\935_") Wildcard) Wildcard) NilPat) NilPat) (LazyPat (ConstrPat "\931\929"))) NilPat) (StrictPat Wildcard)) (AtPat "\949k\948i\913\913\&4" NilPat)) (StrictPat Wildcard)) Wildcard) (StrictPat NilPat)) (FieldExtr "\968\963t")) [LetGuard (AtPat "hI" (FieldPat "l" (FieldPat "vPZl\945q\965\916Ky\947Qj\964gW" (ConsPat Wildcard (PVar "\946\&4")) (LazyPat (PVar "d\926\915\922xg"))) NilPat)) (For [Generator (TraverseGen (ConsPat (FatCommaPat Wildcard (ConstrPat "\927\&82fkR8")) NilPat) (ListLit [FieldMod "\961"])) [],Generator (MatchGen (ConsPat (ConstrPat "C\959\952r") NilPat) (Rec [Generator (LetGen (FatCommaPat (StrictPat NilPat) (PVar "\964d")) (If (Var "\962") (Constr "C") (Var "\949R"))) [LetGuard (FieldPat "\954" (LazyPat Wildcard) (LazyPat NilPat)) (ListLit [FieldSet "a",FieldSet "\948iRS",ListLit []]),LetGuard (LazyPat (FatCommaPat Wildcard Wildcard)) (FieldMod "aq\963\963")],Generator (BindGen (AtPat "\964C" (FieldPat "\966" NilPat (LazyPat NilPat))) (SetLit [FieldExtr "x",SetLit [],Constr "\936Tu"])) []] (SetCompr (FieldMod "\956") [Generator (BindGen (PVar "\957s") (Constr "CV")) [LetGuard (LazyPat NilPat) (SetLit [FieldExtr "l\964"])]]))) [LetGuard (LazyPat (FieldPat "x\914He\920FG1" Wildcard NilPat)) (FieldMod "\963\967\&1j\928l\936\&2"),MatchGuard (StrictPat Wildcard) (FieldMod "\968rx\966H\960"),MatchGuard NilPat (App (SetCompr (Constr "\933") []) (Constr "B")),BoolGuard (If (ListCompr (SetLit []) []) (App (FieldMod "k") (Var "\960")) (SetCompr (Constr "Ru\964O") []))],Generator (MatchGen (LazyPat (ConstrPat "U\966\924\926\&1")) (ListLit [Var "aI",Var "_kA\917a",FieldMod "nMQBg\953",SetLit [ListLit []]])) [MatchGuard (AtPat "\964\926" NilPat) (Constr "\927f\936\924\954"),BoolGuard (FieldExtr "x\953\961r\923"),BoolGuard (FieldMod "br\920\937vMwi"),BoolGuard (If (Case (FieldSet "y") [(AtPat "l\918" (PVar "\946E"),FieldExtr "h\921")]) (Operator (FieldExtr "\946Xqf\918") (7,LeftAssoc) "/" (Var "t\952")) (Operator (FieldMod "\952Gc") (7,LeftAssoc) "%" (FieldMod "\955\965"))),LetGuard (FieldPat "a\922_I" (AppPat (AppPat (AppPat (ConstrPat "J") (PVar "kL2M")) (LazyPat (ConstrPat "\926"))) (AtPat "\958\936\&6\923\931\918\920S" NilPat)) Wildcard) (Lambda [ConsPat (ConsPat (PVar "e") (AtPat "f" Wildcard)) (AppPat (ConstrPat "\914b") (AtPat "c" (ConsPat (LazyPat (ConstrPat "\937")) (StrictPat (ConstrPat "X\956"))))),AtPat "i" (FieldPat "bM" (StrictPat (FieldPat "_\936" (AtPat "m\964s\961" (PVar "nh")) (StrictPat (ConstrPat "\933\948\948ORz0")))) (FatCommaPat (StrictPat NilPat) (LazyPat (PVar "\945p")))),ConsPat (PVar "\951J\922bM\936BL") (FatCommaPat (StrictPat NilPat) (ConstrPat "\913K")),FatCommaPat (AtPat "e\945L" (ConsPat (AtPat "b7" Wildcard) (LazyPat NilPat))) (LazyPat (ConsPat (LazyPat (ConstrPat "\920\929")) (StrictPat Wildcard))),NilPat,AtPat "\950Fuo_" (PVar "\946\926iG\969"),FatCommaPat (PVar "d\954") (FatCommaPat (LazyPat NilPat) (AtPat "s\927GmA\927\925" (ConstrPat "\926"))),AtPat "\950n" (FieldPat "un" Wildcard (LazyPat (ConsPat (AtPat "\966" (PVar "\966")) (AppPat (ConstrPat "Z") NilPat))))] (SetLit [FieldExtr "\969",ListLit [],Rec [] (FieldExtr "w")]))],Generator (LetGen NilPat (SetLit [FieldSet "a\959y\918\935aY",ListLit [Var "i"],FieldExtr "lV",Var "\962\963\959M\925",FieldMod "\957s",FieldSet "\969\&40"])) [MatchGuard (LazyPat (LazyPat NilPat)) (Operator (SetCompr (Constr "C") [Generator (LetGen (PVar "oo") (SetLit [])) []]) (3,RightAssoc) "\8743" (Var "\950")),LetGuard (FieldPat "\963\&4" (FatCommaPat (PVar "s") NilPat) (PVar "\969\935")) (Operator (Case (FieldSet "\964h3G") []) (6,LeftAssoc) "-" (For [] (Var "\967\948nlJo\921\917"))),MatchGuard (ConsPat (LazyPat (AppPat (AppPat (ConstrPat "\919EZ") Wildcard) (StrictPat (PVar "yq\921\&86\966M\950")))) NilPat) (FieldExtr "\955\921\950\931\937X"),MatchGuard (FieldPat "e" (PVar "iw4X6") (StrictPat NilPat)) (Operator (Lambda [Wildcard,LazyPat (AtPat "\963" (AtPat "g\915ZJ" (ConsPat (PVar "p") (ConstrPat "XI\945\926\954")))),FatCommaPat (StrictPat (FieldPat "xv" (ConstrPat "B\929U") (AppPat (ConstrPat "K") Wildcard))) (LazyPat (AtPat "m" Wildcard)),FatCommaPat (PVar "\949") (PVar "\968\915CF"),FieldPat "\952f" Wildcard (LazyPat (StrictPat (ConstrPat "\919\962\&0\967")))] (Constr "CtW")) (4,NoAssoc) "\8804" (If (FieldSet "\946\&4") (Var "\956j6n\917\921\937m") (Var "\965"))),BoolGuard (ListLit [Var "\964",FieldSet "w",Constr "Q\926\937",FieldMod "brQ",FieldMod "p\960\922"]),MatchGuard (LazyPat (AtPat "\966CO" (FatCommaPat (FatCommaPat (LazyPat (ConstrPat "H")) (ConstrPat "\929")) (ConsPat Wildcard (ConstrPat "VVk"))))) (SetLit [App (Var "\966LeOl\946\950L") (ListCompr (FieldExtr "\950") [])]),LetGuard NilPat (Lambda [AtPat "\951\&4\953" (AtPat "o\926" (FatCommaPat Wildcard (ConstrPat "\918L\924H"))),ConsPat (FieldPat "y\961D\922\920\950" (LazyPat Wildcard) Wildcard) (ConsPat (PVar "\946H\925") (StrictPat (ConstrPat "\914")))] (ListLit [Lambda [PVar "\964\933",StrictPat (ConsPat (AppPat (ConstrPat "X") (StrictPat (FatCommaPat (AtPat "t\958d\966I\955" NilPat) (LazyPat (ConstrPat "\922\&3"))))) (ConstrPat "Qq\958")),AtPat "\969\925\928M7\917" NilPat,AtPat "_j" (PVar "\949"),ConsPat (FatCommaPat (StrictPat (PVar "\945")) (AppPat (ConstrPat "K\964\958\&1c\935\&53") Wildcard)) (FatCommaPat NilPat (PVar "c\947\914h\953q")),NilPat] (FieldSet "d\913"),Constr "Th\932\966\928\966\953",SetLit [SetLit []]]))],Generator (TraverseGen (ConsPat (StrictPat (LazyPat (StrictPat (PVar "\961ag")))) (FatCommaPat Wildcard (PVar "w3L"))) (Rec [Generator (LetGen Wildcard (Operator (FieldExtr "j\929\&86") (5,RightAssoc) "\8658" (Var "\946\965"))) [BoolGuard (SetLit [SetLit [SetLit [FieldSet "\956"]],ListLit []])],Generator (BindGen NilPat (SetCompr (SetLit []) [Generator (MatchGen (LazyPat Wildcard) (FieldMod "g\922")) [LetGuard (PVar "\953") (FieldMod "_Z")]])) [LetGuard (AtPat "\965\920\934D" (LazyPat (StrictPat NilPat))) (If (Var "m") (FieldSet "\962\&5") (Constr "Y")),BoolGuard (Var "\957")],Generator (TraverseGen (LazyPat (LazyPat (LazyPat (ConstrPat "Sm")))) (FieldSet "o")) [BoolGuard (Lambda [ConsPat (PVar "j\952") (StrictPat (PVar "\965")),StrictPat (FieldPat "\966r" NilPat (PVar "\969\964"))] (SetCompr (Constr "W\937C") [Generator (LetGen Wildcard (Constr "\924\955")) [MatchGuard (ConstrPat "\936") (ListLit [FieldExtr "\962\957"])]]))]] (SetLit [Lambda [FieldPat "k\928\934" (FatCommaPat (StrictPat Wildcard) (StrictPat (PVar "\950\918"))) NilPat,PVar "\958n1",FatCommaPat (AtPat "s" (StrictPat (ConstrPat "WHy"))) NilPat,Wildcard,AtPat "\949xh" (FatCommaPat Wildcard (LazyPat (StrictPat (ConstrPat "\936\945"))))] (ListCompr (FieldMod "\948") [Generator (RunGen (Constr "\931G")) []])]))) [BoolGuard (Operator (SetLit [FieldSet "vq\916\953Sy\960w",FieldSet "h\920EVmvE\950"]) (4,NoAssoc) "\8801" (Var "d")),MatchGuard (StrictPat (ConsPat (FatCommaPat NilPat NilPat) (StrictPat (PVar "s\945\&7")))) (FieldExtr "\953wOl"),MatchGuard (FieldPat "ta" (FatCommaPat (PVar "v05") (StrictPat NilPat)) (FieldPat "\948" (AtPat "\951" (ConstrPat "Hia")) (AtPat "\956R" (PVar "\945Nl")))) (SetLit []),MatchGuard NilPat (Rec [] (SetCompr (Constr "B") [Generator (RunGen (ListLit [Constr "\928E"])) []])),BoolGuard (SetCompr (For [Generator (LetGen (LazyPat NilPat) (Var "x\967")) [MatchGuard (PVar "\967k") (SetLit [ListLit []])]] (FieldMod "\950t")) []),BoolGuard (Constr "D\934c")]] (ListCompr (App (Var "hO\954") (SetLit [])) [Generator (LetGen (AtPat "a" Wildcard) (If (ListLit [FieldExtr "r"]) (ListLit []) (FieldMod "jRpA"))) [BoolGuard (SetLit [])],Generator (BindGen (AppPat (AppPat (AppPat (ConstrPat "\927") (PVar "t")) (StrictPat NilPat)) (AtPat "a" NilPat)) (Rec [Generator (BindGen (AppPat (ConstrPat "OS") (StrictPat (ConstrPat "L_"))) (SetLit [FieldExtr "b\965"])) [BoolGuard (FieldExtr "i\961")]] (Constr "\913"))) [LetGuard (PVar "hqIF") (If (Constr "\932\&2q\931") (Constr "\915") (SetLit [])),MatchGuard (FatCommaPat (AtPat "\952\&4" (ConstrPat "QZ")) (LazyPat NilPat)) (SetLit [FieldExtr "\951\914Jb",ListLit [FieldMod "\946qV"]])]])),LetGuard (ConsPat NilPat (LazyPat (PVar "es"))) (App (SetLit [FieldExtr "j_4G\914\921oS\937",FieldSet "e\927",ListLit [SetLit []],ListLit [],ListLit [FieldMod "pc\937"]]) (ListLit [Constr "\928",ListLit [SetLit [SetLit [FieldSet "bN\935"]]],FieldExtr "isY\967\968h\951\925",SetLit [],FieldMod "c",Var "\962",SetLit [FieldExtr "ejwM\921T2\947"]])),LetGuard (StrictPat (ConsPat (FieldPat "k\954Cn\960OH\951\936\968" (AppPat (AppPat (ConstrPat "J_PiOH") (LazyPat NilPat)) NilPat) (FatCommaPat Wildcard (PVar "g7"))) NilPat)) (Operator (FieldExtr "j\935X9Jm") (4,NoAssoc) "\8800" (FieldMod "sb")),LetGuard (FatCommaPat (FieldPat "\967" (FatCommaPat (PVar "\949I\917\961") NilPat) (AppPat (ConstrPat "\936") (StrictPat (AtPat "l" (AppPat (ConstrPat "Y\916r\937") (StrictPat (ConstrPat "\919F\953Jd"))))))) Wildcard) (SetLit [Constr "\917\&1\922R\923",Var "gK",FieldExtr "h\961\&7\925",ListLit [FieldSet "\955wu"],Var "\949\962\926",FieldSet "\958",FieldSet "u",Var "e0"]),MatchGuard NilPat (If (Constr "K") (For [] (SetLit [FieldMod "i\935\955",ListLit [Var "\962\921HC"]])) (ListCompr (Case (ListLit [Constr "\919\961z\934\914\926\&6"]) []) [])),LetGuard (FatCommaPat (AtPat "d" (FieldPat "f4I" Wildcard (FieldPat "t" NilPat (AtPat "r\929\969" NilPat)))) (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "Oo\917") NilPat) NilPat) Wildcard) (LazyPat (PVar "\952BPL\954"))) (StrictPat NilPat)) (AppPat (ConstrPat "\929") Wildcard))) (Constr "B\968C"),BoolGuard (FieldSet "f\913\929OF"),BoolGuard (FieldSet "\951\936\961iA"),LetGuard Wildcard (ListCompr (Operator (Rec [Generator (TraverseGen Wildcard (FieldSet "g")) [MatchGuard Wildcard (FieldExtr "\955\937")]] (ListLit [FieldSet "i\962Q"])) (8,RightAssoc) "**" (Case (Var "kU") [(NilPat,Constr "J")])) [Generator (RunGen (Var "e\961")) [MatchGuard (FieldPat "\967" (FatCommaPat NilPat NilPat) (FatCommaPat (ConstrPat "JY\922S") (PVar "j"))) (If (Rec [] (Constr "\936bo")) (Lambda [LazyPat Wildcard,ConsPat (ConstrPat "\926\921\&9X\933\&7\935K") (FatCommaPat (PVar "p") Wildcard),AppPat (AppPat (ConstrPat "Q") NilPat) (LazyPat (FieldPat "t\956" (LazyPat (ConstrPat "\935H\933\917\933")) (LazyPat NilPat))),ConsPat (StrictPat Wildcard) NilPat,AppPat (AppPat (AppPat (ConstrPat "Z8\945\&7") (ConsPat (LazyPat Wildcard) (PVar "\945Wa"))) (AtPat "\962\929\932\919" (ConstrPat "Q\935\963"))) (ConstrPat "K\945\966\&4m")] (ListLit [])) (ListCompr (Constr "E") [Generator (RunGen (ListLit [])) [LetGuard (StrictPat NilPat) (FieldMod "zt")]])),MatchGuard (AtPat "\960" NilPat) (Var "\962D\948\931\&8"),LetGuard (FatCommaPat (FieldPat "\947" (StrictPat NilPat) (AtPat "v9\936\936\&2" NilPat)) (LazyPat (StrictPat (AtPat "\953" (PVar "s\931"))))) (Case (Constr "UtJ\962") [(Wildcard,SetLit []),(ConstrPat "\921",FieldMod "\964"),(AppPat (AppPat (ConstrPat "\937\946\&9") NilPat) (AppPat (ConstrPat "\934\&7K\934") (AtPat "q" Wildcard)),Case (SetLit [FieldSet "\963"]) [(AtPat "\955\960" (ConstrPat "\932\956"),Var "\960r")])]),MatchGuard (AtPat "\961a" (PVar "hdI\958")) (SetCompr (App (FieldExtr "\956") (FieldSet "u")) [Generator (MatchGen (FieldPat "\954lm" Wildcard (AppPat (ConstrPat "KJ") Wildcard)) (ListLit [Var "\968xf\915",FieldMod "t",FieldExtr "i\929\952B"])) [LetGuard (PVar "u") (FieldExtr "x\945"),MatchGuard (StrictPat (FatCommaPat (StrictPat Wildcard) (StrictPat (PVar "f")))) (Constr "\923J\917A"),MatchGuard (PVar "\957GV\969") (ListLit [SetLit []])],Generator (MatchGen (AppPat (AppPat (AppPat (ConstrPat "O9n") NilPat) (PVar "l\956q\918")) Wildcard) (Var "\948kb")) [LetGuard (LazyPat (LazyPat Wildcard)) (FieldMod "\951K6")],Generator (BindGen (ConstrPat "\922\915\968\&1") (Constr "\925\968\954")) [LetGuard (FatCommaPat (LazyPat (PVar "\968i")) (AtPat "ha" (PVar "\948\&0"))) (FieldExtr "a"),MatchGuard (FatCommaPat (StrictPat (ConstrPat "Tu1m")) (AtPat "dHS9" Wildcard)) (FieldSet "o")]]),MatchGuard (LazyPat (PVar "\961P\967")) (FieldExtr "v\926zCSg")]]),BoolGuard (SetLit [FieldMod "\969",FieldExtr "yszX",ListLit [ListLit []],FieldSet "cS",ListLit [],FieldMod "ul\937\&0\968R",Constr "\914\916Np",Var "\952",SetLit [],FieldSet "a",SetLit [],SetLit [],FieldExtr "lts"])],Generator (BindGen (ConsPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "S") (PVar "c")) (LazyPat NilPat)) (StrictPat (PVar "\965\948"))) Wildcard) (StrictPat (PVar "\957pI\950\928Z\965\&0P"))) (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "Y\954k\945\959") (StrictPat NilPat)) Wildcard) (ConstrPat "QI\946\927\918\956")) Wildcard) (LazyPat NilPat)) (LazyPat (ConstrPat "Q")))) (Rec [Generator (BindGen (ConsPat (PVar "\954Y") (FatCommaPat (StrictPat (ConstrPat "\932tn")) NilPat)) (FieldSet "kUH")) [BoolGuard (Var "\959\967\937\968\967M"),MatchGuard (PVar "s\920MZT") (Lambda [ConsPat (FatCommaPat Wildcard (AtPat "\954\936\916\946" NilPat)) Wildcard,PVar "\945",NilPat,PVar "i\915X"] (FieldSet "j\957\913\&0")),MatchGuard NilPat (Operator (Lambda [AppPat (AppPat (AppPat (ConstrPat "\931u") (ConsPat NilPat (LazyPat NilPat))) (AtPat "z" (LazyPat (PVar "zK\952q3\946c\928")))) NilPat] (Lambda [PVar "tDV"] (ListLit [Constr "SZtu\951d"]))) (4,NoAssoc) "\8800" (FieldMod "\957\&0\919")),BoolGuard (FieldSet "m\948\961\923\968R\957l"),MatchGuard (FatCommaPat (StrictPat (StrictPat Wildcard)) (LazyPat (AppPat (ConstrPat "O") NilPat))) (Constr "\918\963X2Q\949q\926"),LetGuard (FieldPat "v_EQv" (FieldPat "ou\964" Wildcard (StrictPat Wildcard)) (FatCommaPat (ConstrPat "\933\948\&8Q") (StrictPat NilPat))) (Var "n\937\945"),MatchGuard (AtPat "z4\928\931" (StrictPat (FieldPat "\958" Wildcard (FieldPat "b\925" (AppPat (ConstrPat "Y") Wildcard) Wildcard)))) (Lambda [FieldPat "\958\&0" NilPat (LazyPat (LazyPat Wildcard)),Wildcard] (Operator (SetLit [FieldMod "oC\964",Var "e\923",Constr "\918"]) (4,NoAssoc) "<" (App (Constr "\919I\925N") (FieldMod "y"))))],Generator (RunGen (Constr "\917\917\924yDi\962O")) [MatchGuard (StrictPat (AppPat (AppPat (ConstrPat "Fk") (PVar "o\954\950w")) NilPat)) (SetCompr (If (Constr "YO\946") (FieldExtr "m") (ListLit [])) [Generator (LetGen (LazyPat (ConsPat (StrictPat Wildcard) (LazyPat NilPat))) (For [Generator (LetGen Wildcard (Var "\957\&0")) []] (ListLit [Var "cKm"]))) [MatchGuard (LazyPat (AtPat "\956\958\967k" (AtPat "y\937\916W" (PVar "u")))) (FieldMod "\959oM"),BoolGuard (FieldMod "\959p"),MatchGuard (FatCommaPat (LazyPat NilPat) (AppPat (ConstrPat "\923\927") (StrictPat NilPat))) (SetLit [Constr "Xa\959\962",FieldExtr "g9\923\949"])]]),BoolGuard (For [Generator (LetGen NilPat (Lambda [Wildcard,AtPat "\961BM9" (AppPat (AppPat (ConstrPat "\926c") Wildcard) (AtPat "\951" (PVar "\959"))),StrictPat (ConsPat (LazyPat Wildcard) NilPat)] (SetLit [ListLit [ListLit []],FieldMod "z\952i"]))) [MatchGuard (FatCommaPat (AtPat "\951\913\956\935" (ConstrPat "T\931\&4\967")) (LazyPat Wildcard)) (Case (ListLit []) [(AppPat (ConstrPat "\922U") NilPat,SetLit [SetLit []])])],Generator (RunGen (SetCompr (Var "e\949") [Generator (LetGen NilPat (FieldSet "n")) []])) [MatchGuard (FatCommaPat Wildcard (PVar "\945\945Sf")) (FieldMod "\965i6\927")],Generator (MatchGen Wildcard (SetCompr (Var "\969\965") [Generator (MatchGen (LazyPat (ConstrPat "\928K")) (FieldSet "ix")) []])) []] (FieldExtr "mp")),BoolGuard (ListCompr (For [] (Constr "\932\967")) [Generator (LetGen Wildcard (For [] (FieldSet "\946\924"))) []]),BoolGuard (FieldExtr "\951"),LetGuard (AtPat "\956\936\950V9\955iL" (AppPat (AppPat (AppPat (ConstrPat "\935") (FatCommaPat (LazyPat (ConstrPat "\925\959")) (LazyPat NilPat))) Wildcard) (StrictPat NilPat))) (Lambda [NilPat,NilPat,AppPat (AppPat (AppPat (ConstrPat "\914") (LazyPat (StrictPat Wildcard))) (ConstrPat "CkSf")) (ConstrPat "Vfg\957"),ConsPat (FieldPat "\960\967\969\932" (StrictPat NilPat) (PVar "\957\952\929\&3\936a\969m")) (StrictPat Wildcard),NilPat,StrictPat NilPat,NilPat,FieldPat "tK" (FieldPat "\948RXP" (LazyPat (PVar "u7")) Wildcard) (AppPat (AppPat (ConstrPat "\927") NilPat) Wildcard)] (ListLit [Constr "\913\921\964Y\959",Var "v",FieldSet "\961",FieldSet "\963",ListLit []]))],Generator (BindGen (PVar "\966") (ListCompr (SetLit []) [Generator (MatchGen (AppPat (AppPat (ConstrPat "W\965pa") (PVar "\956\929Y\958")) (AppPat (ConstrPat "Z") (StrictPat Wildcard))) (If (FieldSet "f") (Var "\948\948\951") (SetLit [FieldExtr "dsB\958"]))) [BoolGuard (Operator (Var "\948q\917R") (8,RightAssoc) "^" (FieldSet "ndmI"))]])) [LetGuard (PVar "\956") (For [Generator (TraverseGen (AtPat "\947\967P" (PVar "\967J")) (FieldMod "\948h")) [MatchGuard Wildcard (Operator (Var "zFg") (3,RightAssoc) "\8743" (Var "hg\936D"))],Generator (BindGen (FieldPat "piT" (ConstrPat "\924") (AtPat "m" Wildcard)) (Rec [Generator (LetGen (LazyPat (PVar "\966\968")) (FieldMod "\947\945")) []] (SetLit []))) [LetGuard (AppPat (ConstrPat "\925") (AtPat "uNaI" (AppPat (ConstrPat "\927\919") (FatCommaPat (AppPat (ConstrPat "S\917S\949") (ConstrPat "Z")) (LazyPat NilPat))))) (SetLit [FieldExtr "n\923mH"]),BoolGuard (Case (Var "e\924\952v") [(NilPat,FieldMod "w\956")])],Generator (MatchGen (ConstrPat "\926") (Lambda [AtPat "\952" NilPat,StrictPat (FieldPat "w" Wildcard NilPat),FieldPat "\960" (LazyPat (ConstrPat "LM5V")) Wildcard,LazyPat (LazyPat NilPat)] (SetLit [Constr "C",Var "\964\969gs"]))) [BoolGuard (App (FieldMod "uIK") (FieldExtr "mA\957")),BoolGuard (Constr "J\934\961x"),LetGuard (LazyPat (LazyPat (ConstrPat "W\947"))) (App (FieldExtr "c") (FieldMod "xg"))]] (If (FieldMod "\968u\964") (FieldSet "\949\967Z") (SetLit []))),LetGuard (AppPat (AppPat (AppPat (ConstrPat "X06r\937\935JI") (PVar "\946")) (AtPat "zu\959DN\952g\965" (StrictPat (ConstrPat "V\913\919\936\961")))) (StrictPat (StrictPat Wildcard))) (FieldExtr "c\952t\956_GG\932"),BoolGuard (FieldSet "p\926Sk")],Generator (LetGen (AtPat "\957" (AtPat "\947\924" NilPat)) (FieldSet "\949q")) [MatchGuard (PVar "_\922O") (Case (Constr "\921") [(ConsPat NilPat (AtPat "sTje" Wildcard),ListLit [Constr "\924\917j0",FieldMod "s\916"]),(LazyPat (PVar "\952O\928s"),Lambda [Wildcard] (SetLit [SetLit [],Constr "PE\954H"]))]),BoolGuard (Var "k"),MatchGuard (PVar "t") (FieldExtr "e\931"),BoolGuard (FieldMod "uy\951d")]] (FieldMod "x"))) [LetGuard (FieldPat "\963" (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\922") NilPat) (AtPat "\954Ho" (ConstrPat "R"))) (AppPat (ConstrPat "\924\948g") (AtPat "\948E" (ConstrPat "ZVt\951\966U\968O\949\937P\968\920")))) (ConstrPat "HW\964G")) NilPat) (StrictPat NilPat)) (ConsPat (FatCommaPat (StrictPat NilPat) (PVar "\957")) (FieldPat "\964fSI" (AtPat "n\915" NilPat) (StrictPat NilPat)))) (SetCompr (App (Case (SetLit [ListLit [ListLit []]]) []) (FieldExtr "uf\952ur")) []),LetGuard (FieldPat "o\928" NilPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "Z") (LazyPat (PVar "m"))) (StrictPat (PVar "\954\951ZFR"))) NilPat) NilPat)) (If (ListLit [FieldExtr "a\925\952\965\950jr_\923\914",SetLit [],SetLit []]) (ListLit [For [Generator (BindGen (AtPat "tr" Wildcard) (SetLit [])) [MatchGuard (AtPat "wS" Wildcard) (Var "_Y")]] (Constr "\913"),Operator (FieldSet "\966Z\954\953\926") (4,NoAssoc) ">" (FieldExtr "j")]) (Operator (ListLit [ListLit [],Var "s\937SDY\956\927"]) (4,NoAssoc) "\8804" (FieldSet "\947M\969\950\&9IK"))),LetGuard (PVar "v9rp\921") (App (SetLit []) (Var "\952n\931\&8p\921\&5")),MatchGuard (ConsPat (ConsPat (FatCommaPat (StrictPat (ConstrPat "\926\&3\953\965")) (LazyPat (PVar "\963dy7K\963m"))) NilPat) (FatCommaPat (PVar "r") Wildcard)) (For [] (SetLit [ListLit [FieldMod "c5\914"],FieldExtr "b",FieldMod "\960e\967",Var "\945\955\965\958FO\928w\949",Constr "R",SetLit [FieldSet "fW\947"],FieldMod "\958\964"]))],Generator (TraverseGen (FatCommaPat (FatCommaPat NilPat Wildcard) (FieldPat "\947" (StrictPat (PVar "\966")) (AppPat (AppPat (AppPat (ConstrPat "\924j") (LazyPat NilPat)) (AtPat "sn\950\959\932\957\959a\917" (ConstrPat "ZEq\946"))) (LazyPat (PVar "t2"))))) (For [] (FieldExtr "\968\960\&2"))) [BoolGuard (FieldExtr "\953Lq\920"),MatchGuard (LazyPat NilPat) (SetCompr (Rec [Generator (RunGen (App (Constr "G") (SetLit [FieldExtr "\962\915\968"]))) [LetGuard (StrictPat (LazyPat (AppPat (ConstrPat "\916K\945\947") (AtPat "\964M\937" (PVar "xyD\961"))))) (Lambda [ConsPat (LazyPat NilPat) (LazyPat Wildcard)] (SetCompr (Constr "Bk") []))],Generator (RunGen (Case (FieldExtr "\946t\913\921") [])) [MatchGuard (AtPat "\945\967" NilPat) (Rec [] (FieldMod "\963\964\922e")),BoolGuard (App (Constr "\917") (Var "n")),BoolGuard (Case (SetLit [FieldSet "m9\927B"]) [])],Generator (LetGen (AtPat "s" (StrictPat (LazyPat (ConstrPat "\935X\946")))) (ListCompr (FieldExtr "i\937E") [Generator (RunGen (Constr "Hl")) []])) [LetGuard (FieldPat "\953" NilPat NilPat) (Case (Constr "\916w\931") []),BoolGuard (Constr "A"),MatchGuard (ConsPat (AppPat (ConstrPat "\915") (AtPat "\966h\916\927" NilPat)) (PVar "\969v")) (Operator (FieldExtr "iK") (7,LeftAssoc) "/" (SetLit [FieldMod "\948\&1"]))]] (Constr "\931P\919Ui\966y")) [Generator (BindGen (AtPat "\951p" (AppPat (ConstrPat "Z") (FieldPat "x\964D" (AppPat (AppPat (AppPat (ConstrPat "\929") (StrictPat NilPat)) Wildcard) NilPat) (ConstrPat "\934")))) (SetLit [])) [BoolGuard (Rec [Generator (LetGen (ConsPat (LazyPat (PVar "\963Zk")) (StrictPat (ConstrPat "QR"))) (ListCompr (FieldSet "\949BK") [Generator (TraverseGen (AtPat "\965w" (ConstrPat "\922r")) (Var "h")) []])) []] (ListCompr (FieldExtr "\956m") []))],Generator (LetGen (FatCommaPat NilPat (LazyPat (LazyPat (PVar "\965a")))) (Var "p\934")) [MatchGuard NilPat (SetLit [If (Constr "\920") (Lambda [StrictPat (LazyPat Wildcard),PVar "l\932\916",AppPat (ConstrPat "X7") (PVar "l"),StrictPat (ConsPat NilPat Wildcard),FieldPat "\957\963vdaQ" (FieldPat "h" (AppPat (ConstrPat "Ty\961") (LazyPat (PVar "\951h\959\&5"))) (ConstrPat "K\965Y")) (FatCommaPat (StrictPat NilPat) (AtPat "d" (PVar "k\913x")))] (Var "oh\955\966b\965\961\&2")) (ListLit [])]),BoolGuard (If (Constr "Zc69PpVU") (App (FieldMod "u") (Constr "D")) (FieldSet "n\921")),LetGuard (LazyPat Wildcard) (ListLit [Var "\966z",FieldMod "pe\952",Constr "\922",SetLit []])]]),BoolGuard (ListCompr (Constr "\917si\918") []),MatchGuard (StrictPat (FieldPat "\964" (ConsPat (PVar "l\945") (FatCommaPat Wildcard (ConstrPat "\916lD\968"))) NilPat)) (Lambda [NilPat,StrictPat (FatCommaPat (LazyPat (StrictPat (AtPat "g" (FatCommaPat (AtPat "_\964au\963\953\915" NilPat) NilPat)))) Wildcard),PVar "\959",StrictPat (LazyPat (FieldPat "j\914V" (LazyPat (FatCommaPat (FieldPat "y\952\936" (PVar "_\958") (LazyPat (PVar "\964\915"))) (StrictPat (ConstrPat "LT\916_\926M\966\935")))) (LazyPat (StrictPat (ConstrPat "K\922M\947a0WX"))))),LazyPat (ConsPat (LazyPat (LazyPat (LazyPat NilPat))) (AtPat "\966\922\946d\964\&2\954x" (AtPat "z" (AppPat (ConstrPat "\916C\963\957\913\914\933UT1p") (ConsPat Wildcard Wildcard))))),AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "Y") (PVar "i\922QM")) (AtPat "l\921K\933\946uXj\963p6" (PVar "k"))) (AtPat "\953Y3" (PVar "z\964n\959\916\920"))) NilPat) (AtPat "\961\925\956" (PVar "n"))) NilPat) NilPat) (LazyPat NilPat)) (StrictPat Wildcard)) (StrictPat NilPat)) Wildcard) Wildcard) (PVar "bPv5"),FieldPat "\951" (LazyPat (ConsPat (AppPat (AppPat (AppPat (ConstrPat "\917f") Wildcard) (StrictPat (PVar "\965\&2"))) NilPat) NilPat)) (AppPat (AppPat (AppPat (ConstrPat "S\962\&51") (LazyPat (ConstrPat "F"))) (FieldPat "\965\923\955" (AppPat (ConstrPat "T") (AtPat "\945D\937b" Wildcard)) (LazyPat NilPat))) (ConstrPat "X\924")),LazyPat Wildcard,AtPat "\960\915" (StrictPat (PVar "qZ")),ConsPat Wildcard (ConsPat (FieldPat "\961" NilPat (ConstrPat "\918\969E\963\&9")) (FatCommaPat Wildcard (StrictPat Wildcard))),NilPat,AtPat "d" (FieldPat "y\918bX0" (AtPat "tB" (StrictPat (LazyPat (LazyPat (AtPat "\960" (AppPat (AppPat (ConstrPat "K") (StrictPat NilPat)) (AppPat (ConstrPat "\924\935\917") (AtPat "k" NilPat)))))))) Wildcard),NilPat,FatCommaPat (FatCommaPat NilPat (ConsPat (PVar "\962") NilPat)) NilPat,LazyPat NilPat,LazyPat (ConsPat NilPat (PVar "\957"))] (FieldExtr "\962\935")),BoolGuard (App (For [Generator (TraverseGen (ConsPat Wildcard NilPat) (SetLit [SetLit [],Var "j\919"])) [BoolGuard (Case (ListLit []) [])],Generator (BindGen (ConsPat NilPat (PVar "i1c")) (Operator (Var "\964\&0\956\928") (4,NoAssoc) "<" (ListLit [FieldMod "u\947\919b"]))) [LetGuard (AtPat "p" NilPat) (ListCompr (FieldExtr "\955\968\962") [])]] (FieldMod "\964c")) (Constr "\919\915E")),MatchGuard (FatCommaPat (StrictPat Wildcard) (PVar "\948\922")) (FieldSet "cKH\933\958")],Generator (BindGen NilPat (If (ListCompr (Var "\969") [Generator (BindGen Wildcard (SetCompr (ListLit []) [Generator (LetGen (StrictPat Wildcard) (Var "r")) [BoolGuard (ListLit [])]])) [MatchGuard (ConsPat (AtPat "xk" NilPat) (LazyPat (PVar "\966\966\951"))) (Operator (Var "z") (5,RightAssoc) ":" (FieldExtr "qF")),BoolGuard (Case (FieldExtr "\957\933") [])]]) (FieldSet "p") (FieldMod "bj5\969"))) [LetGuard NilPat (Lambda [PVar "c\914",StrictPat (AtPat "v\921" (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\932") (LazyPat NilPat)) (StrictPat NilPat)) NilPat) (LazyPat (ConstrPat "D\946g\966t"))) (AtPat "\966Z\958" (ConstrPat "\932"))) (AtPat "lp\949VQ\951\947" NilPat)) NilPat) Wildcard)),FatCommaPat Wildcard NilPat,FatCommaPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\932\968PH") (ConstrPat "J\956m")) (LazyPat NilPat)) NilPat) (ConstrPat "\933\936\969")) (ConsPat (FatCommaPat (AppPat (ConstrPat "L\924\921h") (StrictPat Wildcard)) (PVar "\947nI\949")) (FieldPat "i0Lh\929" (PVar "g") Wildcard)),Wildcard,ConsPat (AtPat "i" (FieldPat "vUW\957v" (LazyPat (PVar "n\956\960\&5")) (LazyPat (AtPat "y" (ConstrPat "\934"))))) (FieldPat "\959" Wildcard Wildcard)] (Lambda [FatCommaPat (FatCommaPat (LazyPat NilPat) (FatCommaPat (PVar "o\956Nfx\955") NilPat)) Wildcard,FatCommaPat (StrictPat (PVar "n")) (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "DDm") (AtPat "s\927\945grR\956\952\937\916\&0\947o" (PVar "xX\921"))) (LazyPat (PVar "\949"))) (PVar "p\960\946I\950Wu17")) (PVar "\962")) (PVar "a\917l7t")),AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\928mdW\933") Wildcard) Wildcard) NilPat) (StrictPat (ConstrPat "S"))) NilPat) Wildcard) (PVar "\962")) (StrictPat Wildcard),AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\937\951zQ") NilPat) (StrictPat NilPat)) (AtPat "c\934" NilPat)) (AppPat (ConstrPat "Fm") (AppPat (ConstrPat "\922") (PVar "r")))) Wildcard) (StrictPat Wildcard)) (AtPat "w" Wildcard)) (LazyPat Wildcard)] (App (For [Generator (BindGen NilPat (Lambda [FieldPat "\951" NilPat Wildcard,StrictPat Wildcard] (Constr "F\947\918"))) [BoolGuard (If (FieldMod "o") (FieldExtr "\953D\934O") (FieldExtr "\954\915I")),MatchGuard Wildcard (Case (ListLit [Constr "\929QtR"]) [(NilPat,ListLit [])]),MatchGuard Wildcard (FieldExtr "y_f")],Generator (BindGen (AppPat (AppPat (ConstrPat "\926\931a\936") NilPat) (AtPat "\949\&7\948\&2" NilPat)) (Constr "Z\927Y")) [BoolGuard (Operator (FieldSet "\966") (4,NoAssoc) ">" (FieldSet "\957a")),MatchGuard (FatCommaPat Wildcard (LazyPat NilPat)) (Constr "\917\957\937\&1")]] (SetCompr (FieldMod "\960") [])) (If (Constr "\921") (Rec [Generator (BindGen (AtPat "\956\920" (PVar "\946")) (FieldSet "\948")) [LetGuard (PVar "\949") (FieldSet "r\966")]] (FieldMod "\945\922\967ER\959\949K3O")) (Lambda [FieldPat "\945" Wildcard (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\918\953\&1\918") Wildcard) NilPat) NilPat) NilPat) Wildcard) (AtPat "i\932\963\925" NilPat)),LazyPat (AtPat "\963\&7" (PVar "n")),FatCommaPat (FieldPat "f\959Qw" (AtPat "\964yD" (AtPat "\967\956" (AtPat "s" (ConstrPat "\918")))) (PVar "\946")) (ConsPat Wildcard (FatCommaPat (LazyPat (ConstrPat "R\931\945\920K5D")) (PVar "v8gSq"))),ConsPat (ConsPat (FieldPat "\950m" (AtPat "\946" NilPat) (AtPat "a" (ConstrPat "\913"))) (FieldPat "e\915\946\968C" NilPat (AtPat "\965\933m4j7" Wildcard))) (AppPat (AppPat (AppPat (ConstrPat "\923Fq\918\927\953") (FatCommaPat (ConstrPat "\924") (StrictPat Wildcard))) (FatCommaPat NilPat (PVar "\945"))) (FatCommaPat (LazyPat Wildcard) (StrictPat Wildcard))),LazyPat (FatCommaPat (PVar "zh") (AtPat "q\959MR" (AtPat "l\962" (PVar "\957")))),FieldPat "i" (FieldPat "v\936\958q" (StrictPat (FieldPat "\947HM\955" (AtPat "j\921" (ConstrPat "S\920\914\935\&7")) (StrictPat Wildcard))) (AtPat "\949" Wildcard)) (LazyPat (FatCommaPat (StrictPat (ConsPat (StrictPat Wildcard) (PVar "\958"))) (StrictPat (ConsPat NilPat (ConstrPat "U\921tD"))))),AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "P\969\920") Wildcard) Wildcard) (ConstrPat "\931\&7G")) (PVar "\959")) (LazyPat (ConstrPat "\933"))) (StrictPat NilPat)) (AtPat "f" (ConstrPat "R\937"))) Wildcard) (PVar "\952")) (PVar "b")) (PVar "\952")) Wildcard) NilPat) (PVar "\965\966EA")) (LazyPat (PVar "b")),Wildcard,LazyPat (PVar "k")] (ListLit [])))))),BoolGuard (App (FieldSet "z\961\966") (SetCompr (FieldExtr "rl") [Generator (TraverseGen (ConsPat (AtPat "i\952\913\916" (ConstrPat "\928At\914")) (PVar "\951")) (FieldMod "\952P")) []])),MatchGuard NilPat (If (ListCompr (Case (Constr "Z\950\926i\960") [(AppPat (ConstrPat "\921z") (LazyPat Wildcard),Var "\960\963")]) [Generator (RunGen (Constr "\932F")) [],Generator (MatchGen (FatCommaPat NilPat (ConstrPat "I")) (FieldExtr "\947")) [BoolGuard (FieldMod "p\962a")]]) (SetCompr (Operator (Var "a") (3,RightAssoc) "\8743" (Constr "Nfq")) [Generator (MatchGen (StrictPat Wildcard) (FieldSet "m\920m")) []]) (Lambda [Wildcard,AppPat (AppPat (ConstrPat "R") (ConstrPat "\918\963")) (LazyPat NilPat),LazyPat (LazyPat NilPat),Wildcard,ConstrPat "T\965\950",StrictPat (StrictPat (StrictPat (LazyPat (FieldPat "\946Tgo\958" (FieldPat "m" (FieldPat "\950S\918\929P\931O\961bCO\933" (AppPat (ConstrPat "\921O\927\967k") Wildcard) (AppPat (ConstrPat "Sb") (AppPat (ConstrPat "Bu\933\947A") (ConstrPat "\918\&1\964dY")))) (ConstrPat "Fe\931\&5\935bi\921\954w")) Wildcard)))),NilPat,AtPat "\966" (PVar "z"),ConsPat (StrictPat (ConsPat NilPat (StrictPat (StrictPat Wildcard)))) (FieldPat "g\960DB1FQ" Wildcard (FieldPat "\950" (StrictPat (PVar "\953\954Vzm")) (AtPat "\968B\954p" (ConstrPat "\914\958V\917P")))),AppPat (AppPat (AppPat (AppPat (ConstrPat "\924") (AppPat (ConstrPat "P\934") (ConsPat NilPat (LazyPat (PVar "\958_"))))) (FieldPat "\957LT\968\&4\951" (ConstrPat "RWt\957\952djw") (StrictPat NilPat))) (PVar "\966hA")) (LazyPat (FatCommaPat (StrictPat Wildcard) NilPat)),AtPat "\956\&3\933\929\946\951\964" (StrictPat (AtPat "\954_" Wildcard)),FatCommaPat (FatCommaPat (AtPat "wk" (LazyPat (PVar "q"))) (FatCommaPat (LazyPat NilPat) (LazyPat (PVar "\964")))) NilPat,ConsPat Wildcard (FieldPat "\950" NilPat (PVar "s")),ConsPat (StrictPat (StrictPat (LazyPat (FieldPat "\969" (PVar "g\969TEic") (LazyPat (AtPat "\961Pt" (PVar "u\913"))))))) (AtPat "du" (PVar "\951\959\926"))] (ListCompr (Case (Var "\960\969y\934") []) [Generator (LetGen (FieldPat "\946pC" Wildcard (PVar "\961")) (ListLit [FieldMod "\952\927"])) [LetGuard (ConstrPat "E") (Rec [] (Var "hm"))]]))),LetGuard (FieldPat "\952y" (AppPat (AppPat (AppPat (AppPat (AppPat (ConstrPat "\915\&6rN2") (PVar "\951\923Q")) (LazyPat NilPat)) (AppPat (ConstrPat "\927\957\962") (ConstrPat "\913"))) Wildcard) (AtPat "\956c\925\962" Wildcard)) (ConsPat Wildcard (AtPat "z" NilPat))) (If (Var "pQ\967") (Operator (SetCompr (Var "\947\959\915") []) (4,NoAssoc) "<" (FieldMod "u")) (FieldMod "\962\937"))]] (SetLit [FieldExtr "uV\925u",SetCompr (Rec [] (Var "fu\927FMH")) [],Operator (App (ListLit [FieldSet "\966i\923h\917U"]) (SetLit [ListLit []])) (4,NoAssoc) "<" (SetLit [SetLit [SetLit []],Var "k"])])))
2