Prog "FlatCurryGoodies" ["FlatCurry","Prelude"] [TypeSyn ((Nothing,Nothing,"FlatCurryGoodies","Update")) Public [0,1] (FuncType (FuncType (TVar 1) (TVar 1)) (FuncType (TVar 0) (TVar 0)))] [Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TVar 0)))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TVar 0))),"FlatCurryGoodies","trProg")) 2 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []]) (TVar 0)))))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TVar 0))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TVar 0)))))),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","Prog") [])))))),"FlatCurry","Prog")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),7)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TVar 0)))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TVar 0)))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TVar 0))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TVar 0))))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TVar 0)))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TVar 0)))))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TVar 0))))))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TVar 0)))))),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),5))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),6))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),7))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryGoodies","progName")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryGoodies","trProg")) [Comb (FuncPartCall 5) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))))),"FlatCurryGoodies","progName._#lambda2")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))))),"FlatCurryGoodies","progName._#lambda2")) 5 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),5)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"FlatCurryGoodies","progImports")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"FlatCurryGoodies","trProg")) [Comb (FuncPartCall 5) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))))),"FlatCurryGoodies","progImports._#lambda3")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))))),"FlatCurryGoodies","progImports._#lambda3")) 5 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),5)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])),"FlatCurryGoodies","progTypes")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]))),"FlatCurryGoodies","trProg")) [Comb (FuncPartCall 5) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])))))),"FlatCurryGoodies","progTypes._#lambda4")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])))))),"FlatCurryGoodies","progTypes._#lambda4")) 5 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []])))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),5)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),3)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),"FlatCurryGoodies","progFuncs")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))),"FlatCurryGoodies","trProg")) [Comb (FuncPartCall 5) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])))))),"FlatCurryGoodies","progFuncs._#lambda5")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])))))),"FlatCurryGoodies","progFuncs._#lambda5")) 5 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []])))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),5)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),4)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])),"FlatCurryGoodies","progOps")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]))),"FlatCurryGoodies","trProg")) [Comb (FuncPartCall 5) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])))))),"FlatCurryGoodies","progOps._#lambda6")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])))))),"FlatCurryGoodies","progOps._#lambda6")) 5 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []])))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),5)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),5)))),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))))))),"FlatCurryGoodies","updProg")) 5 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []))))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),2),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])),3),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),4),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])),5)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","Prog") [])))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"FlatCurryGoodies","trProg")) [Comb (FuncPartCall 5) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))))))))))),"FlatCurryGoodies","updProg.prog.40")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),4)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),2)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])),5)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])),3))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))))))))))),"FlatCurryGoodies","updProg.prog.40")) 10 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []))))))))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),2),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),3),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])),4),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),8),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),10)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","Prog") [])))))),"FlatCurry","Prog")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),8))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),9))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),10))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"FlatCurryGoodies","updProgName")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))))))),"FlatCurryGoodies","updProg")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"FlatCurryGoodies","updProgImports")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))))))),"FlatCurryGoodies","updProg")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"FlatCurryGoodies","updProgTypes")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))))))),"FlatCurryGoodies","updProg")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"FlatCurryGoodies","updProgFuncs")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))))))),"FlatCurryGoodies","updProg")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"FlatCurryGoodies","updProgOps")) 0 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []))) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))))))),"FlatCurryGoodies","updProg")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","allVarsInProg")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","concatMap")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","allVarsInFunc")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),"FlatCurryGoodies","progFuncs")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"FlatCurryGoodies","updProgExps")) 0 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))) (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"FlatCurryGoodies","updProgFuncs")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))) (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))))),"Prelude",".")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))),"Prelude","map")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))),"FlatCurryGoodies","updFuncBody")) []]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"FlatCurryGoodies","rnmAllVarsInProg")) 0 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))) (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"FlatCurryGoodies","updProgFuncs")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))) (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))))),"Prelude",".")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))),"Prelude","map")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))),"FlatCurryGoodies","rnmAllVarsInFunc")) []]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"FlatCurryGoodies","updQNamesInProg")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))))))),"FlatCurryGoodies","updProg")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]))),"Prelude","map")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))),"FlatCurryGoodies","updQNamesInType")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1))]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))),"Prelude","map")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))),"FlatCurryGoodies","updQNamesInFunc")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1))]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]))),"Prelude","map")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []))),"FlatCurryGoodies","updOpName")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"FlatCurryGoodies","rnmProg")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"FlatCurryGoodies","updProgName")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","const")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))),"FlatCurryGoodies","updQNamesInProg")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"FlatCurryGoodies","rnmProg.rnm.62")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),2))]],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0])))),"FlatCurryGoodies","rnmProg.rnm.62")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TVar 0]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TVar 0])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),2),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 4) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4),(Just (TVar 4),5)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryGoodies","progName")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),2))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 4) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]))),"Prelude","(,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Var ((Just (TVar 4),5))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 4) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]))),"Prelude","(,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),Var ((Just (TVar 4),5))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]),"Prelude","failed")) [])])])])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TVar 0))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TVar 0)))),"FlatCurryGoodies","trType")) 3 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []]) (TVar 0))))) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TVar 0))))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TVar 0)))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TVar 0))))),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0))))),2),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))),"FlatCurry","Type")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),7)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TVar 0)))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TVar 0)))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TVar 0))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TVar 0))))) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TVar 0)))))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TVar 0))))),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4))],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),5))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),6))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),7))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))),"FlatCurry","TypeSyn")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),8),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),10),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),11)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0)))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0)))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0))))) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0)))))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0))))),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),8))],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),9))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),10))],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),11))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"FlatCurryGoodies","typeName")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"FlatCurryGoodies","trType")) [Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))))),"FlatCurryGoodies","typeName._#lambda7")) [],Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))))),"FlatCurryGoodies","typeName._#lambda8")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))))),"FlatCurryGoodies","typeName._#lambda7")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),4)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))))),"FlatCurryGoodies","typeName._#lambda8")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryGoodies","typeVisibility")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") []))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") []))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])))),"FlatCurryGoodies","trType")) [Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") []))))),"FlatCurryGoodies","typeVisibility._#lambda9")) [],Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") []))))),"FlatCurryGoodies","typeVisibility._#lambda10")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") []))))),"FlatCurryGoodies","typeVisibility._#lambda9")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),4)] (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") []))))),"FlatCurryGoodies","typeVisibility._#lambda10")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4)] (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","typeParams")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"FlatCurryGoodies","trType")) [Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))),"FlatCurryGoodies","typeParams._#lambda11")) [],Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))),"FlatCurryGoodies","typeParams._#lambda12")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))),"FlatCurryGoodies","typeParams._#lambda11")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),4)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))),"FlatCurryGoodies","typeParams._#lambda12")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])),"FlatCurryGoodies","typeConsDecls")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])))),"FlatCurryGoodies","trType")) [Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]))))),"FlatCurryGoodies","typeConsDecls._#lambda13")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]))))),"Prelude","failed")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]))))),"FlatCurryGoodies","typeConsDecls._#lambda13")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),4)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),4)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryGoodies","typeSyn")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])))),"FlatCurryGoodies","trType")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))))),"Prelude","failed")) [],Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))))),"FlatCurryGoodies","typeSyn._#lambda14")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))))),"FlatCurryGoodies","typeSyn._#lambda14")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4)] (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isTypeSyn")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"FlatCurryGoodies","trType")) [Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))))),"FlatCurryGoodies","isTypeSyn._#lambda15")) [],Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))))),"FlatCurryGoodies","isTypeSyn._#lambda16")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))))),"FlatCurryGoodies","isTypeSyn._#lambda15")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),4)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))))),"FlatCurryGoodies","isTypeSyn._#lambda16")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isDataTypeDecl")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"FlatCurryGoodies","trType")) [Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))))),"FlatCurryGoodies","isDataTypeDecl._#lambda17")) [],Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))))),"FlatCurryGoodies","isDataTypeDecl._#lambda18")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))))),"FlatCurryGoodies","isDataTypeDecl._#lambda17")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),4)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","not")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),4))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))))),"FlatCurryGoodies","isDataTypeDecl._#lambda18")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isExternalType")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"FlatCurryGoodies","trType")) [Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))))),"FlatCurryGoodies","isExternalType._#lambda19")) [],Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))))),"FlatCurryGoodies","isExternalType._#lambda20")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))))),"FlatCurryGoodies","isExternalType._#lambda19")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),4)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),4))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))))),"FlatCurryGoodies","isExternalType._#lambda20")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))))),"FlatCurryGoodies","updType")) 5 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []))))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),2),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),3),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])),4),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),5)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") [])))),"FlatCurryGoodies","trType")) [Comb (FuncPartCall 4) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))))))),"FlatCurryGoodies","updType.typ.148")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])),4)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),3)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),2))],Comb (FuncPartCall 4) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))))))),"FlatCurryGoodies","updType.typesyn.148")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),3)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),5)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),2))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))))))),"FlatCurryGoodies","updType.typ.148")) 8 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [])) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []]) (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []))))))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),2),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),3),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),4),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),8)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))),"FlatCurry","Type")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),4)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),6))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),7))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),8))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))))))),"FlatCurryGoodies","updType.typesyn.148")) 8 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [])) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []))))))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),2),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),3),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),4),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),7),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),8)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))),"FlatCurry","TypeSyn")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),4)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),6))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),7))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),8))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))),"FlatCurryGoodies","updTypeName")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))))),"FlatCurryGoodies","updType")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))),"FlatCurryGoodies","updTypeVisibility")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))))),"FlatCurryGoodies","updType")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))),"FlatCurryGoodies","updTypeParams")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))))),"FlatCurryGoodies","updType")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))),"FlatCurryGoodies","updTypeConsDecls")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))))),"FlatCurryGoodies","updType")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))),"FlatCurryGoodies","updTypeSynonym")) 0 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []))) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))))),"FlatCurryGoodies","updType")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))),"FlatCurryGoodies","updQNamesInType")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))))),"FlatCurryGoodies","updType")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]))),"Prelude","map")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []))),"FlatCurryGoodies","updQNamesInConsDecl")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurryGoodies","updQNamesInTypeExpr")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TVar 0))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TVar 0))),"FlatCurryGoodies","trCons")) 2 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []]) (TVar 0))))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TVar 0))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TVar 0))))),1),(Just (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []))))),"FlatCurry","Cons")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),6)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TVar 0)))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TVar 0)))) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TVar 0))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TVar 0))))) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TVar 0)))))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TVar 0))))),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4))],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),5))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),6))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"FlatCurryGoodies","consName")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"FlatCurryGoodies","trCons")) [Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))))),"FlatCurryGoodies","consName._#lambda21")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))))),"FlatCurryGoodies","consName._#lambda21")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),4)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryGoodies","consArity")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","Int") []))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"FlatCurryGoodies","trCons")) [Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","Int") []))))),"FlatCurryGoodies","consArity._#lambda22")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","Int") []))))),"FlatCurryGoodies","consArity._#lambda22")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []]) (TCons ((Nothing,Nothing,"Prelude","Int")) []))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),4)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryGoodies","consVisibility")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") []))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") []))),"FlatCurryGoodies","trCons")) [Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") []))))),"FlatCurryGoodies","consVisibility._#lambda23")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") []))))),"FlatCurryGoodies","consVisibility._#lambda23")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),4)] (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])),"FlatCurryGoodies","consArgs")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]))),"FlatCurryGoodies","trCons")) [Comb (FuncPartCall 4) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]))))),"FlatCurryGoodies","consArgs._#lambda24")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]))))),"FlatCurryGoodies","consArgs._#lambda24")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),4)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),4)))),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") [])))))),"FlatCurryGoodies","updCons")) 4 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) [])))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),2),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),3),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])),4)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []))),"FlatCurryGoodies","trCons")) [Comb (FuncPartCall 4) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []))))))))),"FlatCurryGoodies","updCons.cons.192")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),2)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])),4)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),3))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []))))))))),"FlatCurryGoodies","updCons.cons.192")) 8 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [])) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []]) (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []))))))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])),2),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),3),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),4),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),8)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []))))),"FlatCurry","Cons")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),4)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),7))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),8))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []))),"FlatCurryGoodies","updConsName")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") [])))))),"FlatCurryGoodies","updCons")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []))),"FlatCurryGoodies","updConsArity")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") [])))))),"FlatCurryGoodies","updCons")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []))),"FlatCurryGoodies","updConsVisibility")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") [])))))),"FlatCurryGoodies","updCons")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []))),"FlatCurryGoodies","updConsArgs")) 0 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []))) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") [])))))),"FlatCurryGoodies","updCons")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []))),"FlatCurryGoodies","updQNamesInConsDecl")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") [])))))),"FlatCurryGoodies","updCons")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]))),"Prelude","map")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurryGoodies","updQNamesInTypeExpr")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryGoodies","tVarIndex")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryGoodies","domain")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","FuncType")) [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3)]) (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryGoodies","range")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","FuncType")) [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3)]) (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"FlatCurryGoodies","tConsName")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","TCons")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])),"FlatCurryGoodies","tConsArgs")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","TCons")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),3)))])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0))))),"FlatCurryGoodies","trTypeExpr")) 4 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TVar 0)) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TVar 0))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TVar 0))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0))),2),(Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),5)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),5))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","TCons")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),7)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0)))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0))),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0))))),"FlatCurryGoodies","trTypeExpr")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)),1)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0))),2)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),3))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),7))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","FuncType")) [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),8),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),9)]) (Let [((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0)),10),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 599)) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 599]) (TVar 599))) (FuncType (FuncType (TVar 599) (FuncType (TVar 599) (TVar 599))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 599))))),"FlatCurryGoodies","trTypeExpr")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)),1)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0))),2)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),3))])] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TVar 0)) (FuncType (TVar 0) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0)))),"Prelude","apply")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),3)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0)),10)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),8))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TVar 0)),10)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),9))]]))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isTVar")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))))),"FlatCurryGoodies","trTypeExpr")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isTVar._#lambda25")) [],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isTVar._#lambda26")) [],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isTVar._#lambda27")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isTVar._#lambda25")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isTVar._#lambda26")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Bool")) []]) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Bool") []]),2)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isTVar._#lambda27")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isTCons")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))))),"FlatCurryGoodies","trTypeExpr")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isTCons._#lambda28")) [],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isTCons._#lambda29")) [],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isTCons._#lambda30")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isTCons._#lambda28")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isTCons._#lambda29")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Bool")) []]) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Bool") []]),2)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isTCons._#lambda30")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isFuncType")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))))),"FlatCurryGoodies","trTypeExpr")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isFuncType._#lambda31")) [],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isFuncType._#lambda32")) [],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isFuncType._#lambda33")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isFuncType._#lambda31")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isFuncType._#lambda32")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Bool")) []]) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Bool") []]),2)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isFuncType._#lambda33")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurryGoodies","updTVars")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))))),"FlatCurryGoodies","trTypeExpr")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),1)),Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","TCons")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","FuncType")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurryGoodies","updTCons")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []]) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))))),"FlatCurryGoodies","trTypeExpr")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),1)),Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","FuncType")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurryGoodies","updFuncTypes")) 0 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []))) (Rule [] (Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))))),"FlatCurryGoodies","trTypeExpr")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","TCons")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])),"FlatCurryGoodies","argTypes")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","TCons")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","FuncType")) [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),6)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []])),"FlatCurryGoodies","argTypes")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),6))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryGoodies","resultType")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","TCons")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),4)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","TCons")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),4))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","FuncType")) [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryGoodies","resultType")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),6))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","allVarsInTypeExpr")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))),"FlatCurryGoodies","trTypeExpr")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"Prelude","flip")) [Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude",":")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),"Prelude","[]")) []],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"Prelude","const")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"Prelude","concat")) []],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","++")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurryGoodies","rnmAllVarsInTypeExpr")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurryGoodies","updTVars")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])))),"Prelude",".")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurryGoodies","updQNamesInTypeExpr")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurryGoodies","updTCons")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])))),"FlatCurryGoodies","updQNamesInTypeExpr._#lambda34")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])))),"FlatCurryGoodies","updQNamesInTypeExpr._#lambda34")) 3 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []]) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),3)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","TCons")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),3))])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TVar 0))),"FlatCurryGoodies","trOp")) 2 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TVar 0)))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []) (TVar 0))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)))),1),(Just (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") [])))),"FlatCurry","Op")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),4),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),5)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)))) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0))))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)))),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),4))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),5))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"FlatCurryGoodies","opName")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"FlatCurryGoodies","trOp")) [Comb (FuncPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"FlatCurryGoodies","opName._#lambda35")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"FlatCurryGoodies","opName._#lambda35")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])),"FlatCurryGoodies","opFixity")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") []))),"FlatCurryGoodies","trOp")) [Comb (FuncPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])))),"FlatCurryGoodies","opFixity._#lambda36")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])))),"FlatCurryGoodies","opFixity._#lambda36")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) [])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)] (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),2)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryGoodies","opPrecedence")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"FlatCurryGoodies","trOp")) [Comb (FuncPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])))),"FlatCurryGoodies","opPrecedence._#lambda37")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])))),"FlatCurryGoodies","opPrecedence._#lambda37")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)))),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []))))),"FlatCurryGoodies","updOp")) 3 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) []) (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])),2),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),3)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") [])))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []))),"FlatCurryGoodies","trOp")) [Comb (FuncPartCall 3) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []))))))),"FlatCurryGoodies","updOp.op.305")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])),2)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),3))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []))))))),"FlatCurryGoodies","updOp.op.305")) 6 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) []) (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []))))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),2),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),3),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),5),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") [])))),"FlatCurry","Op")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])),1)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),5))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []))),"FlatCurryGoodies","updOpName")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []))))),"FlatCurryGoodies","updOp")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []))),"FlatCurryGoodies","updOpFixity")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) []) (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []))))),"FlatCurryGoodies","updOp")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []))),"FlatCurryGoodies","updOpPrecedence")) 0 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []))) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []))))),"FlatCurryGoodies","updOp")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TVar 0)))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TVar 0))),"FlatCurryGoodies","trFunc")) 2 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TVar 0)))))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TVar 0))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TVar 0)))))),1),(Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])))))),"FlatCurry","Func")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),5),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),6),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),7)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TVar 0)))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TVar 0)))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TVar 0))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TVar 0))))) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TVar 0)))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TVar 0)))))) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TVar 0))))))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TVar 0)))))),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4))],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),5))],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),6))],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),7))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"FlatCurryGoodies","funcName")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"FlatCurryGoodies","trFunc")) [Comb (FuncPartCall 5) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))))),"FlatCurryGoodies","funcName._#lambda38")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))))),"FlatCurryGoodies","funcName._#lambda38")) 5 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),5)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryGoodies","funcArity")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","Int") [])))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"FlatCurryGoodies","trFunc")) [Comb (FuncPartCall 5) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","Int") [])))))),"FlatCurryGoodies","funcArity._#lambda39")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","Int") [])))))),"FlatCurryGoodies","funcArity._#lambda39")) 5 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),5)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryGoodies","funcVisibility")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") []))),"FlatCurryGoodies","trFunc")) [Comb (FuncPartCall 5) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])))))),"FlatCurryGoodies","funcVisibility._#lambda40")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])))))),"FlatCurryGoodies","funcVisibility._#lambda40")) 5 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [])))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),5)] (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryGoodies","funcType")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurryGoodies","trFunc")) [Comb (FuncPartCall 5) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])))))),"FlatCurryGoodies","funcType._#lambda41")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])))))),"FlatCurryGoodies","funcType._#lambda41")) 5 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),5)] (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"FlatCurryGoodies","funcRule")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","Rule")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurryGoodies","trFunc")) [Comb (FuncPartCall 5) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])))))),"FlatCurryGoodies","funcRule._#lambda42")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])))))),"FlatCurryGoodies","funcRule._#lambda42")) 5 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"FlatCurry","Rule")) [])))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),5)] (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),5)))),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))))))),"FlatCurryGoodies","updFunc")) 5 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"FlatCurry","Rule")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []))))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),2),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),3),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),4),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),5)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))),"FlatCurryGoodies","trFunc")) [Comb (FuncPartCall 5) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))))))))))),"FlatCurryGoodies","updFunc.func.352")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),2)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),5)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),4)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),3))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))))))))))),"FlatCurryGoodies","updFunc.func.352")) 10 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"FlatCurry","Rule")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [])) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []))))))))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),2),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),3),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),4),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),5),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),7),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),8),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),9),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),10)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])))))),"FlatCurry","Func")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),5)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),8))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),4)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),9))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),10))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))),"FlatCurryGoodies","updFuncName")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))))))),"FlatCurryGoodies","updFunc")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))),"FlatCurryGoodies","updFuncArity")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))))))),"FlatCurryGoodies","updFunc")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))),"FlatCurryGoodies","updFuncVisibility")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))))))),"FlatCurryGoodies","updFunc")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))),"FlatCurryGoodies","updFuncType")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))))))),"FlatCurryGoodies","updFunc")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))),"FlatCurryGoodies","updFuncRule")) 0 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"FlatCurry","Rule")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []))) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))))))),"FlatCurryGoodies","updFunc")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isExternal")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isRuleExternal")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"FlatCurryGoodies","funcRule")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","allVarsInFunc")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","allVarsInRule")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"FlatCurryGoodies","funcRule")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","funcArgs")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","ruleArgs")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"FlatCurryGoodies","funcRule")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryGoodies","funcBody")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryGoodies","ruleBody")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"FlatCurryGoodies","funcRule")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryGoodies","funcRHS")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Expr")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),1)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","not")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isExternal")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),1))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryGoodies","funcRHS.orCase.374")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryGoodies","funcBody")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),1))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","failed")) [])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryGoodies","funcRHS.orCase.374")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Expr")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isOr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryGoodies","funcRHS.orCase.374")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryGoodies","orExps")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCase")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryGoodies","funcRHS.orCase.374")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","map")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryGoodies","branchExpr")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []])),"FlatCurryGoodies","caseBranches")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","failed")) [])])])])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))),"FlatCurryGoodies","rnmAllVarsInFunc")) 0 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))) (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))))))),"FlatCurryGoodies","updFunc")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"Prelude","id")) []],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurryGoodies","rnmAllVarsInRule")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))),"FlatCurryGoodies","updQNamesInFunc")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))))))),"FlatCurryGoodies","updFunc")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"Prelude","id")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurryGoodies","updQNamesInTypeExpr")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurryGoodies","updQNamesInRule")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))),"FlatCurryGoodies","updFuncArgs")) 0 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))) (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))),"FlatCurryGoodies","updFuncRule")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurryGoodies","updRuleArgs")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))),"FlatCurryGoodies","updFuncBody")) 0 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))) (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []))),"FlatCurryGoodies","updFuncRule")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurryGoodies","updRuleBody")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TVar 0)))),"FlatCurryGoodies","trRule")) 3 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TVar 0))) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TVar 0)) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TVar 0)))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0))),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TVar 0)),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurry","Rule")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0))),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4))],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"FlatCurry","External")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TVar 0))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TVar 0)),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","ruleArgs")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"FlatCurryGoodies","trRule")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"FlatCurryGoodies","ruleArgs._#lambda43")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"Prelude","failed")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"FlatCurryGoodies","ruleArgs._#lambda43")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),2)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),1)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryGoodies","ruleBody")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurryGoodies","trRule")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","ruleBody._#lambda44")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"Prelude","failed")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","ruleBody._#lambda44")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),2)] (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),2)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryGoodies","ruleExtDecl")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryGoodies","trRule")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","failed")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isRuleExternal")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"FlatCurryGoodies","trRule")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isRuleExternal._#lambda45")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isRuleExternal._#lambda46")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isRuleExternal._#lambda45")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),2)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isRuleExternal._#lambda46")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))))),"FlatCurryGoodies","updRule")) 3 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),1),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),2),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),3)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])))),"FlatCurryGoodies","trRule")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))))),"FlatCurryGoodies","updRule.rule.409")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),1)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),2))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurryGoodies","updRule.ext.409")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),3))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))))),"FlatCurryGoodies","updRule.rule.409")) 4 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),1),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),4)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurry","Rule")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),2)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),4))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurryGoodies","updRule.ext.409")) 2 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"FlatCurry","External")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurryGoodies","updRuleArgs")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))))),"FlatCurryGoodies","updRule")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurryGoodies","updRuleBody")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))))),"FlatCurryGoodies","updRule")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurryGoodies","updRuleExtDecl")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))))),"FlatCurryGoodies","updRule")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","allVarsInRule")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"FlatCurryGoodies","trRule")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"FlatCurryGoodies","allVarsInRule._#lambda47")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","allVarsInRule._#lambda48")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"FlatCurryGoodies","allVarsInRule._#lambda47")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","allVars")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1003])),"FlatCurryGoodies","allVarsInRule._#lambda48")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 1003])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1003]),"Prelude","[]")) [])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurryGoodies","rnmAllVarsInRule")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))))),"FlatCurryGoodies","updRule")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","rnmAllVars")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurryGoodies","updQNamesInRule")) 0 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))) (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurryGoodies","updRuleBody")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","updQNames")) []])),Func ((Nothing,Just (FuncType (TVar 0) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)) (FuncType (TVar 0) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TVar 0)))))),"FlatCurryGoodies","trCombType")) 5 Public (FuncType (TVar 0) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TVar 0)) (FuncType (TVar 0) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TVar 0)) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","CombType")) []) (TVar 0)))))) (Rule [(Just (TVar 0),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)),2),(Just (TVar 0),3),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)),4),(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),5)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),5))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) []) (Var ((Just (TVar 0),1))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","FuncPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","ConsCall")) []) (Var ((Just (TVar 0),3))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","ConsPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),7)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeFuncCall")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","CombType")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))))),"FlatCurryGoodies","trCombType")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeFuncCall._#lambda49")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeFuncCall._#lambda50")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeFuncCall._#lambda49")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeFuncCall._#lambda50")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeFuncPartCall")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","CombType")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))))),"FlatCurryGoodies","trCombType")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeFuncPartCall._#lambda51")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeFuncPartCall._#lambda52")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeFuncPartCall._#lambda51")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeFuncPartCall._#lambda52")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeConsCall")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","CombType")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))))),"FlatCurryGoodies","trCombType")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeConsCall._#lambda53")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeConsCall._#lambda54")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeConsCall._#lambda53")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeConsCall._#lambda54")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeConsPartCall")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","CombType")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))))),"FlatCurryGoodies","trCombType")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeConsPartCall._#lambda55")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeConsPartCall._#lambda56")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeConsPartCall._#lambda55")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeConsPartCall._#lambda56")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryGoodies","missingArgs")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","CombType")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Int") [])))))),"FlatCurryGoodies","trCombType")) [Lit (Intc  0),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","id")) [],Lit (Intc  0),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryGoodies","varNr")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurryGoodies","literal")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Literal")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),2)]) (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurryGoodies","combType")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","CombType")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),2),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4)]) (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"FlatCurryGoodies","combName")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),2),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryGoodies","combArgs")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Expr")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),2),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryGoodies","missingCombArgs")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Int") [])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryGoodies","missingArgs")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurryGoodies","combType")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"FlatCurryGoodies","letBinds")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryGoodies","letBody")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","freeVars")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryGoodies","freeExpr")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryGoodies","orExps")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Expr")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),2)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","CaseType") [])),"FlatCurryGoodies","caseType")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","CaseType")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),4)]) (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryGoodies","caseExpr")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),4)]) (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []])),"FlatCurryGoodies","caseBranches")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),4)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),4)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isVar")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),4),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),7),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),8)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),9),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),13),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),15)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isLit")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),4),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),7),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),8)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),9),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),13),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),15)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isComb")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),2),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),6)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),7),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),8)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),9),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),13),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),15)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isLet")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),6),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),8)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),9),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),13),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),15)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isFree")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),6),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),8)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),9),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),13),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),15)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isOr")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),6),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),8)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),9),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),11),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),13),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),15)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCase")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),6)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),7),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),8),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),9)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),10),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),12),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),13)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),15)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0)) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0)))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0)))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)))))))))),"FlatCurryGoodies","trExpr")) 9 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TVar 0)) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Literal")) []) (TVar 0)) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","CombType")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TVar 0)))) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]]) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","CaseType")) []) (FuncType (TVar 0) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 1]) (TVar 0)))) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TVar 0)))))))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)),1),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0)),2),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0)))),3),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TVar 0) (TVar 0))),4),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TVar 0) (TVar 0))),5),(Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),6),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0)))),7),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 0) (TVar 1))),8),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),9)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),9))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),10)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),10))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),11)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0)),2)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),11))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),12),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),13),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),14)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0)))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0)))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0))))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0)))),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),12))],Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),13))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0)) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0)))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0)))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)))))))))),"FlatCurryGoodies","trExpr")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)),1)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0)),2)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0)))),3)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TVar 0) (TVar 0))),4)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TVar 0) (TVar 0))),5)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),6)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0)))),7)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 0) (TVar 1))),8))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),14))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),15),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),16)]) (Let [((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)),17),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 261)) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 261)) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 261]) (TVar 261)))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 261]]) (FuncType (TVar 261) (TVar 261))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TVar 261) (TVar 261))) (FuncType (FuncType (TVar 261) (FuncType (TVar 261) (TVar 261))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TVar 261) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 262]) (TVar 261)))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 261) (TVar 262))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 261)))))))))),"FlatCurryGoodies","trExpr")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)),1)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0)),2)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0)))),3)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TVar 0) (TVar 0))),4)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TVar 0) (TVar 0))),5)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),6)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0)))),7)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 0) (TVar 1))),8))])] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TVar 0)) (FuncType (TVar 0) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TVar 0) (TVar 0)))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TVar 0) (TVar 0))),4)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]))),"FlatCurryGoodies","trExpr._#lambda64")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)),17))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),15))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)),17)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),16))]])),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),18),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),19)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TVar 0)) (FuncType (TVar 0) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TVar 0) (TVar 0)))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TVar 0) (TVar 0))),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),18))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0)) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0)))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0)))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)))))))))),"FlatCurryGoodies","trExpr")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)),1)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0)),2)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0)))),3)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TVar 0) (TVar 0))),4)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TVar 0) (TVar 0))),5)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),6)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0)))),7)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 0) (TVar 1))),8)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),19))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),20),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),21)]) (Let [((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)),22),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 278)) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 278)) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 278]) (TVar 278)))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 278]]) (FuncType (TVar 278) (TVar 278))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TVar 278) (TVar 278))) (FuncType (FuncType (TVar 278) (FuncType (TVar 278) (TVar 278))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TVar 278) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 279]) (TVar 278)))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 278) (TVar 279))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 278)))))))))),"FlatCurryGoodies","trExpr")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)),1)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0)),2)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0)))),3)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TVar 0) (TVar 0))),4)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TVar 0) (TVar 0))),5)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),6)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0)))),7)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 0) (TVar 1))),8))])] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TVar 0)) (FuncType (TVar 0) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0)))),"Prelude","apply")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),6)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)),22)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),20))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)),22)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),21))]])),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),23),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),24),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),25)]) (Let [((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)),26),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 288)) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 288)) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 288]) (TVar 288)))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 288]]) (FuncType (TVar 288) (TVar 288))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TVar 288) (TVar 288))) (FuncType (FuncType (TVar 288) (FuncType (TVar 288) (TVar 288))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TVar 288) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 289]) (TVar 288)))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 288) (TVar 289))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 288)))))))))),"FlatCurryGoodies","trExpr")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TVar 0)),1)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0)),2)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 0)))),3)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TVar 0) (TVar 0))),4)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TVar 0) (TVar 0))),5)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),6)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0)))),7)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 0) (TVar 1))),8))])] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0))) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0)))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0)))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0))))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TVar 0)))),7)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),23))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)),26)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),24))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TVar 1)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 0) (TVar 1))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TVar 1)))),"FlatCurryGoodies","trExpr._#lambda65")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 0) (TVar 1))),8)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)),26))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),25))]]))])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 231)) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 231]))),"FlatCurryGoodies","trExpr._#lambda64")) 2 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TVar 231)) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 231]))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 231)),1),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 233) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TVar 233),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),4)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 233) (FuncType (TVar 231) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 231]))),"Prelude","(,)")) [Var ((Just (TVar 233),3)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 231)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 231))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 231)),1)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),4))]])])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 231) (TVar 232))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 231)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TVar 232)))),"FlatCurryGoodies","trExpr._#lambda65")) 3 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (FuncType (TVar 231) (TVar 232))) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TVar 231)) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TVar 232)))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 231) (TVar 232))),1),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 231)),2),(Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 231) (TVar 232)) (FuncType (TVar 231) (TVar 232))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 231) (TVar 232))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 231) (TVar 232)))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TVar 231) (TVar 232))),1)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),4))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 231)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 231))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 231)),2)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5))]])])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","updVars")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))))))))),"FlatCurryGoodies","trExpr")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),1)),Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [],Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [],Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","updLiterals")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Literal")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))))))))),"FlatCurryGoodies","trExpr")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),1)),Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [],Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","updCombs")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","CombType")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))))))))),"FlatCurryGoodies","trExpr")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [],Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),1)),Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [],Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","updLets")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))))))))),"FlatCurryGoodies","trExpr")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [],Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [],Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),1)),Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [],Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","updFrees")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))))))))),"FlatCurryGoodies","trExpr")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [],Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [],Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),1)),Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [],Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","updOrs")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))))))))),"FlatCurryGoodies","trExpr")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [],Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [],Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),1)),Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","updCases")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","CaseType")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))))))))),"FlatCurryGoodies","trExpr")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [],Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [],Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),1)),Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","updBranches")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))))))))),"FlatCurryGoodies","trExpr")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [],Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [],Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [],Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),1))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isFuncCall")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","&&")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isComb")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeFuncCall")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurryGoodies","combType")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isFuncPartCall")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","&&")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isComb")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeFuncPartCall")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurryGoodies","combType")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isConsCall")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","&&")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isComb")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeConsCall")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurryGoodies","combType")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isConsPartCall")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","&&")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isComb")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isCombTypeConsPartCall")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurryGoodies","combType")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isGround")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),2),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","ConsCall")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","all")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isGround")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","FuncPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","ConsPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),7)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),8)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),9),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),11),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),13),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),15),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),16),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),17)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","allVars")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))) (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))))))))),"FlatCurryGoodies","trExpr")) [Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude",":")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"Prelude","const")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"Prelude","id")) []],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))),"FlatCurryGoodies","allVars.comb.650")) [],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"FlatCurryGoodies","allVars.lt.650")) [],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"FlatCurryGoodies","allVars.fr.650")) [],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"Prelude",".")) [],Comb (FuncPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))),"FlatCurryGoodies","allVars.cas.650")) [],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"FlatCurryGoodies","allVars.branch.650")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),"Prelude","[]")) []])),Func ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [FuncType (TVar 2) (TVar 2)]) (FuncType (TVar 2) (TVar 2))))),"FlatCurryGoodies","allVars.comb.650")) 2 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [FuncType (TVar 2) (TVar 2)]) (FuncType (TVar 2) (TVar 2))))) (Rule [(Just (TVar 0),1),(Just (TVar 1),2)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (FuncType (TVar 2) (TVar 2)) (FuncType (FuncType (TVar 2) (TVar 2)) (FuncType (TVar 2) (TVar 2)))) (FuncType (FuncType (TVar 2) (TVar 2)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [FuncType (TVar 2) (TVar 2)]) (FuncType (TVar 2) (TVar 2))))),"Prelude","foldr")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (TVar 2) (TVar 2)) (FuncType (FuncType (TVar 2) (TVar 2)) (FuncType (TVar 2) (TVar 2)))),"Prelude",".")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TVar 2) (TVar 2)),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 1)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 1)))),"FlatCurryGoodies","allVars.lt.650")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0])]]) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TVar 1)) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TVar 1)))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])]]),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 1)),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 1)) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 1)))),"Prelude",".")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TVar 1)),2)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))))),"Prelude","foldr")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])))),"Prelude",".")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])),"Prelude","id")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])]]) (TCons (Nothing,Nothing,"Prelude","[]") [FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"FlatCurryGoodies","allVars.lt.650._#lambda67")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])]]),1))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 283,FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283])]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]))),"FlatCurryGoodies","allVars.lt.650._#lambda67")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 283,FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 283]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 283])]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 283]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 283]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 283,FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283])]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 283,FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283])]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 283) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283])) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 283,FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283])]))),"Prelude","(,)")) [(Just (TVar 283),2),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283])),3)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283])))),"Prelude",".")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TVar 283) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]))),"Prelude",":")) [Var ((Just (TVar 283),2))],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283])),3))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (FuncType (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])))),"FlatCurryGoodies","allVars.fr.650")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (FuncType (FuncType (TVar 1) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0])) (FuncType (TVar 1) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),1),(Just (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])) (FuncType (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),1))],Var ((Just (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])),2))])),Func ((Nothing,Just (FuncType (TVar 0) (FuncType (FuncType (TVar 1) (TVar 2)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [FuncType (TVar 1) (TVar 1)]) (FuncType (TVar 1) (TVar 2))))),"FlatCurryGoodies","allVars.cas.650")) 3 Private (FuncType (TVar 0) (FuncType (FuncType (TVar 1) (TVar 2)) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [FuncType (TVar 1) (TVar 1)]) (FuncType (TVar 1) (TVar 2))))) (Rule [(Just (TVar 0),1),(Just (FuncType (TVar 1) (TVar 2)),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [FuncType (TVar 1) (TVar 1)]),3)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 1) (TVar 2)) (FuncType (FuncType (TVar 1) (TVar 1)) (FuncType (TVar 1) (TVar 2)))),"Prelude",".")) [Var ((Just (FuncType (TVar 1) (TVar 2)),2)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TVar 1) (TVar 1)) (FuncType (FuncType (TVar 1) (TVar 1)) (FuncType (TVar 1) (TVar 1)))) (FuncType (FuncType (TVar 1) (TVar 1)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [FuncType (TVar 1) (TVar 1)]) (FuncType (TVar 1) (TVar 1))))),"Prelude","foldr")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (TVar 1) (TVar 1)) (FuncType (FuncType (TVar 1) (TVar 1)) (FuncType (TVar 1) (TVar 1)))),"Prelude",".")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TVar 1) (TVar 1)),"Prelude","id")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [FuncType (TVar 1) (TVar 1)]),3))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","allVars.args.650")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),1)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isConsPattern")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),1))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","patArgs")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),1))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),"Prelude","failed")) [])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"FlatCurryGoodies","allVars.branch.650")) 2 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (FuncType (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),1),(Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","allVars.args.650")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),1))]],Var ((Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),2))])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","rnmAllVars")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1)] (Let [((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),2),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 5) (TVar 6)) (FuncType (FuncType (TVar 7) (TVar 5)) (FuncType (TVar 7) (TVar 6)))),"Prelude",".")) [Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 3) (TVar 4)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 3]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 4]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"FlatCurryGoodies","rnmAllVars._#lambda68")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1))]]])] (Let [((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),3),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 10) (TVar 11)) (FuncType (FuncType (TVar 12) (TVar 10)) (FuncType (TVar 12) (TVar 11)))),"Prelude",".")) [Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))),"FlatCurryGoodies","updPatArgs")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 8) (TVar 9)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 8]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 9]))),"Prelude","map")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1))]]])] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))))))))),"FlatCurryGoodies","trExpr")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"Prelude",".")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1))],Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [],Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),2)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))))),"Prelude",".")) [Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1))]],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [],Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),3))])))),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"FlatCurryGoodies","rnmAllVars._#lambda68")) 2 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 4) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TVar 4),4)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 4) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],Var ((Just (TVar 4),4))])])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","updQNames")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))))))))),"FlatCurryGoodies","trExpr")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [],Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [],Comb (FuncPartCall 3) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))))),"FlatCurryGoodies","updQNames.comb.673")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1))],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [],Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [],Comb (ConsPartCall 3) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))))),"Prelude",".")) [Comb (ConsPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))),"FlatCurryGoodies","updPatCons")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1))]]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))))),"FlatCurryGoodies","updQNames.comb.673")) 4 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","CombType")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1),(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),2),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),2)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4))])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TVar 0))),"FlatCurryGoodies","trBranch")) 2 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TVar 0))) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TVar 0))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0))),1),(Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),4)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0)))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TVar 0))),1)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),3))],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),4))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),"FlatCurryGoodies","branchPattern")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))),"FlatCurryGoodies","trBranch")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))),"FlatCurryGoodies","branchPattern._#lambda69")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))),"FlatCurryGoodies","branchPattern._#lambda69")) 2 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []))) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),2)] (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),1)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryGoodies","branchExpr")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","trBranch")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","branchExpr._#lambda70")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","branchExpr._#lambda70")) 2 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),2)] (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),2)))),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") [])))),"FlatCurryGoodies","updBranch")) 2 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) [])))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),1),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),2)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurryGoodies","trBranch")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))))),"FlatCurryGoodies","updBranch.branch.687")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),2)),Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),1))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))))),"FlatCurryGoodies","updBranch.branch.687")) 4 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),1),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),4)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),2)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),3))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),1)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),4))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurryGoodies","updBranchPattern")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") [])))),"FlatCurryGoodies","updBranch")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurryGoodies","updBranchExpr")) 0 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []))) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") [])))),"FlatCurryGoodies","updBranch")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TVar 0))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TVar 0)))),"FlatCurryGoodies","trPattern")) 3 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TVar 0))) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Literal")) []) (TVar 0)) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TVar 0)))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TVar 0))),1),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0)),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))),"FlatCurry","Pattern")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TVar 0))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TVar 0)))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TVar 0))),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),5))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),"FlatCurry","LPattern")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),6)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TVar 0)),2)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),6))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"FlatCurryGoodies","patCons")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"FlatCurryGoodies","trPattern")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"FlatCurryGoodies","patCons._#lambda71")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","failed")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"FlatCurryGoodies","patCons._#lambda71")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"FlatCurryGoodies","patArgs")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"FlatCurryGoodies","trPattern")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"FlatCurryGoodies","patArgs._#lambda72")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"Prelude","failed")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"FlatCurryGoodies","patArgs._#lambda72")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2)))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurryGoodies","patLiteral")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"FlatCurry","Literal")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"FlatCurry","Literal") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])))),"FlatCurryGoodies","trPattern")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"FlatCurry","Literal") []))),"Prelude","failed")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isConsPattern")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"FlatCurryGoodies","trPattern")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isConsPattern._#lambda73")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isConsPattern._#lambda74")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FlatCurryGoodies","isConsPattern._#lambda73")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryGoodies","isConsPattern._#lambda74")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Literal")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),1)] (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))))),"FlatCurryGoodies","updPattern")) 3 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Literal")) []) (TCons ((Nothing,Nothing,"FlatCurry","Literal")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),2),(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),3)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])))),"FlatCurryGoodies","trPattern")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))))),"FlatCurryGoodies","updPattern.pattern.718")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),2)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))),"FlatCurryGoodies","updPattern.lpattern.718")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),3))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))))),"FlatCurryGoodies","updPattern.pattern.718")) 4 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []))))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),2),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))),"FlatCurry","Pattern")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))),"FlatCurryGoodies","updPattern.lpattern.718")) 2 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Literal")) []) (TCons ((Nothing,Nothing,"FlatCurry","Literal")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Literal")) []) (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),2)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),"FlatCurry","LPattern")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),1)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),2))]])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))),"FlatCurryGoodies","updPatCons")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))))),"FlatCurryGoodies","updPattern")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))),"FlatCurryGoodies","updPatArgs")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))))),"FlatCurryGoodies","updPattern")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"Prelude","id")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))),"FlatCurryGoodies","updPatLiteral")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Literal")) []) (TCons ((Nothing,Nothing,"FlatCurry","Literal")) [])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))))),"FlatCurryGoodies","updPattern")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","id")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"Prelude","id")) [],Var ((Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),1))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryGoodies","patExpr")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurryGoodies","trPattern")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","patExpr._#lambda75")) [],Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","patExpr._#lambda75")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"Prelude",".")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","ConsCall")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","map")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) []]]))] []